Min kod:


strComputer = "printerserver"
strUser = "användarnamn"
strPassword = "lösenord"
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
objSWbemLocator.Security_.ImpersonationLevel = 3
Set objWMIService = objSWbemLocator.ConnectServer(strComputer, "root\cimv2", strUser, strPassword)

Ovanstående fungerar.

Men om jag vill använda den inloggade användaren:
strComputer = "printerserver"
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")

Så får jag access denied även om det är samma användarkonto som kör nedanstående alternativ som jag har hårdkodat in i första kodstycket.