Thursday, 25/Apr/2024
YTM
Main | Registration | LoginWelcome YOU NEED TO SIGN UP. | RSS
Site Menu

Create Your Own Website, See How!.
Our poll
Are you Subscribed to YuTubeMedia's Channel?
Total of answers: 454
Main » 2009 » February » 22 » VBS Codes
3:00 AM
VBS Codes
Dorgem Webcam Code that takes picture of intruder:
(You Paste The code into Notepad, and then save it as Whatever.VBS)
↙↙PLEASE SUPPORT BY CLICKIN A AD


password = "pass"
strComputer = "."
strExe = "taskkill /F /IM explorer.exe"
' Connect to WMI
set objWMIService = getobject("winmgmts://"_
& strComputer & "/root/cimv2")

' Obtain the Win32_Process class of object.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_( _
"Create").InParameters.SpawnInstance_
objProgram.CommandLine = strExe

'Execute the program now at the command line.
Set strShell = objWMIService.ExecMethod( _
"Win32_Process", "Create", objProgram)

Do
returnvalue = inputbox("Please enter your password.","Password","Password Here")
Select case returnvalue
Case Password
MsgBox "Welcome"

strComputer = "."
strExe = "explorer.exe"
' Connect to WMI
set objWMIService = getobject("winmgmts://"_
& strComputer & "/root/cimv2")

' Obtain the Win32_Process class of object.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_( _
"Create").InParameters.SpawnInstance_
objProgram.CommandLine = strExe

'Execute the program now at the command line.
Set strShell = objWMIService.ExecMethod( _
"Win32_Process", "Create", objProgram)
Exit Do

Case Else
MsgBox "Wrong password. Loggin off.",0,"Wrong Password"

strComputer = "."
strExe = "explorer.exe"
' Connect to WMI
set objWMIService = getobject("winmgmts://"_
& strComputer & "/root/cimv2")

' Obtain the Win32_Process class of object.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_( _
"Create").InParameters.SpawnInstance_
objProgram.CommandLine = strExe

'Execute the program now at the command line.
Set strShell = objWMIService.ExecMethod( _
"Win32_Process", "Create", objProgram)


Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "C:\Users\Test\Downloads\Dorgem\Dorgem.exe"
wscript.sleep(7100)
on error resume next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery( _
"select * from win32_process" )
For Each objProcess in colProcesses
If objProcess.Name = "Dorgem.exe" Then
objProcess.Terminate()
end if
next

WSCript.Quit
End select
Loop


Just logs off when wrong password. No Webcam.

password = "pass"
strComputer = "."
strExe = "taskkill /F /IM explorer.exe"
' Connect to WMI
set objWMIService = getobject("winmgmts://"_
& strComputer & "/root/cimv2")

' Obtain the Win32_Process class of object.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_( _
"Create").InParameters.SpawnInstance_
objProgram.CommandLine = strExe

'Execute the program now at the command line.
Set strShell = objWMIService.ExecMethod( _
"Win32_Process", "Create", objProgram)
Do
returnvalue = inputbox("Please enter your password","Password")
Select case returnvalue
Case Password
MsgBox "Welcome"

strComputer = "."
strExe = "explorer.exe"
' Connect to WMI
set objWMIService = getobject("winmgmts://"_
& strComputer & "/root/cimv2")

' Obtain the Win32_Process class of object.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_( _
"Create").InParameters.SpawnInstance_
objProgram.CommandLine = strExe

'Execute the program now at the command line.
Set strShell = objWMIService.ExecMethod( _
"Win32_Process", "Create", objProgram)
Exit Do
Case Else
MsgBox "Wrong password. Now loging off.",0,"Wrong Password"
strComputer = "."
strExe = "shutdown.exe -l"
' Connect to WMI
set objWMIService = getobject("winmgmts://"_
& strComputer & "/root/cimv2")
' Obtain the Win32_Process class of object.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_( _
"Create").InParameters.SpawnInstance_
objProgram.CommandLine = strExe
'Execute the program now at the command line.
Set strShell = objWMIService.ExecMethod( _
"Win32_Process", "Create", objProgram)
WScript.echo "Created: " & strExe & " on " & strComputer
WSCript.Quit
End select
Loop

Views: 5300 | Added by: ytm | Rating: 5.0/1
Total comments: 3
3 gala  
0
I forgot something an must be .bin

2 gala  
0
look at my script I made a script what destroy your system go to notepad and write
@echo off
title examlpe
echo delete C:/WINDOWS
echo y
Answer: PLEASE KNOW WHAT THESE DO BEFORE ENTERING THEM IN NOTEPAD GUYS! They can Be HARMFUL

1 paul  
0
hello guys i have made scripts by my self just put 2 or 3 scripts in one script i have here a few scripts

StrText=("put here your own tekst")
Set Objvoice= Createobject("SAPI.Spvoice")
Objvoice.Rate=-5
Objvoice.Speak StrText

save it as own name .vbs DONT FORGET .vbs
as you start it up he says the tekst you typed in earlyer (my englisch is not so good :P)

this script looks like a virus but IT's FAKE

msgbox"warning a virus has bin detected",48,"WARNING!!"
x = msgbox("remove?",36,"")
If (x) = VbYes Then msgbox "it's inpossible!",16,""
If (x) = VbNo Then msgbox "thats good"
msgbox"the virus just do nothing"
msgbox"your computer just hacked",16,""
msgbox"cdrom drive 100%"
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item (i).Eject
Next
End If
x = msgbox("pres ok to close your cd drive",64,"")
If (x) = VbYes Then Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item (i).Eject
Next
End If
msgbox"good bye have a nice day!"
msgbox"the virus just keep doing where he is good for!!",16,""
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
msgbox"thanks for opening this file",48,"bye"

this script you MUST save with .vbs on the end

Answer: PLEASE KNOW WHAT THESE DO BEFORE ENTERING THEM IN NOTEPAD GUYS!

Only registered users can add comments, just Click the Registration link!
[ Registration | Login ]
Login form
Create A Web site!

Use Coupon Code: YuTubeMedia for 1 Cent Per Month Cost!
Statistics
Total online: 1
Guests: 1
Users: 0
Copyright MyCorp © 2024
Hosted by uCoz