You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
436 B
Plaintext
17 lines
436 B
Plaintext
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
|