Fråga : VBScript som kontrollerar, om ett konto finns därefter vilken memebership det har

kunde någon hjälpa med detta litet skrivar? förmiddagen för

I sure detta kunde vara ett enkelt om därefter problemet.  Ha ingen idé av hur till start.

the atached för att skriva planläggs att söka 2 områden och att gå medlemskap tillbaka för konton med det samma känt, men. om båda konton finns CSområdet (ANNONSEN win2003) och CSC-området (NT4) därefter, spripten kör utmärkt.   den går ett meddelande tillbaka som visar vilka medlemmar shipen kontona har.  men, om 1 områdeskonto inte finns det fel ut, i stället för precis ut att sätta att kontot inte gör exist. > för 
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:
" codeBody " " >Dim UserObj för class= " för
" klar "

Svar : VBScript som kontrollerar, om ett konto finns därefter vilken memebership det har

Hi har jag tillfogat att kontrollera för fel för att få runt om ditt problem.  Också och att se, som kodifiera dupliceras bortsett från DomainStringen, har jag satt i en kretsa med en samling för området namnger.

Hälsningar,

Råna.
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:

Dunkla UserObj
Dunkla GroupObj

UserString = InputBox (”den kända användaren som du skulle något liknande för att kontrollera”),

arrDomains = samling (”CSC”, ”CS”)

För varje DomainString i arrDomains
	'DomainString= " CSC ",
	Lista = lista & ”********************************************** ”& VbCrLf
	Lista = lista, & DomainString & ”grupperar medlemskap” & VbCrLf
	Lista = lista & ”********************************************** ”& VbCrLf
	Lista = lista & VbCrLf
	På felmeritförteckning därefter
	Fastställda UserObj = GetObject (”WinNT: /” & DomainString & ”/” & UserString)
	Om Err.Number = 0 därefter
		På fel GoTo 0
		För varje GroupObj i UserObj.Groups
			Lista = lista & GroupObj.Name & VbCrLf
		Därefter
	Annars
		Err.Clear
		På fel GoTo 0
		Lista = lista, & ”användaren finns inte av” & DomainString
	Avsluta om
Därefter

WScript.Echo listar
Andra lösningar  
 
programming4us programming4us