70385
Oct 27, 2008, updated at 14:58:33 (UTC)
4964
1
0
Netzlaufwerke per VB Script einer Gruppe zuordnen
Hallo zusammen,
ich möchte bestimmte Netzlaufwerke bestimmten Benutzern bzw. Gruppen zuordnen.
Ich habe bereits ein Druckerscript, welches OU-seitig wunderbar funktion.
Damit ich nur ein Script einsetzen muss, würde ich dies gerne erweitern.
Beispiel:
Benutzer Meyer bekommt Laufwerk \\Server\*freigabe*1 + \\Server\*freigabe*2
Gruppe Praktikant bekommt Laufwerk \\Server\*freigabe*4 + \\Server\*freigabe*5
Derzeit bekommt jede Gruppe eine OU, um ein passendes Script per GPO zuzuweisen. Das ist natürlich sehr umständlich.
Gelesen habe ich schon so einiges, aber das Richtige für VB habe ich leider nicht gefunden.
Es soll auf jeden Fall ein VB Script sein, per Batch weiß ich wie es funktioniert (if member ...)
Hat jemand ein passendes Beispiel-VBScript für mich?
Vorab danke und Gruß
ich möchte bestimmte Netzlaufwerke bestimmten Benutzern bzw. Gruppen zuordnen.
Ich habe bereits ein Druckerscript, welches OU-seitig wunderbar funktion.
Set wshNetwork = WScript.CreateObject( "WScript.Network" )
Set objADSysInfo = CreateObject("ADSystemInfo")
Set objComputer = GetObject("LDAP://" & objADSysInfo.ComputerName)
Set objOU = GetObject(objComputer.parent)
Call Submapprinter
Sub Submapprinter()
objOU.Filter=Array("printqueue")
For Each oPq In objOU
wshNetwork.AddWindowsPrinterConnection oPq.PrinterPath
Next
End SubBeispiel:
Benutzer Meyer bekommt Laufwerk \\Server\*freigabe*1 + \\Server\*freigabe*2
Gruppe Praktikant bekommt Laufwerk \\Server\*freigabe*4 + \\Server\*freigabe*5
Derzeit bekommt jede Gruppe eine OU, um ein passendes Script per GPO zuzuweisen. Das ist natürlich sehr umständlich.
Gelesen habe ich schon so einiges, aber das Richtige für VB habe ich leider nicht gefunden.
Es soll auf jeden Fall ein VB Script sein, per Batch weiß ich wie es funktioniert (if member ...)
Hat jemand ein passendes Beispiel-VBScript für mich?
Vorab danke und Gruß
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 100367
Url: https://administrator.de/contentid/100367
Printed on: April 19, 2024 at 16:04 o'clock
1 Comment
Hallo ISO4715!
Sollte so gehen:
Grüße
bastla
Sollte so gehen:
strUser = "LDAP://" & CreateObject("ADSystemInfo").UserName
If GetObject("LDAP://CN=Gruppe1,OU=EineOU,DC=fima,DC=local").IsMember(strUser) Then WScript.Echo "In Gruppe 1"
If GetObject("LDAP://CN=Gruppe2,OU=EineOU,DC=fima,DC=local").IsMember(strUser) Then WScript.Echo "In Gruppe 2"
...bastla
