Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 23.12.2020
Сообщений: 4

Скрипт для подписания пк в домене

20.02.2024, 13:35. Показов 561. Ответов 2

Студворк — интернет-сервис помощи студентам
Доброго времени суток!
Нужно написать скрипт прикрученный к групповой политике, чтобы при логине пользователя - в домен вносились данные в контейнер с пк в описание пк было написано кто залогинен логин/полное имя пользователя, когда залогинен, ip компа
Как бы написать я смог, но есть одно НО, нужно сделать так, чтобы сервера не учитывались, можно ли это сделать как-то в скрипте? Потому что хоть я и выбирал контейнер на который должен распространяться этот скрипт, но он почему-то лезет в контейнер с серверами ( что не надо ). Общая суть в том, чтобы подписывались только пк ( сервера не подписывались )
Подозреваю, что нужен цикл с обращением к списку, либо через массив, но сколько я не пытался - не робит, возможно я чего-то не понимайт. Ниже прикрепляю код
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim adsinfo, Compudrister, oUser, a, WSHShell 
strComputer = "."
Set adsinfo = CreateObject("adsysteminfo") 
Set Compudrister = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)
Set WshNetwork = WScript.CreateObject("WScript.Network") 
  
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=True")
For Each IPConfig in IPConfigSet
 
    If Not IsNull(IPConfig.IPAddress) Then  
        
            a=a+" "+IPConfig.IPAddress(netIP)
       
    End If
Next
Compudrister.put "description", "Пользователь: " + oUser.sn + " " + WshNetwork.UserName +"; IP: "+ a+"; "+ "Вошел в систему в: " + CStr(Now) 
Compudrister.Setinfo
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
20.02.2024, 13:35
Ответы с готовыми решениями:

Нужен скрипт для отображения серийных номеров HDD всех ПК в домене
Всем привет! Помогите пожалуйста! Нужен скрипт для отображения серийных номеров всех HDD на всех ПК в домене или в определенной OU. ...

Где найти инфо для подписания драйвера маяк для 64 битной системы
где найти инфо для подписания драйвера маяк для 64 битной системы

Программа для подписания документов ЭЦП
Доброго времени суток уважаемые форумчане я студент! пишу квалификационную работу Нужно создать программу которая будет подписывать...

2
1387 / 843 / 92
Регистрация: 08.02.2017
Сообщений: 3,593
Записей в блоге: 1
20.02.2024, 17:37
Цитата Сообщение от JuuzouTw Посмотреть сообщение
Set Compudrister = GetObject
вам лучше обратиться сюда https://www.cyberforum.ru/vbscript-wsh/
0
0 / 0 / 0
Регистрация: 23.12.2020
Сообщений: 4
21.02.2024, 05:29  [ТС]
Ок, спасибо, закину туда
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
21.02.2024, 05:29
Помогаю со студенческими работами здесь

Программа для подписания документов ЭЦП
Доброго времени суток уважаемые форумчане я студент! пишу квалификационную работу Нужно создать программу которая будет подписывать...

Ключевой контейнер для подписания XML
Здравствуйте! Вероятно неправильный раздел, но, опять же, не знаю, куда еще. Суть такова. Необходимо подписать XML. Для этого уже...

Настройка DKIM подписания для CommuniGate Pro
Доброго дня и с наступившим Новым годом! Я впервые самостоятельно установил CommuniGate Pro на чистую Centos 6. Есть задачка настроить...

Скрипт на получение сведений о компе в домене
Всем привет. Наговнокодил такой скрипт Собирает информацию о компьютерах в домене. #Вывести список компьютеров в группе домена в...

Ошибка: Сертификат для подписания манифеста не найден в хранилище сертификатов.
Появилась эта ошибка при попытке откомпилировать проект. Кто-нибудь знает, что это и как с этим бороться?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru