sInstApps = InstalledApplications(strcomputer)
Function InstalledApplications(node)
Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
Set objSWbemLocator2 = CreateObject
("WbemScripting.SWbemLocator")
Set oSvc = objSWbemLocator2.ConnectServer
(strcomputer,"root\default",domain,password)
Set oRegistry = oSvc.Get("StdRegProv") <--ERROR
sBaseKey
= "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
iRC = oRegistry.EnumKey(HKLM, sBaseKey, arSubKeys)
count = 1
For Each sKey In arSubKeys
iRC = oRegistry.GetStringValue( _
HKLM, sBaseKey & sKey, "DisplayName", sValue)
If iRC <> 0 Then
oRegistry.GetStringValue _
HKLM, sBaseKey & sKey, "QuietDisplayName", sValue
End If
If sValue <> "" Then
InstalledApplications = _
InstalledApplications & sValue & vbCrLf
End If
If sValue <> "" Then
response.write sValue
count = count + 1
end if
Next
End Function
--
-Philip
This posting is provided "As Is" with no warranties, and confers no rights.
"Blake" <blak...@yahoo.com> wrote in message
news:033101c2cbe8$66be3d70$d7f82ecf@TK2MSFTNGXA14...
Thanks
Blake
>.
>
Thanks.
>.
>
Alternatively you can click OpenClass, type StdRegProv and hit OK. It
should open a window displaying the class. If you get 'not found', then the
class is missing.
Compiling regevent.mof should create this class.
--
-Philip
This posting is provided "As Is" with no warranties, and confers no rights.
"blake" <blak...@yahoo.com> wrote in message
news:009a01c2cc1c$ed2d8850$8af82ecf@TK2MSFTNGXA03...
SWbemObject error '8004100c'
Not supported
What does this mean.
Thanks again..
>.
>
Can you tell what version of WMI is installed (maybe start
%windir%\system32\hwbem\wbemcntl.exe to see)?
Also, on what line are you getting this error?
--
-Philip
This posting is provided "As Is" with no warranties, and confers no rights.
"Blake" <blak...@yahoo.com> wrote in message
news:080901c2cc88$02fabac0$8df82ecf@TK2MSFTNGXA02...