Re: Restart komputera

wd40 log:

>> Skoro "oczywiście", to znaczy że nie jesteś administratorem tamtego
>> komputera. Idź na spacer zamiast robić kolegom psikusy ;-).
>
> No niekoniecznie. Na komputerze jest zainstalowane oprogramowanie,
> które co jakiś czas (losowy) się wiesza. Nie chce mi się biegać
> kilkaset metrów żeby restartować kompa.
>
> ps. Koledzy wiedzą komu udostępniają tak ważny element jak dysk
> systemowy. Stąd identyfikacja "żartownisia" byłaby bardzo łatwa.
> A Ty masz włączony telnet na swoim kompie, jeżeli jest on z systemem
> M$? Podaj IP ;)

127.0.0.1 ;-)
--------
strComputer = "*"
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate,(Shutdown)}!\\" & _
        strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
    objOperatingSystem.Reboot()
Next

----
GL&BE