【文章內(nèi)容簡介】 ame)……‘為展開返回的 IP 地址，將 HOST 結(jié)構(gòu)及其數(shù)據(jù)復(fù)制到變量中……CopyMemory tmpIPAddr(1), dwIPAddr, For i = 1 To ‘由結(jié)果數(shù)組建立實際的 IP 地址 sIPAddr = sIPAddr amp。 tmpIPAddr(i) amp。 . Next ……End Function窗體使用函數(shù) GetIPHostName()實現(xiàn)主機名的獲?。篜rivate Function GetIPHostName() As String …… GetIPHostName = Left$(sHostName, InStr(sHostName, Chr(0)) 1) socketscleanupEnd Function 界面實現(xiàn)添加一個窗體，并按照下表設(shè)置窗體的屬性表 獲取主機名和 IP 地址窗體設(shè)置表窗體屬性 取值Name nameandipCaption 獲取主機名及 IP 地址該窗體添加 2 個 label 控件，Caption 屬性分別設(shè)置為‘主機名’ ， ‘IP 地址’ ，2 個 text 控件，text 屬性均設(shè)為空，１個 mandbotton 控件，Caption屬性設(shè)置為‘運行’ 。添加完畢后的窗體如圖所示：圖 顯示主機名和 IP 地址界面單擊按鈕，調(diào)用 GetIPHostName()和 GetIPAddress()函數(shù)，在 text 文本框中分別顯示出當(dāng)前主機名和 IP 地址。 獲取物理地址 功能設(shè)計這個窗體主要用來獲取 MAC 地址，本模塊使用 NetBIOS 網(wǎng)絡(luò)編程接口來獲取網(wǎng)卡的物理地址。NetBIOS API 只有一個函數(shù) NetBIOS, 該函數(shù)解釋和執(zhí)行指定的網(wǎng)絡(luò)控制塊（NCB） ，函數(shù)的原型如下：UCHAR NetBIOS (PNCB pncb)；pncb：指向 NCB 結(jié)構(gòu)的指針，該結(jié)構(gòu)描述了網(wǎng)絡(luò)控制塊。在網(wǎng)絡(luò)控制塊結(jié)構(gòu)中，包含了一個執(zhí)行 NetBIOS 命令、相應(yīng)的 NetBIOS 函數(shù)需要用到的全部信息。NCB 結(jié)構(gòu)的定義如下：private type NET_CONTROL_BLOCK ncb_mand as byte ncb_retcode as byte …… ncb_event as longEnd type進行任何 NetBIOS 調(diào)用之前，必須先將這個結(jié)構(gòu)清零。 NetBIOS 提供了幾個專門負(fù)責(zé)收集網(wǎng)絡(luò)參數(shù)的命令，其中包括名字查找命令（NCBFINDNAME）和適配器狀態(tài)命令(NCBASTAT)。這里主要講述適配器狀態(tài)命令，利用適配器狀態(tài)命令，可取得與本地計算機及其 LANA 編號的有關(guān)信息。適配器狀態(tài)命令返回一個 ADAPTER_STATUS 結(jié)構(gòu)和緊接其后的大量 NAME_BUFFER 結(jié)構(gòu)。ADAPTER_STATUS 結(jié)構(gòu)定義如下：Private type ADAPTER_STATUS adapter_address(5) as byte rev_major as byte …… Name_count as integerEnd type在 ADAPTER_STATUS 結(jié)構(gòu)中，最重要的成員是 adapter_address 成員，它表示的是網(wǎng)卡的 MAC 地址。使用函數(shù) GetMACAddress()實現(xiàn)物理地址的獲取：Private Function GetMACAddress() As String……pASTAT = HeapAlloc(GetProcessHeap(), HEAP_GENERATE_EXCEPTIONS Or HEAP_ZERO_MEMORY, ) …… = pASTAT Call Netbios(NCB) CopyMemory AST, , Len(AST) tmp = Format$(Hex((0)), 00) amp。 amp。 Format$(Hex((1)), 00) amp。 amp。 ……Format$(Hex((5)), 00)……End Function函數(shù) GetMACAddress()為自定義函數(shù)，它通過調(diào)用 NetBIOS 函數(shù)來獲取網(wǎng)卡的 MAC 地址。GetMACAddress()函數(shù)兩次調(diào)用了 NetBIOS 函數(shù)：第一次調(diào)用NetBIOS 函數(shù)采用的是 NCBRESET 命令，目的是重置所有的 LANA 編號；第二次調(diào)用采用的是適配器狀態(tài)命令 NCBASTAT，通過它可以取得與本地計算機指定LANA 編號有關(guān)的結(jié)構(gòu)信息，從這個結(jié)構(gòu)信息中，可以解析出網(wǎng)卡的物理地址。 界面實現(xiàn)添加一個窗體，并按照下表設(shè)置窗體的屬性表 獲取物理地址窗體設(shè)置表窗體屬性 取值Name MACaddressCaption 獲取物理地址該窗體上添加 1 個 label 控件，Caption 屬性設(shè)置為‘MAC 地址’ ，1 個text 控件，text 屬性設(shè)置為空，1 個 mandbotton 控件，Caption 屬性設(shè)置為‘運行’ 。添加完畢后的窗體如圖所示：圖 獲取物理地址界面點擊按鈕，程序調(diào)用 GetMACAddress()函數(shù)，在 text 控件中顯示主機物理地址。 顯示本機用戶信息 功能設(shè)計這個窗體主要用來顯示系統(tǒng)中所有用戶及其相關(guān)信息。使用 API 函數(shù)GetComputerName 獲取服務(wù)器名，使用 API 函數(shù) NetUserEnum 返回 PDC/BDC 用戶管理器（User Manager）中定義的所有用戶，顯示在 ListBox 控件中，調(diào)用API 函數(shù) NetUserGetInfo 函數(shù)，并使用其中的 USER_INFO_10 結(jié)構(gòu)返回當(dāng)前服務(wù)器上指定用戶的信息，包括用戶名、用戶全名、描述和用戶描述信息，顯示在對應(yīng)的文本框里。其主要的函數(shù)和結(jié)構(gòu)如下：（1）NetUserEnum 函數(shù)NET_API_STATUS NetUserEnum( LPWSTR servername, DWORD level, …… LPDWORD entriesread, LPDWORD totalentries, LPDWORD resume_handle)；servername：一個指向 Unicode 字符串的指針，該字符串給出了執(zhí)行該函數(shù)的遠(yuǎn)程服務(wù)器名，空指針或空字符串指明以本地機作為服務(wù)器。level：定義返回信息的級別，本設(shè)計只返回枚舉的用戶名，使用 0 值，即返回 USER_INFO_0 的信息。Entriesread：指向一個 DWORD 變量的指針。該變量中包含了實際枚舉的元素的數(shù)量。resume_handle:指向一個 DWORD 變量的指針。給出了重用句柄（resume_handle）,它用于繼續(xù)查找存在的用戶。如果函數(shù)調(diào)用成功，則返回 NERR_SUCCESS；否則，返回錯誤代碼。該函數(shù)不會返回 windows 所有的系統(tǒng)用戶，它只能返回由函數(shù) NetUserAdd 添加的用戶。（2）NetUserGetInfo 函數(shù)NET_API_STATUS NetUserGetInfo( LPWSTR servername, LPWSTR username, DWORD level, LPBYTE * bufptr)；servername：一個指向 Unicode 字符串的指針，該字符串給出了執(zhí)行該函數(shù)的遠(yuǎn)程服務(wù)器名，空指針或空字符串指明以本地機作為服務(wù)器。username: 一個指向 Unicode 字符串的指針，該字符串給出了將返回信息的用戶名稱。level：定義返回信息的級別，本設(shè)計只返回枚舉的用戶名，使用 10 值，即返回 USER_INFO_10 結(jié)構(gòu)的信息。如果函數(shù)調(diào)用成功，則返回 NERR_SUCCESS；否則，返回錯誤代碼。（3）USER_INFO_10 結(jié)構(gòu)Private type USER_INFO_10 Usr10_name as long Usr10_ment as long Usr10_usr_ment as long Usr10_full_name as long End type窗體中使用定義了 USER_INFO 結(jié)構(gòu)存放實際顯示的字符串。窗體中使用自定義函數(shù) GetUserEnumInfo（）枚舉本機用戶：Private Function GetUserEnumInfo(bServername() As Byte) …… CopyMemory users(0), ByVal buff, entriesread * 4 For t = 0 To entriesread 1 GetPointerToByteStringW(users(t)) Next t ……End Function以服務(wù)器名和當(dāng)前選中用戶名為參數(shù)，調(diào)用函數(shù)，返回 USER_INFO_10 結(jié)構(gòu)中的用戶信息。GetPointerToByteStringW()函數(shù)獲取指針?biāo)傅淖址畔ⅰ４绑w使用自定義函數(shù) GetUserNetworkInfo()實現(xiàn)獲取各個用戶詳細(xì)信息：Private Function GetUserNetworkInfo(bServername() As Byte, bUsername() As Byte) As USER_INFO…… CopyMemory usrapi, ByVal buff, Len(usrapi) = GetPointerToByteStringW() = GetPointerToByteStringW() = GetPointerToByteStringW() = GetPointerToByteStringW()‘GetPointerToByteStringW()為自定義函數(shù)，用于獲取指針中的字符串……End Function 界面實現(xiàn)添加一個窗體，并按照下表設(shè)置窗體的屬性表 顯示用戶窗體設(shè)置表窗體屬性 取值Name userinformationCaption 用戶信息該窗體首先添加一個 ListBox 控件，然后再添加 5 個 label 控件，Caption分別設(shè)置屬性為服務(wù)器名、用戶名、用戶全名、描述、用戶描述，添加 5 個text 控件分別對應(yīng) 5 個 Label 控件，text 屬性均設(shè)為空，添加完畢后的窗體如圖所示：圖 顯示用戶信息當(dāng)用戶單擊工程主窗體上的‘用戶信息’按鈕，調(diào)用 GetUserEnumInfo()和 rgbGetCompterName()函數(shù)，獲取本機用戶名和服務(wù)器名分別顯示在 ListBox和 text1 控件中，用戶單擊列表框中的任一用戶，調(diào)用 GetUserNetworkInfo()函數(shù)，獲取 USER_INFO_10 結(jié)構(gòu)中的用戶信息，顯示在下面對應(yīng)的四個 text 文本框中。 顯示工作站信息 功能設(shè)計這個窗體主要用來顯示工作站的配置信息和當(dāng)前登陸的用戶。程序主要用NetWkstaGetInfo 函數(shù)使用的結(jié)構(gòu) WKSTA_INFO_102 帶回工作站的環(huán)境信息，包括平臺信息、域名（或工作組） 、計算機名、登陸到計算機的用戶數(shù)目以及操作系統(tǒng)的信息。使用 NetWkstaUserEnum 函數(shù)使用的結(jié)構(gòu) WKSTA_USER_INFO_0，該結(jié)構(gòu)僅有一個成員，帶回當(dāng)前登陸到工作站的用戶名。主要函數(shù)及結(jié)構(gòu)定義如下：（1）NetWkstaGetInfo 函數(shù)函數(shù)返回工作站的配置信息。N