Question : VBScript pour vérifier si un compte existent alors quel memebership il a

est-ce que quelqu'un pourrait aider avec ce petit manuscrit ? le

I AM sure ceci a pu être un simple si puis problème.  Mais, n'avoir aucune idée de comment à start.

the est conçu pour rechercher 2 domaines et pour renvoyer l'adhésion pour des comptes avec le même nom. si les deux comptes existent domaine de CS (ANNONCE win2003) et domaine de CSC (NT4) puis le spript court grand.   il renvoie un message qui montre quels membres le bateau les comptes ont.  mais si 1 compte de domaine n'existe pas il des erreurs dehors, au lieu d'éteindre juste que le compte ne fait pas exist. class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 " de l'id= " codeSnippet850572 de
class= de

Réponse : VBScript pour vérifier si un compte existent alors quel memebership il a

Bonjour, j'ai ajouté de contrôle d'erreurs pour venir à bout votre problème.  En outre, voyant pendant que le code est reproduit excepté le DomainString, j'ai mis dans une boucle avec une rangée pour les Domain Name.

Respect,

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 :

Faible UserObj
Faible GroupObj

UserString = InputBox (« le nom d'utilisateur que vous voudriez vérifier »)

arrDomains = rangée (« CSC », « CS »)

Pour chaque DomainString dans les arrDomains
	'DomainString= " CSC "
	Liste = liste et « ********************************************** « et VbCrLf
	Liste = liste et adhésion de DomainString et « de groupe » et VbCrLf
	Liste = liste et « ********************************************** « et VbCrLf
	Liste = liste et VbCrLf
	Sur le résumé d'erreur après
	Placer UserObj = GetObject (« WinNT : / » et DomainString et « / » et UserString)
	Si Err.Number = 0 puis
		Sur l'erreur 0 GoTo
		Pour chaque GroupObj dans UserObj.Groups
			Liste = liste et GroupObj.Name et VbCrLf
		Après
	Autrement
		Err.Clear
		Sur l'erreur 0 GoTo
		La liste = la liste et le « utilisateur n'existe pas de » et DomainString
	Finir si
Après

Liste de WScript.Echo
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us