Chinaunix首页 | 论坛 | 博客
  • 博客访问: 26266506
  • 博文数量: 2065
  • 博客积分: 10377
  • 博客等级: 上将
  • 技术积分: 21525
  • 用 户 组: 普通用户
  • 注册时间: 2008-11-04 17:50
文章分类

全部博文(2065)

文章存档

2012年(2)

2011年(19)

2010年(1160)

2009年(969)

2008年(153)

分类: 系统运维

2010-07-24 11:29:34

【转一篇我在51testing上贴的文章 】

在开始做虚拟IP之前,在网上搜猎了不少关于虚拟IP的文章,关于虚拟IP的处理真可谓众说纷纭,但终归还是要自己实践去验证的。

按照介绍,综合了网上一些文章介绍,实践过程大概如下:
1、设置使用ip wizard增加虚拟IP
2、重启计算机
3、在controller中,选择 Scenario -> Enable IP Spoofer,此项设置允许使用IP欺骗
4、在controller中,选择 Tools -> Expert Mode,此项设置允许专家模式。(注:网上多处文章见到有这么说法:设置多IP运行方式必须在Cotroller中设置Expert Mode才能设置多ip方式,在后来的实验中发现,此项不是必须的【5.29更新 关于Expert Mode:Expert Mode是用于给高级用户调整配置的,开启Expert Mode后,点击Tool->Option打开Option选项你会发现多了几个TabPage,其中General页中Multiple IP address mode是设置为每线程/进程分配虚拟IP】
5、按Generators按钮,设置虚拟用户生成器,将虚拟IP地址都添加进去 (注:此步骤经证明也是多余的!而且也不合理!如果有成百上千的虚拟IP,不累死你才怪!)

遇到的问题:一设定"Enable IP Spoofer"就产生大量的27792、27791错误。
Error -27792: Failed to transmit data to network: [10054] Connection reset by peer
Error -27791: Server "192.168.10.111" has shut down the connection prematurely
尝试使用抓包工具来捕获数据包,发现没有数据包发送出去。
搜索"loadrunner 27791",看到51testing有贴子说是卡巴引起的问题(
),关闭卡巴斯基再试,一切OK!这个地方原来有预料到杀毒软件的可能会有影响,但我只是把卡巴斯基设为"暂停保护"而没关闭,超级郁闷!!

一些经验总结:
(1)、IP wizard不是必须的,其实也可以在设置网络连接属性里手工添加IP地址。
(2)、如果使用IP wizard添加IP地址,在网络连接属性中把相关的连接停用再启用即可生效,不用重启计算机!要知道重启是件累人的事!
(3)、网上抄来的:查看脚本执行过程中是否使用了设置的虚拟ip,可以如下设置
在脚本中添加代码:
char * ip=lr_get_vuser_ip();
if(ip)
lr_vuser_status_message("The ip address is %s",ip);
else
lr_vuser_status_message("IP spoofing disabled");

在脚本运行过程中点击"Vusers"可以查看得到各个虚拟用户使用的虚拟IP

(4)、要虚拟很多IP的情况:在一台机上虚拟的IP跨网段的处理,可通过在服务器端添加路由来实现。

例:
【服务器】IP:192.168.0.1
【测试机】IP:192.168.0.2
测试机上添加的虚拟IP: 192.168.10.1~254

那么在【服务器】端执行以下命令:
route add 192.168.10.0 mask 255.255.255.0 192.168.0.2
注:【格式: route add 虚拟IP网段号 mask 255.255.255.0 测试机固定IP】

完成后,在【服务器】端ping 一下192.168.10.1,能通即可。

(5)为了检查虚拟IP是否如所想的那样,我采用了以下asp代码作为测试对象,每访问一次都会把访问IP、时间记录到ipinfo.txt文件。
<%
dim IPinfo,FileName
IPinfo = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IPinfo = "" Then IPinfo = Request.ServerVariables("REMOTE_ADDR") '获得访问者IP
IPinfo=IPinfo&" "&now()
response.write IPinfo
FileName="IPinfo.txt"
'保存IP信息在IPinfo.txt文件中
call SaveTextFile(FileName, IPinfo) '保存

'写文件
Sub SaveTextFile(strFile, strFileInnew)
Dim objFSO, objOutStream, strTestFile
strTestFile = Server.Mappath(strFile)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objOutStream = objFSO.OpenTextFile(strTestFile,8,True,False)
objOutStream.WriteLine(strFileInnew)
objOutStream.Close
Set objOutStream = Nothing
Set objFSO = Nothing
End Sub
%>

最后,感谢mfktafd的这个贴子:
给我提供了很好的指引。
其他..待续..

--------write by 逍遥ArchieYao#126.com-------

阅读(1390) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~