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

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 »

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