[VBSCRIPT] LPT poort settings uitlezen

[|sWORDs|]

Ik ben een installatie aan het maken voor een vfd driver, ik ben zover dat ik kan zien welke lpt en com poorten er aanwezig zijn en of er usb aanwezig is:

On Error Resume Next
USB = 0
COM1 = 0
COM2 = 0
COM3 = 0
COM4 = 0
COM5 = 0
COM6 = 0
COM7 = 0
COM8 = 0
LPT1 = 0
LPT2 = 0
LPT3 = 0

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PortConnector",,48)
For Each objItem in colItems
if Left(objItem.ExternalReferenceDesignator, 3) = "USB" then USB = 1
if objItem.InternalReferenceDesignator = "LPT1" then LPT1 = 1
if objItem.InternalReferenceDesignator = "LPT2" then LPT2 = 1
if objItem.InternalReferenceDesignator = "LPT3" then LPT3 = 1
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_SerialPortConfiguration",,48)
For Each objItem in colItems
if objItem.Caption = "COM1" then COM1 = objItem.BaudRate
if objItem.Caption = "COM2" then COM2 = objItem.BaudRate
if objItem.Caption = "COM3" then COM3 = objItem.BaudRate
if objItem.Caption = "COM4" then COM4 = objItem.BaudRate
if objItem.Caption = "COM5" then COM5 = objItem.BaudRate
if objItem.Caption = "COM6" then COM6 = objItem.BaudRate
if objItem.Caption = "COM7" then COM7 = objItem.BaudRate
if objItem.Caption = "COM8" then COM8 = objItem.BaudRate
Next

Wscript.Echo "USB = " & USB
Wscript.Echo "COM1 = " & COM1
Wscript.Echo "COM2 = " & COM2
Wscript.Echo "COM3 = " & COM3
Wscript.Echo "COM4 = " & COM4
Wscript.Echo "COM5 = " & COM5
Wscript.Echo "COM6 = " & COM6
Wscript.Echo "COM7 = " & COM7
Wscript.Echo "COM8 = " & COM8
Wscript.Echo "LPT1 = " & LPT1
Wscript.Echo "LPT2 = " & LPT2
Wscript.Echo "LPT3 = " & LPT3

Die echo's zijn voor test, straks worden deze als properties in mijn installer gezet.

Ook is het mogelijk met wmi port resources uit te lezen, echter zie ik dan alle resources maar niet waar ze aan gekoppeld zijn. Hoe kan ik het portaddress van een LPT poort uitlezen? Google en got search geven een heleboel over programatische aansturing van LPT poorten, maar niets over het uitlezen van de settings.

[ Voor 10% gewijzigd door |sWORDs| op 01-01-2005 18:13 ]

[|sWORDs|]

Ik ben er uit, voor degene die dit in de toekomst via een search tegen komen (nog niet opgeschoond):

code:

strpar = "Parallel Port" & vbTab & "ECP" & vbTab & "I/O 1" & vbTab & "I/O 2" & vbCrLf

Set wmiObj = GetObject("WinMgmts:")

For Each wmiPort in wmiObj.InstancesOf("Win32_parallelPort")
        if mid(wmiPort.PNPDeviceID,9,4) = "0401" then
        strpar = strpar & wmiPort.DeviceID & vbTab & vbTab & "True" & vbTab 
    else
        strpar = strpar & wmiPort.DeviceID & vbTab & vbTab & "False" & vbTab
    end if
    strWQL = "Associators Of {Win32_parallelPort=""" _
        & wmiPort.DeviceID _
        & """} where AssocClass = Win32_AllocatedResource"
    Set wmiAssociatorSet = wmiObj.ExecQuery(strWQL)

    For Each wmiAssociator in wmiAssociatorSet
        if left(wmiAssociator.Name,2) = "0x" then 
            strpar = strpar & left(wmiAssociator.Name,2) & mid(wmiAssociator.Name,8,3) & vbTab
        else
            strpar = strpar & wmiAssociator.Name & vbTab
        end if
    Next
    strpar = strpar & vbCrLf
Next
strpar = strpar & vbCrLf

strser = "Serial Port" & vbTab & "IRQ" & vbTab & "I/O Port" & vbCrLf


For Each wmiPort in wmiObj.InstancesOf("Win32_SerialPort")
    strser = strser & wmiPort.DeviceID & vbTab & vbTab

    strWQL = "Associators Of {Win32_SerialPort=""" _
        & wmiPort.DeviceID _
        & """} where AssocClass = Win32_AllocatedResource"
    Set wmiAssociatorSet = wmiObj.ExecQuery(strWQL)

    For Each wmiAssociator in wmiAssociatorSet
        if left(wmiAssociator.Name,2) = "0x" then 
            strser = strser & left(wmiAssociator.Name,2) & mid(wmiAssociator.Name,8,3) & vbTab
        else
            strser = strser & wmiAssociator.Name & vbTab
        end if
    Next
    strser = strser & vbCrLf
Next
strser = strser & vbCrLf

strusb = "USB ports" & vbTab & "Available" & vbCrLf
USB = 0

Set colItems = wmiObj.ExecQuery("Select * from Win32_PortConnector",,48)
For Each objItem in colItems 
    if Left(objItem.ExternalReferenceDesignator, 3) = "USB" then USB = 1
Next

if USB = 1 then
    strusb = strusb & "USB" & vbTab & vbTab & "True" & vbCrLf
else
    strusb = strusb & "USB" & vbTab & vbTab & "False" & vbCrLf
end if

wscript.echo strpar & strser & strusb 'geeft als output:


'Parallel Port   ECP     I/O 1   I/O 2
'LPT1            False   0x378   0x778
'
'Serial Port     IRQ     I/O Port
'COM1            IRQ4    0x3F8
'COM2            IRQ3    0x2F8
'
'USB ports       Available
'USB             True