JustinShen
中階會員
發表：22
回覆：104
積分：80
註冊：2003-09-20
發送簡訊給我
|
引言:
在命令列模式下可下net view取得現在網路上的主機
除了用winexec直接去呼叫net view之外
用delphi怎麼取得這些主機的名稱?
使用NetQueryDisplayInformation函数，vc 程式如下：
#define UNICODE
#include
#include
#include void main( int argc, char *argv[ ] )
{
PNET_DISPLAY_GROUP pBuff, p;
DWORD res, dwRec, i = 0;
//
// You can pass a NULL or empty string
// to retrieve the local information.
//
TCHAR szServer[255]=TEXT(""); if(argc > 1)
//
// Check to see if a server name was passed;
// if so, convert it to Unicode.
//
MultiByteToWideChar(CP_ACP, 0, argv[1], -1, szServer, 255); do // begin do
{
//
// Call the NetQueryDisplayInformation function;
// specify information level 3 (group account information).
//
res = NetQueryDisplayInformation(szServer, 3, i, 1000, MAX_PREFERRED_LENGTH, &dwRec, &pBuff);
//
// If the call succeeds,
//
if((res==ERROR_SUCCESS) || (res==ERROR_MORE_DATA))
{
p = pBuff;
for(;dwRec>0;dwRec--)
{
//
// Print the retrieved group information.
//
printf("Name: %S\n"
"Comment: %S\n"
"Group ID: %u\n"
"Attributs: %u\n"
"--------------------------------\n",
p->grpi3_name,
p->grpi3_comment,
p->grpi3_group_id,
p->grpi3_attributes);
//
// If there is more data, set the index.
//
i = p->grpi3_next_index;
p ;
}
//
// Free the allocated memory.
//
NetApiBufferFree(pBuff);
}
else
printf("Error: %u\n", res);
//
// Continue while there is more data.
//
} while (res==ERROR_MORE_DATA); // end do
return;
}
您转换一下吧 Justin Shen
=============================================
如果能帮到您,我会很开心;如果能得到您的帮助，是我的荣幸
=============================================
------
====================
我为一切作努力！
Justin Shen
|
發表時間：2005-07-22 15:56:10
IP:61.60.xxx.xxx 未訂閱
