@volki oder Nutze folgendes VBS-Script:
PW= Passwort
BN= Benutzername
DISKSTATION01= Name der Diskstation
\DISKSTATION01\rivat\orrespondenz = Pfad
Das Scipt muss mit dem Editor in eine Datei z.B. Logon.vbs gespeichert werden:
' #####BOF#####
' Networkmapping.vbs
' #############
Set WshNetwork = Wscript.CreateObject("Wscript.Network")
Set colDrives = WshNetwork.EnumNetworkDrives
On Error Resume Next
If colDrives.Count > 0 Then
For i = 0 To colDrives.Count - 1 Step 2
WshNetwork.RemoveNetworkDrive colDrives(i), blnForce
Next
End If
On Error GoTo 0
Dim objNetwork, objShell
Dim strMyName, strMyDriveLetter, strMyRemotePath
Set objNetwork = CreateObject("WScript.Network")
Set objShell = CreateObject("Shell.Application")
Public Function mapMyDrives(strMyName, strMyDriveLetter, strMyRemotePath, strUsername, strPassword)
objNetwork.MapNetworkDrive strMyDriveLetter, strMyRemotePath, FALSE, strUsername, strPassword
objShell.NameSpace(strMyDriveLetter).Self.Name = strMyName
mapMyDrives = ""
End Function
On Error Resume Next
mapMyDrives "Korrespondenz", "K:", "\DISKSTATION01\rivat\orrespondenz", "BN", "PW"
mapMyDrives "Musik", "M:", "\DISKSTATION01\rivat\usik", "BN", "PW"
mapMyDrives "Bilder", "P:", "\DISKSTATION01\rivat\hoto", "BN", "PW"
mapMyDrives "Software", "S:", "\DISKSTATION01\oftware_inst", "BN", "PW"
'mapMyDrives "VMWare", "V:", "\DISKSTATION01\MWare", "BN", "PW"
mapMyDrives "Privat", "X:", "\DISKSTATION01\rivat", "BN", "PW"
Set objNetwork = Nothing
Set objShell = Nothing