| Вопрос: Bat (Batch) to VBS | Добавлено: 11.09.08 20:51 |
Автор вопроса:  Wu-Tang
|
| Ответы | Всего ответов: 32 |
|
Номер ответа: 31 Автор ответа:  Wu-Tang Вопросов: 1 Ответов: 16 |
Профиль | | #31 | Добавлено: 17.07.10 22:36 |
| Что за ad? | ||
|
Номер ответа: 32 Автор ответа: Шпион ICQ: 250543104 Вопросов: 13 Ответов: 118 |
Профиль | | #32 | Добавлено: 21.07.10 09:07 |
|
О, пардон!
Если необходимо настроить сразу пачку компов - лучше использовать домен и Active Directory (AD), но если Вы делаете собственную сборку винды - копните в сторону nLite. Либо читайте документы, прилагаемые к компакт-диску с виндой. Там есть файлик справки по автоматической установке, где подробно написано, что каждый конкретный ключ будет означать и как все это будет работать. ЗЫ. файл можно не перемещать в автозагрузку, а тупо делать на него ярлык. А при исполнении скрипта проверять наличие ярлыка в папке Автозагрузка и удалять его. создать ярлык для текущего пользователя в папке автозагрузка set objShell=Createobject("Wscript.Shell" 
strAutoStart=objShell.SpecialFolders("StartUp"
set oShellLink = WshShell.CreateShortcut(strAutoStart & "\myscript.lnk"
oShellLink.TargetPath = "C:\myscript.vbs" oShellLink.WindowStyle = 0 oShellLink.Hotkey = "CTRL+SHIFT+F" oShellLink.IconLocation = "notepad.exe, 0" oShellLink.Description = "Shortcut Script" oShellLink.WorkingDirectory = "C:\" oShellLink.Save проверить наличие ярлыка (файла) в папке автозагрузка и удалить его Set objFSO=Createobject("Scripting.Filesystemobject"
set objShell=Createobject("Wscript.Shell"
strStartUp=objShell.SpecialFolders("StartUp"
If objFSO.FileExists(strStartUp & "\myscript.lnk" =True Then objFSO.DeleteFile strStartUp & "\myscript.lnk"
еще раз обращаю Ваше внимание, что мы создаем ярлык на скрипт и удаляем тоже ярлык. Сам файл остается на месте. |
||