56 lines
1.4 KiB
HTML
56 lines
1.4 KiB
HTML
<html><head><title>Default MFC Web Server Extension</title>
|
|
</head><body><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
|
|
<body BGCOLOR=#bfbfbf TOPMARGIN=0 LEFTMARGIN=0>
|
|
|
|
<p>
|
|
<OBJECT
|
|
id="ClassNavigator"
|
|
type="application/x-oleobject"
|
|
classid="clsid:C587B673-0103-11D0-8CA2-00AA006D010A"
|
|
codebase="WBEMTool.cab#Version=-1,-1,-1,-1"
|
|
width=100%
|
|
height=100%>
|
|
</OBJECT>
|
|
|
|
</p>
|
|
</blockquote>
|
|
<SCRIPT LANGUAGE="VBS">
|
|
<!--
|
|
|
|
Sub ClassNavigator_QueryCanChangeSelection(bstrPath,pvarScode)
|
|
On Error Resume Next
|
|
pvarScode = top.frames("viewer_frame").Viewer.SaveState(True,True)
|
|
End Sub
|
|
|
|
Sub ClassNavigator_EditExistingClass(selObj)
|
|
top.frames("viewer_frame").Viewer.ObjectPath = selObj
|
|
End Sub
|
|
|
|
Sub ClassNavigator_NotifyOpenNameSpace(theNameSpace)
|
|
top.frames("viewer_frame").Viewer.NameSpace = theNameSpace
|
|
End Sub
|
|
|
|
Sub ClassNavigator_GetIWbemServices(lpctstrNamespace, bUpdatePointer, lpsc, lppServices, lpbUserCancel)
|
|
top.StudioBannerFrame.Security.GetIWbemServices lpctstrNamespace, bUpdatePointer, lpsc, lppServices, lpbUserCancel
|
|
End Sub
|
|
|
|
|
|
Sub ClassNavigator_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>
|