VBScript根據(jù)盤符找設(shè)備名的代碼
更新時間：2013年07月28日 18:41:55 作者：
這篇文章主要介紹了vbs下通過盤符找設(shè)備名的實現(xiàn)代碼，需要的朋友可以參考下
復(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
相關(guān)文章
有時候我們需要獲取執(zhí)行當(dāng)前vbs的路徑，那么就可以參考下面的代碼，一般用來可以刪除自身等操作2014-05-05
vbs imail 密碼解密代碼。2009-05-05
SQL獲取表結(jié)構(gòu)的show_table.vbs （冰點極限NP）
SQL獲取表結(jié)構(gòu)的show_table.vbs，用vbs實現(xiàn)查看sql數(shù)據(jù)庫的表結(jié)構(gòu)的代碼。需要傳入用戶名密碼與數(shù)據(jù)庫名稱，具體的看程序幫助。2010-11-11
只要運行它后，一旦網(wǎng)線被拔掉的話，馬上就進(jìn)入自動關(guān)機倒計時，“-t 30”是倒計時的時間，你可以自己調(diào)整。2010-03-03
VBS教程：屬性-TotalSize 屬性...2006-11-11
一段可以查詢系統(tǒng)用戶名的sid的vbs代碼2008-12-12
Vbs腳本實現(xiàn)radmin終極后門代碼_刪除自身
在網(wǎng)上看到N多人做radmin后門，要導(dǎo)出注冊表而且還用被殺軟件K殺。所以本人把自己寫的腳本提供大家分享。比較實用，希望大家喜歡。2008-06-06
VBS教程：正則表達(dá)式簡介 -普通字符...2006-11-11
用VBS調(diào)用程序并對程序的運行情況進(jìn)行監(jiān)控的兩個代碼
用VBS調(diào)用程序并對程序的運行情況進(jìn)行監(jiān)控的兩個代碼...2007-03-03
VBS實現(xiàn)將字符串寫入剪切板的實現(xiàn)代碼
VBS實現(xiàn)將字符串寫入剪切板的實現(xiàn)代碼，需要的朋友可以參考下。2012-01-01