1*cdf0e10cSrcweirAttribute VB_Name = "Module1" 2*cdf0e10cSrcweirOption Explicit 3*cdf0e10cSrcweir 4*cdf0e10cSrcweirSub main() 5*cdf0e10cSrcweir Dim obj As Object 6*cdf0e10cSrcweir Set obj = CreateObject("dcomtest.writerdemo.wsc") 7*cdf0e10cSrcweir obj.run 8*cdf0e10cSrcweirEnd Sub 9