Quick Menu : [Disclaimer]  [Blog]	[Home]

Dynamischer Verteiler mit angemeldeten Benutzer

Einführung

Dieses Crash Tutorial zeigt Dir wie man einen Dynamischer Verteiler erestellt mit allen angemeldeten Benutzer am System.
Getestet wurde dieses Tutorial auf Windows 2003 SP2 und Exchange 2003 SP2
Falls Du fragen oder anregungen hast kannst Du mir jederzeit ein Mail schreiben (tutorial@thetube.ch).

1. Was es dazu braucht :

• Windows 2003
• Exchange 2003

2. Verteiler Vorbereiten :

(&(!cn=SystemMailbox{*})(&(&(&(& (mailnickname=*) (| (&(objectCategory=person)(objectClass=user)(|(homeMDB=*)(msExchHomeServerName=*))) )))(objectCategory=user)(info=1))))

3. Login Script Vorbereiten :

REM *********************************************
REM *    Attribut Setzen     					*
REM *											*
REM * Erstellt am 14.06.2007 / The Tube	     	*
REM *											*
REM * Aenderungen :								*
REM *											*
REM *********************************************

Option Explicit
On error resume next

Dim objSysInfo, objUser
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)

REM --- Attribut Setzen Start ---

objUser.put "Info" , 1
objUser.setinfo

REM --- Attribut Setzen Stop ---

4. Logoff Script Vorbereiten :

REM *********************************************
REM *    Logoff Script    						*
REM *											*
REM * Erstellt am 11.09.2007 / The Tube	      	*
REM *											*
REM * Aenderungen :								*
REM *											*
REM *********************************************

Option Explicit
On error resume next

Dim objSysInfo, objUser
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)

REM --- Attribut Setzen Start ---

objUser.put "Info" , 0
objUser.setinfo

REM --- Attribut Setzen Ende ---

5. Testen :

Referenzen

1. Windows 2003 Server — Offizielle Windows 2003 Server Seite
2. Exchange 2003 Seite — Offizielle Exchange 2003 Seite