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

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

xpr123
инструкция для персонала. exchange исспользуется? и как вобще происходит рпоцесс удаления/добавления?

Set objEmail = CreateObject("CDO.Message")

objEmail.From = "admin1@fabrikam.com"
objEmail.To = "admin2@fabrikam.com"
objEmail.Subject = "Server down"
objEmail.Textbody = "Server1 is no longer accessible over the network."
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smarthost"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
А как указать данные для авторизации на smtp сервере?
а как отправлять письма если нет прямого доступа к инету, а есть только корпоративный почтовый сервер? помогите разобраться!

alfira
фсе тут
msdn.microsoft.com/library/default.asp?url=/library/en-us/e2k3/e2k3/_cdo_schema_configuration.asp
те так
Цитата:

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configu
ration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configu
ration/sendusername") = "username"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configu
ration/sendpassword") = "userpwd"

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

Добрый день.
Искал в интернете и не нашел инфы по следующему вопросу:
- необходимо повесить Standard Modem на COM1 при этом ничего к COM1 физически не подключая. Как это сделать с помощью скрипта?
- необходимо установить определенное устройство не подключая его к компьютеру. Так чтобы в последствии любой пользователь подключив это устройство мог с ним работать сразу и без прав администратора.

Добавлено:
alfira
Я просто создал задачу в планировщике заданий. Если количество мащин не большое то вполне подойдет.
Также можно использовать PSEXEC от SysInternal.com - создать текстовый файл со списком IP или имен и пустить на выполнение команду "shutdown /s /t 60" или "shutdown /r /t60" или даже "at 20:00 /EVERY:1 "shutdown /s /t 60""

unhappy
у shutdown есть параметр /m

Доброго времени суток, коллеги!
Есть такая трабла: существует сервер, на котором указаны штук n-цать (в общем, много!) сетевых принтеров, причем по IP-порту подключенные. Они поименованы,опубликованы в AD, стоят драйвера на них. Пользователи в сети подключают их себе по имени в AD. Сервер в не очень далеком будущем менять будут на что-то другое. Необходимо переволочь все эти принтера на другой сервер, желательно не ручками. Сервер не DC, Win2k. DHCP, DNS и прочие прелести подняты и руляться другим серваком, этот используется как склад инсталях и прочей системной дребедени для службы ИТ и как сервер печати. Вроде как такой скрипт пробегал в первой части... Заранее мерси.

OOPS!!!
Уже нашел, может кому еще пригодиться - в Resource Kit для w2k и w2k3 есть утиля Print Migrator 3.1. Переносит спокойно все принтяхи с одной машины на другую (тама подробная инструкция на сайте мелкомягких). Зело удобно, рекомендую для таких траблов, как вышеизложенный. Причем фурычит как на серверах(кроссплатформенная), так и на рабочих станциях.

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

Просто много времени уходит на запуск Справки-Избранное-Удал. помошник, выяснение имени машины пользователя и т.д.

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

inetimon,как оформлен файл? какой файл?

p.s. Если текстовый, то судя по заданию - через регулярные выражения

Файл *.html. Часть файла неизменна, другая постоянно меняется, так вот в той части что меняется мне надо выдирать куски и вставлять в шаблон.
Мне нужна программа или пример скриста для работы с содержимым файла.
P.S. Забыл упомянуть что у имеется макрос на Word`е который прекрасно справляется с выше изложенной задачей, но нужно перетащить эту задачу на сервер а там word`а нету и ставит его не охота.

inetimon
vbs и vba очень похожи, так что можно доработать напильником
покажи макрос

Цитата:

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


