'Servicepack starten
Option Explicit
Dim wshshell
Dim fso
Dim strPath
Const ComputerIni = "C:\Computer.ini"

set wshshell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")


strPath = GetCurrentPath()

If fso.FileExists(strpath & "Servicepacks\Start.vbs") Then
	Call wshshell.Run("""" & strpath & "Servicepacks\Start.vbs""")
End If

'-------------------------------------------------------------------------------
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