115 lines
2.6 KiB
HTML
115 lines
2.6 KiB
HTML
<hmtl>
|
|
<html>
|
|
|
|
<head>
|
|
<title>ActiveX Data Objects (ADO)</title>
|
|
</head>
|
|
|
|
<body BGCOLOR="#008080" TEXT="#000000">
|
|
|
|
<h1>Getting Instances of a WBEM Class</h1>
|
|
|
|
<p><br>
|
|
<input type="button" name="btnPrev" value="<"> <input type="button" name="btnNext"
|
|
value=">"> <input type="button" name="btnLast" value=">>"> <br>
|
|
<br>
|
|
The following fields have been generated automatically based on the schema information
|
|
found in the recordset. If the data fields do not appear below this message you may have
|
|
to reduce the level of security in your browser.
|
|
<!-- ADO recordset object -->
|
|
<object id="rs" classid="clsid:00000535-0000-0010-8000-00AA006D2EA4">
|
|
</object>
|
|
<object id="Cn" classid="clsid:00000514-0000-0010-8000-00AA006D2EA4">
|
|
</object>
|
|
<script language="VBScript">
|
|
' Open the recordset / execute the sql query
|
|
'
|
|
|
|
' Open connection.
|
|
connect="Provider=WMIOLEDB;data source=root/cimv2;user id=;password=;"
|
|
'Cn.Open connect
|
|
|
|
' Open Win32_LogicalDisk table.
|
|
query = "select * from Win32_LogicalDisk"
|
|
adOpenKeyset = 1
|
|
rs.Open query, connect, adOpenKeyset
|
|
|
|
set flds = rs.Fields
|
|
|
|
' Build the html for viewing the data
|
|
'
|
|
|
|
' determine width for field-name column
|
|
'
|
|
namewid = 0
|
|
for i = 0 to flds.Count - 1
|
|
if len(flds(i).Name) > namewid then namewid = len(flds(i).Name)
|
|
next
|
|
|
|
' write out html for form-fields
|
|
'
|
|
for i = 0 to flds.Count - 1
|
|
document.write "<pre>"
|
|
s = flds(i).Name
|
|
s = s + space( namewid - len(s) + 2 )
|
|
s = s + "<input type=text name=fld_" + cstr(i) + ">"
|
|
document.write s
|
|
document.write "</pre>"
|
|
next
|
|
|
|
|
|
' Build the vbscript for copying data to the form
|
|
|
|
document.writeln "<script language=""vbscript"">"
|
|
|
|
document.writeln "sub FillForm"
|
|
for i = 0 to flds.Count - 1
|
|
s = "fld_" + cstr(i) + ".value = " + "rs.fields(" + cstr(i) + ").value"
|
|
document.writeln s
|
|
next
|
|
document.writeln "end sub"
|
|
|
|
' force 'FillForm' to execute immediately
|
|
document.writeln "FillForm"
|
|
document.writeln "<" + "/" + "script" + ">"
|
|
|
|
</script>
|
|
<script language="VBScript">
|
|
Sub btnNext_OnClick
|
|
if not rs.EOF then
|
|
rs.MoveNext
|
|
if rs.EOF then
|
|
rs.MoveLast
|
|
else
|
|
FillForm
|
|
end if
|
|
end if
|
|
End Sub
|
|
|
|
Sub btnPrev_OnClick
|
|
if not rs.BOF then
|
|
rs.MovePrevious
|
|
if rs.BOF then
|
|
rs.MoveFirst
|
|
else
|
|
FillForm
|
|
end if
|
|
end if
|
|
End Sub
|
|
|
|
Sub btnFirst_OnClick
|
|
rs.MoveFirst
|
|
FillForm
|
|
End Sub
|
|
|
|
Sub btnLast_OnClick
|
|
rs.MoveLast
|
|
FillForm
|
|
End Sub
|
|
</script> </p>
|
|
|
|
<hr size="4">
|
|
|
|
</body>
|
|
</html>
|