39 lines
1013 B
HTML
39 lines
1013 B
HTML
<html><head><title>Default MFC Web Server Extension</title>
|
|
<SCRIPT LANGUAGE="VBS">
|
|
<!--
|
|
Dim g_intTimer
|
|
-->
|
|
</SCRIPT>
|
|
</head><body BGCOLOR=#bfbfbf><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
|
|
|
|
<body>
|
|
|
|
<body Language="VBScript">
|
|
|
|
<OBJECT
|
|
id="Viewer"
|
|
type="application/x-oleobject"
|
|
classid="clsid:5b3572ab-d344-11CF-99cb-00c04fd64497"
|
|
codebase="WBEMTool.cab#Version=-1,-1,-1,-1"
|
|
width=100%
|
|
height=100%
|
|
>
|
|
<PARAM NAME="StudioModeEnabled" VALUE="true">
|
|
</OBJECT>
|
|
|
|
<SCRIPT LANGUAGE="VBS">
|
|
<!--
|
|
Sub Viewer_GetIWbemServices(lpctstrNamespace, bUpdatePointer, lpsc, lppServices, lpbUserCancel)
|
|
top.StudioBannerFrame.Security.GetIWbemServices lpctstrNamespace, bUpdatePointer, lpsc, lppServices, lpbUserCancel
|
|
End Sub
|
|
Sub Viewer_NOTIFYChangeRootOrNamespace(lpctstrRootOrNamespace, bChangeNamespace, bEchoSelectObject)
|
|
If bChangeNamespace = 1 Then
|
|
top.frames("ClassnavFrame").ClassNavigator.NameSpace = lpctstrRootOrNamespace
|
|
End If
|
|
End Sub
|
|
|
|
-->
|
|
</SCRIPT>
|
|
</body>
|
|
</html>
|