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

Всем привет!
Я нашёл у вас на форуме нужный мне скрипт для создания ярлыков.
Но он у меня не работает и выдаёт ошибку, я не просто не понимаю что тут не так? Уважаемые знатоки, посмотрите его и если можете исправте пожалуйста?

angel_lyucifer, потому что это пакетный файл — гибрид из пакетного файла, вызова JScript-интерпретатора и VBScript-кода.

Сохраняете его как «Name.cmd» и вызываете, например:
В результате получаете на Рабочем столе ярлык «file.lnk», указывающий на «file.exe», находящийся рядом с пакетным файлом — т.е.: «E:\Песочница\0336\file.exe».

Одним словом, крайне неудачный выбор.

Проблема такая, у меня есть файл Vlp.exe у него может быть любая директория, но мне нужно создать ярлык скриптом, этот скрипт будет лежать рядом с файлом...

Всё понял, спасибо...

Так:

Скрипт, очень хорошей!
А как добавить описание для этого ярлыка?

Большое спасибо, Iska! =)

а как выполнить его на удаленном компьютере для определенного пользователя. ПК в домене.

В составе LOGON-скрипта, например.

а без участия политик ?.

«Для определённого пользователя» — никак. Можно только «от имени указанного пользователя». То есть, нужно знать его пароль. Чего в нормальном окружении быть не должно.

P.S. Вы уверены, что ярлык нужен отдельным указанным пользователям, а не всем?

опреденно вы правы, процесс чтоб попасть в свой профиль должен быть от имени пользователя, однако:
1) скрипт нашел нужный ПЭВМ
2) скрипт помнит нужного пользователя пользователя
3) скрипт создает нужный ярлык - путь на запуск того что надо.
4) скрипт создает права - безопасность на выполнение файла, добавив что вася пупкин может запускать этот файл
3) скрипт засовывает на нужном компе в профиль пользователю нужный файл.

пункт 1 и 3 можно поменять местами.

при этом алгоритме "запуск от имени" для создания ярлыка непотребуется, достаточно пермишны установить мог админ через скрипт.

упрощено:
создал сам себе ярлык
запихнул в профиль пользователя на нужном компе
там выставил на файл .lnk пермишионалы

Не делайте так.

И как именно Вы определите, где именно у конкретно взятого пользователя на конкретной машине расположен Рабочий стол? Впрочем, достаточно первого.

Цитата Iska:
И как именно Вы определите, где именно у конкретно взятого пользователя на конкретной машине расположен Рабочий стол? »
%USERPROFILE%\Desktop\

BOBAT, откуда Вы возьмёте «%USERPROFILE%» пользователя «X» для машины «Y» при исполнении скрипта под пользователем, отличным от «X», на машине «Z»? Далее, откуда такая уверенность, что папка Рабочего стола именуется исключительно «Desktop»? «Это не есть факт, месье Дюк» (с).

Есть вопрос по созданию ярлыка запуская скрипт из гиены,кто подскажет?

Есть вопрос по толкованию понятия «гиена», кто подскажет?

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

с помощью гиены я запускаю скрипт на определенном компьютере,проблема заключается в том-не могу никак додумать создание ярлыка на компе где запустил скрипт,вот пример
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

в конце выдает ошибку: "C:\Users\Public\Desktop\имя компа\Ярлык.lnk"

Точное сообщение об ошибке покажите (используйте «Ctrl-C» или «Alt-PrintScreen»).

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

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

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

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

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

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

А почему удивляетесь? У Вас именно так и написано:
Дальнейший кусок:
для меня столь же загадочен.

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

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

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

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

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

Цитата:

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

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

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

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

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

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

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

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

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

Не, кусок кода с копированием файлов который я привел-он работает на удаленной машине посредством Hyena.А как дописать тот скрипт чтобы на удалённой машине еще создавался ярлык.Данный кусок кода на удаленной машине не отрабатывается,а отрабатывается на локальной.А мне нужно чтобы ярлык создавался на удалённой.
Set oShortCut = oShell.CreateShortcut(DeskTopPath & "\\" & strComputer & "\Proga.lnk")
oShortCut.TargetPath = "\\" & strComputer & "C:\Proga\Proga.exe"
oShortCut.Save

В AD есть группы group1 и group2.

Задача: для пользователей группы group1 создать ярлык на рабочем столе shortcut1, для пользователей группы group2 создать ярлык на рабочем столе shortcut2
Пока тривиально, да :)
Ярлык shortcut1 и shortcut2 указывают на сетевые шары \\192.168.1.1\share1 и \\192.168.1.1\share2, доступ к которой осуществляется по логину/паролю

Создал 2 политики (shortcut_for_group1 и shortcut_for_group2)
Конфигурация пользователя -> Конфигурация Windows -> Сценарии -> Вход в систему -> \\192.168.1.100\shareforall\docs_group1.vbs
Конфигурация пользователя -> Конфигурация Windows -> Сценарии -> Вход в систему -> \\192.168.1.100\shareforall\docs_group2.vbs

Содержимое файлов
и
Прицепил групповую политику к нужному подразделения, в фильтрах безопасности указал group1 и group2 соответственно.
Результат: ярлык на рабочем столе пользователей, входящих в группу group1 или group2 НЕ создается.
Если в сеансе пользователя сделать Пуск-Выполнить-\\192.168.1.100\shareforall\docs_group1.vbs, то ярлык создается.

Вопрос: в чем ошибка?