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.

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 Sub

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ß

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 100367

Url: https://administrator.de/forum/netzlaufwerke-per-vb-script-einer-gruppe-zuordnen-100367.html

Ausgedruckt am: 06.05.2025 um 10:05 Uhr

1 Kommentar

Hallo ISO4715!

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"  
...