( IP -- > User Account)在局域网内，如何根据IP或主机名得到该电脑上正在操作的用户帐号?

zcom 2003-05-29 09:16:26

要求：
1。程序不一定运行在域服务器上
2。该IP对应的电脑不一定登录到域中（有可能是登录到WORKGROUP）
3。不需要客户端。

给点启发也可以！

...全文

124 54 打赏收藏转发到动态举报

写回复

用AI写文章

54 条回复

切换为时间正序

请发表友善的回复…

发表回复

zcom 2003-06-13

打赏
举报

我还还UP

zcom 2003-06-12

打赏
举报

zcom 2003-06-11

打赏
举报

Why?

tomyang 2003-06-11

打赏
举报

我对网络方面的函数和功能不是非常了解，但是：
我认为你希望不通过ｃｌｉｅｎｔ或者类似木马的东东完成该功能不可能实现．

zcom 2003-06-11

打赏
举报

zhangzheng818 2003-06-10

打赏
举报

农业专家发的内容我试了一下，好象没有解决我的问题！

hammer_shi 2003-06-10

打赏
举报

if seaResult=NO_ERROR then

begin

if LookupAccountName(PChar('\'+EdtHostName.Text),Pchar(seedline),seaSID,seaSIDlength,

lpReferencedDomainName,seaReferencedDomainNamelength,seaSIDnameuse)

then

begin

cpDomain.Caption:=string(lpReferencedDomainName);

seaSidIdentify:=GetSidIdentifierAuthority(seaSID);

SidSubCount:=GetSidSubAuthorityCount(seaSID);

StoreCount:=SidSubCount^;

for i:=0 to Integer(StoreCount)-1 do

begin

tempPDWORD:=GetSidSubAuthority(seaSID,i);

storeSIDsub[i]:=tempPDWORD^;

end;

//start to get username

pAccountName:=@seaAccountBuffer ;

seaReferencedDomainNameLength:=255;

AccountLength:=255;

storeSIDsub[StoreCount-1]:=500;

if AllocateAndInitializeSid(seaSidIdentify^,SidSubCount^,StoreSidSub[0],

StoreSidSub[1],StoreSidSub[2],StoreSidSub[3],StoreSidSub[4],

StoreSidSub[5],StoreSidSub[6],StoreSidSub[7],newSID) then

begin

if LookupAccountSid(PChar('\'+EdtHostName.Text),newsid,

pAccountName,AccountLength,lpReferencedDomainName,

seaReferencedDomainNameLength,seaSIDnameuse)

then

begin

lbAdmin.Caption:=String(pAccountName);

ListBox1.Items.Add('\'+lpReferencedDomainName+'+pAccountName+' Built-in Admin');

end

else

exit;

FreeSid(newSID);

//tempDWORD:=GetLastError;

j:=1;

i:=1000;

while j<=30 do

begin

seaReferencedDomainNamelength:=255;

AccountLength:=255;

StoreSidSub[StoreCount-1]:=i;

AllocateAndInitializeSid(seaSidIdentify^,SidSubCount^,StoreSidSub[0],

StoreSidSub[1],StoreSidSub[2],StoreSidSub[3],StoreSidSub[4],

StoreSidSub[5],StoreSidSub[6],StoreSidSub[7],newSID);

if LookupAccountSid(PChar('\'+EdtHostName.Text),newsid,

pAccountName,AccountLength,lpReferencedDomainName,

seaReferencedDomainNameLength,seaSIDnameuse)

then

begin

if seaSIDnameuse=sidTypeInvalid then j:=j+1

else if seaSIDnameuse<>sidTypeDeletedAccount then

begin

j:=0;

ListBox1.Items.Add('\'+lpReferencedDomainName+

'+pAccountName+' '+AccountType[seaSIDnameuse]);

StatusBar1.SimpleText:=pAccountName;

end;

end

else

j:=j+1;

Application.ProcessMessages;

i:=i+1;

FreeSID(newsid);

end;

end;

end

else ShowMessage('Cannot locate sid infomation!');

end

else ShowMessage('Connection Error!');

WNetCancelConnection2(PChar('\'+EdtHostName.Text+'$'),0,true);

Button1.Enabled:=True;

end;

hammer_shi 2003-06-10

打赏
举报

不好意思，我也不知道帮你查了一下资料，看看下一段对你有没有用：
EdtHostName.Text 为本机的IP地址或远端IP地址(必须开放IPC$,默认为开)

procedure TForm1.Button1Click(Sender: TObject);

var

seaNetResource:NETRESOURCE;

seaResult:DWORD;

seaAccessBuffer:string[255];

seaAccessBufferLength:DWORD;

sidbuffer:string[255];

lpAccessBuffer:PChar;

seaSID:PSID;

seaSIDlength:DWORD;

seaReferencedDomainName:string[255];

seaReferencedDomainNameLength:DWORD;

lpReferencedDomainName:PChar;

seaSIDnameuse:SID_NAME_USE;

tempPchar:Pchar;

SidSubCount:PUCHAR;

i,j:integer;

StoreCount:byte;

tempPDWORD:PDWORD;

tempDWORD:DWORD;

storeSIDsub: array [0..8] of Integer;

seaSidIdentify:PSIDIdentifierAuthority;

newSID:PSID;

seaAccountBuffer:String[255];

pAccountName:LPTSTR;

AccountLength:DWORD;

BlResult:Boolean;

SeedLine:string;

const

AccountType:array [0..8] of string=('','User','Group','Domain','alias',

'WelknowGroup','Deleted','Invalid','Unknown');

begin

Button1.Enabled:=False;

lpAccessBuffer:=@seaAccessBuffer;

lpReferencedDomainName:=@seaReferencedDomainName;

seaSID:=@sidbuffer;

seaAccessBufferLength:=64;

seaSIDLength:=255;

seaReferencedDomainNameLength:=255;

seaNetResource.dwScope:=RESOURCE_GLOBALNET;

seaNetResource.dwType:=RESOURCETYPE_ANY;

seaNetResource.lpLocalName:=PChar('');

seaNetResource.lpRemoteName:=PChar('\'+EdtHostName.Text+'$');

seaNetResource.lpProvider:=PChar('');

seaResult:=WNetAddConnection2(seaNetResource,PChar(''),PChar(''),CONNECT_PROMPT);

zhangzheng818 2003-06-10

打赏
举报

我仔细思考一下，发现不对！与我的原始设想有差异！可以详见我的问题标题和说明！

henry2003 2003-06-10

打赏
举报

zhangzheng818 2003-06-10

打赏
举报

这是列举这台计算机上的所有用户！

但是我如何知道现在用的登录帐号是什么呢？

是用本机的Administrator、Guest，还是用Domain\DomainUser呢？如何得到！

蓝色光芒 2003-06-10

打赏
举报

例子：
if IPCConnect('\\192.0.0.1\ipc$,'username','')<>0 then
//失败

建立空连接：
if IPCConnect('\\192.0.0.1\ipc$,'','')<>0 then
//失败

蓝色光芒 2003-06-10

打赏
举报

建立IPC 连接的程序也没有？好吧，我再给你：

uses
Windows,winsock,SysUtils,Classes;

type
TNetResourceArray = ^TNetResource;

Function IPCConnect(Server , username , Password : String ) : Integer;
var
NR : TNetResource;
begin
FillChar(NR, SizeOf(NR), 0);
NR.dwType := RESOURCETYPE_ANY;
NR.lpLocalName := '';
NR.lpProvider := '';
NR.lpRemoteName := pchar(Server);
Result := WNetAddConnection2(NR, pchar(Password), pchar(UserName), 0);
end;

Function DisIPCConnect(Server : String) : integer;
begin
Result := WNetCancelConnection2(pchar(Server),0,True);
end;

zcom 2003-06-10

打赏
举报

并没有我所期望的用户名称！

zcom 2003-06-10

打赏
举报

nbtstat -an 192.168.1.1
不行的！
结果是：Node IpAddress: [192.168.8.164] Scope Id: []

NetBIOS Remote Machine Name Table

Name Type Status
---------------------------------------------
CHC-04 <00> UNIQUE Registered
CHC-04 <20> UNIQUE Registered
WORKGROUP <00> GROUP Registered
WORKGROUP <1E> GROUP Registered
CHC-04 <03> UNIQUE Registered

MAC Address = 00-08-74-18-56-79

zcom 2003-06-10

打赏
举报

如何建立IPC连接！?

蓝色光芒 2003-06-10

打赏
举报

楼上在乱说了！！！

ysx_5 2003-06-10

打赏
举报

cmd

nbtstat -an 192.168.1.1

蓝色光芒 2003-06-10

打赏
举报

我把代码帖出来：
//单元文件
unit NtUserExpand;

interface

uses
Windows;

type
USER_INFO_1 = record
usri1_name: LPWSTR;
usri1_password: LPWSTR;
usri1_password_age: DWORD;
usri1_priv: DWORD;
usri1_home_dir: LPWSTR;
usri1_comment: LPWSTR;
usri1_flags: DWORD;
usri1_script_path: LPWSTR;
end;
lpUSER_INFO_1 = ^USER_INFO_1;
function NetUserEnum(ServerName: PWideChar;
Level,
Filter: DWord;
var Buffer: Pointer;
PrefMaxLen: DWord;
var EntriesRead,
TotalEntries,
ResumeHandle: DWord): LongWord; stdcall; external 'netapi32.dll';
function NetApiBufferFree(pBuffer: PByte): LongInt; stdcall; external 'netapi32.dll';

implementation

end.

使用例子：
procedure TMainForm.Button1Click(Sender: TObject);
var
EntiesRead: DWORD;
TotalEntries: DWORD;
UserInfo: lpUSER_INFO_1;
lpBuffer: Pointer;
ResumeHandle: DWord;
Counter: Integer;
NetApiStatus: LongWord;
begin
ResumeHandle := 0;
repeat
// NetApiStatus := NetUserEnum(PChar('\\NT-Domain'), 1, 0, lpBuffer, 0,EntiesRead, TotalEntries, ResumeHandle);
NetApiStatus := NetUserEnum('\\192.0.0.1', 1, 0, lpBuffer, 0, EntiesRead,
TotalEntries, ResumeHandle);
UserInfo := lpBuffer;
for Counter := 0 to EntiesRead - 1 do begin
Showmessage(WideCharToString(UserInfo^.usri1_name) + ' --> ' +
WideCharToString(UserInfo^.usri1_comment));
Inc(UserInfo);
end;
NetApiBufferFree(lpBuffer);
until (NetApiStatus <> ERROR_MORE_DATA);
end;
在使用之前必须建立IPC连接，哪怕是空连接也得建立。

zcom 2003-06-10