#---8<---HTA_PowerShell.ps1---Jean-JMST-Belgium---
  #=4/2007==================================Version 0=====#
  #============ DEMO for new-IeNamed.ps1 =================#
  #
  # FILES REQUIRED
  #
  #  new-IeNamed.ps1 and PowerShell.hta are required
  #
  # PREQUISITS REQUIRED
  #
  #  - an alias "newie" must be set to new-IeNamed.ps1
  #     ie : Set-Alias newie c:\PSScripts\new-IeNamed.ps1
  #
  #  - you must have first execute PowerShell.hta before
  #    you run this script (HTA_PowerShell.ps1)
  #
  #=========Tested on PowerShell 1========================#

  Clear-Host
  
  newie 'htaproxy' 'window.ps_connected=true'|Out-Null
  
  "Ecriture dans le HTA d'un message, de la date,"
  "et de la liste des processus dans un tableau"
  $htadoc=newie 'htaproxy' 'hta'
  $htadoc.body.innerHTML+='Bien le bonjour de PowerShell<br />'
  $htadoc.body.innerHTML+=(Get-Date).ToString()+'<br />'
  $table=$htadoc.body.appendChild($htadoc.createElement('table'))
  $table.border=2
  $table.borderColor='black'
  
  Get-Process|%{
                $row=$table.insertRow()
                $row.insertCell().innerText=$_.ProcessName
                $row.insertCell().innerText=$_.id
               }
  
  Clear-Host
  
  "Affichage des lettres de lecteurs avec l'object FSO du HTA"
  $fso=newie 'htaproxy' 'htaFSO'
  $fso.Drives|%{$_.DriveLetter}
  
  "Suite dans 5 secondes"
  Start-Sleep 5
  Clear-Host
  
  "Utilisation de la méthode BuildPath de l'objet FSO du HTA"
  $fso.BuildPath("c:\mon répertoire","sous répertoire")
  
  "Suite dans 5 secondes"
  Start-Sleep 5
  Clear-Host 
  
  $htainfo=$htadoc.getElementById('info')
  
  15..1|
   %{
     $htainfo.scrollIntoView($true)
     $htainfo.innerText="Fermeture dans $_ secondes"
     Clear-Host
     "Fermeture du HTA et de la fenêtre proxy dans $_ secondes"
     Start-Sleep 1
    }
  
  newie 'htaproxy' 'hta.parentWindow.close()'
  newie 'htaproxy' 'close()' 
  
  
  Clear-Host
  'HTA et fenêtre proxy fermée.'
  #---8<---HTA_PowerShell.ps1---Jean-JMST-Belgium---