On Error Resume Next

Dim WshShell,WshEnv

'Configures Variables
Set WshShell = CreateObject("WScript.Shell")
set WshEnv = WshShell.Environment("Process")
SysDrive = WshEnv("SYSTEMDRIVE")
SysRoot = WshEnv("SYSTEMROOT")
LogonSvr = WshEnv("LOGONSERVER")
Const OverwriteExisting = TRUE

'Set the Source and Destination paths below
'------------------------------------------------------------------------------------------
SourceLocation = "Change me"
'For example, my clientdiag.exe file is located in the follwoing folder:
'SourceLocation = "\\ubersec.com\SysVol\ubersec.com\Policies\{4D1A508B-47ED-4B40-86A4-123FA5EBAF4C}\Machine\Scripts\Startup\"
'SourceFilename stays the same unless you are want to change that filename to something else. I like to keep things in default
SourceFilename = "ClientDiag.exe"
'Now copy that file to the windows System32 folder
DestinationLocation = SysDrive & "\Windows\System32\"
' DestinationFilename = "ClientDiag.exe"
'------------------------------------------------------------------------------------------

' msgbox SourceLocation & SourceFilename
' msgbox DestinationLocation & DestinationFilename

'copies file from source to destination
set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile SourceLocation & SourceFilename , DestinationLocation , OverwriteExisting


set objFSO = nothing
set WshShell = nothing
set WshEnv = nothing

' msgbox "Completed!"