{"id":202914,"date":"2013-12-04T10:22:03","date_gmt":"2013-12-04T06:22:03","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=202914"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=202914","title":{"rendered":"\u041e\u0442\u0447\u0451\u0442 \u043e \u0437\u0430\u043f\u0443\u0441\u043a\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c \u043d\u0430 \u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u0430\u0445 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439<\/span>"},"content":{"rendered":"
\t\u0412\u0441\u0435\u043c \u043f\u0440\u0438\u0432\u0435\u0442!
\u041e\u0442\u0447\u0451\u0442 \u043e \u0442\u043e\u043c, \u0447\u0442\u043e \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0435\u0442 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c \u043d\u0430 \u0441\u0432\u043e\u0451\u043c \u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u0435, \u043a\u0440\u0430\u0439\u043d\u0435 \u0432\u0430\u0436\u0435\u043d. \u0421 \u043c\u043d\u043e\u0433\u0438\u0445 \u0442\u043e\u0447\u0435\u043a \u0437\u0440\u0435\u043d\u0438\u044f. \u041e\u0441\u043e\u0431\u0435\u043d\u043d\u043e \u0441 \u0442\u043e\u0447\u043a\u0438 \u0437\u0440\u0435\u043d\u0438\u044f \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u043e\u043d\u043d\u043e\u0439 \u0431\u0435\u0437\u043e\u043f\u0430\u0441\u043d\u043e\u0441\u0442\u0438.
\u0418\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044f \u043e \u0437\u0430\u043f\u0443\u0441\u043a\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c \u043d\u0430 \u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u0430\u0445 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439 \u0445\u0440\u0430\u043d\u0438\u0442\u044c\u0441\u044f \u0432 \u0436\u0443\u0440\u043d\u0430\u043b\u0435 \u0431\u0435\u0437\u043e\u043f\u0430\u0441\u043d\u043e\u0441\u0442\u0438. \u041a\u043e\u043d\u0435\u0447\u043d\u043e, \u0440\u0430\u0441\u0441\u043c\u0430\u0442\u0440\u0438\u0432\u0430\u0435\u0442\u0441\u044f \u0441\u0440\u0435\u0434\u0430 Windows. \u0412 \u0418\u043d\u0435\u0442\u0435 \u0433\u043e\u0442\u043e\u0432\u043e\u0433\u043e \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u043d\u0435 \u043d\u0430\u0448\u0451\u043b, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u0441\u0434\u0435\u043b\u0430\u043b \u0441\u0432\u043e\u044e \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u044e.
\u0421\u043a\u0440\u0438\u043f\u0442 \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0435\u0442\u0441\u044f \u043d\u0430 \u0441\u0435\u0440\u0432\u0435\u0440\u0435. \u041d\u0430 \u0432\u044b\u0445\u043e\u0434\u0435 \u0438\u043c\u0435\u0435\u043c \u043d\u0430\u0431\u043e\u0440 \u0444\u0430\u0439\u043b\u043e\u0432 \u0441 \u043e\u0442\u0447\u0451\u0442\u0430\u043c\u0438 \u043e \u0437\u0430\u043f\u0443\u0441\u043a\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c.
\u041a\u0430\u0440\u0442\u0438\u043d\u043a\u0430 \u0434\u043b\u044f \u043f\u0440\u0438\u0432\u043b\u0435\u0447\u0435\u043d\u0438\u044f \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u044f:

<\/a>
\u041e\u0441\u043d\u043e\u0432\u043d\u0430\u044f \u0438\u0434\u0435\u044f \u0442\u0430\u043a\u0430\u044f. \u0422\u0435\u043a\u0443\u0449\u0438\u0435 \u0441\u043e\u0431\u044b\u0442\u0438\u044f \u0436\u0443\u0440\u043d\u0430\u043b\u0430 \u0431\u0435\u0437\u043e\u043f\u0430\u0441\u043d\u043e\u0441\u0442\u0438 \u0441\u043e\u0445\u0440\u0430\u043d\u044f\u044e\u0442\u0441\u044f \u0432 evt-\u0444\u0430\u0439\u043b\u0435 \u043d\u0430 \u043a\u043b\u0438\u0435\u043d\u0442\u0441\u043a\u043e\u043c \u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u0435. \u0424\u0430\u0439\u043b \u043a\u043e\u043f\u0438\u0440\u0443\u0435\u0442\u0441\u044f \u043d\u0430 \u0441\u0435\u0440\u0432\u0435\u0440, \u0433\u0434\u0435 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044f \u0438\u0437 \u043d\u0435\u0433\u043e \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u0442\u0441\u044f \u043d\u0430 SQL Server. \u0417\u0430\u0442\u0435\u043c SQL-\u0437\u0430\u043f\u0440\u043e\u0441\u043e\u043c \u0444\u043e\u0440\u043c\u0438\u0440\u0443\u0435\u0442\u0441\u044f \u043e\u0442\u0447\u0451\u0442 \u0438 \u0441\u043e\u0445\u0440\u0430\u043d\u044f\u0435\u0442\u0441\u044f \u0432 \u0444\u0430\u0439\u043b.
\u0422\u0435\u043f\u0435\u0440\u044c, \u043a\u0430\u043a \u044d\u0442\u043e \u0440\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u043d\u043e.
\u041d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u043f\u0430\u043f\u043a\u0438 Log, Logs, CheckComps, Logi_ForReports \u0438 Computer. \u0423 \u043c\u0435\u043d\u044f \u043f\u0430\u043f\u043a\u0438 \u043d\u0430 \u0434\u0438\u0441\u043a\u0435 F. \u0412 \u043f\u0430\u043f\u043a\u0435 Log \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u0444\u0430\u0439\u043b list.txt \u0441\u043e \u0441\u043f\u0438\u0441\u043a\u043e\u043c \u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u043e\u0432, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u043f\u0440\u043e\u0432\u0435\u0440\u0438\u0442\u044c. \u041a\u0430\u0436\u0434\u043e\u0435 \u0438\u043c\u044f \u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u0430 \u0441 \u043d\u043e\u0432\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0438. \u042f \u0441\u043e\u0437\u0434\u0430\u043b 2 \u0444\u0430\u0439\u043b\u0430 list.txt \u0438 list7.txt \u0434\u043b\u044f XP \u0438 \u0441\u0435\u043c\u0451\u0440\u043e\u043a \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0435\u043d\u043d\u043e. \u0412 \u043f\u0430\u043f\u043a\u0435 Computer \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u0444\u0430\u0439\u043b is_computer_online_listComps.vbs <\/p>\n
\u0421\u043e\u0434\u0435\u0440\u0436\u0438\u043c\u043e\u0435 \u0444\u0430\u0439\u043b\u0430 is_computer_online_listComps.vbs:<\/b><\/p>\n
\n
on error resume next  dim gsFileName dim gsRunCmd dim gix dim giy dim giz  if Wscript.Arguments.Count = 1 then \tgsFileName = Wscript.Arguments(0) \tgsOS = "XP" elseif Wscript.Arguments.Count = 2 then \tgsFileName = Wscript.Arguments(0) \tgsOS = Wscript.Arguments(1) else \tgsFileName = InputBox("\u0424\u0430\u0439\u043b \u0441\u043e \u0441\u043f\u0438\u0441\u043a\u043e\u043c \u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u043e\u0432", "\u0412\u0432\u043e\u0434", "F:\\Log\\list.txt") \tgsOS = InputBox("\u0422\u0438\u043f \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u043e\u043d\u043d\u043e\u0439 \u0441\u0438\u0441\u0442\u0435\u043c\u044b:" & VBNewLine & "'XP' - \u0434\u043b\u044f Windows 2000\/XP" & VBNewLine & "'7' - \u0434\u043b\u044f Windows 7", "\u0412\u0432\u043e\u0434", "XP") end if  gsOS = uCase(gsOS) wscript.echo "gsOS: " & gsOS if inStr(gsOS, "XP") = 0 and inStr(gsOS, "7") = 0 then \tMsgBox "\u041d\u0435\u043a\u043e\u0440\u0440\u0435\u043a\u0442\u043d\u043e \u0443\u043a\u0430\u0437\u0430\u043d \u0442\u0438\u043f \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u043e\u043d\u043d\u043e\u0439 \u0441\u0438\u0441\u0442\u0435\u043c\u044b!", vbInformation, "\u0412\u043d\u0438\u043c\u0430\u043d\u0438\u0435" \tWscript.Quit end if  WScript.Echo "\u0424\u0430\u0439\u043b \u0441\u043e \u0441\u043f\u0438\u0441\u043a\u043e\u043c \u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u043e\u0432: " & gsFileName  Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFileOpen = objFSO.OpenTextFile(gsFileName, 1)  gix = 0 giy = 0  Set WshShell = CreateObject("WScript.Shell")  do until objTextFileOpen.AtEndOfStream \tgsComputerName = objTextFileOpen.Readline \tgiy = giy + 1 loop   objTextFileOpen.Close  wscript.echo "\u041d\u0430\u0439\u0434\u0435\u043d\u043e \u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u043e\u0432: " & giy  Set objTextFileOpen = objFSO.OpenTextFile(gsFileName, 1)  do until objTextFileOpen.AtEndOfStream \tgsComputerName = objTextFileOpen.Readline \tgix = gix + 1 \tgiz = gix * 100 \tgiz = giz \/ giy \tgiz = Round(giz, 1) \tgiOst = giy - gix \t \tif fuPing(gsComputerName) then \t\twscript.echo gsComputerName & VBTab & " \u043e\u0441\u0442\u0430\u043b\u043e\u0441\u044c: " & giOst & ", \u0433\u043e\u0442\u043e\u0432\u043e: " & giz & "%" \t\t \t\tif inStr(gsOS, "XP") then \t\t\tgsRunCmd = "f:\\Computer\\is_computer_online.bat " & gsComputerName & " y" \t\telseif inStr(gsOS, "7") then \t\t\tgsRunCmd = "f:\\Computer\\is_computer_online7.bat " & gsComputerName & " y" \t\tend if \t\tWshShell.Run gsRunCmd \t\tif giOst <> 0 then \t\t\tWScript.Sleep 180000 ' \u0412\u043d\u0438\u043c\u0430\u043d\u0438\u0435! \u0412\u043e\u0442 \u044d\u0442\u043e \u0437\u0430\u0434\u0435\u0440\u0436\u043a\u0430 \u0432 180 \u0441\u0435\u043a\u0443\u043d\u0434 \u043c\u0435\u0436\u0434\u0443 \u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u0430\u043c\u0438. \t\tend if \telse \t\twscript.echo gsComputerName & VBTab & " \u043e\u0441\u0442\u0430\u043b\u043e\u0441\u044c: " & giOst & ", \u0433\u043e\u0442\u043e\u0432\u043e: " & giz & "%. \u0412\u044b\u043a\u043b\u044e\u0447\u0435\u043d." \tend if loop   objTextFileOpen.Close  WScript.Echo "\u041e\u043f\u0435\u0440\u0430\u0446\u0438\u044f \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0430!"  function fuPing(NetworkDevice) \tlBoo = false \tset objPING = GetObject("winmgmts:{impersonationLevel=impersonate}")._ \t\tExecQuery ("select * from Win32_PingStatus where address ='" & NetworkDevice & "'")  \tFor Each PING In objPing \t\tif PING.StatusCode = 0 then \t\t\t'WScript.Echo "* \u041a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440 " & NetworkDevice & " \u0432 \u0441\u0435\u0442\u0438!"  \t\t\tlBoo = true \t\telse \t\t\t'WScript.Echo "* \u041a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u0430 \u043d\u0435\u0442 \u0432 \u0441\u0435\u0442\u0438." \t\tend if \tnext \t \tfuPing = lBoo end function  <\/code><\/pre>\n
  <\/div>\n<\/div>\n
  \u0417\u0430\u043f\u0443\u0441\u043a\u0430\u0435\u0442\u0441\u044f \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 bat-\u0444\u0430\u0439\u043b\u043e\u043c. \u0421\u0441\u044b\u043b\u043a\u0443 \u043d\u0430 \u043d\u0435\u0433\u043e \u043c\u043e\u0436\u043d\u043e \u0441\u0434\u0435\u043b\u0430\u0442\u044c, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u043d\u0430 \u0440\u0430\u0431\u043e\u0447\u0435\u043c \u0441\u0442\u043e\u043b\u0435.  <\/p>\n
bat-\u0444\u0430\u0439\u043b<\/b><\/p>\n
\n
cscript \/\/nologo "f:\\Computer\\is_computer_online_listComps.vbs" %1 %2 <\/code><\/pre>\n
  <\/div>\n<\/div>\n
  \u041e\u0441\u043d\u043e\u0432\u043d\u043e\u0439 \u0441\u043a\u0440\u0438\u043f\u0442 is_computer_online_listComps.vbs \u0447\u0438\u0442\u0430\u0435\u0442 \u0441\u043f\u0438\u0441\u043e\u043a \u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u043e\u0432 \u0438\u0437 \u0442\u0435\u043a\u0441\u0442\u043e\u0432\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u0430 \u0438 \u0434\u043b\u044f \u043a\u0430\u0436\u0434\u043e\u0433\u043e \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0435\u0442 bat-\u0444\u0430\u0439\u043b \u0444\u043e\u0440\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u043e\u0442\u0447\u0451\u0442\u0430. \u0414\u043b\u044f XP \u2014 \u044d\u0442\u043e \u0444\u0430\u0439\u043b is_computer_online.bat, \u0434\u043b\u044f 7 \u2014 is_computer_online7.bat.
  \u041f\u0440\u0438\u043c\u0435\u0447\u0430\u043d\u0438\u0435.<\/em>
  \u041d\u0430 \u0441\u0435\u0440\u0432\u0435\u0440\u0435 \u043d\u0443\u0436\u043d\u043e \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u044c logparser<\/a>.
  \u0412\u0441\u0451 \u043e\u043f\u0438\u0441\u0430\u043d\u043d\u043e\u0435 \u0434\u043e\u043b\u0436\u043d\u043e \u0437\u0430\u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0438 \u043d\u0430 \u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u0435 \u0430\u0434\u043c\u0438\u043d\u0438\u0441\u0442\u0440\u0430\u0442\u043e\u0440\u0430. \u0422\u043e\u043b\u044c\u043a\u043e \u043d\u0430\u0434\u043e \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u044c Microsoft SQL SERVER 2008 NATIVE CLIENT \u0438 Microsoft SQL Server 2008 Command Line Utilities. \u041d\u043e \u044f \u043d\u0435 \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u043b. <\/p>\n
\u0411\u043b\u043e\u043a \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u0430\u043c\u0438 XP<\/h3>\n
  Bat-\u0444\u0430\u0439\u043b:  <\/p>\n
is_computer_online.bat<\/b><\/p>\n
\n
cscript \/\/nologo "f:\\Computer\\is_computer_online.vbs" %1 %2 <\/code><\/pre>\n
  <\/div>\n<\/div>\n
  Bat-\u0444\u0430\u0439\u043b \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0435\u0442 \u0441\u043a\u0440\u0438\u043f\u0442. \u0421\u043a\u0440\u0438\u043f\u0442 \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442 \u0441\u043e\u0445\u0440\u0430\u043d\u0435\u043d\u0438\u0435 \u0441\u043e\u0431\u044b\u0442\u0438\u0439 \u0436\u0443\u0440\u043d\u0430\u043b\u0430 \u0431\u0435\u0437\u043e\u043f\u0430\u0441\u043d\u043e\u0441\u0442\u0438 \u0432 evt-\u0444\u0430\u0439\u043b \u0438 \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0435\u0442 \u043e\u0441\u043d\u043e\u0432\u043d\u043e\u0439 \u0431\u0430\u0442\u043d\u0438\u043a mo2csv.bat.  <\/p>\n
is_computer_online.vbs<\/b><\/p>\n
\n
on error resume next  dim gsComputerName dim gsUseLogFile dim gsLogFilename dim gbFlag  dim gsTableName dim gsCompName dim gsRunCmd  if Wscript.Arguments.Count = 1 then \tgsComputerName = Wscript.Arguments(0) \tgsUseLogFile = "n" elseif Wscript.Arguments.Count = 2 then \tgsComputerName = Wscript.Arguments(0) \tgsUseLogFile = Wscript.Arguments(1) else \tgsComputerName = InputBox("\u0418\u043c\u044f \u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u0430", "\u0412\u0432\u0435\u0434\u0438\u0442\u0435", "") \tgsUseLogFile = InputBox("\u0418\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c log-\u0444\u0430\u0439\u043b \u0434\u043b\u044f \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438?" & VBNewline & "[y\/n]", "\u0412\u0432\u0435\u0434\u0438\u0442\u0435", "y") end if  WScript.Echo "* \u0418\u043c\u044f \u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u0430 " & gsComputerName gsLogFilename = "f:\\Log\\" & gsComputerName & ".log"  if lCase(gsUseLogFile) = "y" then \tgbFlag = false \tWScript.Echo "* \u0424\u0430\u0439\u043b \u0436\u0443\u0440\u043d\u0430\u043b\u0430 " & gsLogFilename \tset objFSO = CreateObject("Scripting.FileSystemObject")  \tif not objFSO.FileExists(gsLogFilename) then \t\tWScript.Echo "* \u0424\u0430\u0439\u043b\u0430 \u0436\u0443\u0440\u043d\u0430\u043b\u0430 \u043d\u0435\u0442. \u0421\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f..." \t\tset objTextFileWriteLog = objFSO.OpenTextFile(gsLogFilename, 8, True) \t\tobjTextFileWriteLog.writeLine "n" \t\tobjTextFileWriteLog.close \t\tWScript.Echo "* \u0421\u043e\u0437\u0434\u0430\u043d \u0443\u0441\u043f\u0435\u0448\u043d\u043e." \tend if  \tset objTextFileOpen = objFSO.OpenTextFile(gsLogFilename, 1) \tdo until objTextFileOpen.AtEndOfStream \t\trecord = trim(objTextFileOpen.Readline) \t\tif record = "n" then \t\t\tWScript.Echo "* \u041a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440 \u043d\u0435 \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u043b\u0441\u044f \u0440\u0430\u043d\u0435\u0435." \t\t\tif fuPing(gsComputerName) then \t\t\t\tgbFlag = true \t\t\t\t \t\t\t\tif fuBackup(gsComputerName) then \t\t\t\t\tWScript.Sleep 15000 ' <- 15 \u0441\u0435\u043a\u0443\u043d\u0434 \u0437\u0430\u0434\u0435\u0440\u0436\u043a\u0438 \u0434\u043b\u044f \u0431\u0435\u043a\u0430\u043f\u0430 \t\t\t\t\tfuUploadEvents gsComputerName \t\t\t\t\twscript.sleep 10000 \t\t\t\tend if \t\t\tend if \t\telseif record = "y" then \t\t\tWScript.Echo "* \u0418\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044f \u0441 \u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u0430 " & gsComputerName & " \u0443\u0436\u0435 \u0437\u0430\u043a\u0430\u0447\u0430\u043d\u0430 \u043d\u0430 \u0441\u0435\u0440\u0432\u0435\u0440." \t\telse  \t\t\tWScript.Echo "* \u041d\u0435\u043a\u043e\u0440\u0440\u0435\u043a\u0442\u043d\u0430\u044f \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044f \u043e \u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u0435 " & gsComputerName & " \u0432 log-\u0444\u0430\u0439\u043b\u0435." \t\tend if \tloop  \tobjTextFileOpen.close  \tif gbFlag then \t\tset objTextFileWriteLog = objFSO.OpenTextFile(gsLogFilename, 2, True) \t\tobjTextFileWriteLog.writeLine "y" \t\tobjTextFileWriteLog.close \t\tWScript.Echo "* \u0418\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044f \u0437\u0430\u043f\u0438\u0441\u0430\u043d\u0430 \u0432 \u0436\u0443\u0440\u043d\u0430\u043b." \tend if else \t'if fuPing(gsComputerName) then \t\tif fuBackup(gsComputerName) then \t\t\tWScript.Sleep 15000 ' <- 15 \u0441\u0435\u043a\u0443\u043d\u0434 \u0437\u0430\u0434\u0435\u0440\u0436\u043a\u0438 \u0434\u043b\u044f \u0431\u0435\u043a\u0430\u043f\u0430 \t\t\tfuUploadEvents gsComputerName \t\t\twscript.sleep 10000 \t\tend if \t'end if end if  wscript.sleep 1000  function fuPing(NetworkDevice) \tlBoo = false \tset objPING = GetObject("winmgmts:{impersonationLevel=impersonate}")._ \t\tExecQuery ("select * from Win32_PingStatus where address ='" & NetworkDevice & "'")  \tFor Each PING In objPing \t\tif PING.StatusCode = 0 then \t\t\tWScript.Echo "* \u041a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440 " & NetworkDevice & " \u0432 \u0441\u0435\u0442\u0438!"  \t\t\tlBoo = true \t\telse \t\t\tWScript.Echo "* \u041a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u0430 \u043d\u0435\u0442 \u0432 \u0441\u0435\u0442\u0438." \t\tend if \tnext \t \tfuPing = lBoo end function   function fuBackup(lsComputername) \tlsEvtBackupFilename = "c:\\" & lsComputername & ".evt" \tlsEvtBackupFilenameRemote = "\\\\" & lsComputername & "\\c$\\" & lsComputername & ".evt" \tlbFlag = false \t \tset lObjFSO = CreateObject("Scripting.FileSystemObject") \t \tif lObjFSO.FileExists(lsEvtBackupFilenameRemote) then \t\tWScript.Echo "* \u0424\u0430\u0439\u043b \u0436\u0443\u0440\u043d\u0430\u043b\u0430 \u0443\u0436\u0435 \u0435\u0441\u0442\u044c. \u0418\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0439..." \t\tlbFlag = true \telse \t\tWscript.Echo "* \u0412\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442\u0441\u044f \u0440\u0435\u0437\u0435\u0440\u0432\u043d\u043e\u0435 \u043a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435..." \t\tSet objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Backup)}!\\\\" & lsComputername & "\\root\\cimv2") \t\tSet colLogFiles = objWMIService.ExecQuery ("Select * from Win32_NTEventLogFile where LogFileName='Security'")  \t\tFor Each objLogfile in colLogFiles \t\t\terrBackupLog = objLogFile.BackupEventLog(lsEvtBackupFilename) \t\t\tIf errBackupLog = 0 Then         \t\t\t\tWscript.Echo "* \u0420\u0435\u0437\u0435\u0440\u0432\u043d\u043e\u0435 \u043a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u043e \u0443\u0441\u043f\u0435\u0448\u043d\u043e." \t\t\t\tlbFlag = true \t\t\tElse \t\t\t\tWscript.Echo "* \u0420\u0435\u0437\u0435\u0440\u0432\u043d\u043e\u0435 \u043a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u043d\u0435 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u043e." \t\t\tEnd If \t\tNext \tend if \t \tfuBackup = lbFlag end function   function fuUploadEvents(lsComputername) \tWScript.Echo "* \u0417\u0430\u043f\u0443\u0449\u0435\u043d\u0430 \u0437\u0430\u043a\u0430\u0447\u043a\u0430 \u043d\u0430 \u0441\u0435\u0440\u0432\u0435\u0440..." \tgsCompName = lCase(lsComputername)  \tgsTableName = fuGetTableName(gsCompName) \tgsTableName = uCase(gsTableName) \tgsOutputFilename = "f:\\Computer\\" & gsCompName & ".csv" \tgsOutputFilenameSQL = "f:\\Computer\\" & gsCompName & "_sql.csv"  \tSet WshShell = CreateObject("WScript.Shell") \tgsRunCmd = "f:\\Computer\\mo2csv.bat " & gsCompName & " " & gsOutputFilename & " " & gsOutputFilenameSQL & " " & gsTableName  \tWScript.Echo "* \u0412\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442\u0441\u044f \u043a\u043e\u043c\u0430\u043d\u0434\u0430: '" & gsRunCmd & "'" \tWshShell.Run gsRunCmd end function   function fuGetTableName(lsCompName) \tlsTmp = lsCompName \t \tif InStr(lsTmp, "-") then \t\tlsTmp = Replace(lsTmp, "-", "_") \tend if \t \tfuGetTableName = lsTmp end function  <\/code><\/pre>\n
  <\/div>\n<\/div>\n
  mo2csv.bat \u0434\u0435\u043b\u0430\u0435\u0442 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0435:  <\/p>\n