WMI Редактирование свойств.

[Stilet]

Всем доброго. Понадобилось удаленно изменить на куче компов описание и имя компа. Решил прибегнуть к WMI, но не к WSH, а прикрутить такую возможность к уже готовому нативному проекту.
Использую такой код:

program WMIXE;

{$APPTYPE CONSOLE}


uses
  ActiveX,
  comobj,
  classes,
  contnrs,
  variants,
  SysUtils;

  var
  objSWbemLocator,objWMIService,Records:OleVariant;
  id:IDispatch; Enum,PropEnum:IEnumVariant;
  Obj,ObjRec,FWbemObject:OleVariant;
  i:Cardinal;
  Host,Root,Login,Password:String;
begin
 Host:='.';
 Root:='root\cimv2';
 Login:='';
 Password:='';

  CoInitialize(nil);
  objSWbemLocator:=CreateOleObject('WbemScripting.SWbemLocator');
  if not VarIsClear(objSWbemLocator) then begin
     objWMIService:=objSWbemLocator.ConnectServer(Host,Root,Login,Password,'','',0,id);
     if not VarIsClear(objWMIService) then begin
        Obj:=objWMIService.Get('Win32_OperatingSystem');
        ObjRec:=Obj.Properties_.Item('Description');
        writeln(ObjRec.Value);
        ObjRec.Value:='Tottoro';
        Obj.Put_;
      end else begin
      writeln('Error on ConnectServer');
     end;
  end else begin
   writeln('Error on CreateOleObject(WbemScripting.SWbemLocator)');
  end;
  CoUninitialize;

 readln;
end.

Фишка в том что он новое значение где-то запоминает, но не там где я хочу. После отработки программы если открыть свойства компа и посмотреть на поле описания, там ничего не изменяется, т.е. этого значения, что я программой устанавливаю там не появляется.

Вопросы:
1) А правильно ли я вообще делаю? Может по другому нужно значения устанавливать?
2) Может кто в курсе как в нативке поменять имя компа и его описание? Через WMI желательно, но подойдут и др. способы.

P.S. Скрин прикладываю, чтоб было понятно что хочу поменять:
Безымянный.jpg

[Alex11223]

А в ObjRec.Value что после смены? Может программа без прав админа запускается? (UAC)

[Stilet]

Именно после смены? Не проверял, но после перезапуска там точно новая строка. В данном случае Tottoro. Я для этого и прилепил writeln(ObjRec.Value); чтоб посмотреть что было до изменения и после перезапуска.

Забабахал так:

        Obj:=objWMIService.Get('Win32_OperatingSystem');
        ObjRec:=Obj.Properties_.Item('Description');
        writeln(ObjRec.Value);
        Randomize;
        ObjRec.Value:=DateTimeToStr(now)+IntToStr(Random(1000));
        Obj.Put_;

Результ тот же - запоминает где-то после перезапуска.
Причем хоть с правами админа хоть просто так значение сохраняет.
Но все равно не там где хочется:
Безымянный.jpg

[Stilet]

Допишу может кому пригодится: выкрутился вызовом VBS такого вида:

Sub main()
        Set objWMIService = GetObject("winmgmts:\\127.0.0.1).InstancesOf("Win32_OperatingSystem")
        For Each x In objWMIService
            x.Description = "Текст описания компа"
            x.Put_
        Next
End sub

Засовываю его в такой код:

var iVBS:OleVariant;code:TStringList;
...
     CoInitialize(nil);
     iVBS:=CreateOleObject('MSScriptControl.ScriptControl');
     iVBS.Language:='VBScript';
     iVBS.UseSafeSubset := False;
     iVBS.AllowUI := true;
     iVBS.TimeOut := -1;
     iVBS.Reset;

    iVBS.AddCode(code.Text);
    iVBS.Run('main');

   iVBS:=Unassigned;
   CoUninitialize;

Скрипт в code толкаю.

Это конечно костылевасто выглядит, но хотя бы работает. Как я понял из MSDN СОМ API WMI урезано жутко (а мож не так понял...) в пользу скриптов Микрософта.