vbscript - regread funktioniert nicht in sub
Hallo, ich hoffe meine Frage ist hier richtig ....
WSH in Winsows XP Pro; Es geht mir um folgendes:
Ich möchte die Registry auf einen Schlüssel hin prüfen, um zu sehen ob er existiert oder nicht.
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------
On Error Resume Next
Dim objshell
set objshell = createobject("wscript.shell")
err.number = 0
objshell.regread ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{AC76BA86-1033-F400-7760-000000000002}\")
if not err.number = "0" then
objshell.popup "Adobe Acrobat Reader 8.0", 5, "Softwareaktualisierung", vbOKOnly
objshell.exec ("\\Server\ClientApps\acroread8\Setup.exe /sall /norestart")
end if
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Wenn ich diesen Ablauf in meinem Script direkt eintrage ist alles ok.
Wenn ich das ganze jetzt aber lieber in einem Sub haben möchte streigt mir das ganze!
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------
On Error Resume Next
Dim objshell
set objshell = createobject("wscript.shell")
NetInstall
Sub NetInstall
err.number = 0
objshell.regread ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{AC76BA86-1033-F400-7760-000000000002}\")
MSGBOX (err.number)
if not err.number = "0" then
objshell.popup "Adobe Acrobat Reader 8.0", 5, "Softwareaktualisierung", vbOKOnly
objshell.exec ("\\Server\ClientApps\acroread8\Setup.exe /sall /norestart")
end if
End Sub
Ich habe das Object auch schon im Sub deklariert, bring auch nichts.
Die Messagebox zeigt er mir schon nicht mehr an.
Das Problem tritt dann auf, wenn der Schlüssel NICHT existiert.
Ohne Sub bekomme ich einen Errorwert zurück, mit Sub bricht er einfach ab...
Kann mir jemand sagen warum das so ist, bzw. wie ich es umgehen kann!?
Besten Dank
Gruß Sam
WSH in Winsows XP Pro; Es geht mir um folgendes:
Ich möchte die Registry auf einen Schlüssel hin prüfen, um zu sehen ob er existiert oder nicht.
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------
On Error Resume Next
Dim objshell
set objshell = createobject("wscript.shell")
err.number = 0
objshell.regread ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{AC76BA86-1033-F400-7760-000000000002}\")
if not err.number = "0" then
objshell.popup "Adobe Acrobat Reader 8.0", 5, "Softwareaktualisierung", vbOKOnly
objshell.exec ("\\Server\ClientApps\acroread8\Setup.exe /sall /norestart")
end if
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Wenn ich diesen Ablauf in meinem Script direkt eintrage ist alles ok.
Wenn ich das ganze jetzt aber lieber in einem Sub haben möchte streigt mir das ganze!
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------
On Error Resume Next
Dim objshell
set objshell = createobject("wscript.shell")
NetInstall
Sub NetInstall
err.number = 0
objshell.regread ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{AC76BA86-1033-F400-7760-000000000002}\")
MSGBOX (err.number)
if not err.number = "0" then
objshell.popup "Adobe Acrobat Reader 8.0", 5, "Softwareaktualisierung", vbOKOnly
objshell.exec ("\\Server\ClientApps\acroread8\Setup.exe /sall /norestart")
end if
End Sub
Ich habe das Object auch schon im Sub deklariert, bring auch nichts.
Die Messagebox zeigt er mir schon nicht mehr an.
Das Problem tritt dann auf, wenn der Schlüssel NICHT existiert.
Ohne Sub bekomme ich einen Errorwert zurück, mit Sub bricht er einfach ab...
Kann mir jemand sagen warum das so ist, bzw. wie ich es umgehen kann!?
Besten Dank
Gruß Sam
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 52530
Url: https://administrator.de/forum/vbscript-regread-funktioniert-nicht-in-sub-52530.html
Ausgedruckt am: 26.12.2024 um 23:12 Uhr
3 Kommentare
Neuester Kommentar