[it3]

Или же, можно сделать таким образом:

Код:

Add-Content -Path "\\Server\Script\$env:USERNAME $env:COMPUTERNAME.txt" -Value "$(Get-Date)"

Создается txt документ, имя которого: "NameUser NamePC.txt", с содержимым (датой): "09/24/2019 13:00:00"

Как сделать так, чтобы содержимое каталога: "\\Server\Script\", формировалось в Excel-таблицу со столбцами: "Имя Пользователя", "Имя Компьютера", "Дата/Время включения"?

[DJ Mogarych]

it3, у меня реализовано через логон-скрипт для всех компьютеров, выполняемый на уровне пользователя, который пишет информацию в учётку пользователя в AD.

Код:

# write last logged-on comp name to "pager"
$Searcher = New-Object DirectoryServices.DirectorySearcher
$Searcher.Filter = "(&(objectCategory=person)(anr=$env:username))"
$Searcher.SearchRoot = 'LDAP://DC=domain,DC=ru'
$path = $Searcher.FindOne() |select -expand path
$user = [ADSI]"$path"
$user.Put("pager", "$env:computername")
# write logon time to "st"
$user.Put("st", "$((get-date).tostring())")
# write comp boot time to "otherPager"
$boottime = Get-WmiObject win32_operatingsystem
$boottime = $boottime.ConverttoDateTime($boottime.lastbootuptime)
$boottime = $boottime.toString("dd.MM.yyyy HH:mm:ss")
$user.Put("otherPager", "$boottime")
$user.SetInfo()

После этого можно отчёты формировать прямо из запросов в AD безо всяких экселей.

[it3]

it3, у меня реализовано через логон-скрипт для всех компьютеров, выполняемый на уровне пользователя, который пишет информацию в учётку пользователя в AD. »

Вариант!
Спасибо!

[Iska]

DJ Mogarych, а обратный скрипт, на logoff, у Вас есть?

Снимается, для данного применения в нём нет необходимости.

[it3]

Вот скрипт на VBS:

Код:

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUserDN)
objUser.Put "Pager", WshNetwork.ComputerName
objUser.SetInfo

Хотелось бы реализовать чтобы версия ОС отображалась в поле: "homePhone", а дата/время входа в "facsimileTelephoneNumber".
Подсобите пожалуйста.