hallo zusammen

ich versuche gerade ein WSH VBScript zu erstellen dass ueberprueft ob ein netzlaufwerk gemappt ist, wenn ja soll es das netzlaufwerk trennen und sonst verbinden

Aber ich krig immer folgende fehlermeldung:
Line: 32
Char: 3
Error: Multiple connections to a server or shared resource by the same user, using more than one user name, are not allowed. Disconnect all previous connections to the server or shared resource and try again.
Code: 800704C3
Source: WSHNetwork.MapNetworkDrive
obwohl ich sonst keine andere verbindung zum server offen habe (server = eine kleine NAS)

mein coding sieht so aus:
Code:
strDrive = "M:"
strPath = "\\10.10.0.18\Dir"
strUser = "user"
strPassword = "passwd"
boolPersistent = False ' True = Persistent ; False = Not Persistent

set objNetwork = WScript.CreateObject("WScript.Network")

StrComputer = "."
Dim Act :Set Act = CreateObject("Wscript.Shell")
Dim Wmi :Set Wmi = GetObject("winmgmts:\\" & StrComputer & "\root\cimv2")

' Check drives
Set NetDisk = Wmi.ExecQuery("Select * From Win32_LogicalDisk Where DriveType = 4")

drive = False
For Each Obj in NetDisk
	If InStr(LCase(Obj.DeviceID),LCase("m")) Then
		' Network drive is mapped
		drive = True
	End If
Next

' If There Is No Network Drives Mapped
If NetDisk.Count = 0 Then
	' Mount drive
	objNetwork.MapNetworkDrive strDrive, strPath, boolPersistent, strUser, strPassword
Else
	IF drive = False Then
		' Mount drive
		objNetwork.MapNetworkDrive strDrive, strPath, boolPersistent, strUser, strPassword
	Else
		' Unmount drive
		objNetwork.RemoveNetworkDrive strDrive
	End If
End If
hat da jemand eine idee?
ich danke im voraus