Pytanie : VBScript jeżeli konto istnieć wtedy jaki memebership ono mieć

móc pismo z ten mały pismo?

I am pewny problem móc prosty jeżeli wtedy problem.  Ale, nie mieć pojęcia dlaczego start.

the atached pismo projektować 2 domena i the członkostwo dla konto z the ten sam imię. jeżeli oba konto istnieć CS domena (win2003 REKLAMA) i CSC Domena (NT4) wtedy the spript bieg wielki.   ono wracać wiadomość który pokazywać jaki członek statek the konto mieć.  ale jeżeli (1) domena obrachunkowy istnieć ono błąd obrachunkowy, zamiast właśnie właśnie że the konto exist. 
(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 UserObj
Ciemnawy GroupObj

UserString = InputBox ("The Użytkownik imię który ty polubić")


DomainString= " CSC "
        Lista = Lista & "********************************************** "& VbCrLf
	Lista = Lista & DomainString & "Grupowy Członkostwo" & VbCrLf
        Lista = Lista & "********************************************** "& VbCrLf
	Lista = Lista & VbCrLf
Ustalony UserObj = GetObject ("WinNT: /" & DomainString & "/" & UserString)
    
    Dla UserObj.Groups GroupObj W UserObj.Groups
        Lista = Lista & GroupObj.Name & VbCrLf
    Następnie


DomainString= " CS "
        Lista = Lista & VbCrLf
        Lista = Lista & "********************************************** "& VbCrLf
	Lista = Lista & DomainString & "Grupowy Członkostwo" & VbCrLf
        Lista = Lista & "********************************************** "& VbCrLf
	Lista = Lista & VbCrLf
Ustalony UserObj = GetObject ("WinNT: /" & DomainString & "/" & UserString)
    
    Dla UserObj.Groups GroupObj W UserObj.Groups
        Lista = Lista & GroupObj.Name & VbCrLf
    Następnie

Odpowiedź : VBScript jeżeli konto istnieć wtedy jaki memebership ono mieć

Cześć, I dodawać błąd wokoło twój problem.  Także, widzieć gdy the kod powielać oprócz the DomainString, I stawiać w pętla z Szyk dla the nazwa domeny.

Uwzględnienie,

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:

Ciemnawy UserObj
Ciemnawy GroupObj

UserString = InputBox ("The Użytkownik imię który ty polubić")

arrDomains = Szyk ("CSC", "CS")

Dla ArrDomains DomainString W arrDomains
	'DomainString= " CSC "
	Lista = Lista & "********************************************** "& VbCrLf
	Lista = Lista & DomainString & "Grupowy Członkostwo" & VbCrLf
	Lista = Lista & "********************************************** "& VbCrLf
	Lista = Lista & VbCrLf
	Na Błąd Życiorys Następnie
	Ustalony UserObj = GetObject ("WinNT: /" & DomainString & "/" & UserString)
	Jeżeli Err.Number = (0) Wtedy
		Na Błąd Rozpoczynający (0)
		Dla UserObj.Groups GroupObj W UserObj.Groups
			Lista = Lista & GroupObj.Name & VbCrLf
		Następnie
	Inny
		Err.Clear
		Na Błąd Rozpoczynający (0)
		Lista = Lista & "Użytkownik istnieć" & DomainString
	Kończyć Jeżeli
Następnie

WScript.Echo Lista
Inne rozwiązania  
 
programming4us programming4us