Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

vbscript - regread funktioniert nicht in sub

Frage Entwicklung VB for Applications

Mitglied: SamTrex

SamTrex (Level 1) - Jetzt verbinden

23.02.2007, aktualisiert 24.02.2007, 7173 Aufrufe, 3 Kommentare

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
Mitglied: bastla
23.02.2007 um 23:58 Uhr
Hallo SamTrex!

Vorweg: Es ist für mich nicht wirklich ersichtlich, was Dir hier das Auslagern in ein Sub eigentlich bringen soll.

Anyhow - stell einfach das "On Error Resume Next" in das Sub hinein (funktioniert nämlich nicht über Prozedurgrenzen hinweg).

Grüße
bastla
Bitte warten ..
Mitglied: SamTrex
24.02.2007 um 13:03 Uhr
Mehr nicht?! Lediglich das "On Error Resume Next" ....

Eigntlich hast du ja recht.
Möchte es wegen Gliederung wegen machen.
Das ganze ist ein NetLogonScript. Sprich es wird noch mehr an Softwareabfragen
dazukommen. Vielleicht mache ich das noch so, das ich an das sub nur den Schlüssel
übergebe und den Errorwert auslese.

Vielen Dank
Gruß Sa,
Bitte warten ..
Mitglied: bastla
24.02.2007 um 13:09 Uhr
Hallo SamTrex!

Vielleicht mache ich das noch so, das ich an das sub nur den Schlüssel übergebe und den Errorwert auslese.
... was dann ja eher für eine Function sprechen würde.

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Windows Netzwerk
Domain Master Browsing funktioniert nicht in verschiedenen VLans

Frage von drewsho zum Thema Windows Netzwerk ...

Windows 10
Anmeldung im Windows Store funktioniert nicht mehr (2)

Frage von Desert-Igel zum Thema Windows 10 ...

Exchange Server
OWA mit Exchange 2013 und abweichendem Gateway funktioniert nicht (9)

Frage von EDeVau zum Thema Exchange Server ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(29)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Netzwerke
LAN2LAN Verbindung sehr langsam flaschenhals gesucht (27)

Frage von PixL86 zum Thema Netzwerke ...

LAN, WAN, Wireless
Rogue Access Point (20)

Frage von Axel90 zum Thema LAN, WAN, Wireless ...

Webbrowser
Windows 7 unbeliebte Internetseite sperren (13)

Frage von Daoudi1973 zum Thema Webbrowser ...

E-Mail
Fake E-Mail in Outlook für Demonstartionszwecke (12)

Frage von sascha382 zum Thema E-Mail ...