域环境下修改客户端HOSTS

继续之前留下来的作业，昨天在VMWARE里做域环境下修改客户端HOSTS文件成功，脚本内容如下：

 

脚本名：hostsedit.vbs

内容：

 

Dim fso, objFile, rs,ws,fileString,i,systemfolder                    '定义变量
Set fso = CreateObject("Scripting.FileSystemObject")  '创建一个FSO
Set objFile = fso.GetSpecialFolder(1)    
Set systemfolder = fso.GetFile(objFile & "\drivers\etc\hosts") '得到文件的句柄
Set rs = systemfolder.OpenAsTextStream(1,-2)    'host没有扩展名，不能用opentextstream打开,rs文件对象读取host文件内容
Set ws = systemfolder.OpenAsTextStream(8,-2)     ' ws文件对象写入记录
fileString = rs.ReadAll()       '将host文件作为字符串读出
subhost = "192.168.1.1"  
i = InStr(fileString,subhost)      '判断IP 是否存在
if i = 0 Then
   ws.writeLine("")
   ws.writeLine("192.168.1.1 servername1")
   ws.writeLine("192.168.1.1 servername1.test.com")
   ws.writeLine("192.168.1.8 servername2")
   ws.writeLine("192.168.1.8 servername2.test.com")
 end if
rs.close()  '关闭文件对象
ws.close()  '同上