Discussion :

[LWKTECH]

Bonjour @ tous,

Je suis passé sur un WinPE x64. Auparavant j'étais sur un WinPE x86, et je pouvais utiliser nslookup pour faire un reverse DNS et ainsi avoir le nom de la machine suivant son IP.
En passant en x64, nslookup n'est plus compatible 64 bit... J'ai donc du trouver une alternative. En cherchant un peu, j'ai réussi à construire un petit script qui permet à travers PowerShell d'obtenir le nom DNS de la machine.

Voici le code en question (nom du fichier PowerShell : GetPCName.ps1) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
$IPV4 = Test-Connection -ComputerName (hostname) -Count 1  | Select-Object -ExpandProperty IPV4Address
$IP = $IPV4.IPAddressToString
$DNSSERVER = 'ns1.xxx.fr'
$DNS = Resolve-DnsName -Name $IP -Server $DNSSERVER
$FQDN = $DNS.NameHost
$NAME = $FQDN.Substring(0, $FQDN.IndexOf('.'))
echo $NAME

Je souhaiterais maintenant intégrer ce code à un fichier VBS pour que MDT prenne le résultat du code PowerShell, et que ce dernier devienne la variable pour OSDComputerName. J'ai donc créé un fichier VBS qui est déclaré sur le customsettings.ini.

Or, mon fichier VBS, ne fonctionne pas. Je n'ai qu'un champ vide

Voici le code de mon VBS :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Function UserExit(sType, sWhen, sDetail, bSkip)
  UserExit = Success
End Function
 
Function SetHostName()
  pscommand = ".\GetPCName.ps1"
  runpscommand = "powershell.exe -NoProfile -ExecutionPolicy Bypass -File" & pscommand
  Set Shell = CreateObject("WScript.Shell")
  Set Executor = shell.Exec(runpscommand)
  Executor.StdIn.Close
  SetHostName = Executor.StdOut.ReadAll
End Function

Pourriez-vous m'aider s'il vous plait, a récupérer le résultat du PowerShell et de l'intégrer dans mon fichier VBS pour que OSDComputerName sorte le nom DNS ?

Merci !

[ericlm128]

Comme ceci

Code vbs :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Function SetHostName()
  pscommand = ".\GetPCName.ps1"
  runpscommand = "powershell.exe -NoProfile -ExecutionPolicy Bypass -File" & pscommand
  Set Shell = CreateObject("WScript.Shell")
  Set Executor = shell.Exec(runpscommand)
 
  Do While Executor.Status = 0
       WScript.Sleep 100
  Loop
 
  SetHostName = Executor.StdOut.ReadAll()
End Function

J'utiliserai Write-Output (plus explicite) au lieu de echo dans le powershell.

[tsuji]

L'erreur est là, la ligne #7. (Je mets l'espace explicitement pour voir plus clair.)

Code vbs Loweack :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  'runpscommand = "powershell.exe -NoProfile -ExecutionPolicy Bypass -File" & pscommand
  runpscommand = "powershell.exe -NoProfile -ExecutionPolicy Bypass -File" & " " & pscommand

[LWKTECH]

Et bien je n'arrive toujours pas a faire fonctionner mon script PowerShell.
J'ai ajouté une ligne pour ajouter une entrée dans le registre afin de voir si au moins mon script PowerShell fait quelque chose... Il semblerait qu'il ne fasse rien (pourtant j'ai bien une fenêtre bleue PowerShell qui apparait lors de initialisation du WinPE).

Voici la ligne que j'ai ajouté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Get-Item -Path "HKLM:" | New-ItemProperty -Name "PCNAME" -Value TEST -PropertyType String

Une idée ?

[tsuji]

Oui, mais...

Voici le code en question (nom du fichier PowerShell : GetPCName.ps1) :

Est-ce qu'il marche d'abord en tant que powershell script ? (winPE n'est pas pleinement console comme on entend normalement.)

[LWKTECH]

Oui mon script PS fonctionne parfaitement quand je le lance à la main.

Mon script fonctionne maintenant. Voici les modifications que je viens d'effectuer (j'ai supprimé une variable) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function SetHostName()
	Dim runpscommand
	runpscommand = "powershell.exe -ExecutionPolicy Bypass -NoProfile -File %systemroot%\system32\GetPCName.ps1"
	Set Shell = CreateObject("WScript.Shell")
	Set Executor = shell.Exec(runpscommand)
	Executor.StdIn.Close
	SetHostName = Executor.StdOut.ReadAll
End Function

Merci à vous deux pour votre aide !