Как написать сценарий входа в систему?

Question

[m33th00k]

Помогите написать максимально простой сценарий входа в систему (*.bat *.vbs или на PowerShell)

Алгоритм такой :
1.) Он должен создать один раз текстовый файл на шаре с именем пользователя из AD
2.) В этот файл он должен добавлять каждый раз при входе в систему пользователя - имя компьютера
и время входа (исключая терминалки , нужны только локальные компьютеры в домене)

Comments

[m33th00k]

Да, я не совсем корректно вопрос задал.
Мне не нужно готовое решение , хотя-бы носом ткните на материалы где можно глянуть как это сделать и на чём будет проще :)
Я гуглил , но то что мне нужно не нашёл

[Максим Корнеев]

Ваша задача состоит из нескольких частей. Искать их решение нужно отдельно. создать файл в данном случае можно из любой среды, а вот получить из АД данные о пользователе видимо или vbs или PS. Проще будет на том, что лучше знаете.

[Sergey Ryzhkin]

У вас в вопросе должна быть половина ответа, к примеру: хочу сделать так, сделал то-то и то-то, но не получается, помогите разобраться.
Вы опубликовали задание и хотите чтобы сделали за вас, с такими запросами вам сюда- клац-клац.

Answer 1

[ComodoHacker]

echo %computername% %date% %time% >>\\server\share\%username%.txt

Думаю, проще уже некуда.

Comments

[ComodoHacker]

А, да, чтобы исключить терминал, попробуйте

if "%sessionname%" == "Console"

[m33th00k]

Спасибо !

[pindschik]

Простой батник:
set USERFILE="\\sever\share\%USERNAME%"
echo >>%USERFILE% %Date% %time% %FULLNAME% %COMPUTERNAME%

Сам подобное делал

Answer 2

[Дмитрий Шумов]

Подвесте на логог/логоф скрипт, и смотрите в AD пользователь ходил онзаходил:

Param(
[Parameter(Position=0)]
[ValidateSet("Logon","Logoff","Unknown")]
[string]$Status="Unknown"
)
 
#no spaces in the filter
[adsisearcher]$searcher="samaccountname=$env:username"
#find the current user
$find = $searcher.FindOne()
#get the user object
[adsi]$user = $find.Path
#define a string to indicate status
$note= @("{0} {1} to {2}" -f (Get-Date),$status.ToUpper(),$env:computername)
[array]$NewVals = @()
$NewVals = try {
    ($user.GetEx('url'))[0..10]
}
catch {
    @()
}
$newVals += $note
#DEBUG, output values in ISE
#$NewVals |  out-host
#update the user property
$user.PutEx(2, 'url', $NewVals ) 
#commit the change
$user.SetInfo()
#DEBUG, output values in ISE
#$user.GetEx('url')

Answer 3

[CityCat4]

Написать можно хоть на vbs, хоть на ps - что знаете, на том и пишите. Задача несложная, решается что там что там. Читать документацию соответствующего языка и MSDN - вот что-то, а MSDN у M$ сделан офигительно.