Nom des PC en minuscules
Question
Réponses
-
Merci pour vos réponses!
Si je peux me permettre je vous serai gré de me laisser l'autorité de marquer mes questions comme traitées moi-même, parce que même si vos réponses semblent évidentes et très proches de la vérité il se peut qu'elles ne répondent pas complètement à la problématique posée.
Petit aparté qui n'enlève rien à vos compétences ;-)Pour ma résolution je me suis basé sur les liens fournis par Dan qui expliquent globalement que c'est le SYSPREP qui "capitalise" le nom HOSTNAME et NV HOSTNAME.
De mon point de vue y a pas grand chose à faire de ce côté là donc j'ai choisi de contourner le problème en créant un script intégré dans ma séquence de tâches.
Je l'ai placé dans le "State restore" juste après "Post-Apply cleanup" en cochant l'option "Continue on error" comme suit :
Et voici le code :
<job id="ZTISetHostNameInLowercase"> <script language="VBScript" src="ZTIUtility.vbs"/> <script language="VBScript"> '////////////////////////////////////////////////// '// '// Script File: '// '// ZTISetHostNameInLowercase.wsf '// '// This script sets the hostname and the NV hostname value '// in lowercase '// '// Author: Thorongil '// '// Disclaimer '// This script is provided "AS IS" without express '// or implied warranty of any kind '// '////////////////////////////////////////////////// Dim NomHote, NomHoteNV, cle Dim c cle = "HKLM\System\CurrentControlSet\Services\TCPIP\Parameters\" ' Récupération des Hostname et NV Hostname set c=CreateObject("WScript.Shell" ) NomHote = c.RegRead(cle & "Hostname") NomHoteNV = c.RegRead(cle & "NV Hostname") ' Journalisation des champs Hostname et NV Hostname récupérés oLogging.CreateEntry "Hostname avant application Lcase() : " & NomHote,LogTypeInfo oLogging.CreateEntry "NV Hostname avant application Lcase() : " & NomHoteNV,LogTypeInfo ' Mise des noms d'hôte en minuscules NomHote = lcase(NomHote) NomHoteNV = lcase(NomHoteNV) ' Ré-écriture des noms d'hôte en minuscules c.RegWrite cle & "Hostname", NomHote c.RegWrite cle & "NV Hostname", NomHoteNV ' Journalisation des champs Hostname et NV Hostname modifiés oLogging.CreateEntry "Hostname après application Lcase() : " & NomHote,LogTypeInfo oLogging.CreateEntry "NV Hostname après application Lcase() : " & NomHoteNV,LogTypeInfo </script> </job>
En espérant que ça puisse servir à d'autres!
- Marqué comme réponse Dan BajenaruMicrosoft employee mardi 6 mai 2014 15:03
Toutes les réponses
-
Merci pour vos réponses!
Si je peux me permettre je vous serai gré de me laisser l'autorité de marquer mes questions comme traitées moi-même, parce que même si vos réponses semblent évidentes et très proches de la vérité il se peut qu'elles ne répondent pas complètement à la problématique posée.
Petit aparté qui n'enlève rien à vos compétences ;-)Pour ma résolution je me suis basé sur les liens fournis par Dan qui expliquent globalement que c'est le SYSPREP qui "capitalise" le nom HOSTNAME et NV HOSTNAME.
De mon point de vue y a pas grand chose à faire de ce côté là donc j'ai choisi de contourner le problème en créant un script intégré dans ma séquence de tâches.
Je l'ai placé dans le "State restore" juste après "Post-Apply cleanup" en cochant l'option "Continue on error" comme suit :
Et voici le code :
<job id="ZTISetHostNameInLowercase"> <script language="VBScript" src="ZTIUtility.vbs"/> <script language="VBScript"> '////////////////////////////////////////////////// '// '// Script File: '// '// ZTISetHostNameInLowercase.wsf '// '// This script sets the hostname and the NV hostname value '// in lowercase '// '// Author: Thorongil '// '// Disclaimer '// This script is provided "AS IS" without express '// or implied warranty of any kind '// '////////////////////////////////////////////////// Dim NomHote, NomHoteNV, cle Dim c cle = "HKLM\System\CurrentControlSet\Services\TCPIP\Parameters\" ' Récupération des Hostname et NV Hostname set c=CreateObject("WScript.Shell" ) NomHote = c.RegRead(cle & "Hostname") NomHoteNV = c.RegRead(cle & "NV Hostname") ' Journalisation des champs Hostname et NV Hostname récupérés oLogging.CreateEntry "Hostname avant application Lcase() : " & NomHote,LogTypeInfo oLogging.CreateEntry "NV Hostname avant application Lcase() : " & NomHoteNV,LogTypeInfo ' Mise des noms d'hôte en minuscules NomHote = lcase(NomHote) NomHoteNV = lcase(NomHoteNV) ' Ré-écriture des noms d'hôte en minuscules c.RegWrite cle & "Hostname", NomHote c.RegWrite cle & "NV Hostname", NomHoteNV ' Journalisation des champs Hostname et NV Hostname modifiés oLogging.CreateEntry "Hostname après application Lcase() : " & NomHote,LogTypeInfo oLogging.CreateEntry "NV Hostname après application Lcase() : " & NomHoteNV,LogTypeInfo </script> </job>
En espérant que ça puisse servir à d'autres!
- Marqué comme réponse Dan BajenaruMicrosoft employee mardi 6 mai 2014 15:03
