【魚頭】讀取硬盤型號

資料來源：兄弟論壇
作者：一隻魚

//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★說★明★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
//　　　　　　　　　　　　　　[讀取硬盤型號]　　　　　　　　　　　　　　　//
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★定★義★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
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  messagebox("硬盤型號為:" & HDid)
EndScript
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★備★注★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
//【符號說明】《說明》、【標記】、【子程序】、＝分割線＝、?分類說明?
//【腳本作者】一隻魚　　　　　　　　　【QQ群】5619170
//【E-Mail】ChapterRain@yahoo.com.cn　【致謝】歡迎使用魚魚製作的腳本!!
//【創作日期】2007.04.05　　　　　　　【完成日期】
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★結★束★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//