VBScript에서 CreateObject 함수 재정의

Question

VBScript의 기본 CreateObject() 함수를 직접 재정의하려고합니다. VB6에서 기본적으로이 예

: 나는 참조하려면 어떻게

Set CreateObject = VBA.CreateObject(Class$, ServerName$) 

VBSript에서 "VBA"에 : 나는 알아낼 수 없습니다

http://www.darinhiggins.com/the-vb6-createobject-function/

이 라인?

Answer 1

나는 모든 코드가 그것을 사용할 수 있도록 당신이 그것을 무시할 수 있다고 생각하지 않는다. 당신의 코드 만.

기존 코드가 많지 않으면 변경할 수 없습니다. CreateObjectEx() 또는 ExCreateObject() 또는 이와 비슷한 것을 호출 할 수 있습니까? ...이 기능은 모든 오류 처리 등을 추가 한 후 돌아 서서() 메소드이 빠른 테스트가 작동하는 것 같다

Answer 2

주요/핵심 CreateObject를 호출

Function CreateObject(className, serverName) 
    '---- override the CreateObject 
    '  function in order to register what 
    '  object is being created in any error message 
    '  that's generated 
    Dim source, descr, errNum 

    WScript.echo "In custom CreateObject" 
    If Len(serverName) > 0 Then 
     Set CreateObject = WScript.CreateObject(className, serverName) 
    Else 
     Set CreateObject = WScript.CreateObject(className) 
    End If 

End Function 

Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject", "") 
path = fso.GetAbsolutePathName(".") 

WScript.echo path 

보장이 없다! ;-)