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

rosalin

Цитата:

Допустим заголовок "письмо админу"

"Опишите проблему
подробно"

так:
MsgText = InputBox("Опишите проблему подробно" ,"письмо админу")
Если хочешь форматировать текст сообщения, то можно делать еще и так:
Input = InputBox("Это первая строка" & VbCrLf & "Это вторая строка", "Это заголовок")


Добавлено:
Sun Ray

Цитата:

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

Для этого в групповых политиках есть стартап скрипты, например.

Цитата:

стартап скрипты, например.

На юзера или на комп? Пробовал на комп:"В автозапуск добавляю- запускается и отваливается, а если в шедулер добавить- то работает. " (писал выше)

Sun Ray
на компьютер

Цитата:

В автозапуск добавляю

автозапуск и стартап скрипт в политике - это разные вещи.

Цитата:

запускается и отваливается

смотри с какой ошибкой? что делает этот скрипт?

Цитата:

что делает этот скрипт?

вот что делает скрипт....
http://www.script-coding.info/WMI_ServMon.html

Цитата:

смотри с какой ошибкой?

определил что запустился вообще, то что он свой собственный лог создал.

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

Ребята, подскажите, если кто знает, реально ли настроить учетную запись таким образом, чтобы например юзер Иван, находящийся в группе Гость, (как известно в этой группе нельзя устанавливать приложения,программы и т.д.) мог бы установить самостоятельно только определенные программы. Возникла необходимость ввести ограниченную учетную запись пользователю, но там дело в том, что этому пользователю каждую неделю обновляют,устанавливают программу Гарант, так вот я и боюсь, что в группе Гость не получится это сделать, как бы идеально обойти данную ситуацию?

P.S. Варианты со входом с учеткой под админом не предлагать

Цитата:

Vladimir54

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

G14
Спасибо все помогло еще маленький вопрос как сделать что бы не отправлялись пустые сообщения ...

[more=код...]Dim MsgText, MsgFrom, User, sam

MsgText = InputBox("Опишите Вашу проблему как можно подробнее","Письмо администратору")
'MsgFrom = InputBox("Enter something")

Set objEmail = CreateObject("CDO.Message")
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)

User = CurrentUser.fullname ' Полное имя пользователя
sam = CurrentUser.samaccountname ' пре-Win2000 логин


objEmail.Bodypart.CharSet = "windows-1251"
'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "userpwd"
'objEmail.From = MsgFrom
objEmail.From = "adm@xxx.ru"
objEmail.To = "adm@xxx.ru"
objEmail.Subject = "Письмо от " & User
objEmail.Textbody = MsgText
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.0.6"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send [/more]

rosalin

Цитата:

ак сделать что бы не отправлялись пустые сообщения ...

Например так, добавив 2 строки:

Do Until MsgText <>""
MsgText = InputBox("Опишите Вашу проблему как можно подробнее","Письмо администратору")
'MsgFrom = InputBox("Enter something")
loop

или так:
[more]
Dim MsgText, MsgFrom, User, sam

MsgText = InputBox("Опишите Вашу проблему как можно подробнее","Письмо администратору")
'MsgFrom = InputBox("Enter something")

if (MsgText <>"") then
Set objEmail = CreateObject("CDO.Message")
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)

User = CurrentUser.fullname ' Полное имя пользователя
sam = CurrentUser.samaccountname ' пре-Win2000 логин


objEmail.Bodypart.CharSet = "windows-1251"
'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "userpwd"
'objEmail.From = MsgFrom
objEmail.From = "adm@xxx.ru"
objEmail.To = "adm@xxx.ru"
objEmail.Subject = "Письмо от " & User
objEmail.Textbody = MsgText
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.0.6"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
end if
[/more]

Vby
аха спасибо

Vby

Цитата:

или так:
Подробнее...

Там лучше использовать
If ....else
Чтобы при пустом значении пользователю возвращать, например, месаджбокс с объяснением, что нужно заполнять тело письма. Иначе пользователь будет путаться и не будет повторно запускать скрипт.

Мне только непонятно, на кой мы тут ваяем "почтовый клиент"? У пользователей нет нормальных клиентов?

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

т.е. чтобы можно было вбить SID точки и ключ для WEP

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

подскажите как работать c результатом команды pslist, конкретнее как скриптом проверять, запущен ли на удаленном компьютере процесс и если запущен то ничего не делать а если не запущен то запустить, что то вроде:


Код: если pslist \\comp1 -u user -p pass some_process ничего не возвращает то
psexec \\comp1 -u user -p pass "C:\Some_Program\some_process.exe"
в другом случае - выход.

Уважаемый G14,



Цитата:

Там лучше использовать
If ....else
Чтобы при пустом значении пользователю возвращать, например, месаджбокс с объяснением, что нужно заполнять тело письма. Иначе пользователь будет путаться и не будет повторно запускать скрипт.

Мне только непонятно, на кой мы тут ваяем "почтовый клиент"? У пользователей нет нормальных клиентов?

Делаю для старых теток которые не очень понимают в почтовых клиентах ...

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

If ....else а можно примерчик .... а то я только учусь

