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
2 years ago
|
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
|