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

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
245:デフォルトの名無しさん 05/06/10 12:35:24 msgbox "USBハブのコード抜け" msgbox "抜いたらもう一回挿せ" 246:デフォルトの名無しさん 05/06/10 12:50:41 >>245 【ご主人様】メイドさんスクリプト【ご命令を】 http://pc8.2ch.net/test/read.cgi/tech/1115218878/ 247:デフォルトの名無しさん 05/06/10 14:01:26 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_USBHub") For Each Usb In UsbSet MesStr = MesStr + "USBハブの名前：" + Usb.Description + vbCrLf + _ "USBハブのデバイスID：" + Usb.DeviceID + vbCrLf Next MsgBox "USBハブの情報です。" + vbCrLf + _ vbCrLf + MesStr + vbCrLf + "ですよ。" Set UsbSet = Nothing Set Usb = Nothing Set Locator = Nothing Set Service = Nothing End Sub

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

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