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

JeweL
Server.GetLastError( )
если тебя интересует обработка ошибок.

Вообще рекомендуется сходить в варезник в топик по ebook, там пролетали книжки по ASP

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

Dim objErrorInfo
Set objErrorInfo = Server.GetLastError
Response.Write("ASPCode = " & objErrorInfo.ASPCode)
Response.Write("ASPDescription = " & objErrorInfo.ASPDescription)
Response.Write("Category = " & objErrorInfo.Category)
Response.Write("Column = " & objErrorInfo.Column)
Response.Write("Description = " & objErrorInfo.Description)
Response.Write("File = " & objErrorInfo.File)
Response.Write("Line = " & objErrorInfo.Line)
Response.Write("Number = " & objErrorInfo.Number)
Response.Write("Source = " & objErrorInfo.Source)

pe3yc

Цитата:

запусти этот сайт под другим юзером, созданным тобой

как запустить сайт под другим юзером?

JeweL
открой IIS и посмотри в настройках сайта

Вопрос опытным:
На w2kpro рус в Назначенные задания ставлю запуск vbs-скрипта. Всё нормально отрабатывает.
На w2kAS рус там же при запуске из Назначенных заданий вылазит сообщение - надо запускать через cscript. Лады, пишу cscript //h:cscript //s, говорю заданию - выполнить. МОргает окошечко, всё. Что надо делать - не делает.
Если запустить vbs в командной строке - усё работает.

Кстати - а зачем обновлять базу антивируса на каждой машине скриптом? Есть замечательный NAVCorp (SAVCorp)!

Вот тут кстати можно найти мои пробы пера на VBScript: http://forum.ru-board.com/topic.cgi?forum=5&topic=6505#17 - механизм гарантированного бэкапа.

Где не прав? говорит: Error expected `)`
Dim Computer
Dim ComputerName
Dim ComputerDomain
Dim Service
Dim TargetService
TargetService = "shttps"
ComputerDomain = "domain"
ComputerName = "andrew"
Set Computer = GetObject ("WinNT://" & ComputerDomain & "/" & ComputerNaitel ".computer")
Set Secvice = Computer.GetObject("service", TargetService)


Service.StartType = 4
Service.Setinfо

abasov

Цитата:

ComputerNaitel ".computer")

Амперсанд не пропустил перед кавычкой?

Работает таким макаром:

Dim Computer
Dim ComputerName
Dim Service
Dim TargetService
TargetService = "wuauserv"
ComputerName = "КАК УКАЗАТЬ ЛОКАЛЬНУЮ МАШИНУ???!!!"
Set Computer = GetObject("WinNT://" & ComputerName & Computer)
Set Service = Computer.GetObject("service", TargetService)
Service.StartType =4
Service.SetInfo



ooptimum спасибо разобрался

abasov

Цитата:

"КАК УКАЗАТЬ ЛОКАЛЬНУЮ МАШИНУ???!!!"

Кричать вовсе не обязательно. Какое имя имеет любой текущий фолдер? Правильно, это имя -- точка. Точно так же и здесь, текущий компьютер доступен через имя "точка". Т.е. такое имя: "WinNT://.".

Подскажите, кто сталкивался.
Хочу, чтобы при выключении сервера 2К мне приходил SMS
Для этого задействовал shutdown скрипт, из VBS вызываю внешнюю прогу, но она не успевает выполниться (или блокируется) до выключения сервака. В стартап этот же скрипт работает на ура

Народ,не подскажете а где мона какую-никакую доку надыбать по WMI Scripting?

Пролетало тут....


Цитата:

Если диск, на котором создается общий ресурс, отформатирован под NTFS, то я бы разграничивал доступ на уровне NTFS, а не на уровне ресурса -- такая схема намного гибче. В этом случае как раз понадобятся [x]cacls, for, etc., как было замечено коллегой merlkerry. Если же надо разграничивать доступ именно на уровне ресурса, то даже не знаю... Что-то я ничего такого не встречал, чем бы в батнике можно было воспользоваться.

