» Автоматизация администрирования. Часть 2

Так что скажете на счет скрипта для включения рабочей станции Win2K в домен, неужели такого не существует ???

Ребята может кто встречал скрипт для сбора информации о установленных ОС+SP в домене с отчетом в excel

rosalin
пробуй использовать WMI. вот пример, выгузку в excel думаю уже прикрутишь
[more=Читать дальше..]
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("localhost")
colText = ""
For Each strComputer In arrComputers
    colText = colText & "==========================================" & Chr(13)
    colText = colText & "Computer: " & strComputer & Chr(13)
    colText = colText & "==========================================" & Chr(13)
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
    For Each objItem In colItems
        colText = colText & "Caption: " & objItem.Caption & Chr(13)
        colText = colText & "CSDVersion: " & objItem.CSDVersion & Chr(13)
        WScript.Echo colText
    Next
Next
[/more]

Не работает батник под юзером в Win 2008, содержание:
net use i: "\\dizo2\info"
в 2003 работал, указываю в профиле, в сценарии входа.

beastmaster22
может без кавычек попробовать?

beastmaster22
переименуй в cmd

Добрый день!

Такая ситуация:
нужно с локальных машин подключаться на удаленний сервер напрямую. что бы пользователь не работал в виндовсе локальной машини.

на локальной машине будет 2 пользователя: админ и user#
для user# я заменил в реестре проводник на RDС. теперь при входе в систему сразу выдает Окошко подключения к удаленному компьютеру. такой себе недо"Тонкий клиент"))

но проблема заключается в том, что когда закрыть RDС, то видим только картину и ничего не работает (так как проводника я вырубил, а RDС не перегружается автоматом).

приходиться через Диспетчер задач вызывать експлорера, либо завершать сеанс и входить по новому. А в идеале нужно было бы и его запретить запускать.
вот пришла мне мысль сделать для этого какой то батник что бы контролировал наличие подключения по RDP (например проверка на предмет использования порта 3389 если не ошибаюсь) и в случае отсутсвия перезапускать RDС.

Я вообще юрист и мне сложно написать что то такое, поэтому прошу помощи.
Это вообще возможно?
Заранее благодарен.

Цитата:

Добрый день!
Я вообще юрист

тогда точно не будете обижаться, ежели вас уволят за несоответствие занимаемой должности

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

ADMINDM
DalayLamer


Цитата:

тогда точно не будете обижаться, ежели вас уволят за несоответствие занимаемой должности

не уволят, и более того зарплату больше платят.

Я предварительно извиняюсь з грубость, но я к Вам не морали пришел послушать. Кто чем заниматься должен - сам прекрасно знаю. На форуме задают вопросы и соответственно, получают ответы. Вот Вы прийдете к юристу за консультацией, а он Вам скажет: "Идите читайте законы, а вобще читать законы дело не Ваше (а нас - юристов), -
Цитата:

каждый должен занимаца своим делом

."

я написал про то что я юрист, что бы избежать таких вот ответов. Увы..... печально....

а теперь, если знаете, прошу мне помочь

Какой командой можна проверить запущен ли процесс?

Цитата:

Какой командой можна проверить запущен ли процесс?

tasklist /FI "IMAGENAME eq mstsc.exe"

ZolotnikOV

nncron

Цитата:

ZolotnikOV

вообще-то наверное стоит сначала по предидущим страницам порыться, т.к. это: проверка запущеных процессов и запуск прил из скрипта, уже 100 раз обсуждалось!

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

Добавлено:
или в соотв политики

YNY

Цитата:

вообще-то наверное стоит сначала по предидущим страницам порыться, т.к. это: проверка запущеных процессов и запуск прил из скрипта, уже 100 раз обсуждалось!

порылся, искал поиском в "Версия для печати". Не нашел(( если видели- покажите.
сам не могу ничего толком слепить.

експлорер отрубить что бы пользователи ничего не делали. думаю это самый быстрий способ.

Цитата:

Если честно то зачем вам после закрытия RDP рабочий стол если вы его по умолчанию отрубили

он мне и не нада. мне нужен перезпуска RDC. Все.

Цитата:

ZolotnikOV

[more=ну вот]
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
'ищем процесс RDP
Set colProcesses = objWMIService.ExecQuery( "Select * from Win32_Process " & "Where Name = 'mstsc.exe'")

dim rez

if (colProcesses.Count<>0) then
    msgbox "процесс RDP запущен"
else
    rez=msgbox ("процесс RDP НЕ запущен, запустим его?",vbYesNo, "Чего хотим")
end if

select case rez
    case 6 'Yes    
            
            Set objProcess = GetObject( "winmgmts:root\cimv2:Win32_Process")
            errReturn = objProcess.Create( "mstsc.exe", null, objConfig, intProcessID)
    case 7 'No

end select

[/more]
попробуй если хочешь модифицируй

Добавлено:
на 56 странице, внизу, есть еще вариант запуска приложения из скрипта

Добавлено:
когда чего-то ищещь тут то не плохо в ангилком языке еще некие слова употреблять тада ИМХО точно найдется че нить )

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

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

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

Добавлено:
идея вобщем и состоит в том чтоб скрипт смотрел какой у юзера профайл(перемещаемый или нет) и заносил в определенную OU, к которой применял потом политику, подскажите как скриптом определить тип профайла ?

Цитата:

sirDaemon

на скоко мне не изменяет память все перемещаемые профили обычно хранятся на серваке в опред. админом папке, так что .............

Добавлено:
Структура или задача для скрипта:
пишешь скрипт, кот шерстит папки с перемещаемыми профилями и определяет по объему (размеру) тех кому слать извещения или для которых будет включена политика ограничения, правда если уже предел превышен, то, ск всего, снач нада урезать профиль до границы входа в политику иначе хз как и че порежется )

