vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten.

Hinweis:
Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen zu Tipps & Tricks und Workshops im vb@rchiv
Tipp 827: COM-Schnittstellen auf Verfügbarkeit prüfen 
Autor: Madmax1982
 Tipp anzeigenDatum: 22.04.10 14:51

Der zweite Teil des Tipps funktioniert nicht!

Hier die korrigierte Version:
Dim objWMIService As Object
Dim colItems As Object
Dim objItem As Object
Dim MsgText1 As String
Dim MsgText2 As String
Dim MsgText3 As String
 
Set objWMIService = GetObject("winmgmts:\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_SerialPort", , 48)
For Each objItem In colItems
  MsgText1 = "Port: " + vbTab + CStr(objItem.DeviceID)
  If IsNull(objItem.ProviderType) Then
    MsgText2 = "Typ: " + vbTab + ""
  Else
    MsgText2 = "Typ: " + vbTab + CStr(objItem.ProviderType)
  End If
  If IsNull(objItem.MaxBaudRate) Then
    MsgText3 = "Max. BaudRate: " + vbTab + ""
  Else
    MsgText3 = "Max. BaudRate: " + vbTab + CStr(objItem.MaxBaudRate)
  End If
  MsgBox MsgText1 + vbCrLf + MsgText2 + vbCrLf + MsgText3
Next objItem
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Tipp 827: COM-Schnittstellen auf Verfügbarkeit prüfen3.950Madmax198222.04.10 14:51

Sie sind nicht angemeldet!
Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel