WSH(・∀・)ｽﾚｯﾄﾞ! ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
248:デフォルトの名無しさん 05/06/10 14:03:22 Private Sub Command1_Click() Dim UsbSet As SWbemObjectSet Dim Usb As SWbemObject Dim Locator As SWbemLocator Dim Service As SWbemServices Dim MesStr As String Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer Set UsbSet = Service.ExecQuery("Select * From Win32_USBController") For Each Usb In UsbSet MesStr = MesStr & Usb.Name & vbCrLf Next MsgBox "USBコントローラの一覧です。" & vbCrLf & _ vbCrLf & MesStr & vbCrLf & "ですよ。" Set UsbSet = Nothing Set Usb = Nothing Set Service = Nothing Set Locator = Nothing End Sub 249:デフォルトの名無しさん 05/06/10 14:10:00 ttp://www.microsoft.com/japan/whdc/system/pnppwr/default.mspx 250:デフォルトの名無しさん 05/06/10 14:44:59 >>244 UWSC使ってみ ttp://www.h7.dion.ne.jp/~umiumi/

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4336日前に更新/212 KB
担当:undef