Option Explicit

Dim CheminScriptActuel, ScriptFileName, Position
Dim WSHShell, Commande
Dim NomVM, varLoginAuthentVM, varMotDePasseAuthentVM, varNomSnapShot
Dim objFSO, objTextFile, CheminFichierLog

'Déclaration des constantes
Const ForReading = 1
Const ForWritting = 2
Const ForAppending = 8


CheminScriptActuel = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1)
'Wscript.Echo "Votre script '" & wscript.scriptname & "' est dans le répertoire '" & CheminScriptActuel & "'."

ScriptFileName = wscript.scriptname
Position = InstrRev(ScriptFileName,".")
if (Position > 0) Then ScriptFileName = Left(ScriptFileName, Position - 1)

CheminFichierLog = CheminScriptActuel & "\" & ScriptFileName & "_log.txt"

NomVM = Trim(InputBox("Entrez le nom de la VM","Nom de la VM","Nom machine"))

If Len(NomVM) > 0 Then
	Set WSHShell = CreateObject("WScript.Shell")

	Commande = "cmd /k Powershell -file """ & CheminScriptActuel & "\" & ScriptFileName & ".ps1"" -v """ & NomVM & """"

	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objTextFile = objFSO.OpenTextFile(CheminFichierLog, ForWritting, True)
	objTextFile.WriteLine(Commande) 'On ecrit la date et l'heure dans le fichier
	objTextFile.Close 'Fermeture du fichier

	Set objTextFile = Nothing
	Set objFSO = Nothing
	
	WSHShell.Run Commande
	Set WSHShell = Nothing
End If