PureBoard

Verfasst: **15.11.2009 23:14**

hier die WMI-Variante:

; dieses Beispiel benötigt COMatePLUS von srod:
; http://www.purecoder.net/comate.htm

IncludePath #PB_Compiler_Home + "srod\COMatePLUS\" ; Pfad anpassen!
XIncludeFile "COMatePLUS.pbi" 

Define objWMIService.COMateObject
Define colItems.COMateEnumObject 
Define objItem.COMateObject
Define strComputer.s

strComputer = "." 

objWMIService = COMate_GetObject("winmgmts:\\" + strComputer + "\root\cimv2", "") 
If objWMIService 
  colItems = objWMIService\CreateEnumeration("ExecQuery('Select * FROM Win32_SerialPort')") 
  If colItems
    objItem = colItems\GetNextObject() 
    While objItem
      
      Debug objItem\GetStringProperty("DeviceID")
      
      objItem\Release() 
      objItem = colItems\GetNextObject() 
    Wend 
    colItems\Release() 
  EndIf 
  objWMIService\Release()  
EndIf

Grüße ... Kiffi

Verfasst: **16.11.2009 21:10**

@Crawler

Diese Methode habe ich schon probiert aber genau diese wollte ich eigentlich vermeiden.
Sie liefert mir nur die "freien" Ports.

@Kiffi

Danke, werde ich probieren.
Muß mir noch comateplus besorgen.
Geht doch mit der Demo oder ?

@Hexor

Ja die Reg abzufragen war auch einer meiner ersten Ideen und gefällt mir am besten aber geht leider in der Demo nicht.

@All

Erstmal danke für die Anregungen

Ich überlege mir eh ob ich mir Purebasic zulege.

Verfasst: **16.11.2009 21:25**

Hein hat geschrieben:Muß mir noch comateplus besorgen.
Geht doch mit der Demo oder ?

nee, mit der Demo funktioniert das nicht.

Hein hat geschrieben:Ich überlege mir eh ob ich mir Purebasic zulege.

mach das! Bis dahin bitte in Deine Signatur eintragen,
dass Du nur die Demo hast.

Grüße ... Kiffi

PureBoard

Vorhandene COM-Schnittstellen ermitteln

Re: Vorhandene COM-Schnittstellen ermitteln

Re: Vorhandene COM-Schnittstellen ermitteln

Re: Vorhandene COM-Schnittstellen ermitteln