Menu Content/Inhalt
Accueil arrow Outils arrow WSHShell arrow WSH Shell : Les modules externes

Syndication

Abonnez-vous à ce fil RSS pour être tenu informé des nouveautés de ce site.

WSH Shell : Les modules externes Convertir en PDF Version imprimable Suggérer par mail
Écrit par Gilles LAURENT   
18-03-2007

Aperçu des fonctionnalités de la console WSH Shell

Intégration d'un module externe

Les modules externes permettent d'ajouter de nouvelles fonctionnalités à la console WSH Shell. Ces modules sont automatiquement chargés au démarrage de la console et donc directement accessibles. Ils peuvent être développés selon deux formats distincts :

  • Le format "standard" représenté par des fonctions et procédures
  • Le format "objet" représenté par une classe contenant des méthodes et des propriétés. Ce format est à privilégier.

Les modules externes sont stockés dans le sous-dossier \Include. Il doivent respecter la règle de nommage suivante :

_wsh<Description>.inc

Les modules externes devront impérativement être accompagnés d'une documentation, même succincte, dans le but de documenter les méthodes et propriétés des classes instanciées. Les fichiers d'aide au format XML seront déposés dans le sous-dossier \Help et respecteront la règle de nommage suivante :

_wsh<Description>.xml

NOTE: Le format XML des fichiers d'aide sera documenté dans un autre article.

Ci-dessous un exemple de module externe développé dans le format objet. Ce module expose une seule méthode "GetScores" qui a pour but d'extraire d'une page HTML les résultats des Microsoft Scripting Games 2007.

Note: Inspiré du MVP PowerShell /\/\o\/\/
http://thepowershellguy.com/blogs/posh/archive/2007/02/19/scripting-games-2007-advanced-powershell-scores-list.aspx

_wshScriptingGames.inc

'
'	Windows Script Host (WSH) Shell
'	(c) 2007 Gilles LAURENT
'	wshScriptingGames Class v1.0.0.1
'

Option Explicit

Class WSHScriptingGames

' =========================
' == PRIVATE PROPERTIES
' =========================

   Private oFs, oRe

' =========================
' == PUBLIC PROPERTIES
' =========================

   Public Property Get Version ()

      oRe.Pattern="v(\d\.\d.*)"   
      Version = oRe.Execute ( _
	oFs.OpenTextFile ("Include\_wshScriptingGames.inc", 1, False).ReadAll ())(0).SubMatches (0)

   End Property

' =========================
' == PRIVATE MEMBERS
' =========================

   Private Sub Class_Initialize ()

      ' initialisation des objets
      Set oFs = CreateObject ("Scripting.FileSystemObject")
      Set oRe = New RegExp

      ' définition des propriétés de l'expression régulière
      oRe.IgnoreCase = True
      oRe.Multiline = False
      oRe.Global = True

   End Sub

   Private Sub Class_Terminate ()

      ' libération des objets
      Set oFs = Nothing
      Set oRe = Nothing

   End Sub

' =========================
' == PUBLIC MEMBERS
' =========================

   Public Function GetScores (strHtmlContent)

      ' déclaration des variables	
      Dim oMatch
      Dim colMatches
      Dim arrLines(): ReDim arrLines(0)
      Dim i, j: j=0

      oRe.Pattern = "l" & Chr(34) & ">(.*?)
   
      arrLines(0) = Replace ( _
	"Name|Country|E1|E2|E3|E4|E5|E6|E7|E8|E9|E10|Total|", "|", Shell.strTableFieldSep)

      Set colMatches = oRe.Execute (strHtmlContent)
      For i=13 to colMatches.count-1
         Set oMatch = colMatches (i)
         If i Mod 13=0 Then
            arrLines(j) = Left(arrLines(j), Len(arrLines(j))-1)
            j=j+1
            ReDim Preserve arrLines(j)
         End If
         arrLines(j)=arrLines(j) & oMatch.SubMatches(0) & Shell.strTableFieldSep         
      Next

      arrLines(j) = Left(arrLines(j), Len(arrLines(j))-1)
      GetScores = arrLines

   End Function

