Команда shutdown может завершиться неудачей по ряду причин, но вы не проверяете успех. Попробуйте это вместо этого, а затем найдите ошибку.
Dim proc = Process.Start("shutdown", "/s /m \\COMPUTER_NAME")
proc.WaitForExit()
If proc.ExitCode <> 0 Then
MsgBox("Failed - Code = " & proc.ExitCode)
Else
MsgBox("Success")
End If
Примечание: вам может потребоваться запустить приложение в виде повышенного процесса.
Перед тестированием приложения вы должны проверить, что команда работает из командной строки.
- Открыть
cmd
- Run
shutdown /s /m \\COMPUTER_NAME
- Проверьте выход и убедитесь, что он работал. Я подозреваю, что вы получите отказ в доступе. Если это так, щелкните по
cmd
и выберите Launch as administrator
. Затем повторите это и убедитесь, что он работает.
- Если это не сработает, ваша программа тоже не будет. Google
shutdown access denied
и пройдите несколько советов по устранению неполадок.
http://www.visual-basic-tutorials.com/form/Shutdown%20Utility.htm – romulus001