Код:
set wsh=wScript.createObject("wscript.shell")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
("Select * from Win32_Product Where IdentifyingNumber='{0EFC6259-3AD8-4CD2-BC57-D4937AF5CC0E}'")
For Each objSoftware in colSoftware
(objSoftware.Uninstall()
Next

У меня похожая проблема, НО надо удалить каспера 4,5,6 на клиентах, пароля защиты нет на них.
Подскажите может есть наработки?

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

tolyn77
netsh dhcp dump /?
Не скажу точно какие там ключи нужны, нету у меня DHCP

Зайди в консоль, там есть экспорт в файл (Windows)

там столько месора получается все настройки самого сервера dhcp

Подскажите плиз, как привести переменную month(Now) к виду "мм", если текущий месяц меньше 10?

Если проще объяснить, то...
Сейчас январь, соответственно на выходе myVar = Month(Now), я получаю myVar = 1, а хочу получить myVar = 01...

Что-то типа:

vMon = Month(Now)
If vMon <= 9 Then
WScript.Echo "0" & vMon
End if
Только с записью результата в переменную...

З.Ы.
Только учусь за кривоту прошу не пинать...

Добавлено:
Спасибо, разобрался сам:

vMon = Month(Now)
    If vMon <= 9 Then
    vMon = "0" & vMon
    End if
WScript.Echo "Сейчас " & vMon


Хотя, может будут варианты правильнее...

Подскажите программку для windows 2000 которая может удалять файлы старше текущей даты на заданное число дней. Помню была такая.... Спасибо!

ZloyBehemoth

FORFILES.exe

Слегка подправил код
Set WshShell=WScript.CreateObject("WScript.Shell")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
("Select * from Win32_Product Where IdentifyingNumber='{0EFC6259-3AD8-4CD2-BC57-D4937AF5CC0E}'")
For Each objSoftware in colSoftware
objSoftware.Uninstall()
Next
обозвал файл script.vbs
запускаю cscript script.vbs скрипт запускается, но ничего не произходит
Предположил, что может проблема быть в том, что нет на машинке каспера, взял и решил удалять winrar, следовательно надо найти его Product Where IdentifyingNumber, полез в реестр поиском по winrar, нашлось вот только такое - {B41DB860-8EE4-11D2-9906-E49FADC173CA}
скрипт работает, но ничего не произходит
Что не так?

Проблема у меня такая - нужно на 30 машинах (2к и хр) командным файлом сделать задачу для планировщика, но что бы задача запускалась под конкретным пользователем-локальным админом, бо нужен доступ до сети во время выполнения задачи. Напрягши память вспомнил об команде ат, но она запускается под системной учетной записью и доступа до сети не имеет. Может есть какой нибудь выход, кроме как заводить это задание через "назначенные задания" в панели управления?

Всем добрый день
Есть несколько вопросов:
1. На диске D:\ созданы folder, subfolder ...и тд.. заданы права доступа к папкам на них. Нужно написать скрипт, который бы считал заданные права доступа на папку.
2. Нужно задать права доступа на папку. Интересует решение, основанное не на WShell. С помощью Shell, xcacls, subinacl это получается коряво, особенно задание свойства inheritance

p.s. urel и Freeman отдельный привет.

Sk1f
навскидку так трудно вспомнить - порой пред. часть, вроде было

cluster


Ярлык для предложения удаленной помощи:
hcp://CN=Microsoft%20Corporation,L=Redmond,S=Washington,C=US/Remote%20Assistance/Escalation/Unsolicited/unsolicitedrcui.htm

К сожалению, как добавить имя компьютера в ярлык я не знаю.

Нашел интересный скрипт - XCACLS.vbs
По своей сути это утилита xcacls.exe, которая поставляется с Windows Resource Kit.
Однако скрипт имеет более расширенный набор функции по сравнению с утилитой. Для ранее описанной мной задачи - это задание свойства "наследование" на папку, ведение лога и другие.
Кроме того - это скрипт, поэтому можно увидеть его код и как происходит работа с файловой системой.

Скрипт -
1. http://rapidshare.com/files/12542876/XCACLS.vbs.html (155 Кб)
2. http://www.microsoft.com/downloads/details.aspx?FamilyID=0ad33a24-0616-473c-b103-c35bc2820bda&displaylang=en

Описание на рус - http://support.microsoft.com/kb/825751

Нигде не смог найти как удалить существующую строчку из текстового файла.
Пример - файл c:\log.txt из него нужно удалить первую, третью и две предпоследние строчки.

Кто-нибудь сталкивался с похожей проблемой?

Sk1f
открываеш для чтения c:\log.txt
включаеш счетчик, ну и пишеш нужные / не пишеш не нужные номера в, например, c:\log.new.txt, потом второй на место первого

urel спасибо. Сейчас попробую

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

Пока вижу такой механизм:
1) удаляем содержимое (мимо корзины) папки "old.files"
2) в папке "network.exchange" проверяем у файлов\папок значение created, если оно больше 24 часов перемещаем их в папку "old.files"