Ru-Board.club
← Вернуться в раздел «Прикладное программирование»

» Запуск скрипта vbs одновременно на нескольких удалённых комп

Автор: ronvaleron
Дата сообщения: 28.05.2007 09:42
Есть скрипт test.vbs необходимо его одновременно запускать на удалённых машинах с именами comp1, comp2, comp3. Как можно реализовать?
Автор: dmka
Дата сообщения: 28.05.2007 10:23
Например использовать планировщик (scheduler) на каждой из машин.

или разослать по почте юзерам с текстом: "В 10:30 состоится розыгрыш ценных призов. Кликни на скрепку, чтобы принять участие."
Автор: AndVGri
Дата сообщения: 28.05.2007 10:40
dmka
Ну, уж так сурово;) втихаря, используя telnet - и выполнять, выполнять... Если права есть
Автор: VovaMozg
Дата сообщения: 29.05.2007 06:38
AndVGri а может написать скрипт, который в цикле:
коннектиться к комп_1
там выполнит скрипт тест_1
коннектится к следующему компу...

(правда я не знаю как по телнету приконнектится
Автор: AndVGri
Дата сообщения: 29.05.2007 08:50
VovaMozg
Теоретически можно и скриптом. Если на удалённом компе есть твоя учётка, то ей назначь сценарий входа тест_1 на 1 компе и т. д. (как - спроси админов). Осталось выяснить, выполняется ли сценарий при удалённом подключении. Telnet - консольное удалённое подключение (это тебе не Remoute Admin и даже не удалённое подключение к рабочему столу).

Dom oShell
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run("telnet firstCompName")
oShell.Run("telnet secondCompName")

Всё это надо проверять - займись, если очень надо. Правда, есть один недостаток. Удалённые подключения останутся висеть в консольных окнах, закрывать - ручками, хотя можешь поизучать Set oExec = oShell.Execute("telnet CompName"), может позволяет закрывать окно после некоторого промежутка времени.
Короче, флаг тебе в руки . Сходи в админовский форум, посмотри VBScript - может кто решал такую задачу через WMI
Автор: AndVGri
Дата сообщения: 29.05.2007 14:45
VovaMozg
Вот нашёл в MSDN для удалённого запуска скриптов
[more]
WSH 5.6 can run scripts that reside on remote systems. The following scripts demonstrate this capability. These scripts make the assumption that the files are located on a local machine directory called "c:\wsh5.6"; change the local path and the remote machine name as necessary.

After initially running RemoteTest.WSF on the local machine, there may be a small pause as DCOM verifies your identity. After you see the "Done" message, a file named "c:\beenhere.txt" on the remote machine indicates the time that you executed the command (from the remote computer's clock).

Example
Copy Code
// JScript.
RemoteTest.WSF
-------------------------------
<package>
<job>
<script language="JScript">
var oController = new ActiveXObject("WSHController");
var oProcess = oController.CreateScript("c:\\wsh5.6\\beenhere.wsf", "remmachine");
oProcess.Execute();
while (oProcess.Status != 2) WScript.Sleep(100);
WScript.Echo("Done");
</script>
</job>
</package>
-------------------------------
BeenHere.WSF
-------------------------------
<package>
<job>
<script language="JScript">
var fso = new ActiveXObject("Scripting.FileSystemObject");
var fout = fso.CreateTextFile("c:\\beenhere.txt", true);
fout.WriteLine(new Date);
fout.Close();
</script>
</job>
</package>
-------------------------------

' VBScript.
RemoteTest.WSF
-------------------------------
<package>
<job>
<script language="VBScript">
set oController = CreateObject("WSHController")
set oProcess = oController.CreateScript("c:\wsh5.6\beenhere.wsf", "remmachine")
oProcess.Execute
While oProcess.Status <> 2
WScript.Sleep 100
WEnd
WScript.Echo "Done"
</script>
</job>
</package>
-------------------------------

BeenHere.WSF
-------------------------------
<package>
<job>
<script language="VBScript">
set fso = CreateObject("Scripting.FileSystemObject")
set fout = fso.CreateTextFile("c:\beenhere.txt", true)
fout.WriteLine Now
fout.Close
</script>
</job>
</package>
[/more]

Страницы: 1

Предыдущая тема: И всеже Filter cxGrid onGetFilterValues


Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.