怎样在win2000,winxp上得到系统的组及用户?

Question

各位大哥:怎样在win2000,winxp上得到系统的组及用户?
还有域或组名?

Answer 1

function GetCurrentUserName : string;  
const  
  cnMaxUserNameLen = 254;  
var  
  sUserName : string; dwUserNameLen : DWord;  
begin  
  dwUserNameLen := cnMaxUserNameLen-1;  
  SetLength( sUserName, cnMaxUserNameLen );  
  GetUserName( PChar( sUserName ), dwUserNameLen ); 
  SetLength( sUserName,   dwUserNameLen );  
  Result := sUserName;  
end;用户

Answer 2

看看
应该有你想要的http://expert.csdn.net/Expert/topic/2974/2974468.xml?temp=.5915033