End Class

Démarrage de la console WSH Shell après avoir déposé le module externe

dans le sous-dossier \Include :


Microsoft (R) Windows Script Host Version 5.6                                   
Copyright (C) Microsoft Corporation 1996-2001. Tous droits réservés.            
                                                                                
 _ _ _  ___  _ _   ___  _         _  _                                          
| | | |/ __>| | | / __>| |_  ___ | || |                                         
| | | |\__ \|   | \__ \| . |/ ._>| || |                                         
|__/_/ <___/|_|_| <___/|_|_|\___.|_||_|                                         
                                                                                
Windows Script Host (WSH) Shell v1.0.0.5 starting ...                           
                                                                                
Registering components ...                                                      
                                                                                
Loading external modules ...                                                    
  Loading _wshAdsi.inc ...                                                      
  Loading _wshIni.inc ...                                                       
  Loading _wshScriptingGames.inc ...                                            
  Loading _wshWmi.inc ...                                                       
                                                                                
Welcome ...                                                                     
It's 07/10/2007 18:46:11 and WSH Shell is up !                                  
                                                                                
Ready.                                                                          
                                                                                
WSH D:\Test> ' notre nouveau module est bien présent dans la liste des modules  
WSH D:\Test> ' automatiquement chargés. Il ne reste plus qu'à créer une         
WSH D:\Test> ' instance pour en bénéficier                                      
WSH D:\Test> Set oSG=New wshScriptingGames                                      
WSH D:\Test> ' détermination des membres (méthodes et propriétés)               
WSH D:\Test> gm(oSG)                                                            
                                                                                
Category  Name                                                                  
--------  ----                                                                  
Function  GetScores (strHtmlContent)                                            
Property  Version                                                               
                                                                                
WSH D:\Test> ' on retrouve bien ici notre méthode "GetScores"                   
WSH D:\Test> ' lecture de la page HTML des résultats VBScript Advanced          
WSH D:\Test> ' cette page est disponible à l'adresse suivante :                 
WSH D:\Test> ' http://www.microsoft.com/technet/scriptcenter/funzone/games      
WSH D:\Test> ' /games07/vbascores.mspx                                          
WSH D:\Test> ' here we go !                                                     
WSH D:\Test> strHtmlPage=DownloadString("http://www.microsoft.com/technet" & _  
  >> "/scriptcenter/funzone/games/games07/vbascores.mspx", arrRetCode)          
  >>                                                                            
WSH D:\Test> ' la variable de type tableau "arrRetCode" passée comme argument   
WSH D:\Test> ' contient le code de retour de la requête HTTP                    
WSH D:\Test> echo $(arrRetCode)                                                 
200                                                                             
OK                                                                              
                                                                                
WSH D:\Test> ' à priori tout est en ordre :-)                                   
WSH D:\Test> ' nous allons maintenant formater les données "brutes" avec        
WSH D:\Test> ' notre méthode "GetScores"                                        
WSH D:\Test> arrScores=oSG.GetScores(strHtmlPage)                               
WSH D:\Test> ' quel était le nombre de participants ?                           
WSH D:\Test> echo UBound(arrScores) + 0                                         
262                                                                             
WSH D:\Test> ' NOTE: (+ 0) car le tableau formaté contient également la         
WSH D:\Test> ' définition des colonnes                                          
WSH D:\Test> ' affichage sous forme de tableau des scores                       
WSH D:\Test> ft arrScores,"","","Name|Country|Total"                            
                                                                                
