Пытаюсь получить информацию о пользователе из Active Directory (см. ниже). Когда указываю имя домена и логин пользователя (Button2Click) жёстко, то всё получается, а когда ввожу с помощью переменных (Button1Click), то вылетает ошибка, в чём тут может быть дело, подскажите....

uses
... comobj, ActiveX, ActiveDs_TLB;

function ADsGetObject(lpszPathName:PWideChar; const riid:tiid; out Obj):HRESULT;stdcall;external 'Activeds.dll';

procedure TForm1.Button2Click(Sender: TObject);
var
user: IADsUser;
begin
ADsGetObject('WinNT://domen_name/login_name', IADsUser, user);
ShowMessage(User.FullName);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
WshNet : variant;
user: IADsUser;
s, f: string;
begin
WshNet := CreateOleObject('WScript.Network');
if not VarIsNull(WshNet) then begin
s:='admin';
f:=WshNet.UserDomain;
ADsGetObject(PWideChar('WinNT://'+f+'/'+s), IADsUser, user);
ShowMessage(User.FullName);
end;
end;