hallo zusammen...

ich hätte da eine frage bezüglich active directory & vbs;

ich möchte dass alle benutzer der OU "Kunden" geprüft werden, ob sie mitglied der gruppen "X" ODER "Y" sind.

Falls ja -> soll beim benutzer noch die gruppe "Z" hinzugefügt werden.

Falls nein -> soll beim benutzer die gruppe "Z" gelöscht werden. (sofern vorhanden)

hoffe ihr wisst was ich meine...

ich dachte es wäre das einfachste wenn ich das problem mit einem vbs löse...gegenvorschläge sind jederzeit willkommen.

danke im voraus...

Hi neno

Vielleicht wäre ne kombination von dsadd und ifmember ne möglichkeit ?

http://www.gruppenrichtlinien.de/ind...de_Scripts.htm

Habs selbst nie getestet... und bin schon gar kein dsadd spezialist.

Grüsse

Darkmind

hab ne tolle page gefunden und werds mal damit versuchen...

http://www.cruto.com/resources/vbscr...les/ad/groups/

falls jemand aber noch weitere vorschläge hat her damit..

Das hilft dir vielleicht auch noch.

<blockquote><pre><font face="verdana,arial,helvetica"size="1"class="sf">C ode</font><hr><font face="verdana,arial,helvetica"size="2"class="sf">O n Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")

strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)

'WScript.echo objSysinfo.UserName

For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN

Select Case strGroupName
Case "GL"
objNetwork.MapNetworkDrive "z:", "\\w2k03\GL"

Case "Administration"
objNetwork.MapNetworkDrive "Y:", "\\w2k03\Administration"

Case "Buchhaltung"
objNetwork.MapNetworkDrive "X:", "\\w2k03\Buchhaltung"

Case "Entwicklung"
objNetwork.MapNetworkDrive "W:", "\\w2k03\Entwicklung"

Case "Verkauf"
objNetwork.MapNetworkDrive "V:", "\\w2k03\Verkauf"


Case "Web-Support"
objNetwork.MapNetworkDrive "U:", "\\w2k03\Websupport"

End Select
Next

<hr></font></pre></blockquote>

grz zer00