Автодобавление ярлыков на x64 и x86 системе

Появилась задача - автоматическое создание ярлыков программы 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

Соответственно пути копирования ярлыков нужно указать свои.
ċ
firefox.7z
(1k)
Raymond superadmin,
5 февр. 2013 г., 4:26