locked
Script VBS/hta non lisible lors du sysprep RRS feed

  • Question

  • Bonsoir,

    J'ai actuellement un problème, j'ai suivi une procédure pour lorsque le PC redémarre suite a un sysprep, il demande le nom du PC d'entrer le nom du poste pour ainsi l'inscrire dans le fichier unattend.

    J'ai un peu suivi cette procédure, cependant j'ai voulu l'améliorer pour la rendre automatique.

    Etant donné que je me sers du numéro de série du poste , je désire avoir une fenêtre qui s'ouvre juste pour m'informer et me demander de confirmer qu'il s'agit du bon numéro de série.

    Le script me récupère et m'affiche bien le numéro de série mais une fois hors de l'environnement de Windows, (c'est à dire pendant la préparation du système) le .hta m'affiche tout sauf cette information...

    Pouvez -vous m’éclaircir sur ce point?

    <!-- Auteur : D4kh Date : 09/05/2012 Fonction : Interface de paramétrage Sysprep puis Déploiement - Windows 7 --> <head> <title>Interface de paramétrage Sysprep Windows 7</title> <hta:application application="sysprepw7" windowstate="maximize" border="no" contextmenu="no" sysmenu="no" version="1.0"> </head> </head> <script language="VBScript"> '---------------------------------------------------------------------------------------------- ' Fonction temps pour l'entrée des paramètre avant la continuation du Windeploy.exe '---------------------------------------------------------------------------------------------- Sub Sleep(MSecs) Set fso = CreateObject("Scripting.FileSystemObject") If Fso.FileExists("sleeper.vbs")=False Then Set objOutputFile = fso.CreateTextFile("sleeper.vbs", True) objOutputFile.Write "wscript.sleep WScript.Arguments(0)" objOutputFile.Close End If CreateObject("WScript.Shell").Run "sleeper.vbs " & MSecs,1 , True End Sub '------------------------------------------------------------------ ' Fonction Ajout des parametres Domaine / Description / Nom Machine '------------------------------------------------------------------ Sub btnok_onclick Const ForReading = 1 Const ForWriting = 2 dim i, soft ufile = "C:\Windows\Panther\Unattend.xml" Set objfso = CreateObject("Scripting.FileSystemObject") txtcomputerval = oSerialNum ' verification saisie message="" saisievalide=true '------------------------------------------------------------------ 'Ajout dans la variable soft du nom des logiciels cochés. Summary '------------------------------------------------------------------ if saisievalide then message = "Confirmez-vous la saisie des données suivantes ?" & vbCrLf & VbCrLf message = message & "Nom du poste : " & oSerialNum.innerHTML & vbCrLf rep=msgBox(message,vbQuestion+vbYesNo+vbSystemModal,"Confirmation de saisie") if rep=vbYes Then if objfso.FileExists(uFile) = False Then rep=msgbox("Erreur : Fichier unattend non trouvé !",vbCritical+vbOkOnly,"Erreur de traitement") else Set objFile = objfso.OpenTextFile(uFile, ForReading) strText = objFile.ReadAll objFile.Close strNewText = Replace(strText, "nhtxtcomputer", oSerialNum.innerHTML) Set objFile = objFSO.OpenTextFile(uFile, ForWriting) objFile.WriteLine strNewText objFile.Close end If contentDiv.style.visibility="hidden" waitingDiv.style.visibility="visible" 'Fonction Sleep Sleep 5000 'Lancement de la fonction Windeploy.exe Set objShell = CreateObject("Wscript.Shell") objShell.Run "c:\windows\System32\oobe\windeploy.exe", 1, True window.close end if else rep=msgbox(message,vbCritical+vbOkOnly,"Saisie incorrecte" & vbCrLf & "Veuillez recommencer !") end if End Sub '------------------------------------------- ' Focntion Récupération du serial Number '------------------------------------------- Set fso = createobject("scripting.filesystemobject") Set objWSHell = createobject("wscript.shell") Function BuildImage On Error resume Next Set objWMI = GetObject("winmgmts:") Set myEnum = objWMI.ExecQuery("SELECT * from Win32_ComputerSystemProduct") For Each csp in myEnum oComputerModel.innerHTML = ltrim(rtrim(csp.Name)) & " " & ltrim(rtrim(csp.Version)) oSerialNum.innerHTML = "WIN7-" & csp.identifyingnumber Next End Function window.onload=GetRef("BuildImage") '------------------------------------------- </script> <style>body{background:#4e4e4e url('c:\windows\Panther\***.png') no-repeat center;}</style> <body> <div id="contentDiv" style="position:absolute;top:0;left:0;"> <hr> <table border=0 width=100% valign=middle style="font-family: Verdana; font-size: 18pt; font-weight: bold; color:#ffffff; background:cc023c"> <tr height=60> <td align=middle >Personnalisation du poste de travail Windows 7</td><td align =right ><img src="c:\Windows\Panther\***.png"> </tr> </table> <hr> <TABLE BORDER=0 cellspacing=10 style="font-family: Verdana; font-size: 14pt; color:#ffffff"> <td><b>Vérifiez si le type et le nom de la machine sont les bons </b></td> </TABLE> <table border=0 width=100% valign=middle style="font-family: Verdana; font-size: 12pt; color:#ffffff"> <tr height=10> <TD>Model de l'ordinateur:</TD><TD class="imagemeta" id="oComputerModel" style="font-family: Verdana; font-size: 30pt; font-weight: bold; color:#3ba71d"></TD> </TR> <tr height=10> <td>Nom du poste de travail:</td><TD class="imagemeta" id="oSerialNum" style="font-family: Verdana; font-size: 30pt; font-weight: bold; color:#3ba71d"></TD> </tr> </table> <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br> <table border=0 width=100% valign=middle style="font-family: Verdana; font-size: 12pt; font-weight: bold; color:white; background:958e90"> <tr height=60> <td align=center ><input type="button" value="Commencer le déploiement du poste" name="btnok" style="font-family: Verdana; font-size: 20pt; color:#000000; font-weight: bold"></td> </tr> </table> <hr> </div> <div id="waitingDiv" style="visibility:hidden;height:100%;width:100%;position:absolute;z-index:999;background-image: url('c:\windows\panther\fond.png');background-position: center center;background-repeat:no-repeat; font-family: Verdana; font-size: 18pt; font-weight: bold; color:#ffffff;vertical-align:center;"> <hr> <table border=0 width=100% valign=middle style="font-family: Verdana; font-size: 18pt; font-weight: bold; color:#ffffff; background:cc023c"> <tr height=60> <td align=middle>Personnalisation du poste de travail Windows 7</td><td align =right ><img src="c:\Windows\Panther\***.png"> </tr> </table> <hr> <center><p style="margin-top:20%;">La préparation du système est en cours, veuillez patienter.<br/>L'ordinateur redémarrera automatiquement à la fin de l'opération... <br/><br/><img src="c:\windows\system32\Sysprep\ajax_loader.gif" height=128 width=128/> </p> </center> </div> </body>

    Je suis vraiment à cours d'idée... je n'arrive pas à trouver ce qui cloche.

    Cordialemet,

    D4kh

    mardi 16 octobre 2012 19:37