Автодобавление ярлыков на 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

Соответственно пути копирования ярлыков нужно указать свои.