MachinePortConnector.vbs

diddom

Option Explicit

Dim QfeSet
Dim Qfe
Dim Locator
Dim Service
Dim Ret

Set Locator = WScript.CreateObject("WbemScripting.SWbemLocator")
Set Service = Locator.ConnectServer
Set QfeSet = Service.ExecQuery("Select * From Win32_PortConnector")


For Each Qfe In QfeSet
    Select Case Qfe.PortType
    Case 0
        Ret = Ret & "Unknown " & vbCrLf
    Case 1
        Ret = Ret & "Other " & vbCrLf
    Case 2
        Ret = Ret & "Male " & vbCrLf
    Case 3
        Ret = Ret & "Female " & vbCrLf
    Case 4
        Ret = Ret & "Shielded " & vbCrLf
    Case 5
        Ret = Ret & "Unshielded " & vbCrLf
    Case 6
        Ret = Ret & "SCSI (A) High-Density (50 pins) " & vbCrLf
    Case 7
        Ret = Ret & "SCSI (A) Low-Density (50 pins) " & vbCrLf
    Case 8
        Ret = Ret & "SCSI (P) High-Density (68 pins) " & vbCrLf
    Case 9
        Ret = Ret & "SCSI SCA-I (80 pins) " & vbCrLf
    Case 10
        Ret = Ret & "SCSI SCA-II (80 pins) " & vbCrLf
    Case 11
        Ret = Ret & "SCSI Fibre Channel (DB-9, Copper) " & vbCrLf
    Case 12
        Ret = Ret & "SCSI Fibre Channel (Fibre) " & vbCrLf
    Case 13
        Ret = Ret & "SCSI Fibre Channel SCA-II (40 pins) " & vbCrLf
    Case 14
        Ret = Ret & "SCSI Fibre Channel SCA-II (20 pins) " & vbCrLf
    Case 15
        Ret = Ret & "SCSI Fibre Channel BNC " & vbCrLf
    Case 16
        Ret = Ret & "ATA 3-1/2 Inch (40 pins) " & vbCrLf
    Case 17
        Ret = Ret & "ATA 2-1/2 Inch (44 pins) " & vbCrLf
    Case 18
        Ret = Ret & "ATA-2 " & vbCrLf
    Case 19
        Ret = Ret & "ATA-3 " & vbCrLf
    Case 20
        Ret = Ret & "ATA/66 " & vbCrLf
    Case 21
        Ret = Ret & "DB-9 " & vbCrLf
    Case 22
        Ret = Ret & "DB-15 " & vbCrLf
    Case 23
        Ret = Ret & "DB-25 " & vbCrLf
    Case 24
        Ret = Ret & "DB-36 " & vbCrLf
    Case 25
        Ret = Ret & "RS-232C " & vbCrLf
    Case 26
        Ret = Ret & "RS-422 " & vbCrLf
    Case 27
        Ret = Ret & "RS-423 " & vbCrLf
    Case 28
        Ret = Ret & "RS-485 " & vbCrLf
    Case 29
        Ret = Ret & "RS-449 " & vbCrLf
    Case 30
        Ret = Ret & "V.35 " & vbCrLf
    Case 31
        Ret = Ret & "X.21 " & vbCrLf
    Case 32
        Ret = Ret & "IEEE-488 " & vbCrLf
    Case 33
        Ret = Ret & "AUI " & vbCrLf
    Case 34
        Ret = Ret & "UTP Category 3 " & vbCrLf
    Case 35
        Ret = Ret & "UTP Category 4 " & vbCrLf
    Case 36
        Ret = Ret & "UTP Category 5 " & vbCrLf
    Case 37
        Ret = Ret & "BNC " & vbCrLf
    Case 38
        Ret = Ret & "RJ11 " & vbCrLf
    Case 39
        Ret = Ret & "RJ45 " & vbCrLf
    Case 40
        Ret = Ret & "Fiber MIC " & vbCrLf
    Case 41
        Ret = Ret & "Apple AUI " & vbCrLf
    Case 42
        Ret = Ret & "Apple GeoPort " & vbCrLf
    Case 43
        Ret = Ret & "PCI " & vbCrLf
    Case 44
        Ret = Ret & "ISA " & vbCrLf
    Case 45
        Ret = Ret & "EISA " & vbCrLf
    Case 46
        Ret = Ret & "VESA " & vbCrLf
    Case 47
        Ret = Ret & "PCMCIA " & vbCrLf
    Case 48
        Ret = Ret & "PCMCIA Type I " & vbCrLf
    Case 49
        Ret = Ret & "PCMCIA Type II " & vbCrLf
    Case 50
        Ret = Ret & "PCMCIA Type III " & vbCrLf
    Case 51
        Ret = Ret & "ZV Port " & vbCrLf
    Case 52
        Ret = Ret & "CardBus " & vbCrLf
    Case 53
        Ret = Ret & "USB " & vbCrLf
    Case 54
        Ret = Ret & "IEEE 1394 " & vbCrLf
    Case 55
        Ret = Ret & "HIPPI " & vbCrLf
    Case 56
        Ret = Ret & "HSSDC (6 pins) " & vbCrLf
    Case 57
        Ret = Ret & "GBIC " & vbCrLf
    Case 58
        Ret = Ret & "DIN " & vbCrLf
    Case 59
        Ret = Ret & "Mini-DIN " & vbCrLf
    Case 60
        Ret = Ret & "Micro-DIN " & vbCrLf
    Case 61
        Ret = Ret & "PS/2 " & vbCrLf
    Case 62
        Ret = Ret & "Infrared " & vbCrLf
    Case 63
        Ret = Ret & "HP-HIL " & vbCrLf
    Case 64
        Ret = Ret & "Access.bus " & vbCrLf
    Case 65
        Ret = Ret & "NuBus " & vbCrLf
    Case 66
        Ret = Ret & "Centronics " & vbCrLf
    Case 67
        Ret = Ret & "Mini-Centronics " & vbCrLf
    Case 68
        Ret = Ret & "Mini-Centronics Type-14 " & vbCrLf
    Case 69
        Ret = Ret & "Mini-Centronics Type-20 " & vbCrLf
    Case 70
        Ret = Ret & "Mini-Centronics Type-26 " & vbCrLf
    Case 71
        Ret = Ret & "Bus Mouse " & vbCrLf
    Case 72
        Ret = Ret & "ADB " & vbCrLf
    Case 73
        Ret = Ret & "AGP " & vbCrLf
    Case 74
        Ret = Ret & "VME Bus " & vbCrLf
    Case 75
        Ret = Ret & "VME64 " & vbCrLf
    Case 76
        Ret = Ret & "Proprietary " & vbCrLf
    Case 77
        Ret = Ret & "Proprietary Processor Card Slot " & vbCrLf
    Case 78
        Ret = Ret & "Proprietary Memory Card Slot " & vbCrLf
    Case 79
        Ret = Ret & "Proprietary I/O Riser Slot " & vbCrLf
    Case 80
        Ret = Ret & "PCI-66MHZ " & vbCrLf
    Case 81
        Ret = Ret & "AGP2X " & vbCrLf
    Case 82
        Ret = Ret & "AGP4X " & vbCrLf
    Case 83
        Ret = Ret & "PC-98 " & vbCrLf
    Case 84
        Ret = Ret & "PC-98-Hireso " & vbCrLf
    Case 85
        Ret = Ret & "PC-H98 " & vbCrLf
    Case 86
        Ret = Ret & "PC-98Note " & vbCrLf
    Case 87
        Ret = Ret & "PC-98Full " & vbCrLf
    Case 88
        Ret = Ret & "SSA SCSI " & vbCrLf
    Case 89
        Ret = Ret & "Circular " & vbCrLf
    Case 90
        Ret = Ret & "On Board IDE Connector " & vbCrLf
    Case 91
        Ret = Ret & "On Board Floppy Connector " & vbCrLf
    Case 92
        Ret = Ret & "9 Pin Dual Inline " & vbCrLf
    Case 93
        Ret = Ret & "25 Pin Dual Inline " & vbCrLf
    Case 94
        Ret = Ret & "50 Pin Dual Inline " & vbCrLf
    Case 95
        Ret = Ret & "68 Pin Dual Inline " & vbCrLf
    Case 96
        Ret = Ret & "On Board Sound Connector " & vbCrLf
    Case 97
        Ret = Ret & "Mini-jack " & vbCrLf
    Case 98
        Ret = Ret & "PCI-X " & vbCrLf
    Case 99
        Ret = Ret & "Sbus IEEE 1396-1993 32 bit " & vbCrLf
    Case 100
        Ret = Ret & "Sbus IEEE 1396-1993 64 bit " & vbCrLf
    Case 101
        Ret = Ret & "MCA " & vbCrLf
    Case 102
        Ret = Ret & "GIO " & vbCrLf
    Case 103
        Ret = Ret & "XIO " & vbCrLf
    Case 104
        Ret = Ret & "HIO " & vbCrLf
    Case 105
        Ret = Ret & "NGIO " & vbCrLf
    Case 106
        Ret = Ret & "PMC " & vbCrLf
    Case 107
        Ret = Ret & "MTRJ " & vbCrLf
    Case 108
        Ret = Ret & "VF-45 " & vbCrLf
    Case 109
        Ret = Ret & "Future I/O " & vbCrLf
    Case 110
        Ret = Ret & "SC " & vbCrLf
    Case 111
        Ret = Ret & "SG " & vbCrLf
    Case 112
        Ret = Ret & "Electrical " & vbCrLf
    Case 113
        Ret = Ret & "Optical " & vbCrLf
    Case 114
        Ret = Ret & "Ribbon " & vbCrLf
    Case 115
        Ret = Ret & "GLM " & vbCrLf
    Case 116
        Ret = Ret & "1x9 " & vbCrLf
    Case 117
        Ret = Ret & "Mini SG " & vbCrLf
    Case 118
        Ret = Ret & "LC " & vbCrLf
    Case 119
        Ret = Ret & "HSSC " & vbCrLf
    Case 120
        Ret = Ret & "VHDCI Shielded (68 pins) " & vbCrLf
    Case 121
        Ret = Ret & "InfiniBand " & vbCrLf
    End Select
Next

Wscript.Echo Ret

Set QfeSet = Nothing
Set Qfe = Nothing
Set Service = Nothing
Set Locator = Nothing