Author Topic: VBSript Prank  (Read 1502 times)

0 Members and 1 Guest are viewing this topic.

Offline JhonErrol

  • NULL
  • Posts: 1
  • Cookies: 0
    • View Profile
VBSript Prank
« on: August 08, 2013, 06:19:51 am »
 ------------------------------------------------------------------------------------------
Here are some Examples of VBSript Pranks.
------------------------------------------------------------------------------------------
1st. Backspace.
MsgBox "BACKSPACE Activated!"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop


and then SAVE AS Anything.VBS


2nd. Auto-Type.
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Fat You!"
loop


3rd. Create A New Account.
Set objShell = CreateObject("Wscript.Shell")

Set objEnv = objShell.Environment("Process")
strComputer = objEnv("COMPUTERNAME")
strUser = inputbox("Account Name")
strPass = inputbox("Account Password")

Set colAccounts = GetObject("WinNT://" & strComputer & ",computer")

Set objUser = colAccounts.Create("user", strUser)

objUser.SetPassword strPass

Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
objPasswordExpirationFlag = ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordExpirationFlag

objUser.SetInfo

Set Group = GetObject("WinNT://" & strComputer & "/Administrators,group")
Group.Add(objUser.ADspath)


 ------------------------------------------------------------------------------------------
Try those Sripts Hope You have Fun w/ Them! :D
 ------------------------------------------------------------------------------------------
« Last Edit: August 08, 2013, 06:20:11 am by JhonErrol »

Offline techb

  • Soy Sauce Feeler
  • Global Moderator
  • King
  • *
  • Posts: 2350
  • Cookies: 345
  • Aliens do in fact wear hats.
    • View Profile
    • github
Re: VBSript Prank
« Reply #1 on: August 08, 2013, 07:26:10 am »
This is actually kinda stupid. Kinda really stupid.

Plus your "formatting" on the post itself sucks balls. Also most all bb systems have a code tag including this one. Try and use what you learned in school, this isn't boards where crap is accepted.
>>>import this
-----------------------------