on error resume next
Dim WshShell, WshEnv
Const OverwriteExisting = True
'Configures Variables
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
set WshEnv = WshShell.Environment("Process")
SysDrive = WshEnv("%SYSTEMDRIVE%")
SysRoot = WshEnv("SYSTEMROOT")
source = "\\server\share$\qroxy\*.*"
dest = SysDrive & "\Program Files\qroxy\"
If objFSO.FolderExists(dest) Then
Set objFolder = objFSO.GetFolder(dest)
Else
Set objFolder = objFSO.CreateFolder(dest)
End If
objFSO.CopyFile Source , Dest , OverwriteExisting = true
WshShell.Regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\qroxy", "C:\Program Files\qroxy\qroxy.exe", "REG_SZ"
'Clears cache
set fso = nothing
set WshShell = nothing
set WshEnv = nothing
wscript.quit