' VBScript
Option explicit
on error resume next
Dim WshShell,OsType,strSourcepath,strTargetFile,booOverWrite,objFSO,strResult,strSourceFile

Set WshShell = CreateObject("WScript.Shell")

OsType = WshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE")

If OsType = "x86" then
strTargetFile = "C:\Program Files\Northgate\PROIV Version 6\Client\"
elseif OsType = "AMD64" then
strTargetFile = "C:\Program Files (x86)\Northgate\PROIV Version 6\Client\"
end if

strSourcePath = "\\pluto.vetmed.illinois.edu\utilities\VetstarVADDS_AITS\PivsForMarion\"
Set objFSO = CreateObject("Scripting.FileSystemObject")

strSourcefile= strsourcepath & "hostvadds.piv"
objFSO.CopyFile strSourceFile, strTargetFile, vbTrue
strSourcefile= strsourcepath & "hostvet.piv"
objFSO.CopyFile strSourceFile, strTargetFile, vbTrue


wscript.echo "Vetstar/VADDS update completed"