当前位置:DOS资源站资料中心VBS脚本 → vbs代码获取exe/dll版本等信息

vbs代码获取exe/dll版本等信息

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2008-4-5 0:03:58

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