2025-04-27 07:49:33 -04:00

150 lines
3.6 KiB
HTML

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 2.0">
<title>Untitled Normal Page</title>
</head>
<body Language="VBScript" background="StudioTitle.gif"
bgcolor="#efefef" topmargin="0" leftmargin="0" onclick="clickit()">
<p>
<table border="0" width="100%">
<tr>
<td width="100%">
</td>
<td width="0">
<p>
<OBJECT
id="Security"
type="application/x-oleobject"
classid="clsid:9C3497D6-ED98-11D0-9647-00C04FD9B15B"
codebase="WBEMTool.cab#Version=-1,-1,-1,-1"
hspace=0
>
<PARAM NAME="LoginComponent" VALUE="CIM Studio">
</OBJECT>
</p>
</td>
<td width="32">
<p>
<OBJECT
id="CPPWiz"
type="application/x-oleobject"
classid="clsid:35E9CBD3-3911-11D0-8FBD-00AA006D010A"
codebase="WBEMTool.cab#Version=-1,-1,-1,-1"
hspace=8
>
</OBJECT>
</p>
</td>
<td width="32">
<p>
<OBJECT
id="MOFWiz"
type="application/x-oleobject"
classid="clsid:F3B3A403-3419-11D0-95F8-00C04FD9B15B"
codebase="WBEMTool.cab#Version=-1,-1,-1,-1"
hspace=8
>
</OBJECT>
</p>
</td>
<td width="32">
<p>
<OBJECT
id="MOFComp"
type="application/x-oleobject"
classid="clsid:B2345983-5CF9-11D0-95FD-00C04FD9B15B"
codebase="WBEMTool.cab#Version=-1,-1,-1,-1"
hspace=8
>
</OBJECT>
</p>
</td>
<td width="32">
<p>
<OBJECT
id="SuiteHelp"
type="application/x-oleobject"
classid="clsid:CFB6FE45-0D2C-11D1-964B-00C04FD9B15B"
codebase="WBEMTool.cab#Version=-1,-1,-1,-1"
hspace=8
>
<PARAM NAME="HelpContext" VALUE="Studio">
</OBJECT>
</p>
</td>
</tr>
<SCRIPT LANGUAGE="VBS">
<!--
function clickit()
On Error Resume Next
set oMaybe = window.event.srcElement
If IsObject(oMaybe) Then
window.event.srcElement.focus()
End IF
end function
Sub MOFWiz_GenerateMOFs()
sc = top.frames("viewer_frame").Viewer.SaveState(true, true)
If sc >= 0 Then
varPaths = top.ClassnavFrame.ClassNavigator.GetExtendedSelection ()
MOFWiz.MOFTargets = varPaths
End If
End Sub
Sub MOFWiz_GetIWbemServices(lpctstrNamespace, bUpdatePointer, lpsc, lppServices, lpbUserCancel)
Security.GetIWbemServices lpctstrNamespace, bUpdatePointer, lpsc, lppServices, lpbUserCancel
End Sub
Sub MOFComp_GetIWbemServices(lpctstrNamespace, bUpdatePointer, lpsc, lppServices, lpbUserCancel)
Security.GetIWbemServices lpctstrNamespace, bUpdatePointer, lpsc, lppServices, lpbUserCancel
End Sub
Sub MOFComp_ModifiedNamespace(lpctstrNamespace)
bstrNamespace = top.ClassnavFrame.ClassNavigator.Namespace
if Len(bstrNamespace) > 0 then
top.ClassnavFrame.ClassNavigator.MofCompiled bstrNamespace
end if
End Sub
Sub CPPWiz_GenerateCPPs()
sc = top.frames("viewer_frame").Viewer.SaveState(true, true)
If sc >= 0 Then
varPaths = top.ClassnavFrame.ClassNavigator.GetExtendedSelection ()
CPPWiz.CPPTargets = varPaths
ObjectPath = top.frames("viewer_frame").Viewer.ObjectPath
top.frames("viewer_frame").Viewer.ObjectPath = ObjectPath
End If
End Sub
Sub CPPWiz_GetIWbemServices(lpctstrNamespace, bUpdatePointer, lpsc, lppServices, lpbUserCancel)
Security.GetIWbemServices lpctstrNamespace, bUpdatePointer, lpsc, lppServices, lpbUserCancel
End Sub
Sub Security_GetIWbemServices(lpctstrNamespace, bUpdatePointer, lpsc, lppServices, lpbUserCancel)
Security.GetIWbemServices lpctstrNamespace, bUpdatePointer, lpsc, lppServices, lpbUserCancel
End Sub
-->
</SCRIPT>
</table>
</p>
</body>
</html>