继续之前留下来的作业,昨天在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() '同上
阅读(2044) | 评论(0) | 转发(0) |