Question : Aide de VBscript pour un internaute novice essayant de tirer l'information d'ordinateur d'ANNONCE dans Excel 2007

Tous, le

peuvent quelqu'un satisfaire de m'aider.  Je dois tirer l'information d'ordinateur (nom de Netbios, position de compte, OU, etc.) de l'ANNONCE.  Je suis dit que la meilleure manière de faire ceci est par un VBScript.  Y a il un manuscrit générique que je peux employer ; Je sais TRÈS peu qui scripting.  Merci SOOO beaucoup ! ! ! ! class= de

Réponse : Aide de VBscript pour un internaute novice essayant de tirer l'information d'ordinateur d'ANNONCE dans Excel 2007

hé

mon de manuscrit toujours vba mais lui pas plus appropriés à vos besoins
il te demandera le nom d'OU et exportera l'information d'ordinateurs à l'OU vers le dossier de csv
que vous pouvez s'ouvrir directement avec exceler et faire ce que jamais vous voulez


coller le code au bloc - notes et le sauver avec la prolongation de vbs
éditer la ligne 1 pour votre nom de fichier et chemin de csv

si vous avez besoin s'en ajustent sur le manuscrit me font savoir.
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 »
Placer l'objfso = le CreateObject (« Scripting.FileSystemObject »)
Placer l'objcsv = l'objfso.CreateTextFile (strCsv, vrais)

objcsv.WriteLine « NC, description, displayName, dNSHostName, endroit, machineRole, nom, networkAddress, du système d'exploitation »

strOuname = InputBox (« écrire le nom d'OU »)

Placer les colItems = le GetObject (searchad (« organizationalUnit », strOuName, « adspath »))
colItems.Filter = rangée (« ordinateur »)

Pour chaque objItem dans les colItems
	objcsv.WriteLine objItem.CN et « , » et objItem.description et « , » et objItem.displayName et « , » et objItem.dNSHostName et « , » et objItem.location et « , » et objItem.machineRole et « , » et objItem.name et « , » et workAddress d'objItem.net et « , » et objItem.operatingSystem
Après






Fonction SearchAd (objtype, objname, strProp)
	Placer l'objRootDSE = le GetObject (« LDAP : //RootDSE »)
	strDomain = « LDAP : / » et objRootDSE.Get (« defaultNamingContext »)
	Placer l'oCn = le CreateObject (« ADODB.Connection »)
	Placer l'oCmd = le CreateObject (« ADODB.Command »)
	oCn.Provider = « ADsDSOObject »
	oCn.Open « fournisseur actif d'annuaire »
	Placer oCmd.ActiveConnection = oCn
	oCmd.Properties (« taille de page ») = 1000
	oCmd.Properties (« Searchscope ») = 2 
	oCmd.CommandText = « CHOISISSENT » et strProp et « DE «  » et strDomain et «  » OÙ objectCategory='" et objtype et » « et name= » » et objname et « le 'ORDRE de nom »
	Placer l'oRS = l'oCmd.Execute
			
	'oRS.MoveFirst
	Faire jusqu'à oRS.EOF
		SearchAd = oRS.Fields (strProp). Valeur
		oRS.MoveNext
	Boucle
Fonction de fin
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