1)
Atsidarykite notepad'ą;
* Kaip tai padaryti? Spauskite ant darbalaukio
laisvos vietos dešinį pelės mygtuką, tada New(*Naujas, jei lietuviški windows)
> Text Document (Tekstinis dokumentas, jei lietuviški windows)
PASTABA: Sunkiausia jau atlikta 
2) Nukopijuokite šį kodą į savo sukurtą dokumentą
(notepadą)
3) Raudonos raidės esančios tarp kabučių tai tekstas,
kurį rašys kompiuteris automatiškai atvėrus failiuką;
Šiuo atveju sweikas
* Norint padėti tarpelį tarp žodžių jums reikia
tarp kabučių palikti tarpą " "
* Norint parašyti ilgesnį tekstą prirašykite kodo
apačioje
WScript.Sleep 180
WScript.Sleep 100
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 300
WshShell.SendKeys "s"
WScript.Sleep 300
WshShell.SendKeys "w"
WScript.Sleep 300
WshShell.SendKeys "e"
WScript.Sleep 300
WshShell.SendKeys "i"
WScript.Sleep 300
WshShell.SendKeys "k"
WScript.Sleep 300
WshShell.SendKeys "a"
WScript.Sleep 300
WshShell.SendKeys "s"
WScript.Sleep 300
4) Išsaugokite
failą *.vbs formatu;
* Spauskite: File > Save As... > Įveskite
failo_pavadinimą.vbs
Kitas VBS kodas:
sis VBS kodas ismes lentele su jusu uzrasais
pvz. http://www.ant-bangos.lt/upload/foto_1273659083_rm...
msgbox "cia"
msgbox "tavo"
msgbox "tekstas"
o su siuo kodu ismes ta pacia lentele kurios negales isjunkti
msgbox "cia"
msgbox "tavo"
msgbox "tekstas"
do
msgbox "tekstas"
loop
norin ja isjunkti reikes spausti Ctrl+Alt+Del --> Processes --> wscript.exe
arba restartuoti kompa.