home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 31
/
CDASC_31_1996_juillet_aout.iso
/
internet
/
rnr214.zip
/
NWID.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-07-01
|
1KB
|
80 lines
unit nwid; {get NetWare(TM) userid}
interface
uses dos;
function getnetwareid: string;
implementation
{$F+}
function getnetwareid: string;
type
requestbuffer=record
requestlength: word;
subfunction: byte;
connectnum: byte;
end;
replybuffer=record
replylength: word;
objectid: longint;
objecttype: word;
objectname: array[1..48] of byte;
logintime: array[1..7] of byte;
end;
var
regs: registers;
connectnum: byte;
request: requestbuffer;
reply: replybuffer;
i: integer;
result: string;
begin
result := '';
regs.ah := $dc;
msdos(regs);
connectnum := regs.al;
if connectnum<>0 then
begin
request.requestlength := 2;
request.subfunction := $16;
request.connectnum := connectnum;
reply.replylength := 61;
regs.ah := $e3;
regs.ds := seg(request);
regs.si := ofs(request);
regs.es := seg(reply);
regs.di := ofs(reply);
msdos(regs);
i := 1;
while i<=48 do
begin
if reply.objectname[i]=0 then
i := 48
else
result := result+(chr(reply.objectname[i]));
inc(i);
end;
end;
getnetwareid := result;
end;
end.