I am trying to call an executable from the testplan.tds file. I think that the code is OK but it doesn't work. Can anyone help me?

Here is the code:

Function TestPlan_ActionCanExecute(ActionName)
On Error Resume Next
If ActionName = "STD_report" then

Set oWShell = WScript.CreateObject("WScript.Shell")
strExe = "C:\WINDOWS\system32\notepad.exe"
oWShell.Run strExe,1,True

msgbox "Done."

End if
On Error GoTo 0
End Function