QTP无法调用vbs文件中含有wscipt的函数

gonow85

问题描述：
c:\1.vbs中文件内容：（函数Test中有wscript对象）
Function Test()
    Dim WshShell
    Set WshShell=WScript.CreateObject("WScript.Shell")
    WshShell.Run "notepad"
    WScript.Sleep 2
End function
在QTP中使用以下脚本调用Test时报错：
Dim wshshell         
  Set wshshell=CreateObject ("Wscript.shell")      
  wshshell.run "cmd /K  wscript  C:\1.vbs"
备注：我已经试验过，若果1.vbs中的代码不写在函数中就可以成功调用，若
      现在的问题时，写在函数中应该时，QTP若调用此函数，应该怎么解决？？？

gonow85

自己顶一下，有人知道怎么解决吗？请高手帮忙指点下解决的思路。

正在更新

在QTP中

ExecuteFile "c:\1.vbs"

Test '调用1.vbs中的test函数