RPC Server nicht verfügbar

Hallo, habe folgenden code und bekomme die meldung das der RPC server nicht verfügbar ist. Wer kann bitte helfen

Const WbemAuthenticationLevelPktPrivacy = 6
strComputer = "MyPC"
strNamespace = "root\cimv2"
strUser = "pc"
strPassword = "123"
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objwbemLocator.ConnectServer _
(strComputer, strNamespace, strUser)', strPassword)
objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy
Error = objWMIService.Create("notepad.exe", null, null, intProcessID)
If Error = 0 Then
WScript.Echo "Notepad was started with a process ID of " & intProcessID & "."
Else
WScript.Echo "Notepad could not be started due to error " & Error & "."
End If

Hilfe bitte.
Was anderes noch: wmic kann ich auf meinen PC aufrufen aber auf den anderen im Netzwerk nicht da bekomme ich fehler das der befehl falsch geschrieben ist oder nicht ausgeführt werden kann. In den diensten steht der rpc locator aud manuell und doe remoteprozess.... auf automatisch