» Автоматизация администрирования

AlexSSS

Цитата:

записывает инфу об залогиненном пользователе и его компе (имя, IP, MAC).

Записывает куда?

vworld
> Записывает куда?
в текстовый файл на сервере

A кто пробовал AdvancedChecker ? достаточно продвинутый язык ...хотя платный

ALL
Обновился раздел шапки --- BOOKS

vworld
Как я понял тебе гужна прога типа "UserLock"
-- отслеживание залогиненых юзеров с оповещением по мылу, send message ....
Проста и легка в обращении.

Попробуем сдесь...
Hi all! Такая проблемка - сетка (30 pc), на машинах шары //wks1...30/dir$/programs/ - установлен стандартный набор софта - например: proga1, proga2, progaX (директории) - так вот как бы с помощью WSH тереть все что не progaX? Так сказать зачистка после рабочего дня жизнидеятельности юзеров;) Как замутить - написать - я пока в WSH не очень...

Убиться веником
Мелкософт представляет MSH – Microsoft Shell
Пока только бета-версия
Смотреть сдесь (ссылка "Windows Command Shell Preview" - видать с название ещё до конца не определились)
Или сразу сдесь
Потребуется регистрация

FreemanRU
Alan Mon

Спасибо за Ваши сообщения - они очень полезны, будут не только мне, но и другим форумянам. А вот моя проблема не решилась скорее всего из-за моей невнимательности. Всё дело в том, что мне оказывается надо менять значения немного в другом месте реестра, а точнее не в

Цитата:

[HKEY_CURRENT_USER\Software\Mirabilis\ICQCorp\DefaultPrefs]

а немного глубже:

---
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Mirabilis\ICQCorp\Owners\1075\Prefs\Servers\Server1]
"Host"="192.168.X.110"
"Port"=dword:00000fa0
---

Задача осложняется тем, что одна из папок необходимого пути реестра является величиной переменной (обозначает номер внутрикорпоративной аськи, а у каждого пользователя он, соответственно свой). В случае с примером выше - это папка с именем - 1075 - мой номер аськи . Изменить надо параметр HOST. подскажите, пожалуйста, как быть. Ввиду непостоянного пути в реестре, Ваши решения с политиками и файлами реестра неэффективны - может есть какие приёмчики решения таких проблем. Одним словом, HELP - работа стоит из-за этой аськи, туды её в качель

На всякий случай скрин моего реестра в нужном месте:
http://www.ourls.narod.ru/screen/err.jpg

PIL123
Попробуй такой батник:

Код: for /F %%i in ('reg query HKCU\Software\Mirabilis\ICQCorp\Owners') do reg add %%i /v Host /t REG_SZ /d "Здесь твой новый адрес" /f

PIL123
ТОже, что у Alan Mon, но на VBS:

Код:
const HKEY_LOCAL_MACHINE = &H80000002
const HKEY_CURRENT_USER = &H80000001
strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &strComputer & "\root\default:StdRegProv")

strKeyPath = "Software\Mirabilis\ICQCorp\Owners'"
oReg.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubKeys

For Each subkey In arrSubKeys
oReg.SetStringValue HKEY_CURRENT_USER, strKeyPath &"\"& subkey&"\Prefs\Servers\Server1","Host","192.168.X.110"

oReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath &"\"& subkey&"\Prefs\Servers\Server1","Port","4000"
Next

Alan Mon

К сожалению такой батник мне не помог - сделал не свосем то,что надо - в ветки:
[HKEY_CURRENT_USER\Software\Mirabilis\ICQCorp\Owners]
[HKEY_CURRENT_USER\Software\Mirabilis\ICQCorp\Owners\1075]
он добавил параметр HOST и там вписал значение из батника:
"Host"="Здесь твой новый адрес".

Скрин прилагаю:
http://www.ourls.narod.ru/screen/err2.jpg


Добавлено:
FreemanRU

Извини, но твой скриптик выдаёт ошибку на 10 строчке:

http://www.ourls.narod.ru/screen/err3.jpg



Добавлено:
Други, помогите добить эту заразу

PIL123
Блин, путь недоглядел. Лови исправленный вариант:

Код: for /F %%i in ('reg query HKCU\Software\Mirabilis\ICQCorp\Owners') do reg add %%i\Prefs\Servers\Server1 /v Host /t REG_SZ /d "Здесь твой новый адрес" /f

Alan Mon

Урра, заработалааа. Немного лишней информации в реестре пишет, ну да ничего - главное значение меняет там где надо.

