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.
31 lines
682 B
Plaintext
31 lines
682 B
Plaintext
2 years ago
|
'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
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|