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