Bei Nutzeranmeldung Domänengruppen auslesen und Batch starten

Dim strComputerName
Dim strUserName
Dim strDomainName

Dim objADSysInfo
Dim wshNetwork
Dim WshShell
Dim WshSysEnv
Dim oShell
Dim oShFolder
Dim objUser
Dim objOU
Dim rootDSE
Dim oPq
Set wshNetwork = WScript.CreateObject( "WScript.Network" )  
Set WshShell = WScript.CreateObject("WScript.Shell")  
Set WshProcEnv = WshShell.Environment("Process")  
Set WshUserEnv = WshShell.Environment("USER")  
Set objADSysInfo = CreateObject("ADSystemInfo")  
Set oShell = CreateObject("Shell.application")  
Set oShFolder = oShell.Namespace(17)
Set objUser = GetObject("LDAP://" & objADSysInfo.UserName)  
Set objOU = GetObject(objUser.parent)
Set objFSO = CreateObject("Scripting.FileSystemObject")  

FileServer = "SERVERNAME1"  
WeitererServer = "SERVERNAME2"  

'Warten bis der Anmeldename des Users ermittelt wurde  
Do While wshNetwork.username = ""  
   WScript.Sleep 250
Loop

strComputerName = wshNetwork.computerName
strUserName = wshNetwork.userName
strDomainName = wshNetwork.userDomain

Call subdrivemap 'Aufruf der Subroutine zum Laufwerkmappen  

Sub subdrivemap()

' ### ADSI abfragen  
adspath = "WinNT://" & strDomainName & "/" & strUserName  

Set adsobj = GetObject( adspath )

'##### vorhandene Laufwerke löschen  

On Error Resume Next
wshNetwork.RemoveNetworkDrive "T:", True, True  
wshNetwork.RemoveNetworkDrive "Z:", True, True  


'##### für jeden gültige Laufwerke mappen  
wshNetwork.MapNetworkDrive "T:", "\\SERVER\FREIGABE1"  
wshNetwork.MapNetworkDrive "Z:", "\\SERVER\FREIGABE2"  


'##### Gruppenabhängige Laufwerke mappen  

For Each prop In adsobj.groups

'* ACHTUNG! Gruppennamen immer GROSS schreiben  
Select Case UCase(prop.name)

Case "AD-GRUPPE1"  
  wshNetwork.MapNetworkDrive "G:", "\\SERVER\FREIGABE3"  

Case "AD-GRUPPE2"  
  wshNetwork.MapNetworkDrive "H:", "\\SERVER\FREIGABE4"  

Case "AD-GRUPPE3"  
  wshNetwork.MapNetworkDrive "I:", "\\SERVER\FREIGABE5"  
  wshNetwork.MapNetworkDrive "J:", "\\SERVER\FREIGABE6"  

End Select

Next

End Sub