Visual Basic.NET - Unir PC a dominio

   
Vista:

Unir PC a dominio

Publicado por daniel (2 intervenciones) el 31/01/2013 10:28:19
Buenos días:

He creado un nuevo proyecto en VB.net con el fin de poder unir pc a un dominio de Active Directory que tengo.

He leído por muchos foros y todos hacen referencia al siguiente enlace:

http://www.tek-tips.com/viewthread.cfm?qid=1119264

He intentado utilizar ese código, modificándolo según mis necesidades y no termina de funcionar.

Además creo que utilza WMI y está algo obsoleto, además de no ser seguro.

¿ Podéis orientarme un poco o decirme donde puedo buscar información al respecto?

Gracias anticipadas y un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Unir PC a dominio

Publicado por daniel (2 intervenciones) el 31/01/2013 12:30:48
Ya lo he conseguido, podéis cerrar el post, os detallo la solución por si ayudara a alguien:

Tenía que crear la cuenta del pc en el dominio antes, o utilizar el valor 3 (que crea cuenta y une al dominio), pongo el código por si le interesara a alguien:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de xve

Unir PC a dominio

Publicado por xve (88 intervenciones) el 31/01/2013 12:53:04
Gracias por comentarlo Daniel!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar