Lors de vos diverses implémentations de scripts vous vous posez surement une question : comment les rendre plus interractifs ?

La réponse n’est pas simple, en effet, un script n’a nativement pas vocation à proposer une quelconque interraction et encore moins de façon graphique !

Tout ceci est vrai … enfin, si vous ne connaissez pas : le HTML Applicatif ou HTA !

Le HTA est un language de présentation (tout comme le HTML dont il en reprend la syntaxe) permettant l’exécution de scripts tels que des scripts VBS ou JavaScript.

Notons que contrairement au VBS qui s’appuie sur un hôte CScript ou WScript, le HTA s’appuie lui sur mshta.exe.

Passons maintenant à la pratique !

Retrouvez donc ci dessous un premier script VBS contenant l’ensemble des fonctions utilisées dans le second script qui lui est donc notre fameux script HTA.

Donc, le script VBS (nommé monscript.vbs):

 
'Script VBS Contenant les fonctions appellées par HTA
function hello
msgbox "Hello !!"
end function

function ExitHTA
    self.close()
End function

function GetOSVersion
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer &  "\root\cimv2")
    Set colOperatingSystems = objWMIService.ExecQuery _
        ("Select * from Win32_OperatingSystem")
    For Each objOperatingSystem in colOperatingSystems
        Msgbox objOperatingSystem.Caption & " " & _
		objOperatingSystem.Version
	Next
End function
function TestSub
        Msgbox textesaisi.Value
End function

Puis le Script HTA « MonSript.hta »(attention à l’appel à « monscript.vbs »):

 
 
	 
		 
		
		CAPTION="yes" 
		SHOWINTASKBAR="yes"  
		SCROLL="no"> 
		
	 
   
	
	
HTA Test d'intégration de VBS !
	

		

			
Manipulation de variables 
			

				
				
			
		
		

			
Interrogations WMI
			

				
			
		
	
 
	
	
	
   

à vous de jouer !