Top-Themen

Aktuelle Themen (A bis Z)

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

Mitglied: SamTrex

SamTrex (Level 1) - Jetzt verbinden

23.02.2007, aktualisiert 24.02.2007, 7228 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
Visual Studio
Sub für Speicherung der Settings
Frage von ahstaxVisual Studio1 Kommentar

Tach, ist es irgendwie sinnvoll möglich, ein Sub für die Speicherung von Settings zu schreiben? Ich hab nachfolgendes probiert: ...

Microsoft Office

Excel Marko "private sub" bearbeiten

gelöst Frage von ArnoNymousMicrosoft Office2 Kommentare

Hallo, ich stehe auf dem Schlauch. Habe hier eine Exceltabelle mit einem Makro, dass mittels "private sub" nicht sichtbar ...

VB for Applications

VBScript und OR

gelöst Frage von InvisanVB for Applications5 Kommentare

Hi zusammen, derzeit bastel ich ein bisschen in VBScript rum. Leider habe ich mit dem OR Operator einige Probleme. ...

LAN, WAN, Wireless

Kein DHCP-Relay am Sub-Switch HP

gelöst Frage von westberlinerLAN, WAN, Wireless20 Kommentare

Hallo, ich habe hier eine Sterntopologie am Laufen. Core-Switch Access-Switch Wlan-AP/Clients/Endgeräte Nun habe ich das Problem: Am Core-Switch funktioniert ...

Neue Wissensbeiträge
Backup

2016 - Restore mit WBAdmin - iSCSI Device als Sicherungsziel

Erfahrungsbericht von Henere vor 1 TagBackup1 Kommentar

Servus zusammen, was mich eben einige graue Haare gekostet hat Server 2016. Ich habe meinem Server eine weitere M2 ...

Humor (lol)
(Part num your Hacked phone. +XX XXXXXX5200)
Erfahrungsbericht von Henere vor 3 TagenHumor (lol)8 Kommentare

Mein Handy hat aber ne ganz andere Endnummer. Muss ich mir jetzt Sorgen machen ? :-) Vielleicht betrifft es ...

Exchange Server

Letztes Update für Exchange 2016 CU9 war in gewisser Weise destruktiv

Erfahrungsbericht von DerWoWusste vor 4 TagenExchange Server9 Kommentare

Kurzer Erfahrungsbericht zu Exchange2016-KB4340731-x64 Der Exchangeserver hat wie gewöhnlich versucht, es in der Nacht automatisch zu installieren - abgesehen ...

Erkennung und -Abwehr

Neue Sicherheitslücke Foreshadow (L1TF) gefährdet fast alle Intel-Prozessoren

Information von Frank vor 4 TagenErkennung und -Abwehr3 Kommentare

Eine neue Sicherheitslücke, genannt Foreshadow (alias L1TF) wurde auf der Usenix Security 18 von einem Team internationaler Experten veröffentlicht. ...

Heiß diskutierte Inhalte
E-Mail
Deutsche e-Mail Adresse auf iPhone in Katar. Nur Probleme
gelöst Frage von vanTastE-Mail32 Kommentare

Moin, ich habe hier in Deutschland auf einem Exchange 2013 eine e-Mail Adresse (name@domain.de) für einen Kollegen in Katar ...

Windows Server
Domäne beitreten nicht möglich, unter VMWare windows Server 2016 Core
Frage von AmanuelWindows Server12 Kommentare

Ich habe auf meinem Mac unter VMWare Windows Server 2016 Core und Windows Server 2016 Desktopversion installiert. Beide Systeme ...

RedHat, CentOS, Fedora
OTRS 5 kann keine Mails mehr abrufen
gelöst Frage von opc123RedHat, CentOS, Fedora11 Kommentare

Hallo, OTRS kann keine Mails mehr abrufen. Verschicken ja. Dadurch kommen keine Tickets mehr rein. Gibt es Anlaufpunkte was ...

Windows Server
Server 2016 Autotiering Storage Space
Frage von HenereWindows Server11 Kommentare

Servus, ich habe jetzt ein StorageSpace auf einem Server 2016 in Betrieb zum Testen. 1x M2 mit 512GB (970pro) ...