Вопрос : Помощь VBscript для новичок пытаясь вытянуть компьютер Info ОБЪЯВЛЕНИЯ в Эксел 2007

Все,

могут кто-то угодить для того чтобы помочь мне.  Мне нужно вытянуть компьютер info (имя Netbios, статус учета, OU, etc) от ОБЪЯВЛЕНИЯ.  Я сказан самая лучшая дорога сделать это через VBScript.  Родовой сценарий, котор я могу использовать; Я знаю ОЧЕНЬ немногую scripting.  Спасибо SOOO очень!!!! class=

Ответ : Помощь VBscript для новичок пытаясь вытянуть компьютер Info ОБЪЯВЛЕНИЯ в Эксел 2007

hey

мое сценария vba но оно все еще не более целесообразные к вашим потребностям
оно попросит вы имя ou и ехпортирует компьютеры info в ou к архиву csv
что вы можете раскрыть сразу с первенствуйте и сделайте всегда вы хотите


наклеите Кодего к блокнот и сохраньте его с выдвижением vbs
редактируйте линию 1 для вашего архива csv - имя и курс

если вам, то любые регулируют к сценарию препятствуют мне знать.
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»
Установите objfso = CreateObject («Scripting.FileSystemObject»)
Установите objcsv = objfso.CreateTextFile (strCsv, поистине)

objcsv.WriteLine «cn, описание, displayName, dNSHostName, положение, machineRole, имя, networkAddress, operatingSystem»

strOuname = InputBox («впишите имя ou»)

Установите colItems = GetObject (searchad («organizationalUnit», strOuName, «adspath»))
colItems.Filter = блок («компьютер»)

Для каждого objItem в colItems
	objcsv.WriteLine objItem.CN & «,» & objItem.description & «,» & objItem.displayName & «,» & objItem.dNSHostName & «,» & objItem.location & «,» & objItem.machineRole & «,» & objItem.name & «,» & workAddress objItem.net & «,» & objItem.operatingSystem
Затем






Функция SearchAd (objtype, objname, strProp)
	Установите objRootDSE = GetObject («LDAP: //RootDSE»)
	strDomain = «LDAP: /» & objRootDSE.Get («defaultNamingContext»)
	Установите oCn = CreateObject («ADODB.Connection»)
	Установите oCmd = CreateObject («ADODB.Command»)
	oCn.Provider = «ADsDSOObject»
	oCn.Open «активно провайдер директории»
	Установите oCmd.ActiveConnection = oCn
	oCmd.Properties («размер страницы») = 1000
	oCmd.Properties («Searchscope») = 2 
	oCmd.CommandText = «ВЫБИРАЮТ» & strProp & «ОТ «» & strDomain & «» ГДЕ objectCategory='" & objtype &» «и name=»» & objname & «'ЗАКАЗ Именем»
	Установите oRS = oCmd.Execute
			
	'oRS.MoveFirst
	Не сделать до oRS.EOF
		SearchAd = oRS.Fields (strProp). Значение
		oRS.MoveNext
	Петля
Функция конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us