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
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


0