vba code om netwerkdrive te koppelen

Status
Niet open voor verdere reacties.

brejen

Gebruiker
Lid geworden
21 apr 2007
Berichten
111
ik probeer via vba een netwerkschijf te koppelen met onderstaande code

Code:
Dim objNetwork
Dim strDriveLetter
Dim strRemotePath
Dim strUserName
Dim strPassWord
strDriveLetter = "Q:"
strRemotePath = "\\diskstation\jens"
Set objNetwork = CreateObject("WScript.Network")
strUserName = "xxxx"
strPassWord = "xxxx"
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, , strUserName, strPassWord
MsgBox "The Script Has Executed Successfully!
"


ik krijg echter telkens een foutmelding zoals te zien:
"meerdere verbindingen met een server of een gedeelde bron van een gebruiker die meerdere gebruikersnamen gebruikt , zijn niet toegestaan"


Nochtans is die driveletter nog niet in gebruik en is het path niet eerder gekoppeld aan een andere letter.
 
Laatst bewerkt door een moderator:
Kijk hier eens naar.
 
Open even een CMD en voer uit "net use /delete *".
Nu ontkoppel je geforceerd en ik ga ervan uit dat je script nu wel werkt.

De foutmelding an sich klopt wel is mijn ervaring. Ook als je deze niet gekoppeld hebt maar wel benaderd met je huidige (of andere) credentials heb je er een actieve verbinding mee.
 
Laatst bewerkt:
bedankt. is opgelost. deze topic mag afgesloten worden.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan