Небольшая статья, показывающая один из простых способов запуска приложения на удалённом компьютере не прибегая к сторонним утилитам и программам.
Существуют разные способы удалённого запуска приложения, но большинство из них - это сторонние утилиты и програмы, такие как PsExec или Dameware nt utilities и др.. И хотя перечисленные мною являются доверенными и не опасными для компьютера (только если скачаны с официального сайта!). Я являюсь сторонником, которые пытаются выжать максимум из возможностей самой операционной системы, тем более, что она на это способна.
Итак, сам скрипт (в примере используется блокнот для запуска):
Имя файла RunAtHost.vbs
'=======================================================
'Язык - VBScript
'Автор - Олег Анчуров
'Скрипт предназначен для удаленного запуска программ
'на удалённой рабочей станции
'=======================================================
On Error Resume Next
Dim CmpName, Application
Dim objSWbemLocator, objServices, objClass, Res, errCode, procID
CmpName = InputBox("Введите имя компьютера:") 'Спрашиваем имя удалённой машины
Application = "notepad.exe" 'Приложение для запуска (в данном случае блокнот)
'Application = InputBox("Введите имя приложения:") 'Раскоментируйте при необходимости
'Запускаем приложение (блокнот) на удалённой машине
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
UserName = CmpName & "\администратор" 'имя пользователя
Pass = "SuperPuperPassword" 'пароль пользователя
Set objServices = objSWbemLocator.ConnectServer(CmpName, "root\CIMV2", UserName, Pass, Null, Null, 0)
If Err.Number <> 0 Then
WScript.Echo Err.Number & ": " & Err.Description
WScript.Quit
End If
Set objClass = objServices.Get("Win32_Process")
Res = objClass.Create(RA, Null, Null, PID)
If Res <> 0 Then
WScript.Echo Err.Number & ": " & Err.Description
End If
Set objSWbemLocator = Nothing 'Выкидываем мусор из памяти компа
Set objServices = Nothing 'Выкидываем мусор из памяти компа
Set objClass = Nothing 'Выкидываем мусор из памяти компа
WScript.Quit
Копируйте и пользуйтесь на здоровье.
Жизнь админа должна быть проще!
|