在 VBScript 中获取网络共享账号279

在 VBScript 中，您可以使用各种方法来获取网络共享的账号信息。这些方法包括使用 WMI、Net API 和 ADSI（Active Directory 服务接口）。在本文中，我们将讨论使用 WMI 和 Net API 来获取网络共享账号信息。

使用 WMI 获取网络共享账号

要使用 WMI 获取网络共享账号信息，您可以使用 Win32_Share 类。该类提供有关计算机上共享的各种信息，包括共享的账号。要使用 Win32_Share 类，请执行以下步骤：
创建 WMI 对象：

Set objWMIService = GetObject("winmgmts:")

获取网络共享信息：

Set colShares = ("Select * from Win32_Share Where Name='\\\\server\\share'")

枚举共享账号：

For Each objShare in colShares
For Each objUser in
objUser
Next
Next

使用 Net API 获取网络共享账号

要使用 Net API 获取网络共享账号信息，您可以使用 NetShareGetInfo 函数。该函数获取有关指定网络共享的信息，包括共享的账号。要使用 NetShareGetInfo 函数，请执行以下步骤：
声明变量：

Dim strServer, strShare, strDomain, strUsername

设置变量：

strServer = "\\\\server"
strShare = "share"
strDomain = ""
strUsername = ""

调用 NetShareGetInfo 函数：

Call NetShareGetInfo(strServer, strShare, 1, strDomain, strUsername)

显示账号信息：

"Domain: " & strDomain
"Username: " & strUsername