2024年1月5日发(作者：)

"，错误原因：" & CStr(ption) & _

"，错误来源：" & CStr() & " By GetIDEProtocol Function"

On Error Goto 0

Exit Function

End If

Tmp =

If Err Then

GetIDEProtocol = "错误编号：" & CStr() & _

"，错误原因：" & CStr(ption) & _

"，错误来源：" & CStr() & " By GetIDEProtocol Function"

On Error Goto 0

Exit Function

End If

For Each IDEItem In objIDEProtocol

'Msgbox ID & vbCrLf & olSupported

Num = Num + 1

Redim Preserve arrIDE(Num*2)

arrIDE(Num*2-1) = ID

Select Case olSupported

Case 1 :arrIDE(Num*2) = "Other"

Case 2 :arrIDE(Num*2) = "Unknown"

Case 3 :arrIDE(Num*2) = "EISA"

Case 4 :arrIDE(Num*2) = "ISA"

Case 5 :arrIDE(Num*2) = "PCI"

Case 6 :arrIDE(Num*2) = "ATA/ATAPI"

Case 7 :arrIDE(Num*2) = "Flexible Diskette"

Case 8 :arrIDE(Num*2) = "1496"

Case 9 :arrIDE(Num*2) = "SCSI Parallel Interface"

Case 10 :arrIDE(Num*2) = "SCSI Fibre Channel Protocol"

Case 11 :arrIDE(Num*2) = "SCSI Serial Bus Protocol"

Case 12 :arrIDE(Num*2) = "SCSI Serial Bus Protocol-2 (1394)"

Case 13 :arrIDE(Num*2) = "SCSI Serial Storage Architecture"

Case 14 :arrIDE(Num*2) = "VESA"

Case 15 :arrIDE(Num*2) = "PCMCIA"

Case 16 :arrIDE(Num*2) = "Universal Serial Bus"

Case 17 :arrIDE(Num*2) = "Parallel Protocol"

Case 18 :arrIDE(Num*2) = "ESCON"

Case 19 :arrIDE(Num*2) = "Diagnostic"

Case 20 :arrIDE(Num*2) = "I2C"

Case 21 :arrIDE(Num*2) = "Power"

Case 22 :arrIDE(Num*2) = "HIPPI"

Case 23 :arrIDE(Num*2) = "MultiBus"

Case 24 :arrIDE(Num*2) = "VME"

Case 25 :arrIDE(Num*2) = "IPI"

Case 26 :arrIDE(Num*2) = "IEEE-488"

Case 27 :arrIDE(Num*2) = "RS232"

Case 28 :arrIDE(Num*2) = "IEEE 802.3 10BASE5"

Case 29 :arrIDE(Num*2) = "IEEE 802.3 10BASE2"

Case 30 :arrIDE(Num*2) = "IEEE 802.3 1BASE5"

Case 31 :arrIDE(Num*2) = "IEEE 802.3 10BROAD36"

Case 32 :arrIDE(Num*2) = "IEEE 802.3 100BASEVG"

Case 33 :arrIDE(Num*2) = "IEEE 802.5 Token-Ring"

Case 34 :arrIDE(Num*2) = "ANSI X3T9.5 FDDI"

Case 35 :arrIDE(Num*2) = "MCA"

Case 36 :arrIDE(Num*2) = "ESDI"

Case 37 :arrIDE(Num*2) = "IDE"

Case 38 :arrIDE(Num*2) = "CMD"

Case 39 :arrIDE(Num*2) = "ST506"

Case 40 :arrIDE(Num*2) = "DSSI"

Case 41 :arrIDE(Num*2) = "QIC2"

Case 42 :arrIDE(Num*2) = "Enhanced ATA/IDE"

Case 43 :arrIDE(Num*2) = "AGP"

Case 44 :arrIDE(Num*2) = "TWIRP (two-way infrared)"

Case 45 :arrIDE(Num*2) = "FIR (fast infrared)"

Case 46 :arrIDE(Num*2) = "SIR (serial infrared)"

Case 47 :arrIDE(Num*2) = "IrBus"

End Select

Next

If Err Then

GetIDEProtocol = "错误编号：" & CStr() & _

"，错误原因：" & CStr(ption) & _

"，错误来源：" & CStr() & " By GetIDEProtocol Function"

On Error Goto 0