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

Пользователь/компьютер за которым он сидит в домене - если да то через "Политика безопасности домена" не в домене то gpedit.msc - там собственно все права и выставляются

dccb
Если в домене то поподробнее ... можно плиз

rosalin

Цитата:

Если в домене то поподробнее ... можно плиз

юзай фильтр!

Gabzya
Это я все понял только нет готового решения ....
по теме

Помгите найти скрип который максимально бы ограничивал пользователя и разрешал бы запускать только программы 1с ,word ,excel
А создаваемые документы можно было бы сохранять на примапеном сетевом диске

Или шаблона извините если уже не по теме

rosalin
Редактор груповой политики - вполне готовое решение
+ NTFS пермишины
+ Пользователи с правами User на своих машинах

пожно поиграться с шелом - но это все строго индивидуально. поищи решения для компьютерных клубов =)

Добрый день.
Основательно поиском не пользовался (запарка) и возможно решение "пробегало", - если что, заранее извиняюсь за повтор.

ОЧЕНЬ хотелось бы:
1. Автоматическое создание структуры подкаталогов с соответствующими разрешениями
на доступ для групп ПРИ создании определенным пользователем пустового родительского каталога по отношении к упомянутым подкаталогам.
2. Решение должно работать в виде службы на платфоме виндовс (хп или 2003).

Заранее благодарен за возможные советы, наводки, помощь.

5555555
не очень понятно, что хочешь...

FreemanRU
Не понятно, что конкретно не понятно

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

Пример:
1. Создаем каталог "Test"
2. Некий софт (о котором и вопрос) определяет (например, периодическим мониторингом появления нового каталога), что он появился и создает подкаталоги:
Test
test1 (полный доступ у группы 1, все - чтение)
test2 (полный доступ у группы 2, все - чтение)
test21 (полный доступ у группы 21, все - чтение)
test22 (полный доступ у группы 22, все - чтение)
test3 (полный доступ у группы 3, все - чтение)

Вот. Подробней вроде некуда

Люди, выручите, а.....очень срочно надо - проблема с деплоением принтеров. Чтобы не плодить дублей - описание моей проблемы в соответствующем топике. Сообщение от: 21:50 14-06-2006

PIL123

Может поможет:
http://www.networkdoc.ru/files/insop/whs/print.html?printer.html

При тестировании работало, но в работе почему-то не прижилось.

5555555
Может сможешь модифицировать:
Description
Temporary event consumer that issues an alert any time a file is created in the C:\Scripts folder. Best when run under Cscript.exe.
Script Code

Код:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\cimv2")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _
& "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _
& "TargetInstance.GroupComponent= " _
& "'Win32_Directory.Name=""c:\\\\scripts""'")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
Wscript.Echo objLatestEvent.TargetInstance.PartComponent
Loop

FreemanRU

Не совсем то, что хотелось, но все равно спасибо.

Люди, подскажите, как решить вот такую вот задачу.
В домене есть стевая шара, в ней есть много папок. Нужно вытащить NTFS пермишины на каждую из папок, а потом в новосозданном домене, расставить на этиже папки, такие же пермишины...Скажите это возможно?

Может кто нить подсказать как с помощью скрипта запустить, если не запущена, службу SNMP и соответствующе ее сконфигурировать?

Добавлено:
Как то парился со скриптом для удаления лишних локальных юзеров из группы Администраторов (что бы сам Админ и доменные оставались) и заменой пароля Локального администратора. Пароль хранится в файле pass, генерится автоматом спец прогой.
Вот он сам листинг:

Код:
On Error Resume Next

Dim fso, f
Dim pass
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("\\имя_компа\base\login\pasgen\pass", 1, Fasle)
pass=f.readline

strComputer = "."

AdminGr=""
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_Group Where LocalAccount = True")
For Each objItem in colItems
if objitem.Sid="S-1-5-32-544" then
AdminGr=objItem.Name
end if
Next

Set WSHShell = WScript.CreateObject("WScript.Shell")
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
if trim(objItem.FullName)<>"" then
WSHShell.Run "net localgroup " & AdminGr & " " & objItem.FullName & " /delete",0
end if
if right(objItem.SID,4)="-500" then
WSHShell.Run "net user " & objItem.Name & " " & pass,0
end if
Next

Господа, понимаю, что ламерский вопрос, но не подскажете как на JS обрабатывать *.txt файлы. Я могу читать построчно и писать построчно в них, а хотелось бы еще и разбирать саму строчку, т.е. искать в ней какую нить строку\символ и заменять его.

Мне каждый день нужно создавать zip-архив
и отсылать его с помощью Lotus Notes.

Процесс этот рутинный и нудный

Можно его как то автоматизировать
с помощью сценария на VBScript?

Супер-Мега специалисты по Lotes Notes из соответствующей темы.. послали меня сюда.

