Dim WSHNetwork
Set WSHNetwork = WScript.CreateObject("WScript.Network")

On Error Resume Next
user=UCase(WSHNetwork.UserName)
'MsgBox "Benutzername: " & user

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

'Falls da jemand was verbunden hat, trennen
CancelDrive "F:", 1
CancelDrive "K:", 1
CancelDrive "X:", 1

'Und verbinden, das kann man dann auch Userabhängig machen
TryMapDrive "F:", "\\HAUPTSERVER\SYS"
TryMapDrive "K:", "\\HAUPTSERVER\infor"

If User = "ADMINISTRATOR" Then
  TryMapDrive "X:", "\\HAUPTSERVER\C1_00DAC"
End If