[DJ Mogarych]

В Powershell есть удобный командлет Get-ADUser, который вытаскивает информацию из AD.
И вообще:

Код:

Get-Command -Module ActiveDirectory

Там чего только нет.

В CSV можно экспортировать командой
Export-Csv

[Falcon99]

Спасибо за наводку, обязательно гляну. Возможно получиться разобраться в его работе.

P.s. Увы, скрипты будут крутиться на Windows Server 2003, там такого модуля нет, он появился только на Windows 7.

[DJ Mogarych]

https://ss64.com/ps/quest.html

Connect-QADService - http://wiki.powergui.org/index.php/Connect-QADService (param -Credential (Get-Credential)

https://social.technet.microsoft.com...rverpowershell

[Falcon99]

Попробую, спасибо. О таком модуле информации не слышал. Теперь что попробовать.

[Falcon99]

Логон и логофф скрипты поправил. Теперь заноситься то что надо.
Логон:

Код:

Dim adsinfo, ThisComp, oUser

' Определяем объекты
Set adsinfo = CreateObject("adsysteminfo")
Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)
' Заносим данные в AD
' В поле Description компьютера пишем имя пользователя, и время входа
Thiscomp.put "description", oUser.cn + " ; Вошел в: " + CStr(Now)
Thiscomp.put "department", oUser.department
ThisComp.Setinfo

'В поле Description учетки пользователя пишем имя компьютера и время входа
oUser.put "description", ThisComp.cn + " ; Включил в: " + CStr(Now) 
oUser.Setinfo

wscript.quit

Логофф:

Код:

Dim adsinfo, ThisComp, oUser

' Определяем объекты
Set adsinfo = CreateObject("adsysteminfo")
Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)
' Заносим данные в AD
' В поле Description компьютера пишем имя пользователя, и время входа
Thiscomp.put "description", Thiscomp.description + " ; Вышел в: " + CStr(Now)
ThisComp.Setinfo

'В поле Description учетки пользователя пишем имя компьютера и время входа
oUser.put "description", oUser.description + " ; Выключил в: " + CStr(Now) 
oUser.Setinfo

wscript.quit

Разбираюсь дальше.

[Falcon99]

В принципе стало получаться, но нужна помощь по двум вопросам.
Для получения списка из Ip адреса компьютера и ФИО пользователя сделал такой скрипт:

Код:

Add-pssnapin Quest.ActiveRoles.ADManagement #подключаем оснастку для работы с AD
cls #очищаем экран
$realname = "c:\scripts\realname.cfg" #задаем путь к файлу
$isfile = Test-Path $realname #проверяем наличие файла
if($isfile -eq "True") {Remove-Item $realname} #если есть, удаляем его
#подключаемся к домену и получаем списко файлов
get-QADComputer | foreach {`
$ipname=$NULL #очищаем переменную для IP адреса компьютера
$string=$NULL
$compname=$_.Name #получаем имя компьютера
$description=$_.description
#if ($description) {$ipname=[Net.DNS]::GetHostEntry($compname).addressList[0].IPAddressToString}
$ipname=[Net.DNS]::GetHostEntry($compname).addressList[0].IPAddressToString #по названию компьютера ищем в DNS'е его IP адрес
if ($ipname){$string=$ipname+" "+$description} #если IP адрес получен, то формируем запись для файла
if ($string){$string >>$realname}} #если есть что, то пишем в файл

Но если для компьютера отсутствует ip адрес, то появляется надпись:

Код:

Исключение при вызове "GetHostEntry" с "1" аргументами: "Этот хост неизвестен"
C:\Scripts\Ip_comp_description.ps1:12 знак:32
+ $ipname=[Net.DNS]::GetHostEntry <<<< ($compname).addressList[0].IPAddressToString
    + CategoryInfo          : NotSpecified: (:) [], MethodInvocationException
    + FullyQualifiedErrorId : DotNetMethodException

Как это убрать. или может есть другой вариант для скрипта?
Второй вопрос: в description у меня пишется "ФИО ; Login: Date Time ; Logoff: Date Time". Как отсечь и писать в файл только то что до первой ";"?

P.s. Раньше в описание компьютера писалось на русском языке ("Вошел:", "Вышел:"), но почему-то с одних компьютеров записывалось в правильной кодировке, а с других в другой, из-за чего на части компьютеров описание было нечитаемое.

[Falcon99]

Еще раз спасибо DJ Mogarych, за ссылки, взяв за основую и используя информацию из других источников, доработал скрипты до нужного уровня. Поэтому тему закрываю.

[MiceRus]

А объясните, что я делаю не так с этими скриптами?
Ни на сервере ни на винде не работают.
Пишут, что нет таких команд в принципе.
Надо что-то дополнительное ставить ?
R:\>Dim adsinfo, ThisComp, oUser
"Dim" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
R:\>Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
"adsinfo.ComputerName)" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
R:\>Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
"adsinfo.ComputerName)" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

[Iska]

Пишут, что нет таких команд в принципе. Надо что-то дополнительное ставить ? »

Надо сохранить вышеприведённый код в файл с кодировкой ANSI/1251 с расширением .vbs.