Visual Basic.NET - Unir PC a dominio

Dim args(4) As String

    Dim args2(2) As String

    Dim comp As ManagementObject

    Dim comps As ManagementObjectCollection

    Dim clscomps As New ManagementClass("Win32_ComputerSystem")

Dim retVal As UInt32

Dim retval2 as String

    comps = clscomps.GetInstances()

    For Each comp In comps

        args(0) = cbDominio.SelectedItem.ToString  'dominio al que te vas a unir, ej: dani.local

        args(1) = "pass" 'contraseña de un usuario con privilegios para subir equipos a dominio

        args(2) = cbDominio.SelectedItem.ToString &"\user" ' usuario con privilegios para subir equipos de dominio, ej: dani.local\administrador

        args(4) = "3"  ' si ponemos "3" aparte de subir a dominio crea la cuenta del pc en active directory

        retVal = comp.InvokeMethod("JoinDomainOrWorkgroup", args)

        retval2 = Convert.ToString(retVal)

        If retval2 = "0" Then

            MsgBox("Bienvenido al dominio" & cbDominio.SelectedItem.ToString)

            Close()

        Else

            Dim errores As String

            errores = Convert.ToString(retVal) & " Error al intentar unir a dominio"

            MsgBox(errores)

        End If

    Next