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

GetObject(winmgmts... von Remote PC

Frage Entwicklung VB for Applications

Mitglied: Dackelblick

Dackelblick (Level 1) - Jetzt verbinden

11.02.2009, aktualisiert 12:33 Uhr, 7623 Aufrufe, 1 Kommentar

Fehlerfall abfangen System nicht gefunden.

Ich bin noch in der VBS Visual Basic WSH Grundlagenforschung

For I = 100 To 120
strComputer = "192.168.1." & I

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
If objWMIService = null Then
wscript.Echo "Nicht verfügbar: " & strComputer

Next

Das kleine Codeschnipsel soll den Hintergrund verständlich machen. Der Punkt ist, sobald eine System mit einer IP-Nummer nicht verfügbar ist, bekomme ich einen Laufzeitfehler. Wie kann ich nun entweder im Vorfeld die Verfügbarkeit eines System (VB-Programmtechnisch etwa per PING) ermitteln oder den Laufzeitfehler im Programm abfangen? Der Versuch mittels Zeile 5 If Obj.... = null scheitert, wie dei VB-Profis wahrscheinlich wissen.

Danke für ein paar hilfreiche Tipps.
Mitglied: kruder77
15.02.2009 um 21:01 Uhr
zum einen könntest du mit Try & Catch arbeiten...

Try
--> Hier dein Code
Catch ex As Exception
---> Hier MsgBox für Fehlermeldung...
End Try

Damit umgehst du zwar den Laufzeitfehler aber nicht den eigentlichen Fehler,
dass heißt das Programm wird trotzdem durch den Fehler beendet.... Jedoch
könntest Du hiermit über die MsgBox ausgeben welcher Rechner nicht vorhanden
ist...

Anderer Weg mit Ping....

Dim ok As Boolean= False
Try
ok = My.Computer.Network.Ping("Hier die IP einsetzten", 500)
If ok=True Then

--> Hier den weiteren Code einfügen

End If
Catch ex As Exception


End Try



Gruß
Kruder
Bitte warten ..
Ähnliche Inhalte
Windows Server
gelöst Site to Site VPN (Kein Zugriff von Client auf Remote Server) (3)

Frage von subsee zum Thema Windows Server ...

Windows 10
gelöst PC in Standby versetzen per Kommandozeile (5)

Frage von Static zum Thema Windows 10 ...

Netzwerkmanagement
Ersatz PC mit selben Namen via neuer IP erreichen? (12)

Frage von maddoc zum Thema Netzwerkmanagement ...

Windows Update
Your PC uses a processor that isn’t supported on this version of Windows (24)

Link von Lochkartenstanzer zum Thema Windows Update ...

Neue Wissensbeiträge
Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(6)

Anleitung von BassFishFox zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (36)

Frage von Datsspeed zum Thema Exchange Server ...

Batch & Shell
gelöst ZIP-Archive nach Dateien durchsuchen und Pfade ausgeben (33)

Frage von evinben zum Thema Batch & Shell ...

Verschlüsselung & Zertifikate
Mit Veracrypt eine zweite interne (non-system) Festplatte verschlüsseln (10)

Frage von Bernulf zum Thema Verschlüsselung & Zertifikate ...

C und C++
Methode multiple return values (8)

Frage von mayho33 zum Thema C und C ...