读取硬盘型号

运行环境：分辨率：1440×900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// 
//　　　　　　　　　　　　　　[读取硬盘型号]　　　　　　　　　　　　　　　// 
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// 
VBS Dim HDid,moc,mo,stt 
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★设★置★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// 
VBS Set moc =GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive") 
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// 
VBS stt=stt & vbcrlf & "For Each mo in moc" 
VBS stt=stt & vbcrlf & "HDid = mo.Model" 
VBS stt=stt & vbcrlf & "Next" 
VBS Execute(stt) 
VBSCall call messagebox("硬盘型号为:" & HDid) 
EndScript