Как выключить комп КОРРЕКТНО по окончании работы ?

[batmax]

Сабж. Я написал приложение, оно долго и нудно что-то там считает, и хочу добавить чекбокс "Выключить машину по окончании работы". Нигде не нашёл, как это сделать на VB.NET-2005.

[Alex[fj]]

Я делал так

Код: Выделить всё

Shell("shutdown.exe -s -t 00")

Пример, конечно на ах, но выключает без ошибок, довольно корректно

[1Steps]

А я так:

Код: Выделить всё

    Private Sub ShutDown()
        Dim objWMIService As Object, colOperatingSystems As Object, ObjOperatingSystem As Object
        objWMIService = GetObject("winmgmts:{(Shutdown)}")
        colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
        For Each ObjOperatingSystem In colOperatingSystems
            ObjOperatingSystem.Win32Shutdown(1)
        Next
    End Sub