VBS récupérer valeur d'un fichier d'entré

Bonjour,

Grace aux différents postes et surtout celui d'un certain "Xavier" présent ici j'ai commencé un petit vbs.

Celui si vérifie la présence d'une clé de registre et me donne une réponse.
J'aimerai maintenant que celui me demande des noms de machines à renseigner ou le chemin d'un fichier dans lequel il y aura ces noms de machines..

Voici le script:

Set fs = CreateObject("Scripting.FileSystemObject" )
set c=CreateObject("WScript.Shell" )

valeur1 = ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{***}\DisplayName")

If ExisteCle(valeur1) = true then
AC = c.RegRead(valeur1)
Else
AC = "Cle inexistante"
End if

msgbox "Version Office : " & AC

Function ExisteCle( stKey)
On Error Resume Next
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegRead stKey
ExisteCle = (Err = 0)
End function


Je débute en vbs et me permet donc de vous demander votre aide.

En vous remerciant par avance.