Arbeitsgruppe bei entfernten Rechnern ändern - oder Wie nutze ich RPC_C_AUTHN_LEVEL_P

[JohnDoe]

Hallo Leute,

ich muss einige administrative Aufgaben in unserem Netz durchführen.
Ich suche unter anderem einen Weg, die Arbeitsgruppe bei einigen Rechnern zu ändern.
Das ganze möchte ich von einem Rechner aus starten.

Ich habe es schon geschafft, die AG auf dem lokalen Rechner zu ändern. Eigentlich müsste es auf dem selben weg auch remote klappen:

strServer = "pcwxp"

Set objWMI = GetObject( _
      "winmgmts:{impersonationLevel=impersonate}!\\" &_ 
      strServer & "\root\cimv2")

strWQL = "select * from Win32_ComputerSystem"
Set objInstances = objWMI.ExecQuery(strWQL,,48)

For Each objInstance in objInstances
	p_Name = "Test"
	p_Password = ""
	p_UserName = ""
	p_AccountOU = ""
	p_FJoinOptions = 0

	' Uncomment next line to actually execute the method!
	intResult = objInstance.JoinDomainOrWorkgroup(p_Name, p_Password, p_UserName, p_AccountOU)

	Select case intResult
		Case 0 : WScript.Echo "Erfolgreich"
	End Select
Next

Leider gibt er folgende Meldung aus:

Zeile 19 Zeichen 2
Fehler: Die Clientverbindung it WINMGMT muss für diesen Vorgang verschlüsselt werden. Ändern Sie die Proxysicherheitseinstellungen für IWbemServices, und wiederholen Sie den Vorgang"
Errorcode 80041087

Ich muss irgendwie die Verschlüselung auf mindestens diesen Wert bringen:

RPC_C_AUTHN_LEVEL_PKT_PRIVACY

Aber ich habe keine Ahnung, wie ich das machen soll.
Im google finde ich leider auch nichts....