这段代码在VB Script中怎样写？着急！！

[pipimei]

各位大人：
以下是一段DELPHI的代码(得到网页的源代码):
function GetWebSourceCode(h:ihtmldocument2):string;
var
ov:OleVariant;
begin
ov:=h.all.item(0,VarEmpty);
result:=ov.innerHtml;
end

小弟因为不熟悉VB Script,请问这段代码在VB Script中应该怎样写？
着急!! 先谢谢了。

[pipimei]

我已经解决了，但希望大家继续，分留着。

[Kingron]

建议到VB版去问问！^_^