All pastes #125690 Raw Edit

Anonymous

public text v1 · immutable
·published 2006-08-10 20:50 UTC
rendered paste body
Dim fso
Dim objFSO
Dim WSHShell
Dim VSManager
Dim VSMversion

VSManager = "C:\Program Files\Voltage Security, Inc\Voltage SecureMail\VSManager.exe"

set fso = Wscript.CreateObject("Scripting.FileSystemObject")
set objFSO = CreateObject("Scripting.FileSystemObject")
Set WSHShell = WScript.CreateObject("WScript.Shell")

if fso.FileExists(VSManager) then
	VSMversion = objFSO.GetFileVersion(VSManager)
	if VSMversion <> "3.0.0.22824" then
		WSHShell.Run "\\mad-srv1\Documents\Intranet\it_finance\voltage\SecureMail.msi"
	end if
end if