获取网络信息单元
unit NetFunc;?
interface?
uses?
SysUtils, Windows, dialogs, winsock, Classes, ComObj, WinInet, Variants;?
//錯誤信息常量?
const?
C_Err_GetLocalIp = '獲取本地ip失敗';?
C_Err_GetNameByIpAddr = '獲取主機名失敗';?
C_Err_GetSQLServerList = '獲取SQLServer服務器失敗';?
C_Err_GetUserResource = '獲取共享資失敗';?
C_Err_GetGroupList = '獲取所有工作組失敗';?
C_Err_GetGroupUsers = '獲取工作組中所有計算機失敗';?
C_Err_GetNetList = '獲取所有網(wǎng)絡類型失敗';?
C_Err_CheckNet = '網(wǎng)絡不通';?
C_Err_CheckAttachNet = '未登入網(wǎng)絡';?
C_Err_InternetConnected ='沒有上網(wǎng)';?
C_Txt_CheckNetSuccess = '網(wǎng)絡暢通';?
C_Txt_CheckAttachNetSuccess = '已登入網(wǎng)絡';?
C_Txt_InternetConnected ='上網(wǎng)了';?
//檢測機器是否登入網(wǎng)絡?
function IsLogonNet: Boolean;?
//得到本機的局域網(wǎng)Ip地址?
function GetLocalIP(var LocalIp:string): Boolean;?
//通過Ip返回機器名?
function GetNameByIPAddr(IPAddr: string; var MacName: string): Boolean ;?
//獲取網(wǎng)絡中SQLServer列表?
function GetSQLServerList(var List: Tstringlist): Boolean;?
//獲取網(wǎng)絡中的所有網(wǎng)絡類型?
function GetNetList(var List: Tstringlist): Boolean;?
//獲取網(wǎng)絡中的工作組?
function GetGroupList(var List: TStringList): Boolean;?
//獲取工作組中所有計算機?
function GetUsers(GroupName: string; var List: TStringList): Boolean;?
//獲取網(wǎng)絡中的資源?
function GetUserResource(IpAddr: string; var List: TStringList): Boolean;?
//映射網(wǎng)絡驅動器?
function NetAddConnection(NetPath: Pchar; PassWord: Pchar;LocalPath: Pchar): Boolean;?
//檢測網(wǎng)絡狀態(tài)?
function CheckNet(IpAddr:string): Boolean;?
//判斷Ip協(xié)議有沒有安裝 這個函數(shù)有問題?
function IsIPInstalled : boolean;?
//檢測機器是否上網(wǎng)?
function InternetConnected: Boolean;?
//關閉網(wǎng)絡連接?
function NetCloseAll:boolean;?
/?
///?
/?
// 代碼實現(xiàn)部門?
{=================================================================?
功 能: 檢測機器是否登入網(wǎng)絡?
參 數(shù): 無?
返回值: 成功: True 失敗: False?
備 注:?
版 本:?
1.0 2002/10/03 09:55:00?
=================================================================}?
function IsLogonNet: Boolean;?
begin?
Result := False;?
if GetSystemMetrics(SM_NETWORK) <> 0 then?
Result := True;?
end;?
{=================================================================?
功 能: 返回本機的局域網(wǎng)Ip地址?
參 數(shù): 無?
返回值: 成功: True, 并填充LocalIp 失敗: False?
備 注:?
版 本:?
1.0 2002/10/02 21:05:00?
=================================================================}?
function GetLocalIP(var LocalIp: string): Boolean;?
var?
HostEnt: PHostEnt;?
IP: String;?
Addr: PChar;?
Buffer: array [0..63] of Char;?
WSData: TWSADATA;?
begin?
Result := False;?
try?
WSAStartUp(2, WSData);?
GetHostName(Buffer, SizeOf(Buffer));?
//Buffer:='ZhiDa16';?
HostEnt := GetHostByName(Buffer);?
if HostEnt = nil then exit;?
Addr := HostEnt^.h_addr_list^;?
IP := Format( '%d.%d.%d.%d', [ Byte(Addr[0]), Byte(Addr[1]),?
Byte(Addr[2]), Byte(addr[3]) ]?
);?
LocalIp := Ip;?
Result := True;?
finally?
WSACleanup;?
end;?
end;?
{=================================================================?
功 能: 通過Ip返回機器名?
參 數(shù):?
IpAddr: 想要得到名字的Ip?
返回值: 成功: 機器名 失敗: ''?
備 注:?
inet_addr function converts a string containing an Internet?
Protocol dotted address into an in_addr.?
版 本:?
1.0 2002/10/02 22:09:00?
=================================================================}?
function GetNameByIPAddr(IPAddr : String;var MacName:String): Boolean;?
var?
SockAddrIn: TSockAddrIn;?
HostEnt: PHostEnt;?
WSAData: TWSAData;?
begin?
Result := False;?
if IpAddr = '' then exit;?
try?
WSAStartup(2, WSAData);?
SockAddrIn.sin_addr.s_addr := inet_addr(PChar(IPAddr));?
HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);?
if HostEnt <> nil then?
MacName := StrPas(Hostent^.h_name);?
Result := True;?
finally?
WSACleanup;?
end;?
end;
{=================================================================?
功 能: 返回網(wǎng)絡中SQLServer列表?
參 數(shù):?
List: 需要填充的List?
返回值: 成功: True,并填充List 失敗 False?
備 注:?
版 本:?
1.0 2002/10/02 22:44:00?
=================================================================}?
function GetSQLServerList(var List: Tstringlist): boolean;?
var?
i: integer;?
//sRetValue: String;?
SQLServer: Variant;?
ServerList: Variant;?
begin?
//Result := False;?
List.Clear;?
try?
SQLServer := CreateOleObject('SQLDMO.Application');?
ServerList := SQLServer.ListAvailableSQLServers;?
for i := 1 to Serverlist.Count do?
list.Add (Serverlist.item(i));?
Result := True;?
Finally?
SQLServer := NULL;?
ServerList := NULL;?
end;?
end;?
{=================================================================?
功 能: 判斷IP協(xié)議有沒有安裝?
參 數(shù): 無?
返回值: 成功: True 失敗: False;?
備 注: 該函數(shù)還有問題?
版 本:?
1.0 2002/10/02 21:05:00?
=================================================================}?
function IsIPInstalled : boolean;?
var?
WSData: TWSAData;?
ProtoEnt: PProtoEnt;?
begin?
Result := True;?
try?
if WSAStartup(2,WSData) = 0 then?
begin?
ProtoEnt := GetProtoByName('IP');?
if ProtoEnt = nil then?
Result := False?
end;?
finally?
WSACleanup;?
end;?
end;?
{=================================================================?
功 能: 返回網(wǎng)絡中的共享資源?
參 數(shù):?
IpAddr: 機器Ip?
List: 需要填充的List?
返回值: 成功: True,并填充List 失敗: False;?
備 注:?
WNetOpenEnum function starts an enumeration of network?
resources or existing connections.?
WNetEnumResource function continues a network-resource?
enumeration started by the WNetOpenEnum function.?
版 本:?
1.0 2002/10/03 07:30:00?
=================================================================}?
function GetUserResource(IpAddr: string; var List: TStringList): Boolean;?
type?
TNetResourceArray = ^TNetResource;//網(wǎng)絡類型的數(shù)組?
Var?
i: Integer;?
Buf: Pointer;?
Temp: TNetResourceArray;?
lphEnum: THandle;?
NetResource: TNetResource;?
Count,BufSize,Res: DWord;?
Begin?
Result := False;?
List.Clear;?
if copy(Ipaddr,0,2) <> '\\' then?
IpAddr := '\\'+IpAddr; //填充Ip地址信息?
FillChar(NetResource, SizeOf(NetResource), 0);//初始化網(wǎng)絡層次信息?
NetResource.lpRemoteName := @IpAddr[1];//指定計算機名稱?
//獲取指定計算機的網(wǎng)絡資源句柄?
Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_ANY,?
RESOURCEUSAGE_CONNECTABLE, @NetResource,lphEnum);?
Buf:=nil;?
if Res <> NO_ERROR then exit;//執(zhí)行失敗?
while True do//列舉指定工作組的網(wǎng)絡資源?
begin?
Count := $FFFFFFFF;//不限資源數(shù)目?
BufSize := 8192;//緩沖區(qū)大小設置為8K?
GetMem(Buf, BufSize);//申請內存，用于獲取工作組信息?
//獲取指定計算機的網(wǎng)絡資源名稱?
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);?
if Res = ERROR_NO_MORE_ITEMS then break;//資源列舉完畢?
if (Res <> NO_ERROR) then Exit;//執(zhí)行失敗?
Temp := TNetResourceArray(Buf);?
for i := 0 to Count - 1 do?
begin?
//獲取指定計算機中的共享資源名稱，+2表示刪除"\\"，?
//如\\192.168.0.1 => 192.168.0.1?
List.Add(Temp^.lpRemoteName + 2);?
Inc(Temp);?
end;?
end;?
Res := WNetCloseEnum(lphEnum);//關閉一次列舉?
if Res <> NO_ERROR then exit;//執(zhí)行失敗?
Result := True;?
FreeMem(Buf);?
End;?
{=================================================================?
功 能: 返回網(wǎng)絡中的工作組?
參 數(shù):?
List: 需要填充的List?
返回值: 成功: True,并填充List 失敗: False;?
備 注:?
版 本:?
1.0 2002/10/03 08:00:00?
=================================================================}?
function GetGroupList( var List : TStringList ) : Boolean;?
type?
TNetResourceArray = ^TNetResource;//網(wǎng)絡類型的數(shù)組?
Var?
NetResource: TNetResource;?
Buf: Pointer;?
Count,BufSize,Res: DWORD;?
lphEnum: THandle;?
p: TNetResourceArray;?
i,j: SmallInt;?
NetworkTypeList: TList;?
Begin?
Result := False;?
NetworkTypeList := TList.Create;?
List.Clear;?
//獲取整個網(wǎng)絡中的文件資源的句柄，lphEnum為返回名柄?
Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK,?
RESOURCEUSAGE_CONTAINER, Nil,lphEnum);?
if Res <> NO_ERROR then exit;//Raise Exception(Res);//執(zhí)行失敗?
//獲取整個網(wǎng)絡中的網(wǎng)絡類型信息?
Count := $FFFFFFFF;//不限資源數(shù)目?
BufSize := 8192;//緩沖區(qū)大小設置為8K?
GetMem(Buf, BufSize);//申請內存，用于獲取工作組信息?
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);?
//資源列舉完畢 //執(zhí)行失敗?
if ( Res = ERROR_NO_MORE_ITEMS ) or (Res <> NO_ERROR ) then Exit;?
P := TNetResourceArray(Buf);?
for i := 0 to Count - 1 do//記錄各個網(wǎng)絡類型的信息?
begin?
NetworkTypeList.Add(p);?
Inc(P);?
end;?
Res := WNetCloseEnum(lphEnum);//關閉一次列舉?
if Res <> NO_ERROR then exit;?
for j := 0 to NetworkTypeList.Count-1 do //列出各個網(wǎng)絡類型中的所有工作組名稱?
begin//列出一個網(wǎng)絡類型中的所有工作組名稱?
NetResource := TNetResource(NetworkTypeList.Items[J]^);//網(wǎng)絡類型信息?
//獲取某個網(wǎng)絡類型的文件資源的句柄，NetResource為網(wǎng)絡類型信息，lphEnum為返回名柄?
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,?
RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum);?
if Res <> NO_ERROR then break;//執(zhí)行失敗?
while true do//列舉一個網(wǎng)絡類型的所有工作組的信息?
begin?
Count := $FFFFFFFF;//不限資源數(shù)目?
BufSize := 8192;//緩沖區(qū)大小設置為8K?
GetMem(Buf, BufSize);//申請內存，用于獲取工作組信息?
//獲取一個網(wǎng)絡類型的文件資源信息，?
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);?
//資源列舉完畢 //執(zhí)行失敗?
if ( Res = ERROR_NO_MORE_ITEMS ) or (Res <> NO_ERROR) then break;?
P := TNetResourceArray(Buf);?
for i := 0 to Count - 1 do//列舉各個工作組的信息?
begin?
List.Add( StrPAS( P^.lpRemoteName ));//取得一個工作組的名稱?
Inc(P);?
end;?
end;?
Res := WNetCloseEnum(lphEnum);//關閉一次列舉?
if Res <> NO_ERROR then break;//執(zhí)行失敗?
end;?
Result := True;?
FreeMem(Buf);?
NetworkTypeList.Destroy;?
End;
轉載于:https://www.cnblogs.com/lzj1981/archive/2013/04/28/3049301.html
總結
- 上一篇： 应用程序文件Android安全分析挑战：
- 下一篇： 将Sublime Text 2搭建成一个