#http://www.chdb.eu/?n=9262
#Création d'un objet VbScript pour ensuite affichier une fenêtre de saisie
#Note : ne fonctionne que sur un système 32bits, par 64bits

Clear-Host
$MaVariable = [string]

$ObjVbScript = new-object -comobject MSScriptControl.ScriptControl
$ObjVbScript.language = "vbscript"

#Afficher une fenêtre de saisie pour récupérer le tout dans une variable
$ObjVbScript.addcode("function getInput() getInput = inputbox(`"Entrez quelque-chose`",`"Saisie d une valeur`",`"Valeur par défaut`") end function" )
$MaVariable = $ObjVbScript.eval("getInput")

Write-Host $MaVariable