VBS: заполнение "Описание" для компа в АД именем залогиненного юзера

В пределах домена (пакетник)

echo off
setlocal ENABLEDELAYEDEXPANSION
set domain=
set user=
for /f "delims=\ " %%i in ('net view ^| find "\\"') do (
    set comp=%%~i
    ping -n 1 -w 10 !comp! > nul 2>&1 && (
        for /f "tokens=2,3 delims==\" %%d in ('wmic /failfast:on /output:STDOUT /node:"!comp!" ComputerSystem get username /format:value 2^> nul ^| find "="') do (
            set user=%%~e
            set domain=%%~d
            set domain=!domain:~0!
            if /i "%userdomain%"=="!domain!" (
                set user=!user:~0,-1!
                net user "!user!" /domain > nul 2>&1 && (
                    for /f "delims=" %%u in ('dsquery user -samid "!user!" -scope subtree -o dn ^| dsget user -fn -mi -ln -display -L 2^> nul ^| find ": "') do (
                            set name=%%~u
                            set name=set !name:: ==!
                            !name!
                        )
                        set fullname=!fn! !mi! !ln!
                        set fullname=!fullname:"='!
                        set display=!display:"='!
                        dsquery computer domainroot -name "!comp!" -scope subtree -o dn | dsmod computer -desc "!fullname! (!display!)" 2> nul && echo !comp! - !fullname! (!display!^)
                    )
                )
            )
        )
    )

исключаем контроллеры автоматом + список внесенный в exclude через пробелы или запятые или точку с запятой
(с подразделением не вкурил, надо компьютеры только из определенных подразделений АД ?)

echo off
setlocal ENABLEDELAYEDEXPANSION
set exclude=proxy;pavel igor,ws013
for %%i in (%exclude%) do (
    set "regexclude=!regexclude! \<%%i\>"
    )
set domain=
set user=
for /f "delims=\ " %%i in ('net view ^| find "\\"') do (
    set comp=%%~i
    ping -n 1 -w 10 !comp! > nul 2>&1 && dsquery server -o rdn | find /v /i "!comp!" > nul && echo !comp! | findstr /i /v /r "%regexclude%" > nul && (
        for /f "tokens=2,3 delims==\" %%d in ('wmic /failfast:on /output:STDOUT /node:"!comp!" ComputerSystem get username /format:value 2^> nul ^| find "="') do (
            set user=%%~e
            set domain=%%~d
            set domain=!domain:~0!
            if /i "%userdomain%"=="!domain!" (
                set user=!user:~0,-1!
                net user "!user!" /domain > nul 2>&1 && (
                    for /f "delims=" %%u in ('dsquery user -samid "!user!" -scope subtree -o dn ^| dsget user -fn -mi -ln -display -L 2^> nul ^| find ": "') do (
                            set name=%%~u
                            set name=set !name:: ==!
                            !name!
                        )
                        set fullname=!fn! !mi! !ln!
                        set fullname=!fullname:"='!
                        set display=!display:"='!
                        dsquery computer domainroot -name "!comp!" -scope subtree -o dn | dsmod computer -desc "!fullname! (!display!)" 2> nul && echo !comp! - !fullname! (!display!^)
                    )
                )
            )
        )
    )

Окей, спасибо большое!=)

это обычный "батник"

это для описаний ПК в Актив директори, а не тот что комментарий ланмансервера

Пардон, что снова поднимаю тему.
Начальнику необходимо, чтобы скрипт запускался от каждого юзера, и не перебирал все компы, а записывал только в свой. То есть юзер логинится, выполняется данный скрипт, который в описание компа в АД, на котором залогинился юзер, запишет его ФИО. Такие дела...

Upd. Ну раз отвечают, значит это только одному мне вопрос непонятен...

Хороший совет
Можно ли как-то твой пакетник переделать, чтобы он не пробегался по всем компам, а делал только у того компа, на котором залогинен юзер?

Собственно, для ясности все же подробно опишу свою задачу.

В оснастке "АД - пользователи и компьютеры" есть контейнер Computers, где лежат все записи компов домена. У каждой этой записи есть поле "Описание". Необходимо сделать так, чтобы когда пользователь логинился на какой-то машине - отрабатывался скрипт, который делает следующее: в "Описание" компьютера в АД, на котором залогинился пользователь записать ФИО этого пользователя.

