Changement NOM PC en fonction d'un fichier .txt
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:
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.
