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.
Merci de votre aide en tout cas.
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
Partager