YURETS777
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
On Error Resume Next
Do 'Бесконечный цикл
dtNow = Time()
currtme = Right("00" & CStr(Hour(dtNow)), 2) & ":" & Right("00" & CStr(Minute(dtNow)), 2)
If currtme = "00:00" Then
'--------------------------------------------------------------------------------------------------------------------------------
Wscript.Sleep 200
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank "
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width = 800
objExplorer.Height = 600
objExplorer.Left = 0
objExplorer.Top = 0
objExplorer.Visible = 1
objExplorer.Document.Write "<br> <b style='color:blue;font-size:40pt'> Уж полночь на дворе. пора и меру знать. Внимание через 10 секунд будет шатдаун...</b></br>"
'--------------------------------------------------------------------------------------------------------------------------------
'objExplorer.Quit
'--------------------------------------------------------------------------------------------------------------------------------
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
destsd = "\\Server\Stat\" & WshNetwork.ComputerName & "_ShutDown_" & WshNetwork.UserName & ".txt"
Set objTextFile = objFSO.CreateTextFile(destsd, True)
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
Set objProcesseZ = objWMIService.ExecQuery ("Select * from Win32_Process")
objTextFile.WriteLine ""
objTextFile.WriteLine " Процессы "
objTextFile.WriteLine "Заголовок" & vbtab & "Старт" & vbtab & "Путь" & vbtab & "PID" & vbtab & "ParentPID" & vbtab & "Priority" & vbtab & "Status"
objTextFile.WriteLine
For Each objSoftware in objProcesseZ
objTextFile.Write objSoftware.Caption & vbtab & WMIDateStringToDate2(objSoftware.CreationDate) & vbtab & objSoftware.ExecutablePath & vbtab & objSoftware.ProcessId & vbtab & objSoftware.ParentProcessId & vbtab & objSoftware.Priority & vbtab & objSoftware.Status & vbtab
objSoftware.GetOwner User, Domain
objSoftware.GetOwnerSid Sid
objTextFile.Write Domain & "\" & User & " (" & Sid & ")"
objTextFile.WriteLine
Next
objTextFile.Close
'--------------------------------------------------------------------------------------------------------------------------------
WScript.Sleep 10000
'--------------------------------------------------------------------------------------------------------------------------------
dim OpSysSet, obj
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate," & "(Shutdown)}//./root/cimv2").ExecQuery("SELECT * FROM Win32_OperatingSystem" & " WHERE Primary=true")
For Each obj In OpSysSet
obj.Win32Shutdown(8 + 4)
Next
'--------------------------------------------------------------------------------------------------------------------------------
End If
WScript.Sleep 20000
Loop While True
'--------------------------------------------------------------------------------------------------------------------------------
Function WMIDateStringToDate2(dtmDate)
'Вспомогательная функция преобразования даты
WMIDateStringToDate2 = Mid(dtmDate, 7, 2) & "." & Mid(dtmDate, 5, 2) & "." & Left(dtmDate, 4) & " " & Mid(dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2)
End Function
|
|
Всего записей: 2161 | Зарегистр. 29-04-2005 | Отправлено: 16:16 06-12-2010 | Исправлено: YURETS777, 16:17 06-12-2010 |
|