Доброго времени суток.
Есть вопрос, думаю что в эту тему.
Есть домен, есть компьютер в этом домене и подключенный к этому ПК принтер. Принтер расшарен и опубликован в AD. Все другие компьютеры с домена без проблем печатают на нем. Но вот появился ноутбук с ОС Windows XP Home Edition, который в домен ввести я немогу и соответственно не могу подключить его к расшаренному принтеру (вернее подключить могу введя имя пользователя доменной учетной записи и пароль, но такую процедуру необходимо повторять после каждой перезагрузки ноутбука). Возникла идея в автозагрузку поместить скрипт, кот. подключает принтер. Пишу


Код:
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\computerName\printerName"

Уважаемый rosalin,
вот Вам примерчик:

Код: if (MsgText <>"") then
Set objEmail = CreateObject("CDO.Message")
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)

User = CurrentUser.fullname ' Полное имя пользователя
sam = CurrentUser.samaccountname ' пре-Win2000 логин


objEmail.Bodypart.CharSet = "windows-1251"
'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "userpwd"
'objEmail.From = MsgFrom
objEmail.From = "adm@xxx.ru"
objEmail.To = "adm@xxx.ru"
objEmail.Subject = "Письмо от " & User
objEmail.Textbody = MsgText
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.0.6"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send

else
MsgBox ("Перезапустите скрипт и заполните все поля!")
end if

Я создал новую тему, но все же решил и сюда тоже написать:

В настройках языков в панели инструментов во вкладке дополнительно есть опция выбора языка программ не поддерживающих юникод.
Вопрос состоит вот в чем:
у меня есть обучающая программа 99-го года на диске (сделана в программке от макромедии по-моему). Вот, когда запускаю экзешник она вылетает, если в той самой вкладке не стоит язык Английский (США). А если я выбираю английский то остальные русскоязычные программы все с закорючками.
Хотелось бы создать бат файл или файл реестра, при запуске которого в этих настройках автоматически прописывается английский. А при закрытии еще для отката или возврата в русский язык.
У меня есть какие-нибудь шансы?))

P.S. может кодировку самой программы можно поменять на юникод как-то?

Как отследить ошибки печати? Нужно найти в системе принтера с ошибками печати, как это сделать VBS/WMI?

Andre3000

Для английского :
Код: Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls]
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"ACP"="1252"
"OEMCP"="437"
"MACCP"="10000"
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Language]
"Default"="0409"

Цитата:

Vladimir54

мона попробовать след-е:
1 - создать акк опытного пользователя;
2 - в групповой политике сформировать "политики ограниченного использования программ" , т.е. разрешить запускать токо опред программу (прогр. обновления);
3 - из под гостя запускать данную прогу от имени этого почиканного опытного пользователя!

Уважаемый G14,


Цитата:

Хотя конструкция с Do Until надежнее и удобнее.

а что это?!

rosalin
Глубокоуважаемый rosalin,
это то, о чем вам написал Vby, то есть
Do Until MsgText <>""
MsgText = InputBox("Опишите Вашу проблему как можно подробнее","Письмо администратору")
'MsgFrom = InputBox("Enter something")
loop

Сеть большая. Бывшие админы не додумались сделать DHCP. Частенько пользователи меняют виндовс и поэтому, соответственно и требуется настроить им сеть. Бегать тоже не хочется постоянно. Инструкции печатал многократно,но большенство их просто напросто теряет... Какими средствами можно настроить ip, mask, gate, dns, workgroup, routes, и впн подключение? В интернете нашел программку - LanConfig. В ней много этих параметров уже встроено. При запуске просто вводишь айпи и нажимаешь готово. Каким образом можно сделать подобное. В программировании не разбираюсь. Хотелось бы сделать тоже самое, только с моими "зашитыми" настройками. Т.е чтобы ввел айпи и готово. Прошу помощи!

как сделать такое при помощи wmi?

formatzz
Додуматься установить DHCP самому, раз
Цитата:

Бывшие админы не додумались сделать DHCP

formatzz

Цитата:

Сеть большая

Цитата:

Частенько пользователи меняют виндовс

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

Кто-нибудь разбирался с powershell? У меня есть скрипт на VBS, хочу периодически обращаться из него к powershell. Как это сделать? Просто запускать из скрипта powershell.exe с параметрами наверное не получится, потому что мне нужны последовательности из 3х-4х команд - создание объекта, изменение этого объекта и т.д. Как вообще использовать powershell не в качестве консоли для вообда команд а в качестве скриптового обработчика?

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

Bugriy

Цитата:

...Как вообще использовать powershell не в качестве консоли для вообда команд а в качестве скриптового обработчика?

Создаёшь текстовый файл ПриветМир.ps1
Пишешь в нём

Код:
Write-Host "Привет Мир!"

Andre3000

Цитата:

Вопрос состоит вот в чем:
у меня есть обучающая программа 99-го года на диске (сделана в программке от макромедии по-моему). Вот, когда запускаю экзешник она вылетает, если в той самой вкладке не стоит язык Английский (США). А если я выбираю английский то остальные русскоязычные программы все с закорючками.
Хотелось бы создать бат файл или файл реестра, при запуске которого в этих настройках автоматически прописывается английский. А при закрытии еще для отката или возврата в русский язык.
У меня есть какие-нибудь шансы?))

Microsoft AppLocale Utility

Подскажите, пожалуйста... как сделать следующее:

Есть ДОМЕН - в нем ОДНИ настройки для подключения СЕТЕВЫХ дисков через bat файлы с параметром net use

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

Спасибо за Ваши ответы