Bonjour a tous
J'essaie a partir d'une machine "A" de changer le domaine de la machine "B"
Voici mon code :
Public Function objGetComputerSystem() As ManagementObject
Dim oConnexion As New ConnectionOptions
oConnexion.Password = "MonPassword"
oConnexion.Username = "monPC-B\Administrateur"
Dim scope As New ManagementScope("\\monPC-B\root\CIMV2", oConnexion)
scope.Connect()
Dim objectQuery As New ObjectQuery("select * from Win32_ComputerSystem")
Dim searcher As New ManagementObjectSearcher(scope, objectQuery)
Dim computerSystem As ManagementObject
Dim computerSystemOut As ManagementObject = Nothing
For Each computerSystem In searcher.Get()
computerSystemOut = computerSystem
Exit For
Next computerSystem
Return computerSystemOut
End Function
Public Function JoinWorkgroup(ByRef computerSystem As ManagementObject, ByVal newWorkgroup As String) As UInt32
Dim rc As Object
Dim objArgs(5) As Object
objArgs(0) = newWorkgroup'MonDomaine.com
objArgs(1) = "MonMotDePass"
objArgs(2) = "MonDomaine.com" & "\" & "MonLogin"
objArgs(3) = vbNull
objArgs(4) = vbNull
Try
rc = computerSystem.InvokeMethod("JoinDomainOrWorkgroup", objArgs)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return rc
End Function
Utilisation
JoinWorkgroup(objGetComputerSystem, "MonDomaine.com")
L'erreur ....
La connexion client à WINMGMT doit être cryptée pour cette opération. Ajustez vos paramètres de sécurité proxy IWbemServices et recommencez. Là, je sais pas comment faire pour faire ce qu'il demande
Qui aurait une idée ?
En vous remerciant d'avance.
Cordialement,
Troxsa
