主頁 > 知識(shí)庫 > VBScript根據(jù)盤符找設(shè)備名的代碼

VBScript根據(jù)盤符找設(shè)備名的代碼
熱門標(biāo)簽：海外美發(fā)店地圖標(biāo)注 外呼營(yíng)銷下單系統(tǒng) 陜西高頻外呼回?fù)芟到y(tǒng)哪家好 加盟電銷機(jī)器人好的品牌 打電話的外呼系統(tǒng)貴不貴 辦理膠州400電話財(cái)稅 前鋒辦理400電話申請(qǐng) 新密防封卡外呼系統(tǒng)違法嗎 百度地圖標(biāo)注怎么卸載
復(fù)制代碼 代碼如下:

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" strComputer "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
    "associators of {win32_logicaldisk.deviceid='G:'} WHERE ResultClass=Win32_DiskPartition")
For Each objItem in colItems
 TargetIndex = objItem.DiskIndex
 Set Items = objWMIService.ExecQuery( _
  "SELECT * FROM Win32_DiskDrive Where DeviceID Like '%" objItem.DiskIndex "'",,48)
 For Each Item in Items
  Wscript.Echo "Model: " Item.Model
 Next

Next

標(biāo)簽：武威 牡丹江 伊春 河南 四平 咸陽 阜陽 梅州

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《VBScript根據(jù)盤符找設(shè)備名的代碼》，本文關(guān)鍵詞  VBScript,根據(jù),盤符,找,設(shè)備,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《VBScript根據(jù)盤符找設(shè)備名的代碼》相關(guān)的同類信息！
  • 本頁收集關(guān)于VBScript根據(jù)盤符找設(shè)備名的代碼的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章