Fox52
19-02-2015, 10:54
Знающие люди, подскажите пожалуйста.
Есть скрипт, если его запускать руками он отрабатывает, а если его поставить в планировщик, то не работает.
В чем может быть проблема?
Set WshShell = WScript.CreateObject("Wscript.Shell")
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set InFile = filesys.OpenTextFile("Computers.txt", 1)
Set OutFile = filesys.OpenTextFile("complogs_V.1.txt", 8, true)
While Not InFile.AtEndOfStream
strHost = InFile.ReadLine
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & strHost & "'")
For Each objStatus in colPings
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
OutFile.WriteLine Date &";"& Time &";"& strHost &";"& "Off line"
Else
OutFile.WriteLine Date &";"& Time &";"& strHost &";"& "On line"
End If
Next
WEnd
InFile.Close
OutFile.Close
WScript.Quit
Есть скрипт, если его запускать руками он отрабатывает, а если его поставить в планировщик, то не работает.
В чем может быть проблема?
Set WshShell = WScript.CreateObject("Wscript.Shell")
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set InFile = filesys.OpenTextFile("Computers.txt", 1)
Set OutFile = filesys.OpenTextFile("complogs_V.1.txt", 8, true)
While Not InFile.AtEndOfStream
strHost = InFile.ReadLine
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & strHost & "'")
For Each objStatus in colPings
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
OutFile.WriteLine Date &";"& Time &";"& strHost &";"& "Off line"
Else
OutFile.WriteLine Date &";"& Time &";"& strHost &";"& "On line"
End If
Next
WEnd
InFile.Close
OutFile.Close
WScript.Quit