Vraag : VBScript om te controleren als een rekening toen bestaat welke memebership het heeft

kon iemand met dit kleine manuscript helpen? zekere

I am zou dit eenvoudig kunnen zijn als toen probleem.  Maar hebben geen idee van hoe te start.

the atached manuscript wordt ontworpen aan onderzoek 2 domeinen en terugkeren het lidmaatschap voor rekeningen met de zelfde naam. als beide rekeningen het domein van Cs (win2003- ADVERTENTIE) en Domein CSC (NT4) toen bestaan stelt spript groot in werking.   het keert een bericht terug dat toont welke leden de rekeningen verschepen hebben.  maar als 1 domeinrekening niet het fouten uit bestaat, in plaats van enkel uit het zetten dat de rekening niet exist.
" codeBody " 
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
Schemerige GroupObj

UserString = InputBox (de „Naam van de Gebruiker die u zou willen controleren“)


DomainString= " CSC "
        Lijst = Lijst & „********************************************** „& VbCrLf
	Lijst = Lijst & Lidmaatschap van DomainString & het „van de Groep“ & VbCrLf
        Lijst = Lijst & „********************************************** „& VbCrLf
	Lijst = Lijst & VbCrLf
Vastgestelde UserObj = GetObject („WinNT: /“ & DomainString & „/“ & UserString)
    
    Voor Elke GroupObj in UserObj.Groups
        Lijst = Lijst & GroupObj.Name & VbCrLf
    Daarna


DomainString= " Cs "
        Lijst = Lijst & VbCrLf
        Lijst = Lijst & „********************************************** „& VbCrLf
	Lijst = Lijst & Lidmaatschap van DomainString & het „van de Groep“ & VbCrLf
        Lijst = Lijst & „********************************************** „& VbCrLf
	Lijst = Lijst & VbCrLf
Vastgestelde UserObj = GetObject („WinNT: /“ & DomainString & „/“ & UserString)
    
    Voor Elke GroupObj in UserObj.Groups
        Lijst = Lijst & GroupObj.Name & VbCrLf
    Daarna

Antwoord : VBScript om te controleren als een rekening toen bestaat welke memebership het heeft

Hallo, heb ik fout controleren toegevoegd rond uw probleem te krijgen.  Ook, ziend aangezien de code behalve DomainString wordt gedupliceerd, heb ik een lijn met een Serie voor de domeinnamen aangebracht.

Achting,

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:

Schemerige UserObj
Schemerige GroupObj

UserString = InputBox (de „Naam van de Gebruiker die u zou willen controleren“)

arrDomains = Serie („CSC“, „Cs“)

Voor Elke DomainString in arrDomains
	'DomainString= " CSC "
	Lijst = Lijst & „********************************************** „& VbCrLf
	Lijst = Lijst & Lidmaatschap van DomainString & het „van de Groep“ & VbCrLf
	Lijst = Lijst & „********************************************** „& VbCrLf
	Lijst = Lijst & VbCrLf
	Op Fout hervat daarna
	Plaats UserObj = GetObject („WinNT: /“ & DomainString & „/“ & UserString)
	Als Err.Number = 0 toen
		Op Fout GoTo 0
		Voor Elke GroupObj in UserObj.Groups
			Lijst = Lijst & GroupObj.Name & VbCrLf
		Daarna
	Anders
		Err.Clear
		Op Fout GoTo 0
		De lijst = Lijst & „Gebruiker bestaat niet van“ & DomainString
	Beëindig als
Daarna

WScript.Echo Lijst
Andere oplossingen  
 
programming4us programming4us