コピペ間違ったｗ正しいのはこれ 上のは動かないよ 'www.microsoft.com/japan/technet/scriptcenter/resources/wmifaq.mspx strHost = "." Const HKLM = &H80000002 Set objReg = GetObject("winmgmts://" & strHost & _ "/root/default:StdRegProv") Const strBaseKey = _ "Software\Microsoft\Windows\CurrentVersion\Uninstall\" objReg.EnumKey HKLM, strBaseKey, arrSubKeys strLine=Array() For Each strSubKey In arrSubKeys intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _ "DisplayName", strValue) If intRet <> 0 Then intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _ "QuietDisplayName", strValue) End If If (strValue <> "") and (intRet = 0) Then Push strLine,strValue End If Next Wscript.Echo Join(strLine,vbLf) Sub Push(Items,Item) ReDim Preserve Items(UBound(Items)+1) Items(UBound(Items))=Item End Sub
