Leaked source code of windows server 2003
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.
|
|
<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 NextDim LocatorDim ServiceDim CollectionDim InstancePaths()Dim InstanceCountDim CurrentInstanceIndex
Set Locator = CreateObject("WbemScripting.SWbemLocator")' Note that Locator.ConnectServer can be used to connect to remote computersSet Service = Locator.ConnectServer(, "root\wmi")Service.Security_.ImpersonationLevel=3Set Collection = Service.InstancesOf ("FastCardProp")
InstanceCount = 0Err.Clearfor 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 Ifnext 'Instance
if InstanceCount = 0 Then MsgBox "No instances available for this class"Else CurrentInstanceIndex = 1End 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 IfEnd 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 IfEnd 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 IfEnd 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 IfEnd 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 IfEnd 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>
|
