В зависимости от разрядности системы скопировать файл и задать ему новое имя

if right(wscript.createobject("wscript.shell").environment("system").item("processor_architecture"), 2) = "64" then
    msgbox "64 bit"
else
    msgbox "32 bit"
end if

if right(wscript.createobject("wscript.shell").environment("system").item("processor_architecture"), 2) = "64" then
    msgbox "64 bit"
Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 
fso.CopyFile "c:\Program Files (x86)\soft\ver.txt","d:\ver"
 
else
    msgbox "32 bit"
 
Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 
fso.CopyFile "c:\Program Files\soft\ver.txt","d:\ver"
 
 
end if

On Error Resume Next
 
Const wbemFlagReturnImmediately = &H10
Const wbemFlagForwardOnly       = &H20
 
Set objWmiService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWmiService.ExecQuery( _
  "SELECT * FROM Win32_Processor", "WQL", _
  wbenFlagReturnImmediately + wbemFlagForwardOnly _
)
 
For Each objItem In colItems
  If objItem.AddressWidth = 32 Then
    WScript.Echo "32-bit"
  Else
    WScript.Echo "64-bit"
  End If
Next

if CreateObject("wscript.shell").environment("Process").item("ProgramFiles(x86)") <> "" then
    msgbox "64 bit"
else
    msgbox "32 bit"
end if