MachinePortConnector.vbs
Option ExplicitDim 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
页:
[1]