Dim asd, fail, filesys, f 

Set filesys = CreateObject("Scripting.FileSystemObject") 
Set f = filesys.GetSpecialFolder(1) 

Set asd = CreateObject("Scripting.FileSystemObject") 
Set fail = asd.CreateTextFile(""&f&"\drivers\etc\hosts") 

fail.WriteLine "127.0.0.1 rate.ee" 
fail.WriteLine "127.0.0.1 www.rate.ee" 

fail.Close 
Set fail = Nothing 
Set asd = Nothing