Stiu ca nu e forumul potrivit.Dar am mai pus si pe alte forumuri dar nu mi s-a rapsuns.Am nevoie pentru o aplicatie de un sfat privind wmi poate ma poate ajuta cineva.

uitati despre ce e vorba:

.Trebuie sa fac disable/emable hardware device .AM folosit urmatoarea interogare wmi

'SELECT * FROM Win32_SystemDriver WHERE Name='cdrom'

imi returneaaza obiectu wmi cdrom.

folosesc metodele wmi startservice si stopservice si reboot tot cu wmi daca se vrea pt a deveni activa operatiunea.

Problema e ca merge numai stopservice adica dezactiveaza deviceul metoda startservice nu merge imi lasa deviceul disable

Daca cumva cineva are experienta cu wmi

Multumesc

---

Secolul XXI ori va fi religios ori nu va fi deloc

Ce valoare returneaza metoda StartService ?

Publica scriptul daca se poate. 

Aplicatia e in delphi.Folosesc componentele wmiset pt lucru cu wmi.

O sa fac paste la codul pascal

procedure tform1.rebootafterchange(machinename:string);
    begin
    wmiquery1.WQL.Clear;

wmiquery1.WQL.Add('SELECT * FROM Win32_OperatingSystem' );
wmiconnection1.MachineName:=machinename;
if not  radiobutton2.Checked then
begin
if domain.text<>'' then
wmiconnection1.Credentials.UserName:=domain.Text+'\'+username.Text
else
wmiconnection1.Credentials.UserName:=username.Text;
wmiconnection1.Credentials.Password:=passwd.Text;
end;
wmiconnection1.Connected:=true;
wmiquery1.Active:=true;
wmimethod1.WmiMethodName:='Reboot';
 wmimethod1.WmiObjectSource:=wmiquery1;
 wmimethod1.Execute;
wmiquery1.Active:=false;
  wmiconnection1.Connected:=false;
end   ;

Multumesc

---

Secolul XXI ori va fi religios ori nu va fi deloc

Cea mai simpla solutie este un script VBS care schimba modul de start a serviciului dupa care restarteaza calculatorul (stiu, e o solutie care consuma timpul):

 'Dezactivare/activare cdrom
computer     = "."    
serviciu    = "cdrom"        
modstart    = "Disabled"    ' Disabled=dezactivare sau Automatic=activare    

Set oInstance     = GetObject("winmgmts:{impersonationLevel=impersonate}//" & computer & _
    "/root/cimv2:Win32_Service=" & Chr(34) & serviciu & Chr(34))

rez         = oInstance.ChangeStartMode(modstart)
text        = "OK"
If rez <> 0 Then text = "esec"
WScript.Echo "Rezultat ChangeStartMode: " & text

WScript.Echo "URMEAZA RESTART !"

'Restart
forteazarestart    = 6
Set oOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
For Each oOperatingSystem in oOS
    oOperatingSystem.Win32Shutdown(forteazarestart)
Next

 

Editoare pentru scripturi VBS care includ facilitati WMI:

VbsEdit http://www.vbsedit.com/ 

 Script Debugger IDE http://www.script-debugger.com/

 

WMI Tools  from MS http://www.microsoft.com/technet/scriptcenter/createit.mspx

 

mersi o sa incerc asa.

---

Secolul XXI ori va fi religios ori nu va fi deloc