Приветствую Вас ГостьЧетверг, 21.11.2024, 14:47

В помощь админу


Каталог статей

Главная » Статьи » Windows » Программы

Запуск приложения на удалённом компьютере
Небольшая статья, показывающая один из простых способов запуска приложения на удалённом компьютере не прибегая к сторонним утилитам и программам.
Существуют разные способы удалённого запуска приложения, но большинство из них - это сторонние утилиты и програмы, такие как 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


Копируйте и пользуйтесь на здоровье.
Жизнь админа должна быть проще!
 
Категория: Программы | Добавил: isz (18.11.2013)
Просмотров: 7613 | Теги: удалённый компьютер, Запуск приложений, vbs, vbscript, Скрипт | Рейтинг: 3.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Категории раздела
Active Directory [12]
DHCP [1]
Windows [13]
Wins [1]
Групповая политика [3]
Программы [2]
Резервное копирование [6]
Сеть [5]
Скрипты [31]
Терминальный сервер [7]
Почта [7]
Реестр [2]
Реестр Windows
Командная строка [7]
CMD: Командная строка Windows
Поиск
Форма входа
Наш опрос
Оцените мой сайт
Всего ответов: 149
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Статистика