Script ini kami temui pada sebuah grup facebook [INDONESIA HACKERS COMMUNITY], yang dibuat menggunakan notepad dengan ekstensi vbs. Tapi isi filenya sudah kami ubah sedikit. Ada satu pesan dari empunya grup “PELAJARI SCRIPT INI”… script ini tidak berbahaya, hanya just for fun..

copy scriptnya dibawah ini kemudian pastekan ke notepad.. tapi sebelum dijalankan ganti ekstensi “txt” nya menjadi “vbs”..

set WSHShell = WScript.CreateObject(“WScript.Shell”)
WSHShell.Run “cmd.Exe”

On Error Resume Next

Set wshShell = wscript.CreateObject(“WScript.Shell”)
Dim Wsh

Set Wsh = WScript.CreateObject(“WScript.Shell”)
Set shell = CreateObject(“Wscript.Shell”)
Set objScriptExec = objShell.Exec(“shutdown -a”)
Set objShell = CreateObject(“WScript.Shell”)

wscript.Sleep 1000
Wsh.Run “cmd.Exe”, 1
Wscript.Sleep 125
Wshshell.Sendkeys “( )”

Wscript.Sleep 125
Wshshell.Sendkeys “([)”

Wscript.Sleep 125
Wshshell.Sendkeys “( )”

Wscript.Sleep 125
Wshshell.Sendkeys “(b)”

Wscript.Sleep 125
Wshshell.Sendkeys “(a)”

Wscript.Sleep 125
Wshshell.Sendkeys “(d)”

Wscript.Sleep 125
Wshshell.Sendkeys “(-)”

Wscript.Sleep 125
Wshshell.Sendkeys “(c)”

Wscript.Sleep 125
Wshshell.Sendkeys “(y)”

Wscript.Sleep 125
Wshshell.Sendkeys “(b)”

Wscript.Sleep 125
Wshshell.Sendkeys “(e)”

Wscript.Sleep 125
Wshshell.Sendkeys “(r)”

Wscript.Sleep 125
Wshshell.Sendkeys “(.)”

Wscript.Sleep 125
Wshshell.Sendkeys “(b)”

Wscript.Sleep 125
Wshshell.Sendkeys “(l)”

Wscript.Sleep 125
Wshshell.Sendkeys “(o)”

Wscript.Sleep 125
Wshshell.Sendkeys “(g)”

Wscript.Sleep 125
Wshshell.Sendkeys “(s)”

Wscript.Sleep 125
Wshshell.Sendkeys “(p)”

Wscript.Sleep 125
Wshshell.Sendkeys “(o)”

Wscript.Sleep 125
Wshshell.Sendkeys “(t)”

Wscript.Sleep 125
Wshshell.Sendkeys “(.)”

Wscript.Sleep 125
Wshshell.Sendkeys “(c)”

Wscript.Sleep 125
Wshshell.Sendkeys “(o)”

Wscript.Sleep 125
Wshshell.Sendkeys “(m)”

Wscript.Sleep 125
Wshshell.Sendkeys “( )”

Wscript.Sleep 125
Wshshell.Sendkeys “(])”

Wscript.Sleep 125
Wshshell.Sendkeys “( )”

Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 125
Wshshell.Sendkeys “{bs}”
Wscript.Sleep 800
Wshshell.Sendkeys “^a”
Wshshell.Sendkeys “{bs}”
Wshshell.Sendkeys “[ please visit me ]”
Wscript.Sleep 125
Wshshell.Sendkeys “^a”
Wshshell.Sendkeys “{bs}”
Wshshell.Sendkeys “%{f4}”
Msgbox”Windows has detected a virus”,16,”Virus detector”
Wscript.Sleep 125

sumber : http://bad-cyber.blogspot.com/2009/12/notepad-script-just-for-fun.html