■

uninstallの一覧(vbs)

const HKEY_LOCAL_MACHINE = &H80000002
Set WSHShell = CreateObject("WScript.Shell")
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
s = ""
For Each subkey In arrSubKeys
s = s & subkey & vbcrlf
Next
MsgBox s

defaultpasswordの表示(js)

WshShell = WScript.CreateObject ("WScript.Shell");
WScript.Echo (WshShell.RegRead ("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon\\DefaultPassword"));