Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » Автоматизация администрирования. Часть 3

Модерирует : lynx, Crash_Master, dg, emx, ShriEkeR

 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

Открыть новую тему     Написать ответ в эту тему

wwladimir



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

 
'  
' NAME: Login.vbs  
'  
' AUTHOR: Max  
' DATE : 16.04.2007  
'  
' COMMENT: Скрипт вешается на логон. Записывает в АД имя раб. станции пользователя,  
' на которой тот залогинился, и прописывает полное имя в описание компа, на котором этот пользователь сидит  
' (полезно для Ideal Administrator'a  
'Изменения DivinWW@mail.ru
 
'==========================================================================  
 
Dim WshNetwork, dn, UserName, strComputer, colItems, objUser  
Const wbemFlagReturnImmediately = &h10  
Const wbemFlagForwardOnly = &h20  
 
Set WshNetwork = CreateObject("WScript.Network")
On Error Resume Next
Path = WSHNetwork.ComputerName
Set objSysInfo = CreateObject("ADSystemInfo")
strComputerDN = objSysInfo.ComputerName
Set objComputer = GetObject("LDAP://" & strComputerDN)
' для серверов мы установили значение DescriptionLocation = "serverroom"  
'MsgBox objComputer.Get("Location")
Select Case objComputer.Get("Location")
 Case "serverroom"
' Скрипт не нужно выполнять, производим выход
Wscript.Quit  
 Case Else
 End Select
'Select Case objComputer.Get("Description")
 
 
'MsgBox objComputer.Get("operatingSystem")
' для серверов мы установили значение DescriptionLocation = "serverroom"  
'Select Case objComputer.Get("Description")
Select Case objComputer.Get("operatingSystem")
 Case "Windows Server 2003"
' Скрипт не нужно выполнять, производим выход
Wscript.Quit  
Case "Windows 2000 Server"
' Скрипт не нужно выполнять, производим выход
Wscript.Quit
Case "Windows Server® 2008 Enterprise"
Wscript.Quit  
 Case Else
'Скрипт нужен производим выполнение
End Select
 
' берем имя компа и пользователя раб станции  
Set WshNetwork = WScript.CreateObject ("WScript.Network")  
strComputer = WshNetwork.ComputerName  
UserName = WshNetwork.UserName
' вытаскиваем distinguishedName пользователя  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\directory\LDAP")  
Set colItems = objWMIService.ExecQuery("SELECT * FROM ads_user WHERE DS_sAMAccountName='" & UserName & "'", "WQL", _  
wbemFlagReturnImmediately + wbemFlagForwardOnly)  
For Each objItem In colItems  
FullName = objItem.DS_Name  
dn = objItem.DS_distinguishedName  
Next  
' подключаемся к АД и вносим имя компа в поле userWorkstations пользователя  
Set objUser = GetObject ("LDAP://" & dn)  
objUser.Put "wWWHomePage",strComputer  
objUser.SetInfo  
'Прописываем пользователя в описание  машины AD
Set objComputer = GetObject("LDAP://" & strComputer)
    objComputer.Put "description", FullName
'objComputer.Description = UserName & " " & Now
objComputer.SetInfo
 
'Прописываем пользователя в описание локальной машины  
k = 34 ' ASCII-код кавычек  
kk = Chr(k) ' преобразуем в символ для корректного применения в строке  
Set WshShell = WScript.CreateObject ("WScript.Shell")  
Set net = WshShell.Exec ("net config server /srvcomment:" & kk & FullName & kk)
 
 
 
пишет имя залогинившегося юзера (имеющего право записи в описание компа, для удобства обзора в сетевом окружении XP, в 7 это убрано) и в консоли 'AD пользователи и компьютеры" компам в поле описание- последнего пользователя, а юзером имя компа в поле  "веб-страница". Работает, ставил года четыре  назад- может что и упускаю.

Всего записей: 520 | Зарегистр. 08-11-2006 | Отправлено: 15:10 19-06-2012 | Исправлено: wwladimir, 15:23 19-06-2012
Открыть новую тему     Написать ответ в эту тему

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » Автоматизация администрирования. Часть 3


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.Board
© Ru.Board 2000-2020

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru

Рейтинг.ru