Pergunta : Ajuda de VBscript para um Newbie que tenta puxar a informação do computador do ANÚNCIO em Excel 2007

Todos,

podem alguém satisfazer para me ajudar.  Eu preciso de puxar a informação do computador (nome de Netbios, status de cliente, OU, etc.) do ANÚNCIO.  Eu sou dito que a melhor maneira de fazer isto é com um VBScript.  Há um certificado que genérico eu posso se usar; Eu sei MUITO pouco que scripting.  Agradecimentos SOOO muito!!!! class= do

Resposta : Ajuda de VBscript para um Newbie que tenta puxar a informação do computador do ANÚNCIO em Excel 2007

hey

meu do certificado vba mas ele ainda não mais apropriados a suas necessidades
pedi-lo-á o nome da OU e exportá-lo-á a informação dos computadores na OU para a lima do csv
que você pode abrir diretamente com primar e fazer o que nunca você quer


colar o código ao bloco de notas e conservá-lo com extensão dos vbs
editar a linha 1 para seus nome de arquivo e trajeto do csv

se você precisa algum ajusta ao certificado deixa-me saber.
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:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

strcsv = “c:\csv.csv”
Ajustar o objfso = o CreateObject (“Scripting.FileSystemObject”)
Ajustar o objcsv = o objfso.CreateTextFile (strCsv, verdadeiros)

objcsv.WriteLine “NC, descrição, displayName, dNSHostName, posição, machineRole, nome, networkAddress, operatingSystem”

strOuname = InputBox (“dar entrada com o nome da OU”)

Ajustar colItems = GetObject (searchad (“organizationalUnit”, strOuName, o “adspath”))
colItems.Filter = disposição (“computador”)

Para cada objItem nos colItems
	objcsv.WriteLine objItem.CN & “,” & objItem.description & “,” & objItem.displayName & “,” & objItem.dNSHostName & “,” & objItem.location & “,” & objItem.machineRole & “,” & objItem.name & “,” & workAddress de objItem.net & “,” & objItem.operatingSystem
Em seguida






Função SearchAd (objtype, objname, strProp)
	Ajustar o objRootDSE = o GetObject (“LDAP: //RootDSE”)
	strDomain = “LDAP: /” & objRootDSE.Get (“defaultNamingContext”)
	Ajustar o oCn = o CreateObject (“ADODB.Connection”)
	Ajustar o oCmd = o CreateObject (“ADODB.Command”)
	oCn.Provider = “ADsDSOObject”
	oCn.Open “fornecedor ativo do diretório”
	Ajustar oCmd.ActiveConnection = oCn
	oCmd.Properties (de “tamanho página”) = 1000
	oCmd.Properties (“Searchscope”) = 2 
	oCmd.CommandText = “SELECIONAM” & strProp & “DE “” & strDomain & “” ONDE objectCategory='" & objtype &” “e name=”” & objname & “'a ORDEM por Nome”
	Ajustar o oRS = o oCmd.Execute
			
	'oRS.MoveFirst
	Fazer até oRS.EOF
		SearchAd = oRS.Fields (strProp). Valor
		oRS.MoveNext
	Laço
Função do fim
Outras soluções  
 
programming4us programming4us