Questione : VBScript per controllare se un cliente esiste allora che memebership ha

potrebbe qualcuno aiutare con questo piccolo scritto? il

I sure questo ha potuto essere un semplice se allora problema.  Ma, non avere idea di come a start.

the è destinato per cercare 2 dominii e per restituire l'insieme dei membri per i clienti con lo stesso nome. se entrambi i clienti esistono dominio del CS (ANNUNCIO win2003) e dominio di CSC (NT4) allora lo spript fa funzionare grande.   restituisce un messaggio che mostra che membri nave i clienti ha.  ma se 1 cliente di dominio non esiste esso errori fuori, invece di appena fuori mettere che il cliente non fa exist.
class= > " libero " 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

Risposta : VBScript per controllare se un cliente esiste allora che memebership ha

Ciao, ho aggiunto la verifica degli errori per ottenere intorno al vostro problema.  Inoltre, vedendo mentre il codice è duplicato tranne il DomainString, ho messo in un ciclo con un allineamento per i Domain Name.

Riguardi,

Rob.
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 fioco
GroupObj fioco

UserString = InputBox (“il nome di utente che vorreste controllare„)

arrDomains = allineamento (“CSC„, “CS„)

Per ogni DomainString nei arrDomains
	'DomainString= " CSC "
	Lista = lista & “********************************************** “& VbCrLf
	Lista = lista & composizione di gruppo “& di DomainString„ & VbCrLf
	Lista = lista & “********************************************** “& VbCrLf
	Lista = lista & VbCrLf
	Sul riassunto di errore dopo
	Regolare UserObj = GetObject (“WinNT: /„ & DomainString & “/„ & UserString)
	Se Err.Number = 0 allora
		Sull'errore 0 di avanzamento
		Per ogni GroupObj in UserObj.Groups
			Lista = lista & GroupObj.Name & VbCrLf
		Dopo
	Altrimenti
		Err.Clear
		Sull'errore 0 di avanzamento
		La lista = la lista & “l'utente non esiste di„ & DomainString
	Concluder se
Dopo

Lista di WScript.Echo
Altre soluzioni  
 
programming4us programming4us