dartvaider,

Ваш вариант оч хорош, только вот есть одна загвоздка, мне нужно чтобы был вывод в текстовик в некую сетевую папку файла с невыключенными ПК и отправки данного файла на мыло для проведения с оными некой работы по поднятию дисциплины по пожароопастности и отчета Шефу ежемесячно.... как данную операцию можно реализовать?

Сейчас пользуюсь:

1. на сервере в шедулере запуск TurnOff_Computers.cmd в 21:00
_________________________________________________________
TurnOff_Computers.cmd:
FOR /F "eol=; tokens=1" %%i in (\\server\Soft\Scripts\Computer_Shutdown\ComputerList.txt) do ping -n 1 %%i | find "TTL=" && echo %%i >> \\server\Soft\LOGS\TurnOff_Computers\%date%_Computers_ON.txt

FOR /F "eol=; tokens=1" %%i in (\\server\Soft\LOGS\TurnOff_Computers\%date%_Computers_ON.txt) do shutdown -s -f -m \\%%i
_________________________________________________________
2. на сервере в шедулере запуск send_mail.vbs в 22:30

send_mail.vbs:
_________________________________________________________
Set objEmail = CreateObject("CDO.Message")

Dim MyTime
MyTime = Now

Dim Temp
Dim MyDate
Temp = Day(Now)
if (Temp < 10) then MyDate = "0"
MyDate = MyDate & Temp & "."
Temp = Month(Now)
if (Temp < 10) then MyDate = MyDate & "0"
MyDate = MyDate & Temp & "." & Year(Now)

objEmail.From = "administrator@company.com"
objEmail.To = "it@company.com"
objEmail.Subject = "Computers turned on " & MyTime
objEmail.Textbody = ""
objEmail.Addattachment "\\server\Soft\LOGS\TurnOff_Computers\" & MyDate & "_Computers_ON.txt"

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.1.x"
objEmail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
_________________________________________________________

Так все работает на ура, но вот пополнять новыми пк файл ComputerList.txt для пинга пк - напрягает.
Ваш вариант напрягает еще больше, т.е. на всех ПК нужно включить нужно то, что любит больше всего вирус KIDO - ну это ладно не беда, больше напрягает что ПК тушатся, а инфы нету кто когда и во сколько.

AndreTM,

тупее ответа за всю жизнь не слышал, не в обиду....

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

Уважаемый AndreTM, если у Вас офис в несколько сот ПК + множество филлиалов и Вы один работаете на 25-30 тысяч рублей, помино этого еще множество сервисов как почтари, прокся, rdp, видеонаблюдение на 56 камер, пожарная и охранная сигнализация, телефония и мини-атс с большим потоком телефонов и просто нереальными отчетами для руководства, ad со всеми вытекающими, каспера сервак, скуль 2008R2 для множества БД 1С 7.7, 8.1, 8.2 и баз каспера, программирование небольшое с тотальным контролем за правами доступа к БД и тысячными задачами по изменению регламентных отчетов и форм отчетности с определенными правами каждому, когда Вас заставляют заниматься не только ПК и переферийными с серверами, но и контролем КПП и усмтановкой СГУ по предприятию со всеми тяжкими прокладками кабелей и т.п. - я не думаю что Вы уссыкаясь и без сна ночью будете это делать... Это не привранные рассказы о том как на Руси или в Казахстане жить тяжело, а о том, что есть автоматизиваронные средства, которые помогают таким как я, и я реально прошу помощи в виде предпосыльных подсказок в мою сторону по написанию подобных скриптов либо команд! Забыл сказать еще про кучу ежедневных совещаний по всякой ебетине, которая реально жить мешает.
Так что либо помогайте советами по программированию скриптов -либо как говорят проходите мимо не засерая коментами столь чудный пост!

Khodclevergod,

Меняй работу.
Стаким опытом работы должны платить намного больше.

Спасибо, без Вас знаю, но ничего подходящего нет.

Anatoly PodgoretskyНапрасно думаешь, что оскорбление участников тебе принесет пользу.

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

Простите Все, но вопрос был достаточно конкретный, не знаете, просто молчите, сам бы давно нашел если бы не отвлекался на вот такие вот ответы............

Khodclevergodсам бы давно нашел если бы не отвлекался на вот такие вот ответы............

А что, собственно, мешает?

Собственно нашел... а хотелось чтобы кто-то помог, решили вместе и выложили вместе на форум в данный пост или еще куда либо для того чтобы помочь не только себе..... Такое ощущение что вы сообщения сюда пишите только для того чтобы поднять некий рейтинг сообщений или ранг незнаю как у Вас тут. Короче ФУ.........