Jump to content

Fehler im Logon-Script: Brauche Rat


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Hi zusammen,

 

habe ein VB-Script für Logins gebaut und sehe vor lauter Wald die Bäume nicht mehr. Irgendwo habe ich hier einen Fehler eingebaut. Weiß wer Rat?

 

Option Explicit
On Error Resume Next
Dim oWshShell 


Set oWshShell = CreateObject("WScript.Shell") 


'Abfrage der Gruppenmitgliedschaften 

' Set objUser = GetObject(strLDAP) 
Set objUser = CreateObject("ADSystemInfo") 
Set CurrentUser = GetObject("LDAP://" & objUser.UserName) 

' Create objects 
Set objNetwork = CreateObject("WScript.Network") 

'Alle Netzwerklaufwerke löschen
Set clDrives = objNetwork.EnumNetworkDrives 
For i = 0 To clDrives.Count -1 Step 2 
objNetwork.RemoveNetworkDrive clDrives.Item(i), True, True 
Next 

'Wartezeit für den Client
WScript.sleep 300 


' Gruppenmitgliedschaften auslesen
objmemberOf  = CurrentUser.GetEx("memberOf") 
For Each objGroup In objmemberOf 
 strList = LCase(strList & objGroup & vbCr) 
Next 

'Homelaufwerk mappen
objNetwork.MapNetworkDrive "h:", "\\srv-el-w3k-fil\HomeDirs\" & 

objNetwork.UserName 

'Falls Gruppe GR_Rabba_ALL mappe das Laufwerk für Rabba unter J:
If InStr(strList, LCase(GR_Rabba_ALL)) Then 
objNetwork.MapNetworkDrive "j:", "\\srv-el-w3k-fil\Rabba" 



'falls Gruppe GR_Rebba_ALL mappe das Laufwerk für Rebba unter I:
If InStr(strList, LCase(GR_Rebba_ALL)) Then 
objNetwork.MapNetworkDrive "i:", "\\srv-el-w3k-fil\Rebba" 


'falls Gruppe GR_Rebba_GL mappe das Laufwerk G:
If InStr(strList, LCase(GR_Rebba_GL)) Then 
objNetwork.MapNetworkDrive "k:", "\\srv-el-w3k-fil\Rebba_gl" 


'falls Gruppe GR_Rebba_BH mappe das Laufwerk L:
If InStr(strList, LCase(GR_Rebba_BH)) Then 
objNetwork.MapNetworkDrive "k:", "\\srv-el-w3k-fil\Rebba_bh" 




Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") 



'**********************************************************************

******** 


Set colNicConfigs = objWMIService.ExecQuery("SELECT * FROM " & _ 

"Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") 



For Each objNicConfig In colNicConfigs 

 strIPAddresses = "" 

'  If objNicConfig.DHCPEnabled Then 

   If Not IsNull(objNicConfig.IPAddress) Then 

     For Each strIPAddress In objNicConfig.IPAddress 

       strIPAddresses = strIPAddresses & strIPAddress 

     Next 

   End If 

'  End If 

'  WScript.Echo strIPAddresses 

 If "172.16.1." = Left(strIPAddresses,9) Then 

       'WScript.Echo "Ellerau" 

       WshNetwork.AddWindowsPrinterConnection 

"\\srv-el-w3k-dc01\prt-el-hp-lj4730" 

       WshNetwork.AddWindowsPrinterConnection 

"\\srv-el-w3k-dc01\prt-el-hp-lj5" 

       WshNetwork.AddWindowsPrinterConnection 

"\\srv-el-w3k-dc01\prt-el-dl-3700cn" 

       WshNetwork.AddWindowsPrinterConnection 

"\\srv-el-w3k-dc01\prt-el-ok-5300" 

 ElseIf "172.16.10." = Left(strIPAddresses,10) Then 

       'WScript.Echo "Breitscheidt" 

       WshNetwork.AddWindowsPrinterConnection 

"\\srv-bs-w3k-dc02\prt-el-ok-5300" 

       WshNetwork.AddWindowsPrinterConnection 

"\\srv-bs-w3k-dc02\prt-el-hp-dj500ps" 

       WshNetwork.AddWindowsPrinterConnection 

"\\srv-bs-w3k-dc02\prt-el-hp-dj1000n" 

 ElseIf "172.16.99." = Left(strIPAddresses,10) Then 

       'WScript.Echo "VPN-Einwahl" 

       'WshNetwork.AddWindowsPrinterConnection "\\srv\xy" 

 End If 

Next 

WScript.Quit

 

Danke Euch,

Chris

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...