pOusSinUs
Messages postés38Date d'inscriptionvendredi 29 juin 2007StatutMembreDernière intervention 2 août 2007
-
29 juin 2007 à 09:51
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
12 juin 2008 à 11:43
pOusSinUs
Messages postés38Date d'inscriptionvendredi 29 juin 2007StatutMembreDernière intervention 2 août 2007 29 juin 2007 à 10:34
Le problème se situe dans le début du code, il doit y avoir un problème de déclaration!
Si quelqu'un voyait d'où cela viendrait ce m'aiderait beaucoup.
merci
Declare Function SetComputerNameEx Lib "kernel32" Alias "SetComputerNameExA" (ByVal NameType As COMPUTER_NAME_FORMAT, ByVal lpBuffer As String) As Long
Dim Changer As Long
If WScript.Arguments.Unnamed.length>0 Then
changer = WScript.Arguments.Unnamed.Item(0)
ElseIf InStr(1,WScript.FullName, "csript") > 0 Then
WScript.StdOut.WriteLine "Saisissez le nom de l'ordinateur :"
changer = WScript.StdIn.ReadLine
Else
changer = InputBox ("Saisissez le nom de l'ordinateur :", "Informations nom d'ordinateur")
End If
Public Function ChangerNomOrdi(NouveauNomOrdi As String) As Boolean
On Error Resume Next
Changer = SetComputerNameEx(NouveauNomOrdi)
If Err.Number = 0 Then
ChangerNomOrdi = True
Else
ChangerNomOrdi = False
End If
End Function
'Pour Changer le nom de votre ordinateur :
Dim Retour As Boolean
Retour = ChangerNomOrdi("MonOrdi")
If Retour = True Then
MsgBox("Le nom de votre ordinateur a été changé")
Else
MsgBox("Le nom de votre ordinateur n'a pas été changé")
End If
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 11 juin 2008 à 10:55
le code est on ne peut plus clair, pourtant :
'# Renomme la machine nommée "SERVER" en "server2"
Dim objWMIService 'As Object
Dim objShare 'As Object
Dim objInParam 'As Object
Dim objOutParams 'As Object
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\CIMV2")
Set objShare = objWMIService.Get("Win32_ComputerSystem.Name='SERVER'")
Set objInParam = objShare.Methods_("Rename").inParameters.SpawnInstance_()
objInParam.Properties_.Item("Name") = "server2" '# Nouveau nom de la machine
objInParam.Properties_.Item("UserName") = "administrator" '# login d'un admin
objInParam.Properties_.Item("Password") = "admin" '# son mot de passe
Set objOutParams = objWMIService.ExecMethod("Win32_ComputerSystem.Name='SERVER'", "Rename", objInParam)
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 11 juin 2008 à 12:00
faut que tu adaptes le code, pour y inclure le nom de ta machine...
ok, ok, je te mache ça :
Public Function RenameComputer(ByRef vsOldName As String, ByRef vsNewName As String, ByRef vsAdminLogin As String, ByRef vsAdminPassword As String) As Long
Dim objWMIService As Object
Dim objShare As Object
Dim objInParam As Object
Dim objOutParams As Object
On Error GoTo Handler
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set objShare = objWMIService.Get("Win32_ComputerSystem.Name='" & vsOldName & "'")
Set objInParam = objShare.Methods_("Rename").inParameters.SpawnInstance_()
guivara1985
Messages postés7Date d'inscriptiondimanche 3 juin 2007StatutMembreDernière intervention11 juin 2008 11 juin 2008 à 14:05
guivara1985
Merci bien Renfield de ta reponse, mais je c pa eske je dois modifier les champs: Name , Username et Password ds le code ke tu m'a envoyer ou bien je l'utilise comme il est.
cs_mimo2008
Messages postés3Date d'inscriptionjeudi 12 juin 2008StatutMembreDernière intervention12 juin 2008 12 juin 2008 à 11:27
Salut tt le monde
moi aussi je veux changer le nom complet( pas le nom netbios)de mon ordi (pas un serveur) à l'aide d'un script
pouvez vous m'aider
merci