This script checks if there is any .err files in the directory. If there is any, a event is generated in the local event viewer.<\/p>\n
This script checks if there is any .err files in the directory. If there is any, a event is generated in the local event viewer. Dim fso Set fso = CreateObject(“Scripting.FileSystemObject”) Set folder = fso.getfolder(“C:\\”) For Each File in Folder.Files If fso.GetExtensionName(File)=”err” Then Const EVENT_WARNING = 2 Set objShell = CreateObject(“Wscript.Shell”) objShell.LogEvent EVENT_WARNING, _ “There … Continue reading Dim fso
\nSet fso = CreateObject(\"Scripting.FileSystemObject\")
\nSet folder = fso.getfolder(\"C:\\\")
\nFor Each File in Folder.Files
\nIf fso.GetExtensionName(File)=\"err\" Then<\/code> <\/code>Const EVENT_WARNING = 2
\nSet objShell = CreateObject(\"Wscript.Shell\")
\nobjShell.LogEvent EVENT_WARNING, _
\n\"There are error files in \" & folder
\nEnd If
\nNext<\/code> <\/code><\/p>\n<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"