【文章內(nèi)容簡介】 ress()函數(shù)，在 text 文本框中分別顯示出當前主機名和 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 long End type 進行任何 NetBIOS 調(diào)用之前，必須先將這個結(jié)構(gòu)清零。 第 9 頁 共 26 頁 NetBIOS 提供了幾個專門負責收集網(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 integer End 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)卡的物理地址。 第 10 頁 共 26 頁 界面實現(xiàn) 添加一個窗體，并按照下表設(shè)置窗體的屬性 表 獲取物理地址窗體設(shè)置表 窗體屬性 取值 Name MACaddress Caption 獲取物理地址 該窗體上添加 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)返回當前服務(wù)器上指定用戶的信息，包括用戶名、用戶全名、描述和用戶描述信息，顯示在對應(yīng)的文本框里。其主要的函數(shù)和結(jié)構(gòu)如下： （ 1） NetUserEnum 函數(shù) NET_API_STATUS NetUserEnum( LPWSTR servername, DWORD level, ?? LPDWORD entriesread, 第 11 頁 共 26 頁 LPDWORD totalentries, LPDWORD resume_handle )； servername：一個指向 Unicode 字符串的指針，該字符串給出了執(zhí)行該函數(shù)的遠程服務(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ù)的遠程服務(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 第 12 頁 共 26 頁 窗體中使用定義了 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ù)器名和當前選中用戶名為參數(shù)，調(diào)用函數(shù)，返回 USER_INFO_10 結(jié)構(gòu)中的用戶信息。 GetPointerToByteStringW()函數(shù)獲取指針所指的字符串信息。 窗體使用自定義函數(shù) GetUserNetworkInfo()實現(xiàn)獲取各個用戶詳細信息： 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 userinformation Caption 用戶信息 第 13 頁 共 26 頁 該窗體首先添加一個 ListBox 控件，然后再添加 5 個 label 控件， Caption分別設(shè)置屬性為服務(wù)器名、用戶名、用戶全名、描述、用戶描述，添加 5個 text控件分別對應(yīng) 5 個 Label 控件， text 屬性均設(shè)為空，添加完畢后的窗體如圖所示： 圖 顯示用戶信息 當用 戶單擊工程主窗體上的‘用戶信息’按鈕，調(diào)用 GetUserEnumInfo()和rgbGetCompterName()函數(shù)，獲取本機用戶名和服務(wù)器名分別顯示在 ListBox 和text1 控件中，用戶單擊列表框中的任一用戶，調(diào)用 GetUserNetworkInfo()函數(shù)，獲取 USER_INFO_10 結(jié)構(gòu)中的用戶信息，顯示在下面對應(yīng)的四個 text 文本框中。 顯示工作站信息 功能設(shè)計 這個窗體主要用來顯示工作站的配置信息和當前登陸的用戶。程序主要用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)僅有一個成員，帶回當前登陸到工作站的用戶名。主要函數(shù)及結(jié)構(gòu)定義如下： （ 1） NetWkstaGetInfo 函數(shù) 函數(shù)返回工作站的配置信息。 NET_API_STATUS NetWkstaGetInfo( LPWSTR servername, DWORD level, LPBYTE * bufptr 第 14 頁 共 26 頁 )； servername：遠程服務(wù)器名字的 Unicode 字符串地址。 level：指定返回的信息的級別。本程序使用 WKSTA_INFO_102 結(jié)構(gòu)。 bufptr：一個緩存的指針，存放由參數(shù) level 指定的數(shù)據(jù)。 函數(shù)調(diào)用成功，則返回 NERR_SUCCESS，否則，返回錯誤信息。 （ 2） WKSTA_INFO_102 結(jié)構(gòu) 該結(jié)構(gòu)包含了工作站環(huán)境信息，包括工作平臺、域名、本機名稱以及與操作系統(tǒng)有關(guān)的信息。結(jié)構(gòu)定義如下： Typedef struct_WKSTA_INFO_102( DWORD wki102_platform_id； ‘信息級別，用于返回平臺信息 LPWSTR wki102_putername； ‘一個 Unicode 字符串指針，是本地計算機名 LPWSTR wki102_langroup； ‘一個 Unicode 字符串指針，包含了計算機所屬域名稱 DWORD wki102_ver_major； ‘操作系統(tǒng)的主版本號 DWORD wki102_ver_minor； ‘操作系統(tǒng)的次版本號 LPWSTR wki102_lanroot； DWORD wki102_logged_on_users；‘登陸到本地計算機上的用戶數(shù) )WKSTA_INFO_102， *PWKSTA_INFO_102， *LPWKSTA_INFO_102； （ 3） NetWkstaUserEnum 函數(shù) 該函數(shù)枚舉當前登陸到工作站的所有用戶信息，只有本地組的管理員可以在本機或遠程機上成功執(zhí)行該函數(shù)。函數(shù)原型： NET_API_STATUS NetWkstaUserEnum( LPW