Dim filesys, filetxtOld, filetxtNew, getname, path, pathHosts, sRoot, sApp, d Set oShell = CreateObject("XXXXXXXXXXXXX") sRoot = oShell.ExpandEnvironmentStrings("%SystemRoot%") Set filesys = CreateObject("XXXXXXXXXXXXXXXXXXXXXXXXXX") pathHosts = "" If filesys.FileExists(sRoot & "\System32\drivers\etc\HOSTS") Then pathHosts = sRoot & "\System32\drivers\etc\HOSTS" End If If pathHosts <> "" Then Set filetxtOld = filesys.OpenTextFile(pathHosts) Set filetxtNew = filesysXXXXXXXXXXXXXXX("c:\hostsnew.txt", True) While Not filetxtOld.AtEndOfStream sApp = filetxtOld.ReadLine() If InStr(UCase(sApp), "STUDIOZIVERI") = 0 And InStr(UCase(sApp), "212.131.161.244") = 0 And InStr(UCase(sApp), "89.118.151.110") = 0 Then filetxtNew.writeline sApp End If Wend filetxtNew.Close filetxtOld.Close sApp = year(Now()) & month(Now()) & day(Now()) & hour(now()) & minute(now()) & second(now()) filesys.CopyFile pathHosts, "c:\hostsOld" & sApp & ".txt", True filesys.CopyFile "c:\hostsnew.txt", pathHosts, True MsgBox "Operazione terminata correttamente" Else MsgBox ("File HOSTS non trovato!") End If