Методы VBScript для выключения удаленного компьютера с примерами кода

Чтобы выключить удаленный компьютер с помощью VBScript, вы можете использовать службу инструментария управления Windows (WMI). Вот пример кода, демонстрирующий один из методов:

strComputer = "REMOTE_COMPUTER_NAME"  ' Replace with the name or IP address of the remote computer
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
    objOperatingSystem.Shutdown()
Next

Этот сценарий подключается к удаленному компьютеру, указанному в поле «REMOTE_COMPUTER_NAME», и использует WMI для выполнения метода Shutdownв классе Win32_OperatingSystem. Это приведет к завершению работы удаленного компьютера.

Обратите внимание, что для запуска этого сценария вам необходимы права администратора на удаленном компьютере и необходимое сетевое подключение.

Другие способы выключения удаленного компьютера включают использование утилиты командной строки shutdown.exeчерез объект ShellVBScript или использование PsExecутилита, разработанная Sysinternals. Вот примеры этих методов:

  1. Использование shutdown.exe:
strComputer = "REMOTE_COMPUTER_NAME"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "shutdown.exe /s /m \\" & strComputer & " /t 0"
  1. Использование PsExec:
strComputer = "REMOTE_COMPUTER_NAME"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "psexec \\" & strComputer & " shutdown /s /t 0"

Не забудьте заменить «REMOTE_COMPUTER_NAME» фактическим именем или IP-адресом удаленного компьютера, который вы хотите выключить.