VBScript根據(jù)盤符找設(shè)備名的代碼
更新時間：2013年07月28日 18:41:55 作者：
這篇文章主要介紹了vbs下通過盤符找設(shè)備名的實現(xiàn)代碼，需要的朋友可以參考下
復制代碼 代碼如下:
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)文章
VBS教程：函數(shù)-IsNumeric 函數(shù)
VBS教程：函數(shù)-IsNumeric 函數(shù)...2006-11-11
VBScript教程 第八課 使用循環(huán)語句...2006-11-11
使用腳本調(diào)用系統(tǒng)的關(guān)機對話框?qū)崿F(xiàn)代碼
以前有介紹如何使用命令行調(diào)用系統(tǒng)的關(guān)機對話框rundll32.exe shell32.dll #60,但是，上述方法會存在一問題，XP下無法正常使用該方法進行關(guān)機2012-05-05
VBS教程：方法-GetFile 方法...2006-11-11
VBS獲取MD5值最簡單的方法是直接調(diào)用CAPICOM組件，但是由于CAPICOM組件系統(tǒng)并不是默認安裝，所以使用起來不方便2013-11-11
用vbs實現(xiàn)壓縮文件夾的代碼，可以壓縮文件夾，減少文件占用體積2008-06-06
在密碼學中，愷撒密碼（或稱愷撒加密、愷撒變換）是一種最簡單且最廣為人知的加密技術(shù)。它是一種替換加密的技術(shù)，明文中的所有字母都在字母表上向後（或向前）按照一個固定數(shù)目進行偏移後被替換成密文2013-05-05
bs腳本的功能呢是很多的，不過有時候我們只需要其中的某些功能，今天我突然想研究下怎么用vbs腳本實現(xiàn)添加程序到自啟動項2013-01-01
查看或修改Windows系列系統(tǒng)的序列號的vbs
查看或修改Windows系列系統(tǒng)的序列號（包括：2000,xp,2003），支持命令行2008-06-06
VBS教程：函數(shù)-TimeSerial 函數(shù)
VBS教程：函數(shù)-TimeSerial 函數(shù)...2006-11-11