Lire, là : http://www.laboratoire-microsoft.org/t/12711
@-salutations
Michel Claveau
~Jean-Marc~ [MVP]
Salutations *Eric_M* ! Dans http://groups.google.com/groups?threadm tu nous disais :
Bonjour Je voudrai renommer des micros par un script vbs Comment faut il faire? Merci
Ou alors comme ceci en WMI :
'Changer le nom du PC strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" _ & strComputer & "rootcimv2") Set colComputers = objWMIService.ExecQuery _ ("Select * from Win32_ComputerSystem") For Each objItem in colComputers nom = objItem.Name Next
Nom = InputBox("Saisir le nouveau nom du PC " & nom ,"Nom d'ordinateur","")
For Each objComputer in colComputers errReturn = ObjComputer.Rename(nom) If errResult Then WScript.Echo "Error N° " & Err.Number & _ vbNewLine & _ "Description : " & Err.Description End If Next
Evidemment, c'est plus long... ;-)
@+
-- ~Jean-Marc~ MSAE & MVP Windows XP Fr M'écrire : http://msmvps.com/docxp/contact.aspx - http://docxp.mvps.org - http://msmvps.com/docxp/ - Aide en DIRECT sur Internet : http://communautes-ms.akro-net.org/
Salutations *Eric_M* !
Dans http://groups.google.com/groups?threadm6C9D4A-1DEE-47DD-9C2E-210A5A2FED06@microsoft.com
tu nous disais :
Bonjour
Je voudrai renommer des micros par un script vbs
Comment faut il faire?
Merci
Ou alors comme ceci en WMI :
'Changer le nom du PC
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" _
& strComputer & "rootcimv2")
Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objItem in colComputers
nom = objItem.Name
Next
Nom = InputBox("Saisir le nouveau nom du PC " & nom ,"Nom d'ordinateur","")
For Each objComputer in colComputers
errReturn = ObjComputer.Rename(nom)
If errResult Then
WScript.Echo "Error N° " & Err.Number & _
vbNewLine & _
"Description : " & Err.Description
End If
Next
Evidemment, c'est plus long... ;-)
@+
--
~Jean-Marc~ MSAE & MVP Windows XP Fr
M'écrire : http://msmvps.com/docxp/contact.aspx
- http://docxp.mvps.org - http://msmvps.com/docxp/ -
Aide en DIRECT sur Internet : http://communautes-ms.akro-net.org/
Salutations *Eric_M* ! Dans http://groups.google.com/groups?threadm tu nous disais :
Bonjour Je voudrai renommer des micros par un script vbs Comment faut il faire? Merci
Ou alors comme ceci en WMI :
'Changer le nom du PC strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" _ & strComputer & "rootcimv2") Set colComputers = objWMIService.ExecQuery _ ("Select * from Win32_ComputerSystem") For Each objItem in colComputers nom = objItem.Name Next
Nom = InputBox("Saisir le nouveau nom du PC " & nom ,"Nom d'ordinateur","")
For Each objComputer in colComputers errReturn = ObjComputer.Rename(nom) If errResult Then WScript.Echo "Error N° " & Err.Number & _ vbNewLine & _ "Description : " & Err.Description End If Next
Evidemment, c'est plus long... ;-)
@+
-- ~Jean-Marc~ MSAE & MVP Windows XP Fr M'écrire : http://msmvps.com/docxp/contact.aspx - http://docxp.mvps.org - http://msmvps.com/docxp/ - Aide en DIRECT sur Internet : http://communautes-ms.akro-net.org/
Do Re Mi chel La Si Do
Évidemment, c'est plus long
Mais on a l'impression de mieux maîtriser ce qui se passe. Ceci étant, dans le cas de permissions complexes, il me semble judicieux de tout vérifier, derrière...
MCI
Évidemment, c'est plus long
Mais on a l'impression de mieux maîtriser ce qui se passe.
Ceci étant, dans le cas de permissions complexes, il me semble judicieux de
tout vérifier, derrière...
Mais on a l'impression de mieux maîtriser ce qui se passe. Ceci étant, dans le cas de permissions complexes, il me semble judicieux de tout vérifier, derrière...
