Question

I have to copy a .cfg file to a specific location under the program files directory on my workplace servers.

Unfortunately this is not only OS dependent (2003/2008/2012) but also has to determine if the OS is 32 or 64 bit and copy to the ‘Program Files (x86)’ directory path if applicable.

My plan is to have the three different version of the the file on one server and have the script copy the relevant one to the right location (overwriting the existing file), but I’ve had pretty much zero exposure to vbscripting so I’m struggling big time!

Answer 1

WMI is probably the best approach. Assuming that the script will be run on each target host you could do something like this:

srcFolder = "..."

Set sh  = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set wmi = GetObject("winmgmts://./root/cimv2")

For Each os In wmi.ExecQuery("SELECT * FROM Win32_OperatingSystem")
  ver  = Left(os.Version, 3)
Next

Select Case ver
  Case "5.2" : src = fso.BuildPath(srcFolder, "w3003_foo.cfg")
  Case "6.0" : src = fso.BuildPath(srcFolder, "w2008_foo.cfg")
  Case "6.1" : src = fso.BuildPath(srcFolder, "w2008r2_foo.cfg")
  Case "6.2" : src = fso.BuildPath(srcFolder, "w2012_foo.cfg")
  Case Else  : WScript.Echo "Unsupported OS version: " & ver
               WScript.Quit
End Select

If sh.ExpandEnvironmentStrings("%PROCESSOR_ARCHITECTURE%") = "AMD64" Then
  dst = sh.ExpandEnvironmentStrings("%ProgramFiles(x86)%\some\foo.cfg")
Else
  dst = sh.ExpandEnvironmentStrings("%ProgramFiles%\some\foo.cfg")
End If

fso.CopyFile src, dst