Visual Basic - Remover miembros de grupos locales de una equipo

Life is soft - evento anual de software empresarial
 
Vista:

Remover miembros de grupos locales de una equipo

Publicado por Mauricio (53 intervenciones) el 09/08/2005 22:21:53
Hola a todos, espero alguien puede ayudarme.

Necesito eliminar ciertos miembros de los grupos locales de una cantidad xde máquinas.

Hasta el momento tengo lo siguiente:

Dim Group As IADsGroup
Dim groupname As String
Dim groupdomain As String
Dim user As IADsUser
Dim username As String
Dim userdomain As String

groupname = "Administrators"
groupdomain = "MI PC"
username = "MIEMBRO A QUITAR"
userdomain = "MI PC"

Set user = GetObject("WinNT://" & userdomain & "/" & username & ",user")
Set Group = GetObject("WinNT://" & groupdomain & "/" & groupname & ",group")

Group.Remove (user.ADsPath)

Este código funciona, pero solo con los miembros (usuarios) del grupo administrators que son locales en la máquina, pero con miembros de dominio no funciona ya que al invocar :

Set user = GetObject("WinNT://" & userdomain & "/" & username & ",user")

me devuelve el siguien error:

nro : -2147022675
descripción: the User name could not be found

he cambiado el valor de la variable userdomain que contiene el nombre de máquina local por el nombre del dominio y sigue ocurriendo lo mismo.

Si alguien pudiese ayudareme le estaría muy agredecido
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