dartne !
Ваш вариант оч хорош, только вот есть одна загвоздка, мне нужно чтобы был вывод в текстовик в некую сетевую папку файла с невыключенными ПК и отправки данного файла на мыло для проведения с оными некой работы по поднятию дисциплины по пожароопастности и отчета Шефу ежемесячно.... как данную операцию можно реализовать?
Сейчас пользуюсь:
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 - ну это ладно не беда, больше напрягает что ПК тушатся, а инфы нету кто когда и во сколько.
