Cuestión : VBScript para comprobar si existe una cuenta entonces qué memebership tiene

¿podría alguien ayudar con esta pequeña escritura? el

I sure esto podía ser un simple si entonces problema.  Pero, no tener ninguna idea de cómo a start.

the se diseña para buscar 2 dominios y para volver la calidad de miembro para las cuentas con el mismo nombre. si existen ambas cuentas dominio del CS (ANUNCIO win2003) y el dominio de CSC (NT4) entonces el spript funciona grande.   vuelve un mensaje que demuestre qué miembros tiene la nave las cuentas.  pero si no existe 1 cuenta del dominio él los errores hacia fuera, en vez apenas hacia fuera de poner que no lo hace la cuenta exist. class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
>Dim notpretty UserObj " del class= " del id= " codeSnippet850572 del
class= del

Respuesta : VBScript para comprobar si existe una cuenta entonces qué memebership tiene

Hola, he agregado el repaso de las faltas para conseguir alrededor de su problema.  También, viendo como el código se duplica a excepción del DomainString, he puesto en un lazo con un arsenal para los Domain Name.

Respetos,

Robo.
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:

UserObj dévil
GroupObj dévil

UserString = InputBox (“el nombre de usuario que usted quisiera comprobar”)

arrDomains = arsenal (“CSC”, “CS”)

Para cada DomainString en arrDomains
	'DomainString= " CSC "
	Lista = lista y “********************************************** “y VbCrLf
	Lista = lista y calidad de miembro de DomainString y “de grupo” y VbCrLf
	Lista = lista y “********************************************** “y VbCrLf
	Lista = lista y VbCrLf
	En curriculum vitae del error después
	Fijar UserObj = GetObject (“WinNT: /” y DomainString y “/” y UserString)
	Si Err.Number = 0 entonces
		En el error 0 indicado
		Para cada GroupObj en UserObj.Groups
			Lista = lista y GroupObj.Name y VbCrLf
		Después
	
		Err.Clear
		En el error 0 indicado
		La lista = la lista y el “usuario no existe de” y DomainString
	Terminar si
Después

Lista de WScript.Echo
Otras soluciones  
 
programming4us programming4us