Я тут пока ковырялся в реестре понял, что, если полностью замочить веточку:
[HKEY_CURRENT_USER\Software\Mirabilis\ICQCorp\Owners\1075\Prefs\Servers]
со всеми подпапками и пр., а значение Default Server Host в
[HKEY_CURRENT_USER\Software\Mirabilis\ICQCorp\DefaultPrefs]
изменить на новое необходимое, то тогда всё становится ОК и приследующей загрузке программка берёт адрес сервера именно из дефалтовых установок. По моему это более изящное решение проблемы. Не помогут ли мне Уважаемые скриптологи, е если я конечно не слишком много прошу

PIL123
Ну тогда вместо add пишем delete:

Код: for /F %%i in ('reg query HKCU\Software\Mirabilis\ICQCorp\Owners') do reg delete %%i\Prefs\Servers
reg add HKCU\Software\Mirabilis\ICQCorp\DefaultPrefs /v "Default Server Host" /t REG_SZ /d "новый адрес" /f

PIL123
Хоть уже и все, но поправлю:

Код:
const HKEY_LOCAL_MACHINE = &H80000002
const HKEY_CURRENT_USER = &H80000001
strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &strComputer & "\root\default:StdRegProv")

strKeyPath = "Software\Mirabilis\ICQCorp\Owners'"
oReg.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubKeys

oReg.SetStringValue HKEY_CURRENT_USER, strKeyPath &"\"& arrSubKeys&"\Prefs\Servers\Server1","Host","192.168.X.110"

oReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath &"\"& arrSubKeys&"\Prefs\Servers\Server1","Port","4000"

Никто случайно не встречал как отключить возможность коннектиться ts юзеров в консоль под win2k3?
пол гугла перелопатил - не видать

FreemanRU
Alan Mon

Мужики, спасибо большое за Вашу помощь - всё заработало как надо - двигаюсь дальше.

pe3yc
А чего ты так переживаешь? Ну законектился юзвер на консоль, но залогиниться то не сможет. В чем проблема то?

Цитата:

Hi all! Такая проблемка - сетка (30 pc), на машинах шары //wks1...30/dir$/programs/ - установлен стандартный набор софта - например: proga1, proga2, progaX (директории) - так вот как бы с помощью WSH тереть все что не progaX? Так сказать зачистка после рабочего дня жизнидеятельности юзеров;) Как замутить - написать - я пока в WSH не очень...

Ну блин неужели никто не знает как это сделать? Хоть примерчик один подкиньтееее ЛЮЮДИИИ!

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

а технология автономных файлов уже не действует?

kinnegan
как самый простой вариант, XCOPY, смотри ключи
можно и скриптами, проверяя есть ли файл на сервере и время последней можификации файла

kinnegan
Посмотри утилитку robocopy из Resource Kit. Она это умеет. И еще много чего.

угу, при логофе пользователя можно скопировать с помощью xcopy (ключики на проверку недостающих или измененных файлов)

Господа! Помогите разобраться.
При запуске wscript.exe появляется сообщение "..отключен доступ к серверу сценариев Windows" Как его включить? Система Windows XP SP2 Pro.

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

http://www.samag.ru/art/02.2004/02.2004_05.zip
В предыдущей статье были рассмотрены теоретические аспекты построения Active Directory и проведен обзор доступных провайдеров, с помощью которых можно программно управлять Active Directory. Одним из таких провайдеров является WinNT, основы программирования которого будут рассмотрены в данной статье.

http://www.samag.ru/art/03.2004/03.2004_09.zip
«Программное управление ADSI: LDAP»
(Автор: Иван Коробко.)
Данный материал содержит основы программирования провайдера LDAP, объектная модель которого рассмотрена на примере стандартных утилит, созданных компанией Microsoft.

Добрый день!
как на всех машинках в домене просмотреть установлен тот или иной сервис???.
Есть домен под 2003, есть куча машин, на которых когда-то был установлен Касперыч, хочетса узнать что это за тачки и грохнуть эту заразу. Тока вот не знаю как?

buks2004

Могу подкинуть шаблон как со службами работать. Скрипт список служб выдает. Тебе нужно его модернизировать. Он подключается к одному компу, надо сделать чтоб обходил все компы в AD. Можно искалку касперского прикрутить еще. Скрипт вот:

'*******************************************************************
' Описание: Вывод информации о службах
'*******************************************************************
Option Explicit

' Объявляем переменные
Dim strComputer ' Имя компьютера
Dim strNamespace ' Имя пространства имен
Dim objWMIService ' Объект SWbemServices
Dim colServices ' Коллекция экземпляров класса WMI
Dim objService ' Элемент коллекции
Dim strResult ' Результирующая строка
Dim WshShell ' Объект WshShell
Dim theNotepad ' Объект WshScriptExec

