[rodney]

'Find the location of the computer's hosts file
 If fs.FolderExists(fs.BuildPath(fs.GetSpecialFolder(SystemFolder), "drivers\etc")) 
Then     gstrHostsFile = fs.BuildPath(fs.GetSpecialFolder(SystemFolder), "drivers\etc\hosts")'WinNT, Win2000, WinXP, Vista Else         gstrHostsFile = fs.BuildPath(fs.GetSpecialFolder(WindowsFolder), "hosts")'Win98 End If

tu probaj:

'Find the location of the computer's hosts file 
If fs.FolderExists(fs.BuildPath("C:\Program Files (x86)\Acrylic DNS Proxy\AcrylicHosts.txt")) 
Then     gstrHostsFile = fs.BuildPath("C:\Program Files (x86)\Acrylic DNS Proxy\AcrylicHosts.txt")'WinNT, Win2000, WinXP, Vista End If

ili mozda samo :

gstrHostsFile = "C:\Program Files (x86)\Acrylic DNS Proxy\AcrylicHosts.txt"