Windows: Автоматическое копирование файла на рабочий стол.

windows

скрипт

Появилась задача распространить одну маленькую программку на все компьютеры в Active Directory. Программка представляет собой один .exe-файл и не требует установки. Быстренько наклепал vbs-скрипт и закинул его в раздел winlogon в групповых политиках. Текст скрипта ниже.

Скрипт проверяет наличие файла на рабочем столе. Eсли его там нет, то копирует из сетевой папки.

Текст скрипта:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
'Проверяем существует ли файл, если нет то копируем его из сетевой папки.
IF Not objFSO.FileExists(strDesktop & "\" & "programm.exe") Then
objFSO.CopyFile "\\share\Distr\programm.exe", strDesktop & "\"
End If
Set objShell = Nothing
Set objFSO = Nothing

Скачать костыль скрипта можно отсюда.