yiwuyun

Option Explicit
Call main()
Function main()
        Dim tmpObj
   Set     tmpObj = RetObj()

End Function

Function RetObj()
        Dim WshShell
        Set WshShell = WScript.CreateObject("Wscript.Shell")
     Set   RetObj = WshShell
End Function
复制代码