You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
297 lines
8.1 KiB
297 lines
8.1 KiB
<html xmlns:v="urn:schemas-microsoft-com:vml"
|
|
xmlns:o="urn:schemas-microsoft-com:office:office"
|
|
xmlns:w="urn:schemas-microsoft-com:office:word"
|
|
xmlns="http://www.w3.org/TR/REC-html40">
|
|
|
|
<head>
|
|
<meta http-equiv=Content-Type content="text/html; charset=us-ascii">
|
|
<meta name=ProgId content=Word.Document>
|
|
<meta name=Generator content="Microsoft Word 9">
|
|
<meta name=Originator content="Microsoft Word 9">
|
|
<link rel=File-List href="./valid_files/filelist.xml">
|
|
<link rel=Edit-Time-Data href="./valid_files/editdata.mso">
|
|
<!--[if !mso]>
|
|
<style>
|
|
v\:* {behavior:url(#default#VML);}
|
|
o\:* {behavior:url(#default#VML);}
|
|
w\:* {behavior:url(#default#VML);}
|
|
.shape {behavior:url(#default#VML);}
|
|
</style>
|
|
<![endif]-->
|
|
<title>Class FastCardProp</title>
|
|
<!--[if gte mso 9]><xml>
|
|
<o:DocumentProperties>
|
|
<o:Author>Wmi Mof Checking Tool</o:Author>
|
|
<o:Template>Normal</o:Template>
|
|
<o:LastAuthor>Wmi Mof Checking Tool</o:LastAuthor>
|
|
<o:Revision>2</o:Revision>
|
|
<o:TotalTime>3</o:TotalTime>
|
|
<o:Created>1999-09-10T01:09:00Z</o:Created>
|
|
<o:LastSaved>1999-09-10T01:12:00Z</o:LastSaved>
|
|
<o:Pages>1</o:Pages>
|
|
<o:Words>51</o:Words>
|
|
<o:Characters>292</o:Characters>
|
|
<o:Company>Microsoft</o:Company>
|
|
<o:Lines>2</o:Lines>
|
|
<o:Paragraphs>1</o:Paragraphs>
|
|
<o:CharactersWithSpaces>358</o:CharactersWithSpaces>
|
|
<o:Version>9.2720</o:Version>
|
|
</o:DocumentProperties>
|
|
</xml><![endif]--><!--[if gte mso 9]><xml>
|
|
<w:WordDocument>
|
|
<w:Compatibility>
|
|
<w:UseFELayout/>
|
|
</w:Compatibility>
|
|
</w:WordDocument>
|
|
</xml><![endif]-->
|
|
<style>
|
|
<!--
|
|
/* Font Definitions */
|
|
@font-face
|
|
{font-family:"MS Mincho";
|
|
panose-1:2 2 6 9 4 2 5 8 3 4;
|
|
mso-font-alt:"\FF2D\FF33 \660E\671D";
|
|
mso-font-charset:128;
|
|
mso-generic-font-family:roman;
|
|
mso-font-format:other;
|
|
mso-font-pitch:fixed;
|
|
mso-font-signature:1 134676480 16 0 131072 0;}
|
|
@font-face
|
|
{font-family:"\@MS Mincho";
|
|
panose-1:2 2 6 9 4 2 5 8 3 4;
|
|
mso-font-charset:128;
|
|
mso-generic-font-family:modern;
|
|
mso-font-pitch:fixed;
|
|
mso-font-signature:-1610612033 1757936891 16 0 131231 0;}
|
|
/* Style Definitions */
|
|
p.MsoNormal, li.MsoNormal, div.MsoNormal
|
|
{mso-style-parent:"";
|
|
margin:0in;
|
|
margin-bottom:.0001pt;
|
|
mso-pagination:widow-orphan;
|
|
font-size:12.0pt;
|
|
font-family:"Times New Roman";
|
|
mso-fareast-font-family:"MS Mincho";}
|
|
@page Section1
|
|
{size:8.5in 11.0in;
|
|
margin:1.0in 1.25in 1.0in 1.25in;
|
|
mso-header-margin:.5in;
|
|
mso-footer-margin:.5in;
|
|
mso-paper-source:0;}
|
|
div.Section1
|
|
{page:Section1;}
|
|
-->
|
|
</style>
|
|
<!--[if gte mso 9]><xml>
|
|
<o:shapedefaults v:ext="edit" spidmax="1026"/>
|
|
</xml><![endif]--><!--[if gte mso 9]><xml>
|
|
<o:shapelayout v:ext="edit">
|
|
<o:idmap v:ext="edit" data="1"/>
|
|
</o:shapelayout></xml><![endif]-->
|
|
</head>
|
|
|
|
<body lang=EN-US style='tab-interval:.5in'>
|
|
|
|
<div class=Section1>
|
|
|
|
<h3>Class FastCardProp</h3>
|
|
|
|
|
|
<div class=MsoNormal align=center style='text-align:center'>
|
|
|
|
<hr size=2 width="100" align=center>
|
|
|
|
</div>
|
|
|
|
|
|
<form NAME=ClassForm>
|
|
|
|
<p class=MsoNormal><span style='display:none;mso-hide:all'><script language="VBScript">
|
|
<!--
|
|
On Error Resume Next
|
|
Dim Locator
|
|
Dim Service
|
|
Dim Collection
|
|
Dim InstancePaths()
|
|
Dim InstanceCount
|
|
Dim CurrentInstanceIndex
|
|
|
|
|
|
Set Locator = CreateObject("WbemScripting.SWbemLocator")
|
|
' Note that Locator.ConnectServer can be used to connect to remote computers
|
|
Set Service = Locator.ConnectServer(, "root\wmi")
|
|
Service.Security_.ImpersonationLevel=3
|
|
Set Collection = Service.InstancesOf ("FastCardProp")
|
|
|
|
InstanceCount = 0
|
|
Err.Clear
|
|
for each Instance in Collection
|
|
if Err.Number = 0 Then
|
|
InstanceCount = InstanceCount + 1
|
|
|
|
ReDim Preserve InstancePaths(InstanceCount)
|
|
|
|
Set ObjectPath = Instance.Path_
|
|
InstancePaths(InstanceCount) = ObjectPath.Path
|
|
End If
|
|
next 'Instance
|
|
|
|
if InstanceCount = 0 Then
|
|
MsgBox "No instances available for this class"
|
|
Else
|
|
CurrentInstanceIndex = 1
|
|
End if
|
|
|
|
Sub ChangeButton_OnClick
|
|
Set TheForm = Document.ClassForm
|
|
if InstanceCount = 0 Then
|
|
MsgBox "No instances available for this class"
|
|
Else
|
|
On Error Resume Next
|
|
Err.Clear
|
|
Set Instance = Service.Get(InstancePaths(CurrentInstanceIndex))
|
|
if Err.Number = 0 Then
|
|
Instance.DelayCardIntrrupt = TheForm.DelayCardIntrruptText.Value
|
|
Instance.SwapRTSForDTR = TheForm.SwapRTSForDTRText.Value
|
|
|
|
Err.Clear
|
|
Instance.Put_()
|
|
if Err.Number <> 0 Then
|
|
MsgBox Err.Description, ,CurrentObjectPath
|
|
End If
|
|
Else
|
|
MsgBox Err.Description, ,CurrentObjectPath
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Sub ReloadInstance
|
|
Set TheForm = Document.ClassForm
|
|
if InstanceCount = 0 Then
|
|
TheForm.InstanceNameText.Value = "No Instances Available"
|
|
Else
|
|
On Error Resume Next
|
|
Err.Clear
|
|
Set Instance = Service.Get(InstancePaths(CurrentInstanceIndex))
|
|
if Err.Number = 0 Then
|
|
|
|
TheForm.InstanceNameText.Value = InstancePaths(CurrentInstanceIndex)
|
|
TheForm.DelayCardIntrruptText.Value = Instance.DelayCardIntrrupt
|
|
TheForm.SwapRTSForDTRText.Value = Instance.SwapRTSForDTR
|
|
Else
|
|
MsgBox Err.Description, ,CurrentObjectPath
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Sub RefreshButton_OnClick
|
|
if InstanceCount = 0 Then
|
|
MsgBox "No instances available for this class"
|
|
Else
|
|
call ReloadInstance
|
|
End If
|
|
End Sub
|
|
|
|
Sub NextButton_OnClick
|
|
|
|
if InstanceCount = 0 Then
|
|
MsgBox "No instances available for this class"
|
|
Else
|
|
if CurrentInstanceIndex = InstanceCount Then
|
|
CurrentInstanceIndex = 1
|
|
Else
|
|
CurrentInstanceIndex = CurrentInstanceIndex + 1
|
|
End If
|
|
call ReloadInstance
|
|
End if
|
|
|
|
|
|
End Sub
|
|
|
|
Sub PrevButton_OnClick
|
|
|
|
if InstanceCount = 0 Then
|
|
MsgBox "No instances available for this class"
|
|
Else
|
|
if CurrentInstanceIndex = 1 Then
|
|
CurrentInstanceIndex = InstanceCount
|
|
Else
|
|
CurrentInstanceIndex = CurrentInstanceIndex - 1
|
|
End if
|
|
call ReloadInstance
|
|
End if
|
|
|
|
|
|
End Sub
|
|
|
|
Sub NextIndexButton_OnClick(ByRef Index, MaxIndex)
|
|
if InstanceCount <> 0 Then
|
|
Index = Index + 1
|
|
if Index = MaxIndex Then
|
|
Index = 0
|
|
End If
|
|
Call ReloadInstance
|
|
End If
|
|
End Sub
|
|
|
|
Sub PrevIndexButton_OnClick(ByRef Index, MaxIndex)
|
|
if InstanceCount <> 0 Then
|
|
if Index = 0 Then
|
|
Index = MaxIndex - 1
|
|
Else
|
|
Index = Index - 1
|
|
End If
|
|
Call ReloadInstance
|
|
End If
|
|
End Sub
|
|
|
|
Sub GotoIndexButton_OnClick(ByRef Index, MaxIndex, NewIndex)
|
|
if InstanceCount <> 0 Then
|
|
DestIndex = NewIndex + 0
|
|
if DestIndex >= 0 And DestIndex < MaxIndex Then
|
|
Index = DestIndex
|
|
Call ReloadInstance
|
|
Else
|
|
MsgBox "Enter an index between 0 and " & MaxIndex-1, ,"Index out of range"
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
-->
|
|
</script></span><INPUT TYPE="TEXT" SIZE="128" NAME="InstanceNameText" VALUE=""></p>
|
|
|
|
<input name=NextButton type=BUTTON value=Next>
|
|
|
|
<input name=PrevButton type=BUTTON value=Previous>
|
|
|
|
<input name=ChangeButton type=BUTTON value=Change>
|
|
|
|
<input name=RefreshButton type=BUTTON value=Refresh>
|
|
|
|
<p class=MsoNormal><![if !supportEmptyParas]> <![endif]><o:p></o:p></p>
|
|
|
|
<p class=MsoNormal>DelayCardIntrrupt: <span style='mso-tab-count:2'> </span><INPUT TYPE="TEXT" SIZE="96" NAME="DelayCardIntrruptText"></p>
|
|
|
|
<p class=MsoNormal>SwapRTSForDTR: <span style='mso-tab-count:2'> </span><INPUT TYPE="TEXT" SIZE="96" NAME="SwapRTSForDTRText"></p>
|
|
|
|
<p class=MsoNormal><![if !supportEmptyParas]> <![endif]><o:p></o:p></p>
|
|
|
|
<p class=MsoNormal><![if !supportEmptyParas]> <![endif]><o:p></o:p></p>
|
|
|
|
<p class=MsoNormal><a href="index.htm"
|
|
title="Goes back to list of classes in this MOF">Back to List</a></p>
|
|
|
|
</form>
|
|
|
|
<p class=MsoNormal><span style='display:none;mso-hide:all'><script language="VBScript">
|
|
<!--
|
|
call ReloadInstance
|
|
-->
|
|
</script></span></p>
|
|
|
|
</div>
|
|
|
|
</body>
|
|
|
|
</html>
|