Pergunta : VBScript para verific se um cliente existe então que memebership tem

poderia alguém ajudar com este certificado pequeno? o

I am sure isto podia ser um simples se então problema.  Mas, não ter nenhuma idéia de como a start.

the é projetado procurarar 2 domínios e retornar a sociedade para clientes com o mesmo nome. se ambos os clientes existem domínio do CS (ANÚNCIO win2003) e domínio de CSC (NT4) então o spript funciona grande.   retorna uma mensagem que mostre que membros o navio os clientes tem.  mas se 1 cliente do domínio não existe ele erros para fora, em vez apenas para fora da colocação que o cliente não faz exist. class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
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 " do class= " do id= " codeSnippet850572 do
class= do

Resposta : VBScript para verific se um cliente existe então que memebership tem

Olá!, eu adicionei a verificação de erros para começ em torno de seu problema.  Também, vendo como o código é duplicado à exceção do DomainString, eu põr em um laço com uma disposição para os Domain Name.

Considerações,

Roubo.
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 não ofuscante
GroupObj não ofuscante

UserString = InputBox (“o nome de usuário que você gostaria de verific”)

arrDomains = disposição (“CSC”, “CS”)

Para cada DomainString nos arrDomains
	'DomainString= " CSC "
	Lista = lista & “********************************************** “& VbCrLf
	Lista = lista & sociedade de DomainString & de “grupo” & VbCrLf
	Lista = lista & “********************************************** “& VbCrLf
	Lista = lista & VbCrLf
	No resumo do erro em seguida
	Ajustar UserObj = GetObject (“WinNT: /” & DomainString & “/” & UserString)
	Se Err.Number = 0 então
		No erro 0 empreendedores
		Para cada GroupObj em UserObj.Groups
			Lista = lista & GroupObj.Name & VbCrLf
		Em seguida
	Mais
		Err.Clear
		No erro 0 empreendedores
		A lista = a lista & o “usuário não existem de” & DomainString
	Terminar se
Em seguida

Lista de WScript.Echo
Outras soluções  
 
programming4us programming4us