梦想吧技术论坛's Archiver

似水年华 发表于 2007-4-22 07:21 PM

VBS-返回指定硬盘型号

Dim HDid,moc
set moc =GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
for each mo in moc
HDid = mo.Model
msgbox "硬盘型号为:" & HDid
next

页: [1]

Powered by Discuz! Archiver 7.0.0  © 2001-2009 Comsenz Inc.