'==========================================================================
'
' EMERSON WSF-Package Launcher
'
'==========================================================================

Option Explicit
On Error Resume Next
Dim oWshShell, sWindir, sCommand, sParameters, sScriptDirectory
Set oWshShell		= WScript.CreateObject("Wscript.Shell")
sWindir		    	= oWshShell.ExpandEnvironmentStrings("%WinDir%")
sScriptDirectory	= CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)

sCommand = sWindir & "\System32\cscript.exe"
sParameters = """" & sScriptDirectory & "\Package.wsf"" //B //nologo //Job:Install /Mode:Silent"

Public RC
RC = oWshShell.Run("""" & sCommand & """ " & sParameters,0,True)
WScript.Quit(RC)
