MIME-Version: 1.0 Content-Location: file:///C:/2883990C/Voiciquelquesexemplesdel.htm Content-Transfer-Encoding: quoted-printable Content-Type: text/html; charset="us-ascii" Voici quelques exemples de l”utilisation de Windows Scripting<= /title> <!--[if gte mso 9]><xml> <o:DocumentProperties> <o:Author>STG_FTA_TEST</o:Author> <o:LastAuthor>STG_FTA_TEST</o:LastAuthor> <o:Revision>2</o:Revision> <o:TotalTime>1</o:TotalTime> <o:Created>2004-11-19T13:28:00Z</o:Created> <o:LastSaved>2004-11-19T13:28:00Z</o:LastSaved> <o:Pages>1</o:Pages> <o:Words>1791</o:Words> <o:Characters>10215</o:Characters> <o:Company>STG_FTA</o:Company> <o:Lines>85</o:Lines> <o:Paragraphs>23</o:Paragraphs> <o:CharactersWithSpaces>11983</o:CharactersWithSpaces> <o:Version>11.5703</o:Version> </o:DocumentProperties> </xml><![endif]--><!--[if gte mso 9]><xml> <w:WordDocument> <w:SpellingState>Clean</w:SpellingState> <w:GrammarState>Clean</w:GrammarState> <w:PunctuationKerning/> <w:ValidateAgainstSchemas/> <w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid> <w:IgnoreMixedContent>false</w:IgnoreMixedContent> <w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText> <w:Compatibility> <w:BreakWrappedTables/> <w:SnapToGridInCell/> <w:WrapTextWithPunct/> <w:UseAsianBreakRules/> <w:DontGrowAutofit/> </w:Compatibility> <w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel> </w:WordDocument> </xml><![endif]--><!--[if gte mso 9]><xml> <w:LatentStyles DefLockedState=3D"false" LatentStyleCount=3D"156"> </w:LatentStyles> </xml><![endif]--> <style> <!-- /* Font Definitions */ @font-face {font-family:Tahoma; panose-1:2 11 6 4 3 5 4 4 2 4; mso-font-charset:0; mso-generic-font-family:swiss; mso-font-pitch:variable; mso-font-signature:1627421319 -2147483648 8 0 66047 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:"Times New Roman"; color:windowtext;} a:link, span.MsoHyperlink {color:blue; mso-text-animation:none; text-decoration:none; text-underline:none; text-decoration:none; text-line-through:none;} a:visited, span.MsoHyperlinkFollowed {color:purple; text-decoration:underline; text-underline:single;} p {margin:4.2pt; mso-pagination:widow-orphan; font-size:10.0pt; font-family:Arial; mso-fareast-font-family:"Times New Roman"; mso-bidi-font-family:"Times New Roman"; color:black;} span.spelle {mso-style-name:spelle;} span.grame {mso-style-name:grame;} span.SpellE {mso-style-name:""; mso-spl-e:yes;} span.GramE {mso-style-name:""; mso-gram-e:yes;} @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 10]> <style> /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Table Normal"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-parent:""; mso-padding-alt:0in 5.4pt 0in 5.4pt; mso-para-margin:0in; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.0pt; font-family:"Times New Roman"; mso-ansi-language:#0400; mso-fareast-language:#0400; mso-bidi-language:#0400;} </style> <![endif]--> </head> <body lang=3DEN-US link=3Dblue vlink=3Dpurple style=3D'tab-interval:.5in'> <BR><CENTER><DIV=20 style=3D"BORDER-RIGHT: black 1px solid; PADDING-RIGHT: 4px; BORDER-TOP: = black 1px solid; PADDING-LEFT: 4px; PADDING-BOTTOM: 4px; FONT: 13pt = Verdana; BORDER-LEFT: black 1px solid; WIDTH: 400px; PADDING-TOP: 4px; = BORDER-BOTTOM: black 1px solid; BACKGROUND-COLOR: yellow"><A=20 href=3D"http://www.atoutfox.org/"><B>atoutfox.org</B></A><BR><FONT=20 size=3D-2>ATOUTFOX - 2004</FONT><BR></DIV></CENTER> <div class=3DSection1> <table class=3DMsoNormalTable border=3D0 cellpadding=3D0 width=3D"100%" style=3D'width:100.0%;mso-cellspacing:1.5pt;margin-left:4.2pt;mso-padding-= alt: 0in 0in 0in 0in'> <tr style=3D'mso-yfti-irow:0;mso-yfti-firstrow:yes;mso-yfti-lastrow:yes'> <td style=3D'padding:.75pt .75pt .75pt .75pt'> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'>Voici quelques exemples de l”utilisation de Windows <span class=3DSpellE><span class=3Dspelle>Scripting</span></span>.</span><span = lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'>Ces exemples <span class=3DGramE><span class=3Dspelle>requiert</span>= </span> que<span style=3D'mso-spacerun:yes'>  </span>Windows <span class=3DS= pellE><span class=3Dspelle>Scripting</span></span> version 5.6 <span class=3Dgrame>so= it</span> <span class=3Dspelle>installé</span></span><span lang=3DFR-CA style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-ansi-languag= e: FR-CA'>. Vous pouvez vous le procurer : h</span><span lang=3DFR style=3D'font-size:10.0pt;mso-bidi-font-size:12.0pt;font-family:Tahoma; color:black;mso-ansi-language:FR'>ttp://msdn.microsoft.com/library/defaul= t.asp?url=3D/downloads/list/webdev.asp</span><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'>.<br>   <br>   <b>Comment <span class=3Dspelle>obtenir</span> <span class=3Dspell= e>l’information</span>   de base d’un <span class=3Dspelle>ordinateur</span>.</b></sp= an><span lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></= p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span lang=3DFR style=3D'font-= size: 7.5pt;font-family:Tahoma;color:white;text-transform:uppercase;mso-ansi-la= nguage: FR'>CODE</span></b><span lang=3DFR style=3D'color:black;mso-ansi-language= :FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3Dspelle><span lang=3D= FR style=3D'font-size:10.0pt;font-family:"Courier New";color:black;mso-ansi-= language: FR'>WshNetwork</span></span></span><span lang=3DFR style=3D'font-size:10.= 0pt; font-family:"Courier New";color:black;mso-ansi-language:FR'> =3D   <= span class=3DSpellE><span class=3DGramE><span class=3Dspelle>CreateObject</spa= n></span></span><span class=3DGramE>(</span>'<span class=3Dspelle>WScript.Network</span>')<br>   <span class=3DSpellE><span class=3Dspelle>lcMessage</span></span>= =3D'<span class=3DSpellE>Domain</span> =3D ' + <span class=3DSpellE><span class=3Ds= pelle>WshNetwork.UserDomain</span></span>   + CHR(13)<br>   <span class=3DSpellE><span class=3Dspelle>lcMessage</span></span>= =3D<span class=3DSpellE><span class=3Dspelle>lcMessage</span></span>+   'Comp= uter <span class=3DSpellE>Name</span> =3D' + <span class=3DSpellE><span class=3Dspel= le>WshNetwork.ComputerName</span></span><span class=3Dspelle>+CHR</span>(13)<br>   <span class=3DSpellE><span class=3Dspelle>lcMessage</span></span>= =3D<span class=3DSpellE><span class=3Dspelle>lcMessage</span></span>+   'User= <span class=3DSpellE>Name</span> =3D ' + <span class=3DSpellE><span class=3Dspe= lle>WshNetwork.UserName</span></span><br>   MESSAGEBOX(<span class=3DSpellE><span class=3Dspelle>lcMessage</sp= an></span>)</span><span lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></= p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <b>Comment obtenir l’information sur votre CD-ROM(s)</b></sp= an><span lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></= p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span style=3D'font-size:7.5pt; font-family:Tahoma;color:white;text-transform:uppercase'>CODE</span></b><= span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span style=3D'font-size:10.0pt;font-family:"Courier Ne= w"; color:black'>LOCAL <span class=3DSpellE><span class=3Dspelle>strComputer<= /span></span><br>   Local <span class=3DSpellE><span class=3Dspelle>lcString</span></s= pan><br>   <span class=3DSpellE><span class=3Dspelle>strComputer</span></span= > =3D '.'<br>   <span class=3DSpellE><span class=3Dspelle>lcString</span></span> = =3D ''<br>   <span class=3DSpellE><span class=3Dspelle>objWMIService</span></sp= an> =3D <span class=3DSpellE><span class=3Dspelle>Getobject</span></span>('<span class= =3DSpellE><span class=3Dspelle>winmgmts</span></span>:'+ '<span class=3DSpellE><span class=3Dspelle>impersonationLevel</span></span>=3Dimpersonate}!\'   = + <span class=3DSpellE><span class=3Dspelle>strComputer</span></span> + 'rootcimv= 2')<br>   <span class=3DSpellE><span class=3Dspelle>colItems</span></span> = =3D <span class=3DSpellE><span class=3Dspelle>objWMIService.ExecQuery</span></span>= ('Select   * from Win32_CDROMDrive')<br>   For Each <span class=3DSpellE><span class=3Dspelle>objItem</span><= /span> In <span class=3DSpellE><span class=3Dspelle>colItems</span></span><br>       <span class=3DSpellE><span class=3Dspelle>= lcString</span></span> =3D <span class=3DSpellE><span class=3Dspelle>lcString</span></span> + 'Description: '+<span class=3DSpellE><span class=3Dspelle>objItem.Descrip= tion+Chr</span></span>(13)<br>       <span class=3DSpellE><span class=3Dspelle>= lcString</span></span> =3D <span class=3DSpellE><span class=3Dspelle>lcString</span></span> + 'N= ame: '+<span class=3DSpellE><span class=3Dspelle>objItem.Name+Chr</span></span>(13)<br>       <span class=3DSpellE><span class=3Dspelle>= lcString</span></span> =3D <span class=3DSpellE><span class=3Dspelle>lcString</span></span> + 'Manufacturer:' +<span class=3DSpellE><span class=3Dspelle>objItem.manufa= cturer+Chr</span></span>(13)<br>       <span class=3DSpellE><span class=3Dspelle>= lcString</span></span> =3D <span class=3DSpellE><span class=3Dspelle>lcString</span></span> + 'M= edia type: '+<span class=3DSpellE><span class=3Dspelle>objItem.mediaType+Chr</span><= /span>(13)<br>       <span class=3DSpellE><span class=3Dspelle>= lcString</span></span> =3D <span class=3DSpellE><span class=3Dspelle>lcString</span></span> + 'P= NP Device ID:' + <span class=3DSpellE><span class=3Dspelle>objItem.PNPDeviceID</spa= n></span>   +<span class=3DSpellE><span class=3Dspelle>Chr</span></span>(13)<b= r>   Next<br>   <span class=3DSpellE><span class=3Dspelle>Messagebox</span></span>= (<span class=3DSpellE><span class=3Dspelle>lcString</span></span>)</span><span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <b>Comment connecter un drive de <span class=3DSpellE><span class=3Dspelle>reseau</span></span>.</b></span><span lang=3DFR style=3D'c= olor:black; mso-ansi-language:FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span style=3D'font-size:7.5pt; font-family:Tahoma;color:white;text-transform:uppercase'>CODE</span></b><= span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3Dspelle><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>oNet</sp= an></span></span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'> =3D &nb= sp; <span class=3DSpellE><span class=3Dspelle>CreateObject</span></span>('<span class=3DSpellE><span class=3Dspelle>WScript.Network</span></span>') =    <br>   <span class=3DSpellE><span class=3Dspelle>oNet.MapNetworkDrive</sp= an></span>('<span class=3DSpellE>I','<span class=3Dspelle>myservermyFiles’,.T.,'mike'= ,'password</span></span>')</span><span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <b>Comment déconnecter un drive de <span class=3DSpellE><sp= an class=3Dspelle>reseau</span></span>.</b></span><span lang=3DFR style=3D'c= olor:black; mso-ansi-language:FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span style=3D'font-size:7.5pt; font-family:Tahoma;color:white;text-transform:uppercase'>CODE</span></b><= span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3Dspelle><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>WshNetwo= rk</span></span></span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'> =3D &nb= sp; <span class=3DSpellE><span class=3Dspelle>CreateObject</span></span>('<span class=3DSpellE><span class=3Dspelle>WScript.Network</span></span>')<br>   <span class=3DSpellE><span class=3Dspelle>WshNetwork.RemoveNetwork= Drive</span></span>('E')</span><span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <b>Comment ajouter une <span class=3DSpellE><span class=3Dspelle>c= onnection</span></span> d’imprimante.</b></span><span lang=3DFR style=3D'color:black;mso-an= si-language: FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span style=3D'font-size:7.5pt; font-family:Tahoma;color:white;text-transform:uppercase'>CODE</span></b><= span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3Dspelle><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>oNet</sp= an></span></span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'> =3D &nb= sp; <span class=3DSpellE><span class=3Dspelle>createobject</span></span>('<span class=3DSpellE><span class=3Dspelle>WScript.Network</span></span>')<br>   <span class=3DSpellE><span class=3Dspelle>oNet.AddWindowsPrinterCo= nnection</span></span>('<span class=3DSpellE><span class=3Dspelle>ServerNamePrinterName</span></span>')= </span><span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <b>Comment forcer une imprimante Windows par <span class=3DSpellE>= <span class=3Dspelle>defaut</span></span>,   </b></span><span lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span style=3D'font-size:7.5pt; font-family:Tahoma;color:white;text-transform:uppercase'>CODE</span></b><= span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3Dspelle><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>oNet</sp= an></span></span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'> =3D &nb= sp; <span class=3DSpellE><span class=3Dspelle>CreateObject</span></span>('<span class=3DSpellE><span class=3Dspelle>WScript.Network</span></span>') =    <br>   <span class=3DSpellE><span class=3Dspelle>oNet.SetDefaultPrinter</= span></span>('<span class=3DSpellE><span class=3Dspelle>ServerNamePrinterName</span></span>')= </span><span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <b>Comment <span class=3DSpellE><span class=3Dspelle>verifier</spa= n></span> l’espace vide restante sur un   disque dur.</b></span><span lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></= p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span lang=3DFR style=3D'font-= size: 7.5pt;font-family:Tahoma;color:white;text-transform:uppercase;mso-ansi-la= nguage: FR'>CODE</span></b><span lang=3DFR style=3D'color:black;mso-ansi-language= :FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3Dspelle><span lang=3D= FR style=3D'font-size:10.0pt;font-family:"Courier New";color:black;mso-ansi-= language: FR'>objFSO</span></span></span><span lang=3DFR style=3D'font-size:10.0pt; font-family:"Courier New";color:black;mso-ansi-language:FR'> =3D   <= span class=3DSpellE><span class=3Dspelle>CreateObject</span></span>('<span class=3Dspelle>Scripting.FileSystemObject</span>')<br>   <span class=3DSpellE><span class=3Dspelle>objDrive</span></span> = =3D <span class=3DSpellE><span class=3Dspelle>objFSO.GetDrive</span></span>('C:')<b= r>   MESSAGEBOX('<span class=3DSpellE>Available</span> <span class=3DSp= ellE>space</span>: ' + <span class=3DSpellE><span class=3Dspelle>chr</span></span>(13)+TRANS= FORM(<span class=3DSpellE>objDrive.AvailableSpace</span>,'999,999,999,999,999'+' &nb= sp; <span class=3DSpellE>kb</span>' ))</span><span lang=3DFR style=3D'color:black;m= so-ansi-language: FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <b>Comment copier <span class=3Dspelle>une</span> <span class=3Dsp= elle>filière</span>.   </b></span><span lang=3DFR style=3D'color:black;mso-ansi-language:= FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span lang=3DFR style=3D'font-= size: 7.5pt;font-family:Tahoma;color:white;text-transform:uppercase;mso-ansi-la= nguage: FR'>CODE</span></b><span lang=3DFR style=3D'color:black;mso-ansi-language= :FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span lang=3DFR style=3D'font-size:10.0pt;font-family:"= Courier New"; color:black;mso-ansi-language:FR'>FSO =3D <span class=3DSpellE><span clas= s=3DGramE><span class=3Dspelle>CreateObject</span></span></span><span class=3DGramE>(</sp= an>'<span class=3Dspelle>Scripting.FileSystemObject</span>')<br>   <span class=3DSpellE><span class=3Dspelle>FSO.CopyFile</span></spa= n>('c:<span class=3Dspelle>COMPlusLog.txt','c</span>:x\')</span><span lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <b>Comment <span class=3Dspelle>créer</span> un dossier.</b= ></span><span lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></= p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span lang=3DFR style=3D'font-= size: 7.5pt;font-family:Tahoma;color:white;text-transform:uppercase;mso-ansi-la= nguage: FR'>CODE</span></b><span lang=3DFR style=3D'color:black;mso-ansi-language= :FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3Dspelle><span lang=3D= FR style=3D'font-size:10.0pt;font-family:"Courier New";color:black;mso-ansi-= language: FR'>fso</span></span></span><span lang=3DFR style=3D'font-size:10.0pt;fon= t-family: "Courier New";color:black;mso-ansi-language:FR'> =3D   <span class= =3DSpellE><span class=3DGramE><span class=3Dspelle>createobject</span></span></span><span class=3DGramE>(</span>'<span class=3Dspelle>Scripting.FileSystemObject</s= pan>')<br>   <span class=3DSpellE><span class=3Dspelle>fldr</span></span> =3D <= span class=3DSpellE><span class=3Dspelle>fso.CreateFolder</span></span>('C:<sp= an class=3DSpellE><span class=3Dspelle>MyTest</span></span>')</span><span la= ng=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <b>Comment <span class=3Dspelle>supprimer</span> un dossier.</b></= span><span lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></= p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span style=3D'font-size:7.5pt; font-family:Tahoma;color:white;text-transform:uppercase'>CODE</span></b><= span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3Dspelle><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>fso</spa= n></span></span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'> =3D<span class=3DSpellE><span class=3Dspelle>createobject</span></span>('<span class=3DSpellE><span class=3Dspelle>Scripting.FileSystemObject</span></sp= an>')<br>   <span class=3DSpellE><span class=3Dspelle>fldr</span></span> =3D <= span class=3DSpellE><span class=3Dspelle>fso.DeleteFolder</span></span>('<span class=3DSpellE>C:<span class=3Dspelle>MyTest</span></span>')</span><span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <b>Comment <span class=3DSpellE><span class=3Dspelle>determiner</s= pan></span> si un dossier existe.</b></span><span lang=3DFR style=3D'color:black;mso-= ansi-language: FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span style=3D'font-size:7.5pt; font-family:Tahoma;color:white;text-transform:uppercase'>CODE</span></b><= span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3DGramE><span class=3D= grame><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>fso</spa= n></span></span></span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'> =3D<span class=3DSpellE><span class=3Dspelle>createobject</span></span>('<span class=3DSpellE><span class=3Dspelle>Scripting.FileSystemObject</span></sp= an>')<br>   ? <span class=3DSpellE><span class=3Dspelle>fso.FolderExists</span= ></span>('<span class=3DSpellE>C:<span class=3Dspelle>MyTest</span></span>')</span><span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <b>Comment <span class=3Dspelle>créer</span> <span class=3D= spelle>une</span> <span class=3Dspelle>filière</span>.</b></span><span lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span lang=3DFR style=3D'font-= size: 7.5pt;font-family:Tahoma;color:white;text-transform:uppercase;mso-ansi-la= nguage: FR'>CODE</span></b><span lang=3DFR style=3D'color:black;mso-ansi-language= :FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3Dgrame><span lang=3DFR style=3D'font-size:10.0pt;font-family:"Courier New";color:black;mso-ansi-= language: FR'>fso</span></span></span><span lang=3DFR style=3D'font-size:10.0pt;fon= t-family: "Courier New";color:black;mso-ansi-language:FR'> =3D <span class=3DSpellE= ><span class=3DGramE><span class=3Dspelle>CreateObject</span></span></span><span class=3DGramE>(</span>'<span class=3Dspelle>Scripting.FileSystemObject</s= pan>')<br>   f1 =3D <span class=3DSpellE><span class=3Dspelle>fso.CreateTextFil= e</span></span>('c:testfile.txt', .T.)</span><span lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:= p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <b>Comment créer <span class=3DGramE><span class=3Dgrame>un= </span></span> filière et écrire du texte.</b></span><span lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span style=3D'font-size:7.5pt; font-family:Tahoma;color:white;text-transform:uppercase'>CODE</span></b><= span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3DGramE><span class=3D= grame><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>fso</spa= n></span></span></span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'> =3D <sp= an class=3DSpellE><span class=3Dspelle>CreateObject</span></span>('<span class=3DSpellE><span class=3Dspelle>Scripting.FileSystemObject</span></sp= an>')<br>   <span class=3DSpellE><span class=3Dspelle>tf</span></span> =3D <sp= an class=3DSpellE><span class=3Dspelle>fso.CreateTextFile</span></span>('c:t= estfile.txt',   .t.)<br>   <span class=3DSpellE><span class=3Dspelle>tf.WriteLine</span></spa= n>('Testing 1, 2, 3.') <br>   <span class=3DSpellE><span class=3Dspelle>tf.WriteBlankLines</span= ></span>(3) && Skip three lines<br>   <span class=3DSpellE><span class=3Dspelle>tf.Write</span></span> (= 'This is a test.') <br>   </span><span class=3DSpellE><span class=3Dspelle><span lang=3DFR style=3D'font-size:10.0pt;font-family:"Courier New";color:black;mso-ansi-= language: FR'>tf.Close</span></span></span><span lang=3DFR style=3D'font-size:10.0p= t; font-family:"Courier New";color:black;mso-ansi-language:FR'><br>   MODIFY FILE 'c:testfile.txt'</span><span lang=3DFR style=3D'color:= black; mso-ansi-language:FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <b>Comment créer un <span class=3DSpellE><span class=3Dspel= le>icone</span></span> sur le bureau (avec   chemin)</b></span><span lang=3DFR style=3D'col= or:black; mso-ansi-language:FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span lang=3DFR style=3D'font-= size: 7.5pt;font-family:Tahoma;color:white;text-transform:uppercase;mso-ansi-la= nguage: FR'>CODE</span></b><span lang=3DFR style=3D'color:black;mso-ansi-language= :FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3Dspelle><span lang=3D= FR style=3D'font-size:10.0pt;font-family:"Courier New";color:black;mso-ansi-= language: FR'>oShell</span></span></span><span lang=3DFR style=3D'font-size:10.0pt; font-family:"Courier New";color:black;mso-ansi-language:FR'> =3D   <= span class=3DSpellE><span class=3Dspelle>CreateObject</span></span>('<span class=3Dspelle>WScript.Shell</span>')<br>   <span class=3DSpellE><span class=3Dspelle>DesktopPath</span></span= > =3D <span class=3DSpellE><span class=3Dspelle>oShell.SpecialFolders</span></span>('= <span class=3DSpellE>Desktop</span>')<br>   <span class=3DSpellE><span class=3Dspelle>oURL</span></span> =3D <= span class=3DSpellE><span class=3Dspelle>oShell.CreateShortcut</span></span>(<= span class=3DSpellE><span class=3Dspelle>DesktopPath</span></span> + 'MSDN <sp= an class=3DSpellE><span class=3Dspelle>Scripting.URL</span></span>')<br>   <span class=3DSpellE><span class=3Dspelle>oURL</span></span> =3D <= span class=3DSpellE><span class=3Dspelle>oShell.CreateShortcut</span></span>(<= span class=3DSpellE><span class=3Dspelle>DesktopPath</span></span> + 'MSDN <sp= an class=3DSpellE><span class=3Dspelle>Scripting.URL</span></span>')<br>   <span class=3DSpellE><span class=3Dspelle>oURL.TargetPath</span></= span> =3D   'HTTP://MSDN.Microsoft.com/scripting/'<br>   <span class=3DSpellE><span class=3Dspelle>oURL.Save</span></span><= /span><span lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></= p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <b>Comment écrire une entrée dans le <span class=3DS= pellE><span class=3Dspelle>régistre</span></span> de   Windows.</b></span= ><span lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></= p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span lang=3DFR style=3D'font-= size: 7.5pt;font-family:Tahoma;color:white;text-transform:uppercase;mso-ansi-la= nguage: FR'>CODE</span></b><span lang=3DFR style=3D'color:black;mso-ansi-language= :FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3Dspelle><span lang=3D= FR style=3D'font-size:10.0pt;font-family:"Courier New";color:black;mso-ansi-= language: FR'>oSh</span></span></span><span lang=3DFR style=3D'font-size:10.0pt;fon= t-family: "Courier New";color:black;mso-ansi-language:FR'> =3D   <span class= =3DSpellE><span class=3Dspelle>CreateObject</span></span>('<span class=3Dspelle>WScript.S= hell</span>')<br>   <span class=3DSpellE>key</span> =3D  'HKEY_CURRENT_USER\= '<br>   <span class=3DSpellE><span class=3Dspelle>oSh.RegWrite</span></spa= n>( <span class=3DSpellE>key</span> + '<span class=3DSpellE><span class=3Dspelle>WS= HTest</span></span><span class=3Dspelle>\','<span class=3DSpellE>testkeydefault</span></span>')<br>   <span class=3DSpellE><span class=3Dspelle>oSh.RegWrite</span></spa= n>(<span class=3DSpellE>key</span> + 'WSHTeststring1',   'testkeystring1')<br>   <span class=3DSpellE><span class=3Dspelle>oSh.RegWrite</span></spa= n>( <span class=3DSpellE>key</span> + 'WSHTeststring2',   'testkeystring2', 'REG_SZ')<br>   <span class=3DSpellE><span class=3Dspelle>oSh.RegWrite</span></spa= n>( <span class=3DSpellE>key</span> + 'WSHTeststring3',   'testkeystring3', 'REG_EXPAND_SZ')<br>   <span class=3DSpellE><span class=3Dspelle>oSh.RegWrite</span></spa= n>( <span class=3DSpellE>key</span> + '<span class=3DSpellE><span class=3Dspelle>WS= HTestint</span></span>',   123, 'REG_DWORD')</span><span lang=3DFR style=3D'color:black;mso-a= nsi-language: FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <b>Comment supprimer une entrée dans le <span class=3DSpell= E><span class=3Dspelle>régistre</span></span> de   Windows.</b></span= ><span lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></= p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span lang=3DFR style=3D'font-= size: 7.5pt;font-family:Tahoma;color:white;text-transform:uppercase;mso-ansi-la= nguage: FR'>CODE</span></b><span lang=3DFR style=3D'color:black;mso-ansi-language= :FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3Dspelle><span lang=3D= FR style=3D'font-size:10.0pt;font-family:"Courier New";color:black;mso-ansi-= language: FR'>oSh</span></span></span><span lang=3DFR style=3D'font-size:10.0pt;fon= t-family: "Courier New";color:black;mso-ansi-language:FR'> =3D   <span class= =3DSpellE><span class=3DGramE><span class=3Dspelle>CreateObject</span></span></span><span class=3DGramE>(</span>'<span class=3Dspelle>WScript.Shell</span>')<br>   <span class=3DSpellE><span class=3Dspelle>oSh.RegDelete</span></sp= an>('<span class=3DSpellE>HKCUSoftwareACME<span class=3Dspelle>FortuneTellerMindRead= er</span></span>')<br>   <span class=3DSpellE><span class=3Dspelle>oSh.RegDelete</span></sp= an>('<span class=3DSpellE>HKCUSoftwareACME<span class=3Dspelle>FortuneTeller</span><= /span>\')<br>   <span class=3DSpellE><span class=3Dspelle>oSh.RegDelete</span></sp= an> ('<span class=3DSpellE>HKCUSoftwareACME</span>\')</span><span lang=3DFR style=3D'= color: black;mso-ansi-language:FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <span class=3DGramE><span class=3Dgrame><b>Une</b></span><b> rempl= acement du <span class=3DSpellE><span class=3Dspelle>messagebox</span></span> &nb= sp; de</b></span><b> FoxPro.</b></span><span lang=3DFR style=3D'color:black;mso-ansi-language:= FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span style=3D'font-size:7.5pt; font-family:Tahoma;color:white;text-transform:uppercase'>CODE</span></b><= span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3Dspelle><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>WshShell= </span></span></span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'> =3D &nb= sp; <span class=3DSpellE><span class=3DGramE><span class=3Dgrame>Createobject</span= ></span></span><span class=3DGramE><span class=3Dgrame>(</span></span>'<span class=3DSpellE><s= pan class=3Dspelle>WScript.Shell</span></span>')<br>   <span class=3DSpellE><span class=3Dspelle>BtnCode</span></span> = =3D <span class=3DSpellE><span class=3Dspelle>WshShell.Popup</span></span>('Do &nbs= p; you feel alright?', 7, 'Answer This Question:', 4 + 32)<br>   Do Case<br>   Case <span class=3DSpellE><span class=3Dspelle>BtnCode</span></spa= n>=3D6<br>       <span class=3DSpellE><span class=3Dspelle>= WSHSHELL.Popup</span></span>('Glad to   hear you feel alright.')<br>   Case <span class=3DSpellE><span class=3Dspelle>BtnCode</span></spa= n>=3D7<br>       <span class=3DSpellE><span class=3DGramE><= span class=3Dgrame>WSHSHELL.Popup</span></span></span><span class=3DGramE><span class=3Dgrame>(</span></span>'Hope you're feeling better soon.')<br>   <span class=3DSpellE><span class=3Dspelle>Endcase</span></span></s= pan><span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span style=3D'font-size:10.0pt;font-family:Tahoma;color:black'><br>   <b>Comment <span class=3DSpellE>créer</span> un <span class=3DSpellE><span class=3Dspelle>racourci</span></span> <span class=3D= SpellE>sur</span> le bureau.</b></span><span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span style=3D'font-size:7.5pt; font-family:Tahoma;color:white;text-transform:uppercase'>CODE</span></b><= span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span style=3D'font-size:10.0pt;font-family:"Courier Ne= w"; color:black'>Shell =3D <span class=3DSpellE><span class=3Dspelle>CreateOb= ject</span></span>(‘<span class=3DSpellE><span class=3Dspelle>WScript.Shell</span></span>’)<b= r>   <span class=3DSpellE><span class=3Dspelle>DesktopPath</span></span= > =3D <span class=3DSpellE><span class=3Dspelle>Shell.SpecialFolders</span></span>(&#= 8216;Desktop’)<br>   link =3D <span class=3DSpellE><span class=3Dspelle>Shell.CreateSho= rtcut</span></span>(<span class=3DSpellE><span class=3Dspelle>DesktopPath+’test.lnk</span></s= pan>’)<br>   <span class=3DSpellE><span class=3Dspelle>link.Arguments</span></s= pan> =3D ‘1 2 3’<br>   <span class=3DSpellE><span class=3Dspelle>link.Description</span><= /span> =3D ‘test shortcut’<br>   <span class=3DSpellE><span class=3Dspelle>link.HotKey</span></span= > =3D ‘CTRL+ALT+SHIFT+’<br>   <span class=3DSpellE><span class=3Dspelle>link.IconLocation</span>= </span> =3D ‘app.exe,1’<br>   <span class=3DSpellE><span class=3Dspelle>link.TargetPath</span></= span> =3D ‘c:blahapp.exe’</span><span style=3D'color:black'><o:p></o:p>= </span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3Dspelle><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>link.Win= dowStyle</span></span></span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'> =3D &nb= sp; 3<br>   <span class=3DSpellE><span class=3Dspelle>link.WorkingDirectory</s= pan></span> =3D ‘<span class=3DSpellE>c:blah</span>’<br>   <span class=3DSpellE><span class=3Dspelle>link.Save</span></span>(= )</span><span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <span class=3DSpellE><span class=3Dspelle><b>Uliser</b></span></sp= an><b> le <span class=3DSpellE><span class=3Dspelle>fileOpen</span></span>  = ; de Windows qui permet des <span class=3DSpellE><span class=3Dspelle>selectio= ns</span></span> multiples   (Windows XP)</b></span><span lang=3DFR style=3D'color:bl= ack; mso-ansi-language:FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span style=3D'font-size:7.5pt; font-family:Tahoma;color:white;text-transform:uppercase'>CODE</span></b><= span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3Dgrame><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>oDlg</sp= an></span></span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>=3D <span class=3DSpellE><span class=3Dspelle>Createobject</span></span>(‘<sp= an class=3DSpellE><span class=3Dspelle>userAccounts.commonDialog</span></spa= n>’)<br>   <span class=3DSpellE><span class=3Dspelle>oDlg.flags</span></span>= =3D ‘&h1a04’<br>   <span class=3DSpellE><span class=3Dspelle>oDlg.Filter</span></span= >=3D ‘All Files|*.*|’+ ‘Text and Batch   Files|*.txt;*.bat’<br>   <span class=3DSpellE><span class=3Dspelle>oDlg.filterIndex</span><= /span>=3D 2<br>   <span class=3DSpellE><span class=3Dspelle>oDlg.initialDir</span></= span>=3D’C:’<br>   <span class=3DSpellE><span class=3Dspelle>qSln</span></span>=3D <s= pan class=3DSpellE><span class=3Dspelle>oDlg.showOpen</span></span><br>   If <span class=3DSpellE><span class=3Dspelle>qSln</span></span><br>       <span class=3DSpellE><span class=3Dspelle>= Messagebox</span></span>(<span class=3DSpellE><span class=3Dspelle>oDlg.fileName</span></span>)<br>   Else<br>       <span class=3DSpellE><span class=3Dspelle>= Messagebox</span></span>(‘Dialog   cancelled.’)<br>   </span><span class=3DSpellE><span class=3Dspelle><span lang=3DFR style=3D'font-size:10.0pt;font-family:"Courier New";color:black;mso-ansi-= language: FR'>Endif</span></span></span><span lang=3DFR style=3D'color:black;mso-an= si-language: FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'> </span><span lang=3DFR style=3D'color:black;mso-ansi-language:F= R'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span class=3DSpellE><span class=3Dspelle><b><span lang=3DFR style=3D'font-size= :10.0pt; font-family:Tahoma;color:black;mso-ansi-language:FR'>Demonstration</span>= </b></span></span><b><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'>   comment <span class=3DSpellE><span class=3Dspelle>converter</= span></span> les valeurs UTC (<span class=3DSpellE><span class=3Dspelle>Universal</spa= n></span> Time <span class=3DSpellE><span class=3Dspelle>coordinate</span></span><s= pan class=3DGramE><span class=3Dgrame>)</span><span class=3DSpellE><span clas= s=3Dspelle>utilsées</span></span></span> par WMI en valeurs de   temps standard.</span></b><span lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span style=3D'font-size:7.5pt; font-family:Tahoma;color:white;text-transform:uppercase'>CODE</span></b><= span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3DGramE><span class=3D= grame><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>strCompu= ter</span></span></span></span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'> =3D &nb= sp; ‘.’<br>   <span class=3DSpellE><span class=3Dspelle>objWMIService</span></sp= an> =3D <span class=3DSpellE><span class=3Dspelle>Getobject</span></span>(‘<span class=3DSpellE><span class=3Dspelle>winmgmts</span></span>:’ + <span class=3DSpellE><span class=3Dspelle>strComputer</span></span> + ‘rootcimv2’)<br>   <span class=3DSpellE><span class=3Dspelle>objOS</span></span> =3D = <span class=3DSpellE><span class=3Dspelle>objWMIService.ExecQuery</span></span>= (‘Select   * from Win32_OperatingSystem’)<br>   For Each <span class=3DSpellE><span class=3Dspelle>strOS</span></s= pan> In <span class=3DSpellE><span class=3Dspelle>objOS</span></span><br>       <span class=3DSpellE><span class=3Dspelle>= dtmInstallDate</span></span> =3D <span class=3DSpellE><span class=3Dspelle>strOS.InstallDate</span></s= pan><br>       MESSAGEBOX(TRANSFORM(<span class=3DSpellE>= <span class=3Dspelle>WMIDateStringToDate</span></span>(<span class=3DSpellE><sp= an class=3Dspelle>dtmInstallDate</span></span>)))<br>   Next<br>   Function <span class=3DSpellE><span class=3Dspelle>WMIDateStringTo= Date</span></span>(<span class=3DSpellE><span class=3Dspelle>dtmInstallDate</span></span>)<br>   PRIVATE <span class=3DSpellE><span class=3Dspelle>ldRetVal</span><= /span><br>   RETURN CTOT(SUBSTR(<span class=3DSpellE><span class=3Dspelle>dtmIn= stallDate</span></span>, 5, 2) + ‘/’ +   SUBSTR(<span class=3DSpellE><span class=3Dspelle>dtmInstallDate</span></span>, 7, 2) + ‘/’ + Le= ft(<span class=3DSpellE><span class=3Dspelle>dtmInstallDate</span></span>, 4) + &#= 8216; ‘ +;<br>    SUBSTR(<span class=3DSpellE><span class=3Dspelle>dtmInstallD= ate</span></span>, 9, 2) + ‘:’ + SUBSTR(<span class=3DSpellE><span class=3Dspell= e>dtmInstallDate</span></span>, 11, 2) + ‘:’ + SUBSTR(dtmInstallDate,13,   2))<br>   ENDFUNC</span><span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><b><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'>Obtenir l’heure et <span class=3DGramE><span class=3Dgrame>la d= ate locales</span></span>   incluant la journée de la semaine, le quart et la semaine du mois. </span></b><span lang=3DFR style=3D'color:bl= ack; mso-ansi-language:FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span style=3D'font-size:7.5pt; font-family:Tahoma;color:white;text-transform:uppercase'>CODE</span></b><= span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3DGramE><span class=3D= grame><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>strCompu= ter</span></span></span></span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'> =3D &nb= sp; ‘.’<br>   <span class=3DSpellE><span class=3Dspelle>lcStr</span></span>=3D''= <br>   <span class=3DSpellE><span class=3Dspelle>objWMIService</span></sp= an> =3D <span class=3DSpellE><span class=3Dspelle>Getobject</span></span>(‘<span class=3DSpellE><span class=3Dspelle>winmgmts</span></span>:’ + <span class=3DSpellE><span class=3Dspelle>strComputer</span></span> + ‘rootcimv2’)<br>   <span class=3DSpellE><span class=3Dspelle>colItems</span></span> = =3D <span class=3DSpellE><span class=3Dspelle>objWMIService.ExecQuery</span></span>= (‘Select   * from Win32_LocalTime’)<br>   Set Step On<br>   For Each <span class=3DSpellE><span class=3Dspelle>objItem</span><= /span> In <span class=3DSpellE><span class=3Dspelle>colItems</span></span><br>       <span class=3DSpellE><span class=3Dspelle>= lcStr</span></span>=3D<span class=3DSpellE><span class=3Dspelle>lcStr+’Year</span></span>: &nbs= p; ‘ + Transform(<span class=3DSpellE><span class=3Dspelle>objItem.Yea= r</span></span>)+<span class=3DSpellE><span class=3Dspelle>Chr</span></span>(13)<br>       <span class=3DSpellE><span class=3Dspelle>= lcStr</span></span>=3D<span class=3DSpellE><span class=3Dspelle>lcStr+’Month</span></span>: &nb= sp; ‘ + Transform(<span class=3DSpellE><span class=3Dspelle>objItem.Mon= th</span></span>)+<span class=3DSpellE><span class=3Dspelle>Chr</span></span>(13)<br>       <span class=3DSpellE><span class=3Dspelle>= lcStr</span></span>=3D<span class=3DSpellE><span class=3Dspelle>lcStr+’Day</span></span>:   ‘ + Transform(<span class=3DSpellE><span class=3Dspelle>objItem.Day= </span></span>)+<span class=3DSpellE><span class=3Dspelle>Chr</span></span>(13)<br>       <span class=3DSpellE><span class=3Dspelle>= lcStr</span></span>=3D<span class=3DSpellE><span class=3Dspelle>lcStr+’Hour</span></span>: &nbs= p; ‘ + Transform(<span class=3DSpellE><span class=3Dspelle>objItem.Hou= r</span></span>)+<span class=3DSpellE><span class=3Dspelle>Chr</span></span>(13)<br>       <span class=3DSpellE><span class=3Dspelle>= lcStr</span></span>=3D<span class=3DSpellE><span class=3Dspelle>lcStr+’Minute</span></span>: &n= bsp; ‘ + Transform(<span class=3DSpellE><span class=3Dspelle>objItem.Min= ute</span></span>)+<span class=3DSpellE><span class=3Dspelle>Chr</span></span>(13)<br>       <span class=3DSpellE><span class=3Dspelle>= lcStr</span></span>=3D<span class=3DSpellE><span class=3Dspelle>lcStr+’Second</span></span>: &n= bsp; ‘ +Transform( <span class=3DSpellE><span class=3Dspelle>objItem.Sec= ond</span></span>)+<span class=3DSpellE><span class=3Dspelle>Chr</span></span>(13)<br>       <span class=3DSpellE><span class=3Dspelle>= lcStr</span></span>=3D<span class=3DSpellE><span class=3Dspelle>lcStr+’Day</span></span>  = Of the Week: ‘ + Transform(<span class=3DSpellE><span class=3Dspelle>objIt= em.Dayofweek</span></span>)+<span class=3DSpellE><span class=3Dspelle>Chr</span></span>(13)<br>       <span class=3DSpellE><span class=3Dspelle>= lcStr</span></span>=3D<span class=3DSpellE><span class=3Dspelle>lcStr</span></span>+   ‘We= ek In the Month: ‘ +<span class=3DSpellE><span class=3Dspelle>Transf</spa= n></span>( <span class=3DSpellE><span class=3Dspelle>objItem.WeekInMonth</span></spa= n>)+<span class=3DSpellE><span class=3Dspelle>Chr</span></span>(13)<br>       <span class=3DSpellE><span class=3Dspelle>= lcStr</span></span>=3D<span class=3DSpellE><span class=3Dspelle>lcStr+’Quarter</span></span>: &= nbsp; ‘ +Transform( <span class=3DSpellE><span class=3Dspelle>objItem.Qua= rter</span></span>)<br>   Next<br>   <span class=3DSpellE><span class=3Dspelle>Messagebox</span></span>= (<span class=3DSpellE><span class=3Dspelle>lcStr</span></span>)</span><span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <b>Démarrer un tache <span class=3DSpellE><span class=3Dspe= lle>cédulée</span></span>, plutôt que d’attendre   la cédule.</b></span><span lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></= p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span style=3D'font-size:7.5pt; font-family:Tahoma;color:white;text-transform:uppercase'>CODE</span></b><= span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3Dspelle><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>ssfCONTR= OLS</span></span></span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'> =3D &nb= sp; 3  && Control Panel's Schedule Tasks folder<br>   <span class=3DSpellE><span class=3Dspelle>sJobName</span></span> = =3D ‘<span class=3DSpellE><span class=3Dspelle>fta</span></span>’  &= amp;&   Name of the task to run<br>   <span class=3DSpellE><span class=3Dspelle>sRunVerb</span></span> = =3D ‘<span class=3DSpellE><span class=3Dspelle>R&un</span></span>’ &n= bsp;&&   Executing command<br>   <span class=3DSpellE><span class=3Dspelle>sEndVerb</span></span> = =3D ‘&End Task’  && <span class=3DSpellE><s= pan class=3Dspelle>Cancelling</span></span> command<br>   <span class=3DSpellE><span class=3Dspelle>shellApp</span></span> = =3D <span class=3DSpellE><span class=3Dspelle>Createobject</span></span>(‘<sp= an class=3DSpellE><span class=3Dspelle>shell.application</span></span>’= ;)<br>   <span class=3DSpellE><span class=3Dspelle>oControlPanel</span></sp= an> =3D <span class=3DSpellE><span class=3Dspelle>shellApp.Namespace</span></span>(<span class=3DSpellE><span class=3Dspelle>ssfCONTROLS</span></span>) && Schedule Tasks folder<br>   <span class=3DSpellE><span class=3Dspelle>oST</span></span> =3D ''= <br>   For Each <span class=3DSpellE><span class=3Dspelle>folderitem</spa= n></span> In <span class=3DSpellE><span class=3Dspelle>oControlPanel.items</span></= span>  &&   Loop though the items in the Control Panel items<br>       If <span class=3DSpellE><span class=3Dspel= le>folderitem.Name</span></span>  =3D   ‘Scheduled Tasks’<br>           <span class=3DSpel= lE><span class=3Dspelle>oST</span></span>   =3D <span class=3DSpellE><span class=3Dspelle>folderitem.getfolder</span></span>() && Found it<b= r>           Exit<br>       <span class=3DSpellE><span class=3Dspelle>= Endif</span></span><br>   Next<br>   If <span class=3DSpellE><span class=3Dspelle>Vartype</span></span>= (<span class=3DSpellE><span class=3Dspelle>oST</span></span>) !=3D 'O'<br>       <span class=3DSpellE><span class=3Dspelle>= Messagebox</span></span>(‘Couldn't find   'TS' folder’)<br>   <span class=3DSpellE><span class=3Dspelle>Endif</span></span><br>   <span class=3DSpellE><span class=3Dspelle>oJob</span></span> =3D '= '<br>   For Each <span class=3DSpellE><span class=3Dspelle>folderitem</spa= n></span> In <span class=3DSpellE><span class=3Dspelle>oST.items</span></span> = ; &&   Loop through the different scheduled tasks   until we <span class=3DSpellE><span class=3Dspelle>fiind</span></span> it.<br>       If   <span class=3Dgrame>Lo= wer(</span><span class=3DSpellE><span class=3Dspelle>folderitem.Name</span></span>) &= nbsp;=3D Lower(<span class=3DSpellE><span class=3Dspelle>sJobName</span></span>) &= nbsp; <br>           <span class=3DSpel= lE><span class=3Dspelle>oJob</span></span>   =3D <span class=3DSpellE><span class=3Dspelle>folderitem</span></span>  && Found it<br>           Exit<br>       <span class=3DSpellE><span class=3Dspelle>= Endif</span></span><br>   Next<br>   If <span class=3DSpellE><span class=3Dspelle>Vartype</span></span>= (<span class=3DSpellE><span class=3Dspelle>oJob</span></span>) !=3D‘O̵= 7;<br>       <span class=3DSpellE><span class=3Dspelle>= Messagebox</span></span>( ‘Couldn't find ‘   + <span class=3DSpellE><span class=3D= spelle>sJobName</span></span> + ‘ item’)<br>   Else<br>       <span class=3DSpellE><span class=3Dspelle>= bEnabled</span></span> =3D .T.<br>       <span class=3DSpellE><span class=3Dspelle>= oRunVerb</span></span> =3D ''<br>       <span class=3DSpellE><span class=3Dspelle>= oEndVerb</span></span> =3D ''<br>       s =3D ‘Verbs: ‘ + <span class=3DSpellE><span class=3Dspelle>Chr</span></span>(13)<br>       For Each Verb In <span class=3DSpellE><span class=3Dspelle>oJob.verbs</span></span>  &&   Loop through the different commands in the scheduled task until we find right   one.<br>           s =3D s + <span class=3DSpellE><span class=3DGramE><span class=3Dgrame>Chr</span></span><= /span><span class=3DGramE><span class=3Dgrame>(</span></span>13) + <span class=3DSpel= lE><span class=3Dspelle>Verb.Name</span></span><br>           If <span class=3DS= pellE><span class=3Dspelle>Verb.Name</span></span>   =3D <span class=3DSpellE><s= pan class=3Dspelle>sRunVerb</span></span><br>               <= span class=3DSpellE><span class=3Dspelle>oRunVerb</span></span> =3D Verb<br>               <= span class=3DSpellE><span class=3Dspelle>bEnabled</span></span> =3D .F.<br>           <span class=3DSpel= lE><span class=3Dspelle>Endif</span></span><br>           If <span class=3DS= pellE><span class=3Dspelle>Verb.Name</span></span>   =3D <span class=3DSpellE><s= pan class=3Dspelle>sEndVerb</span></span><br>               <= span class=3DSpellE><span class=3Dspelle>oEndVerb</span></span> =3D Verb<br>           <span class=3DSpel= lE><span class=3Dspelle>Endif</span></span><br>       Next<br>       If <span class=3DSpellE><span class=3Dspel= le>bEnabled</span></span><br>           <span class=3DSpel= lE><span class=3Dspelle>oJob.InvokeVerb</span></span>(<span class=3DSpellE><span class=3Dspelle>oEndVerb</span></span>)  && Cancel the t= ask<br>       Else<br>           Wait Window <span class=3DSpellE><span class=3Dspelle>Nowait</span></span> ‘executing job’<br>           <span class=3DSpel= lE><span class=3Dspelle>oJob.InvokeVerb</span></span>(<span class=3DSpellE><span class=3Dspelle>sRunVerb</span></span>)  && Run the task= !<br>       </span><span class=3DSpellE><span class=3D= spelle><span lang=3DFR style=3D'font-size:10.0pt;font-family:"Courier New";color:black; mso-ansi-language:FR'>Endif</span></span></span><span lang=3DFR style=3D'font-size:10.0pt;font-family:"Courier New";color:black;mso-ansi-= language: FR'><br>   <span class=3DSpellE><span class=3Dspelle>Endif</span></span></spa= n><span lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></= p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <b>Fonction qui énumère le <span class=3DSpellE><span class=3Dspelle>procress</span></span> qui <span class=3DGramE><span class= =3Dgrame>roulent</span></span>.</b></span><span lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></= p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span lang=3DFR style=3D'font-= size: 7.5pt;font-family:Tahoma;color:white;text-transform:uppercase;mso-ansi-la= nguage: FR'>CODE</span></b><span lang=3DFR style=3D'color:black;mso-ansi-language= :FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span lang=3DFR style=3D'font-size:10.0pt;font-family:"= Courier New"; color:black;mso-ansi-language:FR'>FUNCTION <span class=3DSpellE><span class=3Dspelle>enumerateProcess</span></span><br>   <span class=3DSpellE><span class=3Dspelle>lcComputer</span></span>= =3D ‘.’<br>   </span><span class=3DSpellE><span class=3DGramE><span class=3Dgram= e><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>loWMISer= vice</span></span></span></span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'> =3D <sp= an class=3DSpellE><span class=3Dspelle>Getobject</span></span>(‘<span class=3DSpellE><span class=3Dspelle>winmgmts</span></span>:’ ;<br>       + ‘{<span class=3DSpellE><span class=3Dspelle>impersonationLevel</span></span>=3Dimpersonate}!’ &n= bsp; + <span class=3DSpellE><span class=3Dspelle>lcComputer</span></span> + ‘rootcimv2’)<br>   <span class=3DSpellE><span class=3Dspelle>colProcessList</span></s= pan> =3D <span class=3DSpellE><span class=3Dspelle>loWMIService.ExecQuery</span></span> =   ;<br>       (‘Select * from Win32_Process’= )<br>   Create Cursor Process (Name c(20),Id <span class=3DSpellE><span class=3Dspelle>i,Thread</span></span> <span class=3DSpellE><span class=3D= spelle>i,pagefile</span></span> <span class=3DSpellE><span class=3Dspelle>i,pagefault</span></span> <span class=3DSpellE><span class=3Dspelle>i,workingset</span></span> c(20))<br>   Index On Name Tag Name<br>   For Each <span class=3DSpellE><span class=3Dspelle>loProcess</span= ></span> In <span class=3DSpellE><span class=3Dspelle>colProcessList</span></span>= <br>       Insert Into Process (<span class=3DSpellE>= <span class=3Dspelle>Name,Id,Thread,pagefile,pagefault,workingset</span></span>= );<br>           VALUES   (loProcess.Name,loProcess.ProcessID,loProcess.ThreadCount,loProcess.PageF= ileUsage,;<br>           <span class=3DSpel= lE><span class=3Dspelle>loProcess.pagefaults,loProcess.WorkingSetSize</span></span= >)<br>   Next<br>   BROWSE normal</span><span style=3D'color:black'><o:p></o:p></span>= </p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><b><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'>Fonction qui termine tous les <span class=3DSpellE><span class=3Dspel= le>process</span></span>   qui roulent.</span></b><span lang=3DFR style=3D'color:black;mso-an= si-language: FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span style=3D'font-size:7.5pt; font-family:Tahoma;color:white;text-transform:uppercase'>CODE</span></b><= span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span style=3D'font-size:10.0pt;font-family:"Courier Ne= w"; color:black'>FUNCTION <span class=3DSpellE><span class=3DGramE><span clas= s=3Dgrame>terminateProcess</span></span></span><span class=3DGramE><span class=3Dgrame>(</span></span><span class=3DSpellE><sp= an class=3Dspelle>lcProcess</span></span>)<br>   <span class=3DSpellE><span class=3Dspelle>lcComputer</span></span>= =3D ‘.’<br>   <span class=3DSpellE><span class=3DGramE><span class=3Dgrame>loWMI= Service</span></span></span> =3D <span class=3DSpellE><span class=3Dspelle>Getobject</span></span>(= 216;<span class=3DSpellE><span class=3Dspelle>winmgmts</span></span>:’ ;<br>       + ‘{<span class=3DSpellE><span class=3Dspelle>impersonationLevel</span></span>=3Dimpersonate}!’ &n= bsp; + <span class=3DSpellE><span class=3Dspelle>lcComputer</span></span> + ‘rootcimv2’)<br>   <span class=3DSpellE><span class=3Dspelle>colProcessList</span></s= pan> =3D <span class=3DSpellE><span class=3Dspelle>loWMIService.ExecQuery</span></span> =   ;<br>       (‘Select * from Win32_Process’= )<br>   For Each <span class=3DSpellE><span class=3Dspelle>loProcess</span= ></span> In <span class=3DSpellE><span class=3Dspelle>colProcessList</span></span>= <br>      IF UPPER(<span class=3DSpellE><span class=3Dspel= le>loProcess.name</span></span>) =3D <span class=3DSpellE><span class=3Dspelle>lcProcess</span></span><br>        <span class=3DSpellE><span class=3Ds= pelle>loProcess.terminate</span></span>()<br>      <span class=3DSpellE><span class=3Dspelle>endif<= /span></span><br>   Next</span><span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <b>Comment forcer le applet ‘Ajouter un <span class=3DSpellE= ><span class=3Dspelle>imprimate</span></span>’</b></span><span lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span style=3D'font-size:7.5pt; font-family:Tahoma;color:white;text-transform:uppercase'>CODE</span></b><= span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3Dspelle><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>oShell</= span></span></span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'> =3D &nb= sp; <span class=3DSpellE><span class=3Dspelle>CreateObject</span></span>("<span class=3DSpellE><span class=3Dspelle>WScript.Shell</span></span>")<br>   <span class=3DSpellE><span class=3Dspelle>oShell.Run</span></span>= ("rundll32.exe   shell32.dll,SHHelpShortcuts_RunDLL <span class=3DSpellE><span class=3Dspelle>AddPrinter</span></span>")</span><span style=3D'color= :black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span lang=3DFR style=3D'font-size:10.0pt;font-family:Tahoma;color:black;mso-an= si-language: FR'><br>   <b>Comment accéder au différentes applets du Control= <span class=3DSpellE><span class=3Dspelle>Pannel</span></span></b></span><span = lang=3DFR style=3D'color:black;mso-ansi-language:FR'><o:p></o:p></span></p> <p class=3DMsoNormal><span lang=3DFR style=3D'font-size:10.0pt;font-famil= y:Arial; color:black;mso-ansi-language:FR'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span style=3D'font-size:7.5pt; font-family:Tahoma;color:white;text-transform:uppercase'>CODE</span></b><= span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3Dspelle><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>oShell</= span></span></span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'> =3D &nb= sp; <span class=3DSpellE><span class=3Dspelle>CreateObject</span></span>('<span class=3DSpellE><span class=3Dspelle>WScript.Shell</span></span>')<br>   <span class=3DSpellE><span class=3Dspelle>oShell.Run</span></span>= ('Control.exe Sysdm.cpl,,0') </span><span style=3D'font-size:10.0pt;font-family:"Courie= r New"; color:green'>&& System <span class=3DSpellE><span class=3Dspelle>= Propeties</span></span>   general Tab.</span><span style=3D'font-size:10.0pt;font-family:"Co= urier New"; color:black'><br>   <span class=3DSpellE><span class=3Dspelle>oShell.Run</span></span>= ('Control.exe Sysdm.cpl,,1')</span><span style=3D'font-size:10.0pt;font-family:"Courier= New"; color:green'> && System Properties - Computer name tab.</span><sp= an style=3D'font-size:10.0pt;font-family:"Courier New";color:black'><br>   <span class=3DSpellE><span class=3Dspelle>oShell.Run</span></span>= ('Control.exe Sysdm.cpl,,2') </span><span style=3D'font-size:10.0pt;font-family:"Courie= r New"; color:green'>&& System properties - Hardware tab.</span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'><br>   <span class=3DSpellE><span class=3Dspelle>oShell.Run</span></span>= ('Control.exe Sysdm.cpl,,3') </span><span style=3D'font-size:10.0pt;font-family:"Courie= r New"; color:green'>&& System properties - Advanced tab.</span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'><br>   <span class=3DSpellE><span class=3Dspelle>oShell.Run</span></span>= ('Control.exe Sysdm.cpl,,4') </span><span style=3D'font-size:10.0pt;font-family:"Courie= r New"; color:green'>&& System properties - System Restore tab (ME and &n= bsp; XP).</span><span style=3D'font-size:10.0pt;font-family:"Courier New"; color:black'><br>   <span class=3DSpellE><span class=3DGramE><span class=3Dgrame>oShel= l.Run</span></span></span><span class=3DGramE><span class=3Dgrame>(</span></span>'Control.exe Sysdm.cpl,,= 5') </span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:green'>&&am= p;   System properties - Automatic Updates tab.</span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'><br>   <span class=3DSpellE><span class=3Dspelle>oShell.Run</span></span>= ('Control.exe Sysdm.cpl,,6') </span><span style=3D'font-size:10.0pt;font-family:"Courie= r New"; color:green'>&& System properties - Remote tab.</span><span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;margin-bottom:12.0p= t'><span style=3D'font-size:10.0pt;font-family:Tahoma;color:black'><br>   The parameters apply to the different applets. The last parameter refers to   the tab that has the focus.</span><span style=3D'color:b= lack'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; mso-outline-level:5;background:#777777'><b><span style=3D'font-size:7.5pt; font-family:Tahoma;color:white;text-transform:uppercase'>CODE</span></b><= span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto; background:white'><span class=3DSpellE><span class=3Dspelle><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>oShell.R= un</span></span></span><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>('Contro= l.exe   Access.cpl,,1') </span><span style=3D'font-size:10.0pt;font-family= :"Courier New"; color:green'>&& <span class=3DSpellE><span class=3Dspelle>Accessi= bilty</span></span>   Options applet focused on tab 1</span><span style=3D'font-size:10.= 0pt; font-family:"Courier New";color:black'><br>   <span class=3DSpellE><span class=3Dspelle>oShell.Run</span></span>= ('Control.exe AppWiz.cpl,,1') </span><span style=3D'font-size:10.0pt;font-family:"Couri= er New"; color:green'>&& Add/Remove Programs applet focused on tab 1</span= ><span style=3D'font-size:10.0pt;font-family:"Courier New";color:black'><br>   <span class=3DSpellE><span class=3Dspelle>oShell.Run</span></span>= ('Control.exe Desk.cpl,,1') </span><span style=3D'font-size:10.0pt;font-family:"Courier= New"; color:green'>&& Display Properties applet focused on tab 1</span>= <span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  <o:p></o:p></span></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-a= lt:auto'><span style=3D'font-size:10.0pt;font-family:Tahoma;color:black'><br>   The rest of the Applets <span class=3DGramE><span class=3Dgrame>wo= rks</span></span> in the same principle.<br>   <span class=3DSpellE><span class=3Dspelle>InetCpl.cpl</span></span> Internet Options <br>   <span class=3DSpellE><span class=3Dspelle>Intl.cpl</span></span> C= ountry <br>   <span class=3DSpellE><span class=3Dspelle>Joy.cpl</span></span> Jo= ystick <br>   <span class=3DSpellE><span class=3Dspelle>Main.cpl</span></span> M= ouse, keyboard, printers and fonts <br>   <span class=3DSpellE><span class=3Dspelle>MmSys.cpl</span></span> Multimedia and sounds <br>   <span class=3DSpellE><span class=3Dspelle>Modem.cpl</span></span> = Modem <br>   OdbcCp32.cpl ODBC data source <br>   <span class=3DSpellE><span class=3Dspelle>Password.cpl</span></spa= n> Password <br>   <span class=3DSpellE><span class=3Dspelle>Ports.cpl</span></span> = Ports <br>   <span class=3DSpellE><span class=3Dspelle>PowerCfg.cpl</span></spa= n> Power Management <br>   <span class=3DSpellE><span class=3Dspelle>PrefsCpl.cpl</span></spa= n> Real Player G2 <br>   <span class=3DSpellE><span class=3Dspelle>Ras.cpl</span></span> Re= mote Access <br>   <span class=3DSpellE><span class=3Dspelle>SrvMgr.cpl</span></span> Server  <br>   <span class=3DSpellE><span class=3Dspelle>SysDm.cpl</span></span> = System <br>   <span class=3DSpellE><span class=3Dspelle>Telephon.cpl</span></spa= n> Telephony <br>   <span class=3DSpellE><span class=3Dspelle>Themes.cpl</span></span>= Desktop themes <br>   <span class=3DSpellE><span class=3Dspelle>TimeDate.cpl</span></spa= n> Date/Time <br>   <span class=3DSpellE><span class=3Dspelle>TweakUI.cpl</span></span= > <span class=3DSpellE><span class=3Dspelle>TweakUI</span></span> <br>   <span class=3DSpellE><span class=3Dspelle>Ups.cpl</span></span> Sp= are power supply </span><span style=3D'color:black'><o:p></o:p></span></p> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial; color:black'>  </span> <span style=3D'font-size:10.0pt;font-fam= ily: Arial;color:black'><o:p></o:p></span></p> </td> </tr> </table> <p class=3DMsoNormal><span style=3D'font-size:10.0pt;font-family:Arial;colo= r:black'><o:p> </o:p></span></p> <p><o:p> </o:p></p> <p class=3DMsoNormal style=3D'mso-margin-top-alt:auto;mso-margin-bottom-alt= :auto'><span style=3D'color:black'> <o:p></o:p></span></p> <p class=3DMsoNormal><o:p> </o:p></p> </div> </body> </html>