Поискал. Но не очень понял как это применимо касательно решения моей задачи...

"Проксирование" придумали как раз для того, чтобы не надо было предпринимать действий, подобных Вашему, поскольку они снижают уровень безопасности сети.

парни объясните на пальцах, как это работает

ну как запускать, в групповую политику совать и накатывать на каждого пользака или это от одного пользователя отрабатывается

Попробуйте за разъяснениями написать коллеге smaharbA в личку, сюда он заходит достаточно спорадически.

А теперь обратная задача... Заполнить поле "Описание" у пользователя в АД - именем компа, на котором он залогинен.
Написал такой вот незамысловатый скрипт:

Const ADS_PROPERTY_UPDATE = 2 

Function Environ(VarName)
    Dim wss, env
    Set wss = CreateObject("WScript.Shell")
    Set env = wss.environment("process")
    Environ = env(VarName)
    If Environ = "" Then
        Set env = wss.environment("system")
        Environ = env(VarName)
    End If
End Function

Set objWshShell =  WScript.CreateObject("WScript.Shell")
strEnv      =  Environ("COMPUTERNAME")

On Error Resume Next

set objParent = GetObject("LDAP://ou=Уволенные,ou=Пользователи,ou=Новосибирск_nov,ou=Площадки,dc=domain,dc=local")
objParent.Filter = Array("user")
for each objUser in objParent

    objUser.PutEx ADS_PROPERTY_UPDATE, "description", Array(strEnv)

    objUser.SetInfo
    On Error GoTo 0
next

Вот только проблема. Пользователь в своей учетке в АД не может править поле "Описание". Да и вообще - скрипт сей пробегается по всей OU и редактирует все учетки одним именем компа, от которого запущен.
А надо чтобы он запускался от юзера и только свою учетку в АД редактировал этим описанием...

Смотрю в сторону cmd и dsquery, но что-то пока нет мыслей по реализации.

с cmd все просто ))

dsquery user -name %username% | dsmod user -desc "%computername%"

вот только нет прав у юзера редактировать этот пункт...=( как сие обойти?

Теперь иная задача...
Раз уж в "Описание" юзер ничего не может добавить, то имя компа надо писать в поле "Комната", причем в таком формате: номер_комнаты (имя_компьютера).

Имя компов у нас в формате com123ws01
Где com - 3-хбуквенное имя площадки
123 - номер комнаты
ws - вёркстэйшн
01 - номер розетки.

Собственно, разобрать переменную среды %computername% и выделить номер комнаты не сложно: %COMPUTERNAME:~3,-4%

Вот только как это в vbs-скрипте сделать?

Function Environ(VarName)
    Dim wss, env
    Set wss = CreateObject("WScript.Shell")
    Set env = wss.environment("process")
    Environ = env(VarName)
    If Environ = "" Then
        Set env = wss.environment("system")
        Environ = env(VarName)
    End If
End Function

asdf = Environ("COMPUTERNAME:~3,-4")
msgbox(asdf)

Set WSHShell = WScript.CreateObject("WScript.Shell")
usernamevar = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME:~3,-4%")
msgbox(usernamevar)

Вот только оба варианта не работают. Как мне регулярные выражения для переменных среды в vbs-скрипте использовать?

Судя по предыдущему сообщению, задача решена.
Осталось лишь разобраться с "проксированием" (ну, например, на будущее).

1. Создаём папку общего доступа, с правами для рядовых пользователей только на запись (значение маски либо &H100116, либо &H40000000).

2. Пишем "LogOn"-сценарий, который будет создавать в этой папке некий сигнальный файл. Например, это может быть пустой текстовый файл, имя которого состоит из пары: имя станции + имя пользователя.
И включаем этот сценарий в нужным образом в групповую политику.

3. Пишем сценарий для регистрации временной или постоянной (с моей точки зрения, временная - практичнее) подписки на событие появления в папке общего доступа сигнальных файлов от пользователей.
И запускаем этот сценарий с нужными полномочиями.
Сценарий, получив сигнал о наступлении события, делает следующее:
- выполняет привязку к соответствующему объекту-пользователю в AD;
- вносит изменения в поле описания этого объекта;
- удаляет сигнальный файл.

Таким образом, пользователи, имея лишь свои базовые права, могут инициировать процесс внесения изменений в AD.

Понятно объяснил?

Пустое? Можно:

if defined proverka …