Option Explicit

Dim wshshell

set wshshell = CreateObject("WScript.Shell")

Call wshshell.Run(GetCurrentPath() & "\InstallNachCD2.vbs",1,TRUE)
'-------------------------------------------------------------
Function GetCurrentPath()
	Dim l_strScriptName
	Dim l_strTemp

	l_strScriptName = WScript.ScriptFullName
	l_strTemp = WScript.ScriptName
	GetCurrentPath = Left(l_strScriptName, Len(l_strScriptName) - Len(l_strTemp))
End Function