创建文件 dim fso, f set fso = server.CreateObject("scrīpting.FileSystemObject") set f = fso.CreateTextFile("C:\test.txt", true) '第二个参数表示目标文件存在时是否覆盖 f.Write("写入内容") f.WriteLine("写入内容并换行") f.WriteBlankLines(3) '写入三个空白行(相当于在文本编辑器中按三次回车) f.Close() set f = nothing set fso = nothing
打开并读文件 dim fso, f set fso = server.CreateObject("scrīpting.FileSystemObject") set f = fso.OpenTextFile("C:\test.txt", 1, false) '第二个参数 1 表示只读打开,第三个参数表示目标文件不存在时是否创建 f.Skip(3) '将当前位置向后移三个字符 f.SkipLine() '将当前位置移动到下一行的第一个字符,注意:无参数 response.Write f.Read(3) '从当前位置向后读取三个字符,并将当前位置向后移三个字符 response.Write f.ReadLine() '从当前位置向后读取直到遇到换行符(不读取换行符),并将当前位置移动到下一行的第一个字符,注意:无参数 response.Write f.ReadAll() '从当前位置向后读取,直到文件结束,并将当前位置移动到文件的最后 if f.atEndOfLine then response.Write("一行的结尾!") end if if f.atEndOfStream then response.Write("文件的结尾!") end if f.Close() set f = nothing set fso = nothing
打开并写文件 dim fso, f set fso = server.CreateObject("scrīpting.FileSystemObject") set f = fso.OpenTextFile("C:\test.txt", 2, false) '第二个参数 2 表示重写,如果是 8 表示追加 f.Write("写入内容") f.WriteLine("写入内容并换行") f.WriteBlankLines(3) '写入三个空白行(相当于在文本编辑器中按三次回车) f.Close() set f = nothing set fso = nothing
判断文件是否存在 dim fso set fso = server.CreateObject("scrīpting.FileSystemObject") if fso.FileExists("C:\test.txt") then response.Write("目标文件存在") else response.Write("目标文件不存在") end if set fso = nothing
移动文件 dim fso set fso = server.CreateObject("scrīpting.FileSystemObject") call fso.MoveFile("C:\test.txt", "D:\test111.txt") '两个参数的文件名部分可以不同 set fso = nothing
复制文件 dim fso set fso = server.CreateObject("scrīpting.FileSystemObject") call fso.CopyFile("C:\test.txt", "D:\test111.txt") '两个参数的文件名部分可以不同 set fso = nothing
删除文件 dim fso set fso = server.CreateObject("scrīpting.FileSystemObject") fso.DeleteFile("C:\test.txt") set fso = nothing
创建文件夹 dim fso set fso = server.CreateObject("scrīpting.FileSystemObject") fso.CreateFolder("C:\test") '目标文件夹的父文件夹必须存在 set fso = nothing
判断文件夹是否存在 dim fso set fso = server.CreateObject("scrīpting.FileSystemObject") if fso.FolderExists("C:\Windows") then response.Write("目标文件夹存在") else response.Write("目标文件夹不存在") end if set fso = nothing
删除文件夹 dim fso set fso = server.CreateObject("scrīpting.FileSystemObject") fso.DeleteFolder("C:\test") '文件夹不必为空 set fso = nothing
设置IP欺骗的原因 1、 当某个IP的访问过于频繁,或者访问量过大是,服务器会拒绝访问请求,这时候通过IP欺骗可以增加访问频率和访问量,以达到压力测试的效果。
2、 某些服务器配置了负载均衡,使用同一个IP不能测出系统的实际性能。LR中的IP欺骗通过调用不同的IP,可很大程度上的模拟实际使用中多IP访问和并测试服务器均衡处理的能力。
多IP地址的设置 IP地址的设置较为简单,可直接在本地连接中增加IP,或者通过LR自带的工具“IP wizard”设置,当然也可以使用其它软件设置。唯一需要注意的就是注意设置的IP的有效性。
“选项”中的IP设置 使用“选项”对话框中的“常规”选项卡,可以选择IP地址模式。只有在专家模式下操作 Controller 时,才显示该选项卡。
要设置常规专家模式设置,请执行下列操作:
1. 选择“工具”>“选项”。将显示“选项”对话框。选择“常规”选项卡。
2. 选择多个 IP 地址模式。
需要注意的是,这里的IP地址模式和运行时设置中的常规设置的不同,会导致IP欺骗失效。具体该怎么设置,这里就不讲了,很简单的东西。
启用IP欺骗 从 Controller 启用多个 IP 地址 定义多个 IP 地址后,您就可以设置一个选项,让 Controller 使用该功能。
要从 Controller 启用多个 IP 地址,请执行下列操作:
在 Controller“设计”视图中,选择“场景”>“启用 IP 欺骗器”。
注意:必须在连接到负载生成器之前选择该选项。
IP欺骗功能验证 IP欺骗已经设置了,但是是不是有效呢?通常会有这样的疑问。下面我们通过一个简单的试验,来验证是否有效。
在脚本的Action()部分增加如下代码:
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");
然后通过控制器设置并运行场景. |