|
分類:[C#]
下記にWMIの記述部分とWindows2000 SP4で出たエラーコードを載せさせて頂きますので宜しくお願い致します。下記、ソースコードをコメントアウトするとエラーは出なくなります。
【WMI記述部分ソースコード】
'FTDI社の仮想COMポートの番号を取得する
'デバイスマネージャのポート（COMとLPT）から「USB SERIAL PORT」を検索する
Public Function USB_Com(ByRef StrCom_No As String) As Short
Dim ObjWMIService As Object
Dim StrComputer As String
Dim ColUSBDevices, ObjUSBDevice
Dim St, En, Ret As Short
Ret = NG
StrComputer = "."
ObjWMIService = GetObject("winmgmts:＼＼" & StrComputer & "＼root＼cimv2")
ColUSBDevices = ObjWMIService.ExecQuery _
("Select * From Win32_PnPEntity Where Name like '%USB SERIAL PORT%(COM%)%'")
For Each ObjUSBDevice In ColUSBDevices
Debug.Print(ObjUSBDevice.Name)
St = InStr(1, ObjUSBDevice.Name, "(COM", CompareMethod.Text)
En = InStr(St, ObjUSBDevice.Name, ")", CompareMethod.Text)
StrCom_No = Mid(ObjUSBDevice.Name, St + 1, En - St - 1)
Ret = OK
Exit For
Next
USB_Com = Ret
End Function
【Microsoft.NET Frameworkのエラーメッセージ】
Unhandled exception has occurred in your application.If you click
Continue,the application will ignore this error and attempt to
continue.If you click Quit,the application will close immediatetly.
Exception from HRESULT:0x80041017.
以上
|
