prego_089 10 Geschrieben 18. Mai 2004 Melden Teilen Geschrieben 18. Mai 2004 Hallo ich hab hier ein riesiges Problem mit dem Startskript. Manchmal wenn sich der benutzer anmeldet werden nicht alle Laufwerke gelöscht oder erstellt. Es kann also sein, dass man sich als Admin bei nem Client anmeldet und danach die Laufwerke bei der erneuten Anmeldung nicht mehr gelöscht werden. Das ist wirklich komisch, weil ich einfach nicht darauf komme wie man dieses Problem lösen kann. Ich denke das Skript stimmt aber ich lasse mich gerne eines besseren belehren. Woran könnte das liegen ? 'Variablen, Konstante und Objekte '========================================================================== Dim FSO, Laufwerk, Network, Platte, wshshell Set Network = WScript.CreateObject("WScript.Network") Set FSO=CreateObject("Scripting.FileSystemObject") Set wshshell = CreateObject("WScript.Shell") '========================================================================== 'Laufwerksabfrage und Deleting '========================================================================== 'For Each Laufwerk In FSO.Drives ' If Laufwerk.IsReady and Laufwerk.DriveType=3 Then ' WScript.Echo Laufwerk.DriveLetter & Laufwerk.Sharename ' End If 'Next If FSO.DriveExists("F:") Then On Error Resume next wshshell.Run "cmd /c net use f: /delete",0 End If If FSO.DriveExists("G:") Then On Error Resume next wshshell.Run "cmd /c net use g: /delete",0 End If If FSO.DriveExists("H:") Then On Error Resume next wshshell.Run "cmd /c net use h: /delete",0 End If If FSO.DriveExists("K:") Then On Error Resume next wshshell.Run "cmd /c net use k: /delete",0 End If If FSO.DriveExists("P:") Then On Error Resume next wshshell.Run "cmd /c net use p: /delete",0 End If If FSO.DriveExists("V:") Then On Error Resume next wshshell.Run "cmd /c net use v: /delete",0 End if If FSO.DriveExists("S:") Then On Error Resume next wshshell.Run "cmd /c net use s: /delete",0 End if If FSO.DriveExists("T:") Then On Error Resume next wshshell.Run "cmd /c net use T: /delete",0 End if If FSO.DriveExists("W:") Then On Error Resume next wshshell.Run "cmd /c net use x: /delete",0 End if if FSO.DriveExists("l:") Then on Error Resume next wshshell.Run "cmd /c net use l: /delete",0 End if '========================================================================== 'Allgemeine Aktionen am Start '========================================================================== '========================================================================== 'Laufwerke erstellen '========================================================================== wshshell.Run "cmd /c net use x: \\gwf-01\fax",0 wshshell.Run "cmd /c net use l: \\gwf-term\l",0 wshshell.Run "cmd /c net use s: \\gwf-01\d3",0 wshshell.Run "cmd /c net use g: \\gwf-01\daten",0 wshshell.Run "cmd /c net use h: \\gwf-01\Versicherungen",0 wshshell.Run "cmd /c net use k: \\gwf-01\originale",0 wshshell.Run "cmd /c net use p: \\gwf-01\praktika",0 wshshell.Run "cmd /c net use v: \\gwf-01\Vorlagen",0 '========================================================================== 'Userabfrage '========================================================================== If Network.UserName = "administrator" Or Network.UserName = "hartin" or Network.UserName = "bosco" or Network.UserName = "rfiedler" Then wshshell.Run "cmd /c net use T: \\gwf-01\ovm$:",0 wshshell.Run "cmd /c net use W: \\tux-web:",0 End If If Network.UserName = "administrator" Or Network.UserName = "frech" or Network.UserName = "rfiedler" Then wshshell.Run "cmd /c net use f: \\gwf-01\frech$",0 End If '========================================================================== 'UserName und DomainName '========================================================================== Dim msg1,msg2 msg1="Willkommen " & network.username & " " & vbcrlf & "Sie befinden sich in der Domäne " & Network.UserDomain & "" msg2="Anmeldescript ©2003 " 'MsgBox msg1,,msg2 Zitieren Link zu diesem Kommentar
Adben 10 Geschrieben 18. Mai 2004 Melden Teilen Geschrieben 18. Mai 2004 Hi, probiers mal hiermit: 'Variablen, Konstante und Objekte '========================================================================== Dim FSO, Laufwerk, Network, Platte, wshshell Set Network = WScript.CreateObject("WScript.Network") Set FSO=CreateObject("Scripting.FileSystemObject") Set wshshell = CreateObject("WScript.Shell") '========================================================================== 'Laufwerksabfrage und Deleting '========================================================================== 'For Each Laufwerk In FSO.Drives ' If Laufwerk.IsReady and Laufwerk.DriveType=3 Then ' WScript.Echo Laufwerk.DriveLetter & Laufwerk.Sharename ' End If 'Next '========================================================================== 'Allgemeine Aktionen am Start '========================================================================== '========================================================================== 'Laufwerke erstellen '========================================================================== MapDrive "x:", "\\gwf-01\fax" MapDrive "l:", "\\gwf-term\l" MapDrive "s:", "\\gwf-01\d3" MapDrive "g:", "\\gwf-01\daten" MapDrive "h:", "\\gwf-01\Versicherungen" MapDrive "k:", "\\gwf-01\originale" MapDrive "p:", "\\gwf-01\praktika" MapDrive "v:", "\\gwf-01\Vorlagen" '========================================================================== 'Userabfrage '========================================================================== If Network.UserName = "administrator" Or Network.UserName = "hartin" or Network.UserName = "bosco" or Network.UserName = "rfiedler" Then MapDrive "T:", "\\gwf-01\ovm$:" MapDrive "W:", "\\tux-web:" End If If Network.UserName = "administrator" Or Network.UserName = "frech" or Network.UserName = "rfiedler" Then MapDrive "f:", "\\gwf-01\frech$" End If '========================================================================== 'UserName und DomainName '========================================================================== Dim msg1,msg2 msg1="Willkommen " & network.username & " " & vbcrlf & "Sie befinden sich in der Domäne " & Network.UserDomain & "" msg2="Anmeldescript ©2003 " 'MsgBox msg1,,msg2 '========================================================================== 'Laufwerk mappen '========================================================================== Sub MapDrive(strDriveLetter, strSharePath) Network.MapNetworkDrive strDriveLetter, strSharePath End Sub Fürs mappen wird nun ne eigene Sub genutzt. Das Disconnecten der NLWs ist eigentlich nicht nötig. MfG Lars Zitieren Link zu diesem Kommentar
Empfohlene Beiträge
Schreibe einen Kommentar
Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.