Jak zrobić backup event log'a i wyczyścić go, zdarza się że services.exe ma 100% CPU, zwykle wyczyszczenie event logów pomaga :)
'It must be placed in directory from "logdir1" (usually c:\temp\log\)
'date format
dtmThisDay = Day(Date)
dtmThisMonth = Month(Date)
dtmThisYear = Year(Date)
strBackupName = dtmThisYear & "_" & dtmThisMonth & "_" & dtmThisDay
'strComputer is the computer name
Set objNTInfo = CreateObject("WinNTSystemInfo")
strComputer = lcase(objNTInfo.ComputerName)
'logdir1 is folder where logs are, SCRIPT MUST BE IN THAT DIRECTORY
'there will be created dir for var strDirectory4log
'!!!!!!!!!!!!!!!!! CHANGE LOGDIR1 IF NEEDED!!!!!!!!!!!!!!!!!!!!!!!
logdir1 = "c:\temp\log\"
strDirectory = logdir1 & strComputer & strBackupName
strDirectory4log = strComputer & strBackupName
'wscript.echo strDirectory
'wscript.echo strDirectory4log
' Create folder from strDirectory4log var
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Note If..Exists. Then, Else ... End If construction
If objFSO.FolderExists(strDirectory4log) Then
Set objFolder = objFSO.GetFolder(strDirectory4log)
Else
Set objFolder = objFSO.CreateFolder(strDirectory4log)
End If
......aby zobaczyć cały artykuł zaloguj się lub zarejestruj.....
Share Link: 
