Hello have this code vbsrcipt he was working after update the windows 10 when i run it i get this message please help

“Unable to wait for process” Code : 80020009 Source : WshShell.Run ligne : 17 caract : 2

Option Explicit Dim objApp : Set objApp = CreateObject("Shell.Application") Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject") Dim objSHL : Set objSHL = CreateObject("WScript.Shell")  Function SelectFile() Dim tempFolder : Set tempFolder = objFSO.GetSpecialFolder(2) Dim tempFile : tempFile = objFSO.GetTempName() & ".hta" Dim path : path = "HKCU\Volatile Environment\MsgResp"  With tempFolder.CreateTextFile(tempFile)     .Write "<input type=file name=f>" & _      "<script>f.click();(new ActiveXObject('WScript.Shell'))" & _      ".RegWrite('HKCU\Volatile Environment\MsgResp', f.value);" & _      "close();</script>"     .Close  End With  objSHL.Run tempFolder & "\" & tempFile, 0, True  If objSHL.RegRead(path) = "" Then   objSHL.RegDelete path   objFSO.DeleteFile tempFolder & "\" & tempFile   WScript.Quit  End If  SelectFile = objSHL.RegRead(path)  objSHL.RegDelete path  objFSO.DeleteFile tempFolder & "\" & tempFile End Function MsgBox SelectFile MsgBox SelectFile