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, 7239 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
Ausbildung

Linux-Ausstieg in Niedersachsen - Windows statt Bugfix

Information von StefanKittel vor 3 StundenAusbildung8 Kommentare

Sind ja nur Steuergelder

Microsoft

Neuigkeiten zu Server und Office 365 was läuft mit was und was nicht

Tipp von AlFalcone vor 2 TagenMicrosoft4 Kommentare

Da diese Infos scheinbar unerwünscht sind, habe ich diese wider gelöscht.

Speicherkarten

Neuer Speicherkartentyp - zunächst nur für Huawei-Smartphones (künftig auch für Notebooks u. Tablets?)

Tipp von VGem-e vor 2 TagenSpeicherkarten1 Kommentar

Servus, als ob das "Chaos" i.S. Speicherkarten noch nicht groß genug wäre?! Evtl. kommt dieser neue Kartentyp bald auch ...

Sicherheit

Diverse D-Link-Router durch drei Schwachstellen kompromittierbar

Information von kgborn vor 2 TagenSicherheit

Hat jemand D-Link-Router in Verwendung? Einige Modelle sind sicherheitstechnisch offen wie ein Scheunentor. Äußerst unschöne Sache, aber nichts neues ...

Heiß diskutierte Inhalte
Off Topic
SysAdmin im öffentlichen Dienst - jemand Erfahrungen?
Frage von JohnDorianOff Topic21 Kommentare

Hallo zusammen, hat jemand Erfahrung wie es so ist als SysAdmin im öffentlichen Dienst (Landkreis) im Südwesten der Republik ...

SAN, NAS, DAS
Nas mit USB und LAN gleichzeitig zugreifen
gelöst Frage von MarkBeakerSAN, NAS, DAS16 Kommentare

Hallo zusammen, ich suche eine Art NAS, womit ich via LAN und USB zugreifen kann. Folgender Aufbau ist gedacht: ...

DSL, VDSL
PPPOE Einwahl über Sophos UTM und FritzBox per PPPOE Passthrough
gelöst Frage von Leo-leDSL, VDSL16 Kommentare

Hallo zusammen, vielleicht habt Ihr noch eine Idee?? Ich besitze einen 1u1 Anschluss und möchte meine UTM ASG 110 ...

TK-Netze & Geräte
Low budget TK-Anlage für KMU
Frage von HeinklugTK-Netze & Geräte16 Kommentare

Hallo Admins, ich bin auf der Suche nach eine kostengünstigen Telefonanlage für mein kleines Büro mit 4-5 Mitarbeitern. Dabei ...