读取硬盘型号

运行环境：分辨率：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