Хотя меня в общем то интересует только как запользовать из сценария сам Лотус

Что нибудь типа

Set LotusNotes = CreateObject("...

Ну и соответсвенно создать вложение и отправить само письмо по нужному адресу

Oldster, посмотри regular expressions в Script56.CHM

могу скинуть на почту файл, если нету. Только мыло напиши


Добавлено:
или JSCRIPT5.CHM

Нашёл пример
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=8815&lngWId=4

Вопрос снимается

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

Gabzya
команда net use * /d /y поможет

или на VBS

'----v---- Делаем net use * /d /y
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set colDrives = WshNetwork.EnumNetworkDrives
For i = 0 to colDrives.Count-1 Step 2
' WScript.Echo colDrives.Item(i)
WshNetwork.RemoveNetworkDrive colDrives.Item(i), true, true
Next

'----v---- Подключаем сетевые диски
WshNetwork.MapNetworkDrive "F:", "\\сервер\шара"

Gabzya

Код:
Option Explicit
Dim WshNetwork, Drives, i
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set Drives = WshNetwork.EnumNetworkDrives

For i = 0 to Drives.Count - 1 Step 2
Select Case Drives.Item(i)
Case "M:" WshNetwork.RemoveNetworkDrive "M:", true
Case "N:" WshNetwork.RemoveNetworkDrive "N:", true
Case "Y:" WshNetwork.RemoveNetworkDrive "Y:", true
End Select
Next

Etalon
pazdak
cпс на
Цитата:

или на VBS

не силен

Цитата:

net use * /d /y поможет

можно по подробнее, значит я в батник вместо net use x: \\comp\shara
пишу net use x: \\comp\shara /d /y
??

Gabzya

Цитата:

можно по подробнее, значит я в батник вместо net use x: \\comp\shara
пишу net use x: \\comp\shara /d /y

НЕТ.
Нужно указывать только диск, например X: или символ * если нужно удалить все сетевые диски.

net use * /d /y
или
net use X: /d /y

pazdak
куллл
а чтобы старые отключить и сразу новы подключить? вот так?
net use * /d /y
net use X: \\comp\shara1
net use У: \\comp\shara2

Добавлено:
да да да
ответил сам, спс за помощь очч помогли

Такая задача, есть данные в txt файле.

Цитата:

a,b,c,d
a1,b1,c1,d1,
........
an,bn,cn,dn

Нужно извлечь эти данные и вывести их в виде a, a1,a2,a3....

И тд.

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

Skif
а может сплит?


Цитата:

Split(expression[, delimiter[, count[, compare]]])
expression
Required. String expression containing substrings and delimiters. If expression is a zero-length string, Split returns an empty array, that is, an array with no elements and no data.

delimiter
Optional. String character used to identify substring limits. If omitted, the space character (" ") is assumed to be the delimiter. If delimiter is a zero-length string, a single-element array containing the entire expression string is returned.

count
Optional. Number of substrings to be returned; -1 indicates that all substrings are returned.

compare
Optional. Numeric value indicating the kind of comparison to use when evaluating substrings. See Settings section for values.

Цитата:

Dim MyString, MyArray, Msg
MyString = "VBScriptXisXfun!"
MyArray = Split(MyString, "x", -1, 1)
' MyArray(0) contains "VBScript".
' MyArray(1) contains "is".
' MyArray(2) contains "fun!".
Msg = MyArray(0) & " " & MyArray(1)
Msg = Msg & " " & MyArray(2)
MsgBox Msg

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

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

Очень надо конечно же.

Необходимо получить данные об загруженности компьютеров и использовании конкретных программ на компьютерах предприятия.

Klesk

Цитата:

компьютеров и использовании конкретных программ на компьютерах предприятия

Для этого есть perfmon.
Но если надо прям скриптом...
Monitor Process Creation

Код:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colMonitoredProcesses = objWMIService. _
ExecNotificationQuery("select * from __instancecreationevent " _
& " within 1 where TargetInstance isa 'Win32_Process'")
i = 0
Do While i = 0
Set objLatestProcess = colMonitoredProcesses.NextEvent
Wscript.Echo objLatestProcess.TargetInstance.Name
Loop

FreemanRU
Если бы с perfmon-ом было все так понятно, я б не обращался, не подходит он для выполнения данной задачи - лучше уж контролировать им загруженность сервера - самое то. Да и приведенное тобой sngProcessTime - тоже время условное и в данной ситуации не подходит, мне достаточно времени создания процесса и его уничтожения, чтобы потом получить время использования программы.

Спасибо.

Klesk
а времы работы программы разве описывает загрузку системы???
наверно проще взять Processor - %User time / Terminal Services - Active Sessions

Добавлено:
во что тебе нужно =)

http://forum.ru-board.com/topic.cgi?forum=35&topic=0193&start=280