Появилась задача - автоматическое создание ярлыков программы Mozilla Firefox на компьютерах домена.
Тут сразу и проблема - программа есть только для x86 систем, а в домене есть как x86, так и x64 компьютеры, соответственно тупо закопировать скриптом ярлыки на рабочий стол не получится.
Соответственно в аттаче скрипт, определяющий, есть ли по указанному пути программа, и исходя из разрядности системы происходит копирование ярлыка для x64 или x86 системы.
Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject( "WScript.Shell" )
publ=oShell.ExpandEnvironmentStrings("%public%")
If oFSO.FileExists("c:\Program Files\Mozilla Firefox\firefox.exe") Then
oFSO.CopyFile "\\domain.lc\netlogon\32\firefox.lnk", publ & "\desktop\"
Elseif oFSO.FileExists("c:\Program Files (x86)\Mozilla Firefox\firefox.exe") Then
oFSO.CopyFile "\\domain.lc\netlogon\64\firefox.lnk", publ & "\desktop\"
End If
Соответственно пути копирования ярлыков нужно указать свои.