59 lines
1.5 KiB
HTML
59 lines
1.5 KiB
HTML
<html><head><title>Default MFC Web Server Extension</title>
|
|
</head>
|
|
|
|
<body BGCOLOR=#bfbfbf><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
|
|
<body TOPMARGIN=0 LEFTMARGIN=0>
|
|
|
|
<p>
|
|
<OBJECT
|
|
id="InstNavigator"
|
|
type="application/x-oleobject"
|
|
classid="clsid:C7EADEB3-ECAB-11CF-8C9E-00AA006D010A"
|
|
codebase="WBEMTool.cab#Version=-1,-1,-1,-1"
|
|
width=100%
|
|
height=100%>
|
|
</OBJECT>
|
|
|
|
</p>
|
|
</blockquote>
|
|
<SCRIPT LANGUAGE="VBS">
|
|
<!--
|
|
Sub InstNavigator_ViewObject(selObj)
|
|
top.frames("viewer_frame").Viewer.ObjectPath = selObj
|
|
End Sub
|
|
|
|
Sub InstNavigator_ViewInstances(sTitle, selInstances)
|
|
top.frames("viewer_frame").Viewer.ShowInstances sTitle, selInstances
|
|
End Sub
|
|
|
|
Sub InstNavigator_QueryViewInstances(sTitle, sQueryType, sQuery, sClass)
|
|
top.frames("viewer_frame").Viewer.QueryViewInstances sTitle, sQueryType, sQuery, sClass
|
|
End Sub
|
|
|
|
Sub InstNavigator_NotifyOpenNameSpace(theNameSpace)
|
|
top.frames("viewer_frame").Viewer.NameSpace = theNameSpace
|
|
End Sub
|
|
|
|
Sub InstNavigator_GetIWbemServices(lpctstrNamespace, bUpdatePointer, lpsc, lppServices, lpbUserCancel)
|
|
top.banner_frame.Security.GetIWbemServices lpctstrNamespace, bUpdatePointer, lpsc, lppServices, lpbUserCancel
|
|
End Sub
|
|
|
|
Sub InstNavigator_QueryCanChangeSelection(theFullPath, pvarSCode)
|
|
Dim theRetVal
|
|
theRetVal = top.frames("viewer_frame").Viewer.SaveState(True,True)
|
|
if theRetVal = 0 then
|
|
pvarSCode = 0
|
|
else
|
|
if theRetVal = 1 then
|
|
pvarSCode = 0
|
|
else
|
|
pvarSCode = -2147467259
|
|
end if
|
|
end if
|
|
End Sub
|
|
|
|
-->
|
|
</SCRIPT>
|
|
</body>
|
|
</html>
|