VBScript conputer und computeraccount unbenennen

[affe2009]

Hallo,

Ich habe folgendes Problem.
Ich möchte mit vbscript einen Computer sowie das computerkonto in active Directory unbenennen.
Das Script sollte für einen Windows 7 rechner ausgeführt werden mit domänenadmin.

Folgendes scriptr funktioniert leider nur unter Windows xp oder wenn sich der Rechner nicht in der Domäne befindet
Kann mir da jemand weiterhelfen.
Danke im voraus.

 strComputer = "." 
SET objWMIService = GETOBJECT("winmgmts:" _ 
       & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

SET colComputers = objWMIService.ExecQuery _ 
       ("Select * from Win32_ComputerSystem")

FOR EACH objComputer in colComputers
       err = objComputer.Rename("WebServer") NEXT