Добавлено:
[more=Вот]
Const FldrtoCLR = "\Local Settings\Temporary Internet Files\Content.IE5"
Dim fso, fldr, s, Sfldr,WSF
Set fso = CreateObject("Scripting.FileSystemObject")
    Set fldr = fso.GetFolder("C:\Documents and Settings")
    Set Sfldr = fldr.SubFolders
        
    For Each Ind in Sfldr

        if (fso.FolderExists(Ind&FldrtoCLR)) then
            Set s=fso.GetFolder(Ind)

            WSF=Round(s.size/1048576,3)
            msgbox "В папке " & Ind &" размером " & WSF &" (МБ)" & vbCrLF & " папка " & FldrtoCLR & " -- существует!"
        end if    
    
    Next
'size -- размер в байтах
[/more]
пример определения размера в мегах

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

Цитата:

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

в шапке, там где-то в примерах работы с АД

objUser.Profile

sirDaemon
Такой скрипт придется запускать каждый день
блин ты же говорил про политику, а для политик мона использовать скриптовые фильтры, и да, конечно, политика будет запускаться каждый день сама!!!

Добавлено:
статья про WMI фильтры в GPO Ссылка

Добавлено:
Если [more=вот от сюда]
On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery _
("Select * from Win32_UserAccount Where LocalAccount = True")

For Each objItem in colItems
Wscript.Echo "Account Type: " & objItem.AccountType & vbcrlf &_
"Caption: " & objItem.Caption & vbcrlf &_
"Description: " & objItem.Description & vbcrlf &_
"Disabled: " & objItem.Disabled & vbcrlf &_
"Domain: " & objItem.Domain & vbcrlf &_
"Full Name: " & objItem.FullName & vbcrlf &_
"Local Account: " & objItem.LocalAccount & vbcrlf &_
"Lockout: " & objItem.Lockout & vbcrlf &_
"Name: " & objItem.Name & vbcrlf &_
"Password Changeable: " & objItem.PasswordChangeable & vbcrlf &_
"Password Expires: " & objItem.PasswordExpires & vbcrlf &_
"Password Required: " & objItem.PasswordRequired & vbcrlf &_
"SID: " & objItem.SID & vbcrlf &_
"SID Type: " & objItem.SIDType & vbcrlf &_
"Status: " & objItem.Status
'
Next

[/more] вырезать то, че тебе нада, возмона и получится фильтр

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

yazzi

Цитата:

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

например, так:
1. используя SetACL
2. используя групповые политики

yazzi
подключай сетевой реестр (regedit. файл - подключить сетевой реестр), выбирай машину(ы) и правь себе.

DalayLamer

Цитата:

подключай сетевой реестр (regedit. файл - подключить сетевой реестр)

это не очень похоже на автоматизацию администрирования

niichavo
дык задавайте вопросы правильно и подробно. тут ведь с телепатией у подавляющего большинства совсем тяжко
а по теме, смотрите тут:
http://msdn.microsoft.com/en-us/library/ms724878(VS.85).aspx
http://msdn.microsoft.com/en-us/library/microsoft.win32.registrykey.setaccesscontrol.aspx

DalayLamer

Цитата:

подключай сетевой реестр (regedit. файл - подключить сетевой реестр), выбирай машину(ы) и правь себе.

Будет работать в том случае, если на удаленной машине запущена служба "Удаленный реестр", которую можно запустить через групповые политики (если есть домен), либо через консоль.

adjuster
дык по дефолту она (служба RemoteRegistry) включена.
но тут хотят скриптом менять, как я понял. поентому и выдал первоисточник.
кстати, наличие и состояние службы на удаленных машинах можно опять таки скриптом (через WMI) проверять.

Не знаю куда запостить данный вопрос, но решил сюда:

Подскажите кто знает, как или чем сделать поиск по WMI пространству имен?
Например, имеем пространство имен ROOT\SMS\SiteCode в котором куча классов, с кучей экземпляров у каждого класса, и соответственно кучей свойств у каждого экземпляра

Вопрос как сделать поиск по определенному значению/тексту по ВСЕМ значениям свойств всех классов?

Есть ли такие утилиты или скрипты?
Спасибо