Name                              Country                      Total            
----                              -------                      -----            
Alan Dunbar                       Canada                       100              
Alan Mosley                       Australia                    100              
Alan Roberson                     USA                          100              
Alex Duckworth                    Australia                    100              
AlioTheFool                       USA                          100              
Ben Simkins                       Switzerland                  100              
Blackhawk                         Canada                       100              
Bob Stammers                      No Affiliation               100              
Chris Bland                       Canada                       100              
Chris Osborne                     USA                          100              
Christian Pfeiffer                Austria                      100              
Clifford Williamson, III          USA                          100              
Clinton Huff                      USA                          100              
Courtney Newman                   USA                          100              
Craig Naumann                     Australia                    100              
Curtis J. O'Connell               USA                          100              
Dan Richardson                    USA                          100              
Darren Malik                      USA                          100              
Dave E                            United Kingdom               100              
Dave Rosen                        Israel                       100              
Dave Wyatt                        USA                          100              
David Coles                       Australia                    100              
Dennis G. Landsem                 Norway                       100              
djhayman                          Australia                    100              
DrBayer                           Vandyland                    100              
Ed Z                              USA                          100              
Eelco Ligtvoet                    The Netherlands              100              
Eric Payne                        USA                          100              
Erik Renes                        The Netherlands              100              
Fábio de Paula Junior             Brazil                       100              
Francis de la Cerna               USA                          100              
Frank den Haan                    The Netherlands              100              
Frank Fattizzi                    USA                          100              
Fred Jenkins                      USA                          100              
Geoffrey Grinton                  Australia                    100              
Gilles LAURENT                    France                       100              
Gordon Yuen                       Bmraarykduesn                100              
Gyorgy Nemesmagasi                Hungary                      100              
H. S.                             Denmark                      100              
H2Data                            Australia                    100              
Helder Sepulveda                  Cuba Libre                   100              
Homer Yu                          ITExpert                     100              
Hong Quan YU                      China                        100              
Imran Hashim                      Pakistan                     100              
Jakub Niedzwiedz                  Poland                       100              
James Ward                        USA                          100              
Jan Kuvaja                        Sweden                       100              
Jarno Mäki                        Finland                      100              
Jason Clement                     USA                          100              
Jason Joy                         USA                          100              
Jean - JMST                       Belgium                      100              
Jerry G                           USA                          100              
Jerzy Prusinski                   Poland                       100              
John Medwid                       DSG                          100              
John Reichenbach                  USA                          100              
Josh Bradbury                     Kazakhstan                   100              
Luis Martín Caballero             Spain                        100              
Marcus L. Farmer                  USA                          100              
Mark B                            USA                          100              
Matthew R. Davis                  USA                          100              
Matto                             Australia                    100              
Maureen Farrell                   USA                          100              
Michaela Doil                     Germany                      100              
micra                             Poland                       100              
Mike Holden                       Albania                      100              
Miles Willmek                     Canada                       100              
MrRat                             USA                          100              
Nick Ford                         England                      100              
Patrick Donahue                   USA                          100              
Patrick O'Connell                 USA                          100              
Paul M Marshall                   Australia                    100              
Peacerich Timecastle              Sweden                       100              
Robert Moore                      New Zealand                  100              
Russ Pitcher                      England                      100              
Russell Smith                     USA                          100              
ScriptingGuys-TargetChapter       Targetopia                   100              
Stefan Suesser                    Germany                      100              
Stephen Coombes                   USA                          100              
Steve Kulyk                       Canada                       100              
SUF                               Hungary                      100              
Tim Laqua                         USA                          100              
Tobias Reinwald                   Germany                      100              
wa ayoub                          No Affiliation               100              
Willem van Egmond                 The Netherlands              100              
Anoop Puthan Veetil               India                        95               
Brad Schafbuch                    USA                          95               
Des Finkenzeller                  United Kingdom               95               
Jens Frieben                      Germany                      95               
Natan Kahana                      Israel                       95               
Rob Shannon                       Australia                    95               
Sean Wheeler                      USA                          95               
Andre Starkloff                   Germany                      94               
Daniel Laurel                     USA                          94               
CHig                              USA                          93               
Chris Hollenbeck                  USA                          93               
Nagy János                        Hungary                      93               
Chuck Webb                        USA                          92               
Daniel Carr                       Canada                       92               
Daniel Grundel                    USA                          92               
Sidewinder                        Dataland                     92               
Brian Carr                        Scotland                     91               
Ronen Shurer                      Israel                       91               
Andy Sturycz                      USA                          90               
Drew Monrad                       Canada                       90               
Kris VG                           Belgium                      90               
Mark McGilly                      Ireland                      90               
Muhammad Faheem Sarani            Pakistan                     90               
Pavol Popovic                     USA                          90               
Peter J Harrison                  United Kingdom               90               
Seth Levenberg                    No Affiliation               90               
Simon Dalling                     England                      90               
ydy                               Switzerland                  90               
Micho Janssen                     South Africa                 89               
Miguel Alvarez                    Spain                        89               
Paul Cook                         Australia                    89               
Rubens Farias                     Brazil                       88               
Shane W                           Australia                    88               
Simon Ledo                        USA                          88               
Reinhard Lehrbaum                 Austria                      87               
Shannon Turner                    USA                          87               
Abdyushev Pavel                   Russia                       85               
Chris Davidson                    USA                          85               
Chris Hanlon                      USA                          85               
DrJohnM                           USA                          85               
Greg Hovey                        Qatar                        85               
Joe Matyaz                        USA                          85               
Masami Motohashi                  Japan                        85               
Rob van der Woude                 The Netherlands              85               
WYN                               Canada                       85               
C.M.Burnes                        Germany                      84               
Raja Mohamad Fairuz               Malaysia                     83               
Tom Rodgers                       USA                          83               
Kasey Nichols                     USA                          82               
Maz                               United Kingdom               82               
Roland Indra                      Austria                      82               
gamabyte                          USA                          80               
ljfong                            Kara-Tur                     80               
Robert Dunham (Nilpo)             USA                          80               
Tim Genge                         United Kingdom               80               
Bob Trapp                         USA                          79               
Julio Garcia                      United Kingdom               78               
Jim Wells                         USA                          77               
pake73                            Sweden                       77               
Arden Pineda                      Winterfell                   76               
Carl Dockum                       USA                          75               
Chris H (C2)                      USA                          75               
Greg Haak                         USA                          75               
Lance Montana                     Vanuatu                      75               
Rafael T                          Ryukyu                       75               
Ritchie Trewin                    Australia                    75               
Shay Levy                         Israel                       75               
Mrk                               Guatemala                    74               
The un1337 one                    Hyrule                       73               
Jaroslav Strunc                   Czech Republic               72               
Andrew Chuvahin                   Ukraine                      70               
Colet Robin                       No Affiliation               70               
EvEm_Relic                        Australia                    70               
Mike Marr                         Canada                       70               
Peter Sarf                        Slovenia                     70               
Richard Horne                     USA                          70               
Stef R                            No Affiliation               70               
Tracy Cook                        USA                          70               
Vinod Dadhe                       India                        70               
Jonas Nywall                      Sweden                       68               
Darren Palmer                     USA                          67               
Chris Swinford, Idea Integration  USA                          65               
Daniel Gooderidge                 Australia                    65               
Kevin Thompson                    Canada                       65               
TLH                               USA                          65               
Karl Juskevice                    USA                          64               
Fernando Peralta                  Uruguay                      63               
Aaron Mann                        USA                          60               
Alexander Chernov                 Ukraine                      60               
Assaf Miron                       Israel                       60               
Vincent "Jaf" Bonnet              France                       60               
Volker Schindler                  Germany                      60               
Yujiro Ogihara                    Japan                        60               
Langhans Michael                  Germany                      59               
Andy Neilson                      United Republic Of Writonia  58               
Stephen Correia - tumtum73        USA                          58               
rlrcstr                           USA                          57               
Glynn Williams                    England                      56               
Adam Richards                     Cubicletania                 55               
David Neufeld                     Canada                       55               
Erik G. Bitemo                    Hungary                      55               
Ismael Serrano                    USA                          55               
Joe Ostrander                     USA                          55               
Unmesh Gundecha                   India                        54               
Mark Jansen                       The Netherlands              51               
Vladimir Stepic                   Macedonia                    50               
Chris Griffiths                   Australia                    45               
Joshua Taylor                     USA                          45               
Matthew Kelly                     New Zealand                  45               
Sysadmin Stickler                 USA                          43               
Chris Barber                      USA                          41               
DS316                             Scotland                     40               
Frodekommode                      Norway                       40               
Marjolein Jongstra                The Netherlands              40               
Roy Darnell                       USA                          40               
Christopher G. Lewis              USA                          38               
Dick Salmon                       USA                          35               
Krzysztof Bloniarz                Poland                       35               
Tom Glowacki                      USA                          35               
Witchakorn Kamolpornwijit         Thailand                     35               
Tomislav Herceg                   Croatia                      31               
Dwight Trimble                    Canada                       30               
Fredrik Wall                      Sweden                       30               
impeeza                           Colombia                     30               
Michael Gunther                   No Affiliation               30               
Milo Gancarz                      Canada                       30               
N3QGO                             USA                          30               
Necip TOMURCUK                    Turkey                       30               
Olivier Dalla Rosa                France                       30               
Patrick Massey                    USA                          30               
rrizzo                            USA                          30               
Vinod Panikar                     Singapore                    29               
Josh Fitzgerald                   USA                          28               
Bushwhacker                       Kurdistan                    25               
David M. Williams                 Australia                    25               
Guy Melamed                       Israel                       25               
Jason Scheffelmaer                USA                          25               
Jason Yeo                         Australia                    25               
Milorad Nikolic                   Austria                      25               
Nelnandez                         USA                          25               
qsilverx                          England                      25               
Richard Manion                    USA                          25               
Ryan Youngs                       USA                          25               
Daniel Trochez                    Colombia                     20               
Jon Warnken                       Hohenwald                    20               
newton3010                        Gerald Smith                 20               
Oko Da                            No Affiliation               20               
rwizard54                         USA                          20               
S Coleman                         USA                          20               
Thomas Westrick                   USA                          20               
Brett Volkmer                     Australia                    15               
Emilio Raggi                      United Arab Emirates         15               
George Entecott                   England                      15               
JustKillinTime                    Canada                       15               
Raphael Simmons aka Dejacpp       USA                          15               
RasmusVoss                        Denmark                      15               
Rudi                              Germany                      15               
Sankar Muthaiah                   India                        15               
Steve Mellor                      Scotland                     15               
Chris Ferony                      USA                          13               
David Linker                      Australia                    12               
Antony Smoothey                   England                      10               
Blahcubed                         USA                          10               
EZ                                USA                          10               
Flavius                           Romania                      10               
Joe Roten                         USA                          10               
Kevin Tavera                      USA                          10               
Rhoderick Milne                   United Kingdom               10               
Tim May                           USA                          10               
Yuri Kutovoy                      Russia                       10               
David Saxon                       United Kingdom               5                
Greg Bugg                         USA                          5                
Kent Finkle                       USA                          5                
kevshaw                           USA                          5                
Lukas Kucera                      Czech Republic               5                
Matt Farrington                   USA                          5                
Paul Waite                        USA                          5                
Siddharth Nivargi                 India                        5                
                                                                                
WSH D:\Test> ' sélection des participants Français                              
WSH D:\Test> ft arrScores,"","Country Like 'Fr*'","Name|Country|Total"          
                                                                                
Name                              Country                      Total            
----                              -------                      -----            
Gilles LAURENT                    France                       100              
Vincent "Jaf" Bonnet              France                       60               
Olivier Dalla Rosa                France                       30               
                                                                                
WSH D:\Test> ' Ah oui ! C'est vrai ! J'ai participé aux Scripting Games 2007    
WSH D:\Test> ' de plus les Scripting Guys viennent de m'annoncer (par voie de   
WSH D:\Test> ' messagerie) que je vais recevoir prochainement la tant convoitée 
WSH D:\Test> ' "Dr. Scripto Bobblehead Doll" !                                  
WSH D:\Test> ' Enjoy !                                                          
WSH D:\Test>                                                                    

 
< Précédent   Suivant >