Есть такая весчь, от самого Майкрософта
rmtshare
Поищите по Гуглю, если не найдёте - в ПМ.

Mad_Admin, воспользовался твоим советом - работает. Спасибо.

Mad_Admin - действительно интересный совет. полностью ответил на мой вопрос с предыдущей страницы

На здоровье.
Самое интересное получается если вышеуказанную тулзу использовать с JScript (или VBScript, кому что удобней), скрывать окна выполнения и т.д.
Рулез!

Здравствуйте ALL
Не подскажете - как-то можно автоматизировать смену пароля, скажем 200-ам юзверям? Есть домен, сервер Win2k, имена у юзверей цифровые от 000 до 200, находятся в OU.

creeper
VBS

pe3yc
А можно какой-нить примерчик, плз.

что-то типа

On Error Resume Next

Set objGroup = GetObject("LDAP://cn=Users,ou=Groups,dc=domain,dc=local")
For each objMember in objGroup.Members
objMember.SetPassword "password"
Next


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

kibkalo
Спасибо! Завтра попробую...

Помогите если не тяжело. Необходимо написать скрипт. Каждый день формируются файлы вида имя_дата_время (tmp20030930_1800). Файлы формируются 3 разы на день (в 8.00, 14.00, 20.00). Необходимо написаит скрипт, который будет архивировать файлы с помощью WinRar. Архивировать надо всего один раз в день и желательно последний (например архивировать надо 20.00 а если его нет то 14.00). Как это можно сделать?

ShahrayOleg
иди в варезник и ищи automate

И все. Может можно как-то vbs этот скрипт написать?

ShahrayOleg
Танкист, что ли?
Можно
Хочешь на vbs - пожалуйста, $50 на нужды форума, я специально для тебя напишу.

ShahrayOleg
слыш ну ты это....
любой бэкап манагер это зделает...

Воабще, всем здрасти! Poluchil yvedomlenia ot WMI pro :

Тип события: Предупреждение
Источник события: WinMgmt
Категория события: Отсутствует
Код события: 46
Дата: 14.10.2003
Время: 21:55:59
Пользователь: Нет данных
Компьютер: %MyServer%
Описание:
WMI ADAP не удалось извлечь данные из ключа PerfLib: 019, код ошибки: 0x2.
Che eto takoe pochemu poyavilos (posle ustanovki AD pod W2k)! Prichem na Workstation'ax tozhe analog'j gluk(nadojelo) !

Podskazhute kak ispravit' eti nadoedlivue kluchi of Regystry

Вопрос к знатокам. Можно ли в VBS пользоваться функциями из внешних ДЛЛ, а ля
VBA: Private Declare Function MyFunc Lib "MyFunctions.dll" (ByVal s As String) As String

Если можно, научите плиз!

ShahrayOleg
Дался тебе этот vbs. Для таких целей можно и батник склепать. Почитал бы хелп по встроенным командам win2k/xp. Вот тебе для примера (my_backup.bat):

setlocal
for /f "tokens=2,3,4 delims=. " %%i in ('date /t') do (set Logdate=%%k%%j%%i)
for /f "tokens=1,2,3 delims=: " %%i in ('time /t') do (set Logtime=%Logdate%_%%i-%%j_my_backup)
winrar a -m5 "C:\Мой_backUp\%Logtime%" C:\Моя_папка_для_BackUp-a\*.*

Ключи для винрара поставь те которые тебе нужны, папки свои пропиши, подкинь этот батник шедулеру и будет тебе счастье

Как расставлять пермишоны скриптом на одтельные секции реестра?

всем кто инетерсуется данной темой будут полезны следующие книженции

_http://www.piter.com/display.phtml?pattern=%EF%EE%EF%EE%E2&searchField=alls&rezim=web_yes

_http://www.bhv.ru/books/book.php?id=474 -рекомендую, очень доходчиво написано.

Yourbill
Еще проще
Winrar(3.0) сам умеет дату-время подставлять
ключик -ag