Re: Patch Installation via VBScript
From: rafet (anonymous_at_discussions.microsoft.com)
Date: 03/04/04
- Next message: Andreas Baumann: "Probleme mit Auslesen eines String mit z.B. .MIM"
- Previous message: Rene Krause: "Verknüpfung aufrufen"
- In reply to: Thomas Voigt: "Re: Patch Installation via VBScript"
- Next in thread: rafet alias Spider81: "Re: Patch Installation via VBScript"
- Messages sorted by: [ date ] [ thread ]
Date: Thu, 4 Mar 2004 02:55:42 -0800
Hi !!
Die Installation funktioniert nun tadellos. Ein Problem
existiert aber noch. Bei jeder Anmeldung am System wird
der Patch installiert.
Das Script müsste nun aus der registry auslesen, ob dieser
Patch bereits installiert ist oder nicht. Wenn ja, soll
keine erneute Installation durchgeführt werden. Habe auch
folgendes im Netz gefunden, was ich aber noch in mein
Script einbauen muesste ( Wie gesagt, ich habe von
VBScript keine Ahnung ):
'Path to HotFix
Const FixLoc = "\\MyServer\HOTFIXES\MDAC\Q832483\"
'Registry to store hot fix info
Const KeyPath = "HKLM\Software\NON Windows
Installer\Hotfixes\"
'HotFix ID (key in Reg)
Const KeyVal = "Q832483"
'HotFix MSO Number
Const MSO = "MS04-003"
Const ScriptTools = "\\MyServer\ScriptTools\"
Const ForReading = 1, ForWriting = 2
Dim sCMD
Set wshShell = CreateObject("Wscript.Shell")
Set WshSysEnv = wshShell.Environment("Process")
sLocalName = UCase(WshSysEnv("COMPUTERNAME"))
sCMD = "cmd /c " & FixLoc & "ENU_Q832483_MDAC_X86.EXE /C:"
& chr(34) & "dahotfix.exe /q /n" & Chr(34) & " /q"
If KeyExists (KeyPath & MSO & "\" & KeyVal) = False Then
wshShell.run sCMD, 7, True
wshShell.RegWrite KeyPath & MSO & "\" &
KeyVal, "Installed on " & Now & " From: " & FixLoc &
sCmd, "REG_SZ"
End if
' To check if a registry value exists
Public Function KeyExists(key)
Dim key2
On Error Resume Next
key2 = wshShell.RegRead(key)
If err <> 0 Then
KeyExists = False
Else
KeyExists = True
End If
End Function
Könnt Ihr mir dabei behilflich sein ?
Gruss
Rafet
>-----Originalnachricht-----
>Hallo Matthias, Hallo Spider81,
>Matthias Lippmann wrote:
>> Hallo "Spider81",
>>
>> "spider81" schrieb
>>
>>>
hotfix "Q832483_MDAC_x86",3,"\\servername\install\software\
>>>
SpsHotfixes\Hotfixes\Q832483_MDAC_X86.EXE /C:"dahotfix.exe
>>> /q /n" /q
> ^^^^^^
>
> [...]
>> Der String für den Pfad ist aber im Aufruf der Sub bei
dem
>> Anführungszeichen zwischen /C: und dahotfix.exe zu Ende.
>> Ersetze das einfach durch ein chr(34):
>>
>> hotfix "Q832483_MDAC_x86", _
>> 3 , "\\servername\install\blabla\X86.EXE /C:" & chr(34)
& _
>> "dahotfix.exe /q /n"
>
>Hier fehlt noch das abschliessende Anführungszeichen um
dahotfix.exe /q/n in
>Anführungszeichen einzuschliessen.
>
>Analog um den zweiten Parameter /q nicht untern Tisch
fallen zu lassen:
>
> hotfix "Q832483_MDAC_x86", _
> 3 , "\\servername\install\blabla\X86.EXE /C:" & chr(34)
& _
> "dahotfix.exe /q /n" & chr(34) & "/q"
>
>MfG
>Thomas
>
>
>.
>
- Next message: Andreas Baumann: "Probleme mit Auslesen eines String mit z.B. .MIM"
- Previous message: Rene Krause: "Verknüpfung aufrufen"
- In reply to: Thomas Voigt: "Re: Patch Installation via VBScript"
- Next in thread: rafet alias Spider81: "Re: Patch Installation via VBScript"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
