Renommer le PC au numéro de série

Question

J'essaie de créer un script pour renommer les PC en leur numéro de série. Je ne suis pas génial avec VB, mais j'ai été capable de rassembler suffisamment de code pour LIRE le numéro de série, mais je ne suis pas sûr de savoir où l'écrire.

Voici ce que j'ai actuellement:

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 


Set colBIOS = objWMIService.ExecQuery("Select * from Win32_BIOS") 

For each objBIOS in colBIOS 
    WScript.Echo "SERIAL=" & objBIOS.SerialNumber 
Next 

Merci d'avance pour toute aide!

Answer 1

Vous pouvez modifier le nom de l'ordinateur en modifiant le registre Windows. utilisez ce code avec une extrême prudence.

Ce code est à des fins éducatives seulement, je vous recommande d'utiliser la fonction SetComputerNameEx et non un script pour effectuer ces tâches

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colBIOS = objWMIService.ExecQuery("Select * from Win32_BIOS") 
For each objBIOS in colBIOS 
StrNewPCName=objBIOS.SerialNumber 
Next 
Set MyShell= CreateObject ("WSCript.shell") 
StrCurrentControlSet = "HKLM\SYSTEM\CurrentControlSet\" 
StrTcpipParams = StrCurrentControlSet & "services\Tcpip\Parameters\" 
StrComputerName = StrCurrentControlSet & "Control\ComputerName\" 
With MyShell 
.RegDelete StrTcpipParams & "Hostname" 
.RegDelete StrTcpipParams & "NV Hostname" 
.RegWrite StrComputerName & "ComputerName\ComputerName", StrNewPCName 
.RegWrite StrComputerName & "ActiveComputerName\ComputerName", StrNewPCName 
.RegWrite StrTcpipParams & "Hostname", StrNewPCName 
.RegWrite StrTcpipParams & "NV Hostname", StrNewPCName 
End With 

Answer 2

Je doute que vous pouvez changer le nom de l'ordinateur via WMI. Il existe un appel API Windows here.