Bonjour,

je souhaiterais changer le nom de plusieurs ordinateur se trouvant dans un domaine en fonction d'un fichier texte qui contient les N° de série des machines et le N° entreprise correspondant.

Nom des machines actuels = XPdivers1, XPdivers2 etc...

Imaginons le fichier texte de référence ou se trouve les noms PC souhaité :

N° de série;nom ordinateur souhaité : 0123456789;0123 etc.

J'ai créé un objet qui cherche le N° de série dans la classe WMI (Win32_Bios) mais je ne sais pas comment m'y prendre par la suite pour faire correspondance ce N° de série en fonction de celui se trouvant dans le fichier texte et que si ce N° de série est présent dans le fichier texte, changer le nom d'ordinateur avec celui souhaité.

J'ai essayé de mettre des couleurs pour que se soit plus compréhensible.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
On Error Resume Next
Set WshShell = WScript.CreateObject ("WScript.Shell")
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Bios",,48)
For Each objItem in colItems
        serial = objItem.SerialNumber
Next
Merci de votre aide en tout cas.