Arbeitsgruppe bei entfernten Rechnern ändern

[Mr.John_Doe 10]

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....

[woiza 10]

Hi,

 

den Authenicationlevel kannst du direkt hinter dem Impersonationlevel angeben.

 

In deinem Fall: authenticationLevel=pktPrivacy

 

Hier ist der MSDN-Link dazu.

 

Gruß

 

woiza