Dim oInfo
Set oVer = WScript.GetObject("res://"& InputBox("Full file path?",wscript.ScriptName,"shell32.dll") &"/16/1")
WScript.Sleep 200
oInfo = Split(oVer.body.innerHTML,Chr(01))
For i = 1 To UBound(oInfo)
WScript.Echo oInfo(i)
Next

只是一个粗略的理论原型。要实用的话可以简单的进一步加工