下一次請發佈你已有的東西,儘可能少。 下面的腳本我只是做了
on error resume next
dim aKeys, version
Const HKEY_CURRENT_USER = &H80000001, HKEY_LOCAL_MACHINE = &H80000002
set oShell = WScript.CreateObject("WScript.Shell")
set objreg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "Software\MozillaPlugins"
'read subkeys in array aKeys
objreg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, aKeys
for each subkey In aKeys
'read from version key if available
version = oShell.RegRead("HKEY_LOCAL_MACHINE\" & strKeyPath & "\" & subkey & "\version")
if version = "" then
'perhaps version info in keyname itself ?
version = split(split(subkey,"version=")(1),",")(0)
end if
if version = "" then
version = "no version info available"
end if
wscript.echo split(subkey,",")(0) & ": " & version
version = ""
next
給我的系統
@adobe.com/FlashPlayer: 10.0.45.2
@docu-track.com/PDF-XChange Viewer Plugin: 1.0
@java.com/JavaPlugin: 160_23
@Microsoft.com/NpCtrl: 4.1
@microsoft.com/WPF: 3.5
@tracker-software.com/PDF-XChange Viewer Plugin: 1.0
@View22/View22: 3.10.50
Adobe Reader: 10.1.0
謝謝您的回答上,這是我一直在尋找的解決方案。我通常會包含我的嘗試代碼,但在這種情況下,我很窮,因此我決定不這樣做。 – L337BEAN