Detect Printer Port

[iceberg]

Hi,

Is there any way to check in the registry if a PC has a USB001 Printer Port?

Thanks.

[DaveF]

Is there any way to check in the registry if a PC has a USB001 Printer Port?

Step over the subkeys of HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Printers in the registry and check the Port value under each:

Dim $subKeys, $subKeyName, $portName
While 1
    $subKeys = $subKeys + 1
    $subKeyName = RegEnumKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Printers", $subKeys)
    If @error = -1 Then ExitLoop
    $portName = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Printers\" & $subKeyName, "Port")
    MsgBox(0, "Debug", $portName)
WEnd

[iceberg]

thanks DaveF. is there any way to do something like this:

if PC has USB001 port then

do something

else

endif

thanks.

Edited May 18, 2005 by iceberg

[DaveF]

Dim $subKeys, $subKeyName, $portName
While 1
    $subKeys = $subKeys + 1
    $subKeyName = RegEnumKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Printers", $subKeys)
    If @error = -1 Then ExitLoop
    $portName = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Printers\" & $subKeyName, "Port")
    If StringInStr($portName, "USB001") Then
        SmiteAll()
    Else
        Whimper()
    EndIf
WEnd

[SvenP]

Hi,

Is there any way to check in the registry if a PC has a USB001 Printer Port?

Thanks.

<{POST_SNAPBACK}>

if FileExists("USB001:") then
    Msgbox(0,"Found!","USB port found.")
else
    Msgbox(0,"Not Found","USB port NOT found.")
endif

At least this code works with LPT/COM-ports, you could try if it would also works for USB-ports.

Regards,

-Sven

[iceberg]

DaveF your codes work fine.

SvenP the codes do not recognise USB printer ports.

thanks alot guys!