Nur Laufwerke:
' #####BOF#####
' logon.vbs
' #############
Option Explicit
On Error Resume Next
Dim WSHNetwork, WSHShell, CRLF, objArgs, strMsg, Company, i, colDrives
Dim colPrinters, UserName, LogonSRV, Domain, nReturnCode, nSecondsToWait
CRLF = Chr(13) & Chr(10)
LogonSRV = "domain.intra"
Set WSHNetwork = Wscript.CreateObject("WScript.Network")
Set WSHShell = WScript.CreateObject("WScript.Shell")
WScript.sleep 5000
Set objArgs = Wscript.Arguments
' Auslesen des Benutzernamens
Set WshNetwork = WScript.CreateObject("WScript.Network")
UserName = WshNetwork.UserName
' Einrichten der Netzlaufwerke
Company = "ddm.intra"
Domain = WSHNetwork.Userdomain
Do While UserName = ""
UserName = WSHNetwork.UserName
Loop
WSHNetwork.RemoveNetworkDrive "I:"
WSHNetwork.RemoveNetworkDrive "M:"
WSHNetwork.RemoveNetworkDrive "U:"
WSHNetwork.MapNetworkDrive "I:", "\\Server\LW1"
WSHNetwork.MapNetworkDrive "M:", "\\Server\LW2"
WSHNetwork.MapNetworkDrive "U:", "\\Server\" & UserName
If WSHNetwork.UserName = "Doering" OR WSHNetwork.UserName = "xxx" Then
WSHNetwork.RemoveNetworkDrive "Q:"
WSHNetwork.MapNetworkDrive "Q:", "\\Server\LW3"
End If
'Laufwerksbezeichnung ndern
'* Bentigte Deklarationen
Set oShell = CreateObject("Shell.application")
Set oShFolder = oShell.Namespace(17)
'* Aufruf der Subroutine
Call subdriverename
'* Die Routine
Sub subdriverename()
For Each oShFolderItem In oShFolder.Items
Select Case oShFolderItem.Path
Case "I:\" oShFolderItem.Name = "var1"
Case "I:" oShFolderItem.Name = "var1"
Case "M:\" oShFolderItem.Name = "var2"
Case "M:" oShFolderItem.Name = "var2"
Case "U:\" oShFolderItem.Name = UserName
Case "U:" oShFolderItem.Name = UserName
End Select
Next
End Sub
' ----------------------------------------------------------
' Überschrift und Ausgabe
Set colDrives = WSHNetwork.EnumNetworkDrives
Set colPrinters = WSHNetwork.EnumPrinterConnections
strMsg = _
"Anmelde Ergebnisse" & CRLF & CRLF & _
"Benutzername" & Chr(9) & "= " & UserName & CRLF & _
"Computername" & Chr(9) & "= " & _
WSHNetwork.ComputerName & CRLF & _
"Domne" & 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
Function zeit
' FormatDateTime formatiert das Datum als langes Datumsformat.
zeit = "Systemzeit: " & Chr(9) & FormatDateTime(Date, 1) & " - " & FormatDateTime(Time, 4)
End Function
WshShell.PopUp zeit & CRLF & CRLF & strMsg,10, " " & Username &"@" & Company, 64
Set WSHNetwork = Nothing
Set WSHShell = Nothing
Set objArgs = Nothing
Set colDrives = Nothing
Set colPrinters = Nothing
' #####EOF#####