Loginscript mit VBS

Dieses Thema Loginscript mit VBS im Forum "Windows XP Forum" wurde erstellt von RavensMetaller, 22. Jan. 2005.

Thema: Loginscript mit VBS Hallo zusammen, Nochmal ein Wunsch von Joshua ;-) Ein Loginscript in vbs getippselt. Auch hier gilt: Ihr dürft das...

  1. Hallo zusammen,

    Nochmal ein Wunsch von Joshua ;-)
    Ein Loginscript in vbs getippselt.

    Auch hier gilt: Ihr dürft das Script gerne kopieren, aber der (c) Hinweiss sollte erhalten bleiben.
    Hier wird davon ausgegangen, das der Server miraculix heisst. Den Namen und die Freigaben müsst ihr natürlich entsprechend Euren Gegenbenheiten anpassen.

    Code:
    
    ' Loginscript v1.2.1
    ' some code-snipplets (c) Microsoft Corp.
    ' (c) 2004 Sven Trautwein
    ' published under GPL - GNU General Public License
    '
    ' History
    ' v1.0   initial Release - based on some Code-Snipplets from Microsoft MSDN
    ' v1.1   Bugfix
    ' v1.2   added display message
    ' v1.2.1 added time synchronisation
    
    Option Explicit
    On Error Resume Next
    
    Dim WSHNetwork, WSHShell, CRLF, objArgs, strMsg, Company, i, colDrives
    Dim colPrinters, UserName, Domain, nReturnCode 
    
    WScript.Sleep 500
    
    CRLF = Chr(13) & Chr(10)
    
    Set WSHNetwork = Wscript.CreateObject(WScript.Network)
    Set WSHShell = WScript.CreateObject(WScript.Shell)
    
    Set objArgs = Wscript.Arguments
    
    nReturnCode = wshShell.Run(net time /domain: & wshNetwork.UserDomain &  /set /yes, 0, TRUE) 
       If (nReturnCode <> 0) Then
          MsgBox Es war nicht möglich die lokale Uhrzeit zu synchronisieren. & vbNewLine &_
                 Bitte melden sie sich bei dem System-Administrator.,_
                 48,_ 
                 Logon Script Fehler
       End If
    
    
    Company = intern.gallien.de
    Domain = WSHNetwork.UserDomain
    UserName = 
    on error resume next
    do
      UserName = WSHNetwork.UserName
      loop while UserName = 
    WSHNetwork.RemoveNetworkDrive m:
    WSHNetwork.MapNetworkDrive m:, \\miraculix\musik$
    WSHNetwork.RemoveNetworkDrive s:
    WSHNetwork.MapNetworkDrive s:, \\miraculix\server$
    WSHNetwork.RemoveNetworkDrive i:
    WSHNetwork.MapNetworkDrive i:, \\miraculix\images$
    WSHNetwork.RemoveNetworkDrive r:
    WSHNetwork.MapNetworkDrive r:, \\miraculix\dasi$
    WSHNetwork.RemoveNetworkDrive t:
    WSHNetwork.MapNetworkDrive t:, \\miraculix\sonstiges$
    WSHNetwork.RemoveNetworkDrive n:
    WSHNetwork.MapNetworkDrive n:, \\miraculix\fax$
    
    WSHNetwork.RemoveNetworkDrive u:
    WSHNetwork.MapNetworkDrive u:, \\miraculix\ & Username & $
    
    WSHNetwork.RemovePrinterConnection LPT1
    WSHNetwork.AddPrinterConnection LPT1, \\miraculix\HPLJ6
    Set colDrives = WSHNetwork.EnumNetworkDrives
    Set colPrinters = WSHNetwork.EnumPrinterConnections
    
    strMsg = _
        Anmelde Ergebnisse & CRLF & CRLF & _
        Benutzername & Chr(9) & =  & UserName & CRLF & _
        Computername & Chr(9) & =  & _ 
        WSHNetwork.ComputerName & CRLF & _
        Domäne & Chr(9) & Chr (9) & =  & Domain & CRLF
    
    If colDrives.Count = 0 Then
       strMsg = strMsg & CRLF & _
         Kein Netzlaufwerk ist verbunden. & CRLF
    Else
       strMsg = strMsg & CRLF & _
         Verbundene Netzlaufwerk(e): & CRLF
       For i = 0 To colDrives.Count - 1 Step 2
          strMsg = strMsg & CRLF & colDrives(i) & _
             Chr(9) & colDrives(i + 1)
       Next
    End If
    
    If colPrinters.Count = 0 Then
       strMsg = strMsg & CRLF & CRLF & _
          Kein Netzwerk-Drucker ist verbunden. & CRLF
    Else
       strMsg = strMsg & CRLF & CRLF & _
          Verbundene Netzwerk-Drucker: & CRLF
       For i = 0 To colPrinters.Count - 1 Step 2
          strMsg = strMsg & CRLF & colPrinters(i) & _
             Chr(9) & colPrinters(i + 1)
       Next
    End If
    
    ' Kommentar entfernen zum Anzeigen der gemappten Laufwerke / Drucker
    ' WshShell.PopUp strMsg,10,  &Company,64
    
    Set WSHNetwork = Nothing
    Set WSHShell = Nothing
    Set objArgs = Nothing
    Set colDrives = Nothing
    Set colPrinters = Nothing
    
    Gruß
    Sven
     
Die Seite wird geladen...

Loginscript mit VBS - Ähnliche Themen

Forum Datum
Loginscript in anderer Domäne Windows Server-Systeme 5. März 2007
LoginScript --> eigene Dateien Windows XP Forum 16. Mai 2006
Probs mit LoginScript Webentwicklung, Hosting & Programmierung 11. Mai 2006
Loginscript für Notebook's Windows XP Forum 15. Sep. 2005
Loginscripte teileweise nicht ausgeführt Netzwerk 29. Aug. 2005