' Объявляем константы
Const wbemFlagForwardOnly = 32
Const wbemFlagReturnImmediately = 16
Const ForWriting = 2

' Функция для записи информации в файл
Sub TextOut (Text, File)
' Объявляем переменные
Dim objFSO, FOut
' Создаем объект FileSystemObject
Set objFSO=WScript.CreateObject("Scripting.FileSystemObject")
' Открываем выходной файл для записи
Set FOut = objFSO.OpenTextFile (File,ForWriting,true)
' Записываем текстовую строку в файл
FOut.WriteLine Text
' Закрываем выходной файл
FOut.Close
End Sub

'********************** Начало *************************************
' Присваиваем начальные значения переменным
strComputer = "."
strNamespace = "Root\CIMV2"
strResult = "Информация о службах " & VbCrLf & VbCrLf

' Подключаемся к пространству имен WMI
Set objWMIService = GetObject("WinMgmts:\\" & _
strComputer & "\" & strNamespace)

Set colServices = objWMIService.ExecQuery("SELECT * FROM Win32_Service"_
,,wbemFlagReturnImmediately+wbemFlagForwardOnly)
For Each objService In colServices
strResult = strResult & "Name: " & _
objService.Name & VbCrLf
strResult = strResult & "Display Name: " & _
objService.DisplayName & VbCrLf
strResult = strResult & "Caption: " & _
objService.Caption & VbCrLf
strResult = strResult & "Description: " & _
objService.Description & VbCrLf
strResult = strResult & "Path Name: " & _
objService.PathName & VbCrLf
strResult = strResult & "ServiceType: " & _
objService.ServiceType & VbCrLf
strResult = strResult & "Status: " & _
objService.Status & VbCrLf
strResult = strResult & "State: " & _
objService.State & VbCrLf
strResult = strResult & "Started: " & _
objService.Started & VbCrLf
strResult = strResult & "Start Mode: " & _
objService.StartMode & VbCrLf
strResult = strResult & "Start Name: " & _
objService.StartName & VbCrLf
strResult = strResult & "Accept pause: " & _
objService.AcceptPause & VbCrLf
strResult = strResult & "Accept stop: " & _
objService.AcceptStop & VbCrLf
strResult = strResult & "********************************" & VbCrLf &_
VbCrLf
Next

' Выводим результат в текстовый файл
TextOut strResult, "C:\Services.txt"

'Создаем объект WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
'Открываем созданный файл в Блокноте
Set theNotepad = WshShell.Exec("notepad " & "C:\Services.txt" )
'************************* Конец ***********************************

buks2004
1. Логон скрипт проверяет наличие нужной записи в ветке реестра Uninstall
2. Если все клиенты на XP, то наличие записи в реестре можно проверить дистанционно с помощью WMI. Скрипт берет список всех компов из AD и дистанционно проверяет реестр.

AlexSSS
можно твой метод чуть подробней??
Все клиенты под XP.

buks2004
1. В шапке темы находишь "TechNet Script Center Sample Scripts" и скачиваешь
2. Там находишь "List All Computer Accounts in Active Directory" - это для получения списка компьютеров
3. Там же находишь "Ping Multiple Computers" - там вырезаешь кусок для пингования компьютера. по полученному списку компов можно запускать проверку реестра, но лучше вначале пингануть комп на проверку наличия его в сети - это будет гораздо быстрее
4. Привожу простой скрипт для чтения ветки Uninstall. Запускаешь Visual Basic Editor в Excel, вставляешь в него нижеприведенный скрипт и запускаешь его. Он даст тебе все, что проинсталлировано на компе. Сделать проверку на наличие конкретной ветки будет уже несложно. Запускать скрипт необходимо с правами локального админа для удаленного компа (обычно в эту группу входят и домен админы).

Sub Test()
Const HKEY_LOCAL_MACHINE = &H80000002

Cells.ClearContents

strComputer = "ComputerName"

Set oReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

Row = 1
For Each subkey In arrSubKeys
Cells(Row, 1).Value = subkey
Row = Row + 1
Next

End Sub

PS. Я предпочитаю запускать подобные скрипты в Экселе - там уже есть и проверка синтаксиса, да и вывести любые результаты, включая любые промежуточные, очень просто

Добавлено:
Как показано в примере Mishgunnn, практически таким же способом можно посмотреть и реально запущенные сервисы.
См. его пример или в "TechNet Script Center Sample Scripts" - "List Service Properties".
Пример практически этот же, но там он чуть нагляднее из-за форматирования.