Jump to content

Startskript funktioniert nicht gescheit ?


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

Empfohlene Beiträge

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

Link zu diesem Kommentar

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

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