Hallo,
das ganze läßt sich auch mit Windows Scripting Host machen.
Hier ein Beispiel:
Dim WSHNetwork
Set WSHNetwork = WScript.CreateObject("WScript.Network")
On Error Resume Next
user=UCase(WSHNetwork.UserName)
'MsgBox "Benutzername: " & user
ErrCheck (Err.Number)
Sub ErrCheck (nr)
Select Case nr
Case 0
'WScript.Quit
Case - 2147023651
WScript.Echo "Fehler: Kein Netzwerkbetrieb"
WScript.Quit
Case Else
WScript.Echo "Fehler: " + CStr(nr)
End Select
End Sub
Function CancelDrive(strDrive, strOption)
On Error Resume Next
WSHNetwork.RemoveNetworkDrive strDrive, strOption
End Function
Function TryMapDrive(strDrive, strShare)
On Error Resume Next
WSHNetwork.MapNetworkDrive strDrive, strShare
End Function
CancelDrive "F:", 1
CancelDrive "G:", 1
If user = "xy" Then
TryMapDrive "F:", "\\FILESERVER\DATEN"
Else ...
....
End_if
Läuft bei uns seit Jahren.
Grüße aus Ostwestfalen
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP