路径字典收集脚本 -电脑资料

    一个好的渗透测试员,肯定有一本自己路径字典...在渗透测试时可以帮上不少忙

    但好的字典,均是自己平时慢慢收集攒起来的.因此才有了这个脚本的.

    脚本会自动判断是否重复,不重复则写入

    放到快捷启动栏,设置上图标...嘿嘿,很是方便呀 这脚本陪了不少时间了,今天优化下,写上注释给喜欢VBS的朋友们

    Str = Trim(InputBox(Wscript.ScriptName&"请输入：", "输入", "" ))

    '提示用户输入,并清除两边的空格

    If Str ="" Then Wscript.Quit

    '若用户输入为空则退出脚本

    Name=Replace(Wscript.ScriptFullName,"vbs","txt")

    '设置文件名与当前脚本名字相同,但后缀为TXT

    Set Fso=CreateObject("Scripting.FileSystemObject")

    With Fso.OpenTextFile(Name,1,False,-2)

    Do While .AtendoFline <> True

    data=Trim(.ReadLine)

    If LCase(Str) = LCase(data) Then Wscript.Quit

    '判断是否有重复,重复则退出脚本

    Loop

    .Close

    End With

    With Fso.OpenTextFile(Name,8,True)

    If InStr(Str,".") = 0 Then

    .WriteLine Trim(Str)

    .WriteLine Trim(Str)&".asp"

    Else

    .WriteLine Trim(Str)

    End If

    .Close

    End With

    '若不包含.则写入 str值 和 带 ASP后缀的STR值,否则只输入STR值

    MsgBox Str

    Set Fso=Nothing