VBS/WSH/JS - [решено] Скрипт vbs для создания ярлыка на рабочем столе

venom05 · Отправлено: **14:07, 26-01-2016** | #21

Путь и название скрипта затер

http://s018.radikal.ru/i521/1601/db/ad7dcf461478.jpg

То что строка 48 не обращайте внимание,там много закомментировано просто.
48 строка это <oShortCut.Save>

QR-это имя удаленного компа

Iska · Отправлено: **14:50, 26-01-2016** | #22

Путь «c:\Users\Public\Desktop\QR» существует?

venom05 · Отправлено: **15:16, 26-01-2016** | #23

Смотрите скрипт я запускаю на удалённом компе с именем QR
А ошибка выскакивает как будто в папке "Все пользователи"\Рабочий стол\QR
Сам компьютер QR по сети доступен естественно.
Сам скрипт отрабатываю на ОС WindowsXp что говорит о том что на удаленной машине он не отрабатывается, а отрабатывается на моей ОС Windows 7,так как путь типа "c:\Users\Public\" начинается с ОС Windows 7

Iska · Отправлено: **15:40, 26-01-2016** | #24

Цитата venom05:

А ошибка выскакивает как будто в папке "Все пользователи"\Рабочий стол\QR »

А почему удивляетесь? У Вас именно так и написано:

Цитата venom05:

Код:

Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

Set Argum = WScript.Arguments
strComputer = Argum(0)

Dim oShell
Dim oShortCut

set oShell = WScript.CreateObject ("WScript.Shell")
DesktopPath = oShell.SpecialFolders("AllUsersDesktop")

Set oShortCut = oShell.CreateShortcut(DeskTopPath & "\\" & strComputer & "\Proga.lnk")
oShortCut.TargetPath = "\\" & strComputer & "C:\Proga\Proga.exe"
oShortCut.Save

»

Дальнейший кусок:

Код:

oShortCut.TargetPath = "\\" & strComputer & "C:\Proga\Proga.exe"

для меня столь же загадочен.

Цитата venom05:

Сам скрипт отрабатываю на ОС WindowsXp что говорит о том что на удаленной машине он не отрабатывается, а отрабатывается на моей ОС Windows 7,так как путь типа "c:\Users\Public\" начинается с ОС Windows 7 »

Ну, эти вопросы следует адресовать к Вашей:

Цитата venom05:

Гиена утилита с помощью которой я админю компы в домене,типа DameWare NT Utilities »

ибо я с сим не работал.

venom05 · Отправлено: **16:10, 26-01-2016** | #25

Так вот в этом то и вопрос,что мне нужно дописать чтобы эта команда отрабатывалась на удаленном компе

Set oShortCut = oShell.CreateShortcut(DeskTopPath & "\\" & strComputer & "\Proga.lnk")
oShortCut.TargetPath = "\\" & strComputer & "C:\Proga\Proga.exe"
oShortCut.Save

Как например вот копирование файлов

Set objFSO = CreateObject("Scripting.FileSystemObject")

path = FPath&"\\server\enterprise\Proga\*.*"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("\\" & strComputer & "\C$\Proga")

path2 = "\\" & strComputer & "\C$\Proga\"
objFSO.CopyFile path, path2, True

Копировании файлов отрабатывается на удалённом компе

Iska · Отправлено: **19:51, 26-01-2016** | #26

Цитата venom05:

Так вот в этом то и вопрос,что мне нужно дописать чтобы эта команда отрабатывалась на удаленном компе »

Ничего не надо дописывать. Это надо реализовывать средствами удалённого управления, будь то групповые политики, telnet, Remote Console, RDP и прочее, хоть «wmic.exe Process call …». Вы же сами пишете, что:

Цитата venom05:

Гиена утилита с помощью которой я админю компы в домене,типа DameWare NT Utilities »

Сам же скрипт должен работать локально для той или иной машины. Понимаете?

Цитата venom05:

Копировании файлов отрабатывается на удалённом компе »

В показанном примере — копирование отрабатывает на локальной машине.

venom05 · Отправлено: **09:01, 27-01-2016** | #27

Тоесть создать ярлык на удаленном компе без указания в скрипте его конкретного имени(ip адреса) невозможно?

Iska · Отправлено: **09:12, 27-01-2016** | #28

venom05, Вы никак не поймёте.

Вот, смотрите. Мы создали некий скрипт, который создаёт ярлык на общем рабочем столе на некое приложение/документ. Проверили — скрипт работает корректно. На этом со скриптом мы закончили. Совсем.

Теперь нам надо, чтобы этот скрипт отработал на машинах X, Y и Z. Для этого мы совсем не касаемся содержимого скрипта, а используем средства удалённого управления, посредством которых мы можем исполнить данный скрипт на машинах X, Y и Z:

Цитата Iska:

групповые политики, telnet, Remote Console, RDP и прочее, хоть «wmic.exe Process call …». »

То есть, никакие имена/IP-адреса в самом данном скрипте не указываются и не используются.

venom05 · Отправлено: **09:05, 28-01-2016** | #29

средства удалённого управления мы используем для запуска всего лишь этого скрипта на компе,а мой вопрос в том и был как сделать чтобы он заработал на удаленной машине.Эх ладно может кто еще отпишется

Iska · Отправлено: **09:32, 28-01-2016** | #30

Цитата venom05:

средства удалённого управления мы используем для запуска всего лишь этого скрипта на компе, »

На удалённой машине.

Цитата venom05:

а мой вопрос в том и был как сделать чтобы он заработал на удаленной машине. »

Так Вы же пишете, что он у Вас работает на локальной машине, а не удалённой. Но не пишете как конкретно Вы пытаетесь организовать его исполнение на удалённой машине посредством Hyena.