- #1
R
RavensMetaller
Guest
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.
Gruß
Sven
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