Chinaunix首页 | 论坛 | 博客
  • 博客访问: 382405
  • 博文数量: 89
  • 博客积分: 4025
  • 博客等级: 上校
  • 技术积分: 963
  • 用 户 组: 普通用户
  • 注册时间: 2007-01-08 09:54
文章分类

全部博文(89)

文章存档

2011年(1)

2010年(2)

2009年(32)

2008年(9)

2007年(45)

我的朋友

分类: 系统运维

2009-11-11 21:32:00

继续之前留下来的作业,昨天在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) |
给主人留下些什么吧!~~