如何用DELPHI写一个可以被VBSCRIPT调用的DLL

用delphi写了个DLL，用DELPHI调用成功，但现在想用VBSCRIPT调用该DLL该怎么处理呢，我的代码如下：
type
WProperty = record
sWidgetName:ShortString;
nLeft:Integer;
nTop:Integer;
nHeight:Integer;
nWidth:Integer;
sContent:ShortString;
end;
PWProperty = ^WProperty;

function GetCtrInfo(HWnd:THandle;CtrlName:ShortString):WProperty;
var
FHwnd: THandle;
begin
FHwnd := GetFormHwnd();
New(p);
p^.sWidgetName := CtrlName;
Data.cbData := SizeOf(p^);
Data.lpData := p;
if HWnd <> 0 then
SendMessage(HWnd, WM_COPYDATA, FHwnd, Longint(@Data));
result.nLeft:= p^.nLeft;
result.nTop:= p^.nTop;
result.nHeight:= p^.nHeight;
result.nWidth:= p^.nWidth;
result.sContent:= p^.sContent;
Dispose(p);
end;

exports
GetCtrInfo;

DELPHI的调用程序：
function GetCtrInfo(HWnd:THandle;CtrlName:ShortString):WProperty;external 'Project4';
procedure TForm2.btn3Click(Sender: TObject);
var
HWnd: THandle;
t:WProperty;
begin
HWnd := FindWindow('TForm1' ,'待测程序');
t:=GetCtrInfo(HWnd, 'lbl1');
ShowMessage(IntToStr(t.nLeft));
ShowMessage(t.sContent);
end;

最好能给出相应的源码及VBS方面调用的代码，谢谢！！！