Kolejny sposób użycia regex w VBSkrypcie, teraz chcielibyśmy aby tylko i wyłącznie adresy IP były wyciągnięte z logu i wyrzucone na standard output,
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\logs\ip_log.log", ForReading)
wczytany_plik = objFile.ReadAll
objFile.Close
Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True
objRegEx.Pattern = "\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}"
Set colMatches = objRegEx.Execute(wczytany_plik)
If colMatches.Count > 0 Then
For Each strMatch in colMatches
If Left(strMatch.Value, 3) <> "255" Then
Wscript.Echo strMatch.Value
End If
Next
End If
możemy tak zaimplementować każdy wzorzec (pattern) dla logów systemowych i formatować je do xls lub do zwykłych plików tekstowych, resultat jest prosty mniej pracy dla admina
Share Link: 
