Hallo zusammen

Wir sind zurzeit bei einem Kunden und machen eine Domänen Umstellung. Leider haben wir ein Problem mit dem Login Script. Das sieht wie folgt aus:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89

'declare global variables here Option Explicit On Error Resume Next Dim oShell, oNet, oFSO, oWshNetwork, oGroupDict   '-----------------                                        'Objects go here Set oShell = CreateObject("Wscript.Shell") Set oNet = CreateObject("Wscript.Network") Set oFSO = CreateObject("Scripting.FileSystemObject") Set oWshNetwork = CreateObject("Wscript.Network")   '-----------------     oWshNetwork.RemoveNetworkDrive "H:" oWshNetwork.MapNetworkDrive "H:", "\\NetappGBB\Users$\"& oWshNetwork.UserName   If IsMember("Domänen-Benutzer") OR ("Domänen-Admins") Then     oWshNetwork.RemoveNetworkDrive "E:"     MapDrive "E:", "\\testserver", "\Data" End If If IsMember("Domänen-Benutzer") Then     oWshNetwork.RemoveNetworkDrive "L:"     MapDrive "L:", "\\10.1.6.121", "\home" End If If IsMember("Domänen-Benutzer") Then     oWshNetwork.RemoveNetworkDrive "I:"     MapDrive "I:", "\\10.1.6.121", "\finanz" End If If IsMember("Domänen-Benutzer") Then     oWshNetwork.RemoveNetworkDrive "Y:"     MapDrive "Y:", "\\10.1.6.121", "\risk" End If If IsMember("Test Acquiring") Then     oWshNetwork.RemoveNetworkDrive "R:"     MapDrive "R:", "\\192.172.0.112", "\RzKom_Extern" End If If IsMember("Test Acquiring") Then     oWshNetwork.RemoveNetworkDrive "M:"     MapDrive "M:", "\\192.172.0.118" End If If IsMember("Test Customer Service") Then     oWshNetwork.RemoveNetworkDrive "X:"     MapDrive "X:", "\\10.1.6.50", "\home" End If If IsMember("Accounting") Then     oWshNetwork.RemoveNetworkDrive "F:"     MapDrive "X:", "\\10.1.6.101", "\e$" End If     'WshNetwork.AddWindowsPrinterConnection "\\tunix.testserver.ch\HP2200" 'WshNetwork.AddWindowsPrinterConnection "\\tunix.testserver.ch\HP2200-2" 'WshNetwork.AddWindowsPrinterConnection "\\tunix.testserver.ch\HP2200-3" 'WshNetwork.SetDefaultPrinter "\\tunix.testserver.ch\HP2200-3"     '-----------------       Function IsMember(sGroup)     Dim sAdsPath, oUser, oGroup     If IsEmpty(oGroupDict) Then         Set oGroupDict         = CreateObject("Scripting.Dictionary")         oGroupDict.CompareMode = vbTextCompare         sAdsPath  = oNet.UserDomain & "/" & oNet.UserName         Set oUser = GetObject("WinNT://" & sAdsPath & ",user")         For Each oGroup In oUser.Groups             oGroupDict.Add oGroup.Name, "-"         Next         Set oUser = Nothing     End If     IsMember = CBool(oGroupDict.Exists(sGroup)) End Function     '-----------------     Function MapDrive(Drive, FileServer, Share)     If oFSO.DriveExists(FileServer & Share) = True Then         oNet.MapNetworkDrive Drive, FileServer & Share     Else         Wscript.Echo("Cannot Map " & Drive & " to " & FileServer & Share)     End If End Function

Wenn hier nun ein Laufwerk noch nicht verbunden werden kann, dann gibt es folgende Meldung:

[Siehe Anhang]

Nun die Frage, ist es möglich diese Fehlermeldungen zu unterbinden? Wir brauchen dass für eine 2 Monatige Überbrückungszeit. Ich bin halt eher der Client Systemtechiker und kenne mich mit Scripts sehr wenig aus.

Ich würde mich über jede Antwort freuen.

Besten Dank
zyclop

Dies ist ein selber generierter Fehler.

Code vb:

1 2 3 4 5 6 7

Function MapDrive(Drive, FileServer, Share)     If oFSO.DriveExists(FileServer & Share) = True Then         oNet.MapNetworkDrive Drive, FileServer & Share     Else         Wscript.Echo("Cannot Map " & Drive & " to " & FileServer & Share)     End If End Function

Du kannst den ganzen else-Teil einfach auskommentieren:

Code vb:

1 2 3 4 5 6 7 8

Function MapDrive(Drive, FileServer, Share)     If oFSO.DriveExists(FileServer & Share) = True Then         oNet.MapNetworkDrive Drive, FileServer & Share     Else         '26.09.2011 zyclop: Temporäres Ausschalten der Fehlermeldung        'Wscript.Echo("Cannot Map " & Drive & " to " & FileServer & Share)    End If End Function

Das hat aber zur Folge dass es gar keine Meldungen mehr gibt, auch bei den anderen Laufwerken.
Du kannst aber auch eine Laufwerkspezifische Ausschaltung machen

Code vb:

1 2 3 4 5 6 7 8 9 10

Function MapDrive(Drive, FileServer, Share)     If oFSO.DriveExists(FileServer & Share) = True Then         oNet.MapNetworkDrive Drive, FileServer & Share     Else         '26.09.2011 zyclop: Temporäres Ausschalten der Fehlermeldung nur für Laufwerk L        If not Drive = "L" then             Wscript.Echo("Cannot Map " & Drive & " to " & FileServer & Share)         End If     End If End Function

Werde es gleich Testen. Vielen Dank für die Info.

Jap hat super funktioniert. Vielen Dank nochmals!

gruss Zyclop