| Вопрос: Ярлык для файла | Добавлено: 02.04.07 10:48 |
Автор вопроса:  Stars
|
|
Народ подскожите плиз, как на VBS добавить ярлык п папку
"C:\Documents and Settings\" + Имя пользователя + "\SendTo\" Ярлык для программы по адресу C:\Program Files\Дипломник_Борис\Koder.exe Плиз!
|
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  Stars Вопросов: 41 Ответов: 239 |
Профиль | | #1 | Добавлено: 02.04.07 11:41 |
|
Всем спосибо праблему решил
Dim oShell, oShortCut, sDeskTopPath
Set oShell = CreateObject("Wscript.Shell" 
SendToPath = oShell.SpecialFolders("SendTo"
Set oShortCut = oShell.CreateShortcut(SendToPath & "\Хранилище.lnk"
oShortCut.TargetPath = "C:\Program Files\Дипломник_Борис\Koder.exe" oShortCut.Save |
||
|
Номер ответа: 2 Автор ответа: EROS Вопросов: 58 Ответов: 4255  |
Профиль | | #2 | Добавлено: 02.04.07 12:30 |
|
Всем спосибо праблему решил
Да не за что.. всегда рады помочь! Ты это.. если что - обращайся еще!  ))))
|
||
|
Номер ответа: 3 Автор ответа: StarsВопросов: 41 Ответов: 239 |
Профиль | | #3 | Добавлено: 02.04.07 13:05 |
|
|
||
|
Номер ответа: 4 Автор ответа: slovo Вопросов: 0 Ответов: 1 |
Профиль | | #4 | Добавлено: 13.07.08 21:13 |
|
попытался запустить подобный скрипт (типа .HTM):
<HTML> <BODY> <SCRIPT LANGUAGE="VBSCRIPT"> Dim oShell, oShortCut, sDeskTopPath Set oShell = CreateObject("Wscript.Shell"
SendToPath = oShell.SpecialFolders("SendTo"
Set oShortCut = oShell.CreateShortcut(SendToPath & "\Хранилище.lnk"
oShortCut.TargetPath = "C:\THESAUR\thesaur.wsf" oShortCut.Save </SCRIPT> </BODY> </HTML> не прошло, пишет, что выполнено с ошибками на странице |
||
|
Номер ответа: 5 Автор ответа: ШпионICQ: 250543104 Вопросов: 13 Ответов: 118 |
Профиль | | #5 | Добавлено: 14.07.08 06:37 |
| ярлык создается на стороне сервера. разницу чувствуешь? | ||
|
Номер ответа: 6 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #6 | Добавлено: 14.07.08 20:00 |
|
Не факт что создается - вряд ли у кода ASP хватит прав, хотя...
А я уж было обрадовался - о какие люди на форум вернулись... |
||
|
Номер ответа: 7 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #7 | Добавлено: 15.07.08 11:25 |
|
ярлык создается на стороне сервера. разницу чувствуешь?
на стороне клиента А не работает, потому-что Wscript.Shell скорее всего запрещен, т.к. с его помощью можно творить ужасные вещи. Гораздо серьезнее чем просто создать ярлык на рабочем столе. В свое время я тоже на свою "страничку" внутри локалки поместил подобный скриптец и он работал, правда объект там создавался более заумным способом (выцепил из рабочего на то время эксплоита) |
||
|
Номер ответа: 8 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #8 | Добавлено: 15.07.08 19:07 |
| ну ты реально HACKER! | ||
|
Номер ответа: 9 Автор ответа: ШпионICQ: 250543104 Вопросов: 13 Ответов: 118 |
Профиль | | #9 | Добавлено: 25.07.08 11:12 |
|
<% Sub CreateShortCut(where, targetpath, windowstyle, workdir) Set objShell=Createobject("Wscript.Shell"
set oShellLink = objShell.CreateShortcut(where) oShellLink.TargetPath = targetpath oShellLink.WindowStyle = windowstyle oShellLink.WorkingDirectory = workdir oShellLink.Save End Sub Createshortcut "C:\123.lnk", "C:\", 1, "C:\" %> и ярлык создался на сервере. а если выполнено с ошибками, предлагаю добавить в начале процедуры On Error Resume Next
перед сохранением Err.Clear
а после oShellLink.Save: If Not Err.Number=0 Then Response.Write Err.Description & "
 " & Err.Number & ""
|
||
|
Номер ответа: 10 Автор ответа: ШпионICQ: 250543104 Вопросов: 13 Ответов: 118 |
Профиль | | #10 | Добавлено: 25.07.08 11:19 |
|
на стороне клиента
вообще, я думаю, что тут нужно определиться, на чем мы пишем: на VBS или ASP. В любом случае, ярлык создатся там, где выполняется скрипт (если только пути не ведут на другую машину). Возможное решение проблемы с вариантом на ASP: у юзера, под которым (анонимный юзер) запускается скрипт, нет прав на запись в директорию, или путь отсутствует(возможно, профиль не создан). Следовательно, либо отключаем анонимного юзера, либо даем ему права на запись. Тут уж сам смотри, что тебе нужно. |
||
Страница: 1 |