Скрипт для створення ярлика та запуску блокнота - Скрипти - Windows - Каталог статей - На допомогу адміну
У цій статті наводиться повністю робочий скрипт, який вміє створювати ярлик на робочому столі у користувача, а також запускати блокнотом текстовий файл із важливою інформацією для користувача. Цей скрипт є повністю робочим і може застосовуватися спільно з груповою політикою (при цьому скрипт легко відпрацьовує від імені звичайного користувача домену без підвищення прав). Суть мого творіння докорінно лежить в ідеї масового переїзду співробітників однієї з наших філій на новий сервер. Так як за ніч я переніс усі їхні мережні кулі, то мені не дуже хотілося після безсонної ночі переправляти у п'ятдесят користувачів посилання на нові кулі. Тому я заздалегідь підготувався, а саме – за допомогою групової політики я примусово у всіх користувачів філії викотив ярлик на папку мережі, в якій лежали нові ярлики на нові кулі. Ну а щоб не було дурних питань щодо неробочих старих ярликів, у скрипті я передбачив запуск текстового файлу з важливою інформацією для співробітників про їх переїзд на новий сервер. Таким чином я вбив двох зайців одним пострілом! Отже сам скрипт AddShotCut.vbs (я сподіваюся, що він комусь знадобиться):
' Створення ярлика програми. VBScript ' Оголошуємо змінні Dim WSHShell Dim MyShortcut, MyDesktop, DesktopPath Dim FSO, FileName Dim Windows SET WSHShell = WScript.CreateObject("WScript.Shell") ' Дізнаємося шлях до папки Windows Windows=wshShell.ExpandEnvironmentStrings ("%SystemRoot%") ' Дізнаємося шлях до Робочого столу DesktopPath = WSHShell.SpecialFolders("Desktop") 'Створюємо об'єкт FileSystemObject Set FSO = WScript.CreateObject("Scripting.FileSystemObject") FileName = DesktopPath + "\Нові ярлики.lnk" ' Перевіряємо наявність ярлика на робочому столі ' Якщо його немає, то створюємо новий і запускаємо блокнот з новими інструкціями if not(FSO.FileExists(FileName)) Then ' Створюємо ярлик: Set MyShortcut = WSHShell.CreateShortcut(DesktopPath + "\Нові ярлики.lnk") ' Задаємо властивості для ярлика: ' Файл MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("\\FileServer\shortcut") ' Директорія файлу MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("") ' Клавіші для швидкого виклику програми MyShortcut.HotKey = ("CTRL+ALT+N") ' Тип вікна файлу, що запускається MyShortcut .WindowStyle = 4 ' Іконка, яка використовується для ярлика MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("\\FileServer\shortcut") ' Зберігаємо зміни властивостей ярлика MyShortcut.Save()>' Запускаємо блокнот notepad = windows+"\NotePad.exe \\FileServer\shortcut\нове.txt" WSHShell.Run (notepad) end if Set WSHShell = Nothing Set FSO = Nothing ' Готово! До бабці можна не ходити.
Ну ось, мабуть, і все на цьому. Успіхів! Життя алміну має бути простіше!