Set fso=createobject("scripting.filesystemobject")
Set ws = CreateObject("WScript.Shell")

Set d=fso.getdrive(fso.GetDriveName(Left(ws.specialfolders("MyDocuments"),2)))
s= "文档盘符卷序列号： " & Hex(d.SerialNumber)
Set d=fso.getdrive(fso.GetDriveName(Left(fso.GetSpecialFolder(0),2)))
msgbox s & vbnewline & "系统盘符卷序列号： " & Hex(d.SerialNumber)