Mushroomer
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
strComputer = "."
BuferFile = "c:\bufer.txt"
Count = 0
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService. _
ExecQuery("Select * from CIM_DataFile where (Extension = 'lsp') or (Extension = 'mnl')")
For Each objFile in colFiles
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oLogFile= oFSO.OpenTextFile(objFile.Name)
Set BufFile= oFSO.CreateTextFile(BuferFile,true)
sLogLine=""
While (Not (oLogFile.AtEndOfStream))and(sLogLine<>"(setq flagx t)")
sLogLine = oLogFile.ReadLine
if sLogLine<>"(setq flagx t)" Then
BufFile.WriteLine sLogLine
end if
Wend
oLogFile.Close
BufFile.Close
If sLogLine="(setq flagx t)" Then
oFSO.DeleteFile(objFile.Name)
oFSO.CopyFile BuferFile,objFile.Name,True
Count=Count+1
End if
oFSO.DeleteFile(BuferFile)
Next
Set colFiles = objWMIService. _
ExecQuery("Select * from CIM_DataFile where (Extension = 'mnr') or (Extension = 'mnc') or (Extension = 'mns')")
For Each objFile in colFiles
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFile(objFile.Name)
Next
Set colFiles = objWMIService. _
ExecQuery("Select * from CIM_DataFile where (Extension = 'lsp') or (Extension = 'mnl')")
For Each objFile in colFiles
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oLogFile= oFSO.OpenTextFile(objFile.Name)
Set BufFile= oFSO.CreateTextFile(BuferFile,true)
sLogLine=""
While (Not (oLogFile.AtEndOfStream))and(sLogLine<>"(setq flagx t)")
sLogLine = oLogFile.ReadLine
if sLogLine<>"(setq flagx t)" Then
BufFile.WriteLine sLogLine
end if
Wend
oLogFile.Close
BufFile.Close
If sLogLine="(setq flagx t)" Then
oFSO.DeleteFile(objFile.Name)
oFSO.CopyFile BuferFile,objFile.Name,True
Count=Count+1
End if
oFSO.DeleteFile(BuferFile)
Next
'If Count>0 Then
WScript.Echo "?ылечено " & Count & " файлов"
'End If |
