//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// // [读取硬盘型号] // //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// 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 //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// //【符号说明】《说明》、〖标记〗、【子程序】、〓分割线〓、①分类说明⑩ //【脚本作者】一只鱼 【QQ群】5619170 //【E-Mail】ChapterRain@yahoo.com.cn 【致谢】欢迎使用鱼鱼制作的脚本!! //【创作日期】2007.04.05 【完成日期】 //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//