我想结合主域服务器的组、用户等，一句话，就是能用API完成域用户管理器的工作，是不是很复杂呢？另外，我是针对NT4，并不是对于WIN2000（因为WIN2000可以用ADSI），怎么办呢？高手们可以写一段程序给我学习吗？

Question

hoho,看看MSDN，也许会有帮助。
我记得NT4里面没有封装好的这方面的组件，看来只能调用API，很麻烦，建议用VC开发。VB不适合做这方面的操作。

Answer 1

NT4也可以使用ADSI
http://www.csdn.net/develop/article/8/8422.shtm

Answer 2

English版本的ADSI可以安装在中文NT上吗？

Answer 3

我装的是ADSI2.5忘记是中文还是英文版了。

Answer 4

to boyboy(小男孩):
本人测试环境：NT4Server中文版+SP6中文版+Exchange5.5英文版+ADSI2.5英文版
   　

Answer 5

留下email地址，给你发一个http://www.csdn.net/develop/article/8/8422.shtm中的工程文件。

Answer 6

太感谢您了，我的Email是：[email protected]

Answer 7

to boyboy(小男孩):已发去,共有三个附件ads.exe,ads98.exe,ntusermanager.zip.
还有一个文件太大了ADSI SDK太大了没发,如果想要到这来留言

Answer 8

Rainbow，感激不尽，我已经收到了，我试一下吧，谢谢您。

Answer 9

Rainbow，以下我有不明白：
    Dim oNS As IADsOpenDSObject
    Dim domain As IADsDomain    Set oNS = GetObject("WinNT:")
    Set domain = oNS.OpenDSObject("WinNT://xssvr", "administrator", "ADMIN",0)
执行到这句出错：“类型匹配错误”，不知道为什么，您可以回答我吗？
(以上：xssvr是本服务器的主机名，“ADMIN”是“administrator”的登录密码）

Answer 10

Rainbow，以上这段程序到底出了什么问题？

Answer 11

我是在另外一台独立的NT服务器对本机操作，不是对主域服务器，OH，操作对象是不是必须是主域服务器的主机名呢？

Answer 12

原文:Set Domain = oNS.OpenDSObject("WinNT://" & strDomain, strDomain & "\" & strAdmin, strPassword, 0)你的:Set domain = oNS.OpenDSObject("WinNT://xssvr", "administrator", "ADMIN",0)
                                            ^^^^1     ^^^^21:"WinNT://" 应为NT域名,而不是NT主机名,主机名与域名相同除外
2.帐号前应加上域名,如:JH/administrator

Answer 13

如果不是在主域控制器上运行该组件,则登录(login)方法可能会失败.
要想在主语控制器之外的机器上完成该操作,可按下面的方法进行:
1.在主语控制器上的MTS中创建一个空包,如RBS
2.将改组件导入此包
3.导出此包,此操作回生成一个可执行文件RBS.exe
4.在客户机上安装DCOM98
5.在客户机上安装RBS.exe

Answer 14

错了:JH/administrator 应为JH\administrator 

Answer 15

当完成上面这段程序，domain的属性和方法就可以完成主域服务器的域用户管理器的工作，包括用户、组的建立和修改、删除，以及查找用户和权限验证等等呢？

Answer 16

当set完domain，并且成功后，domain的方法、属性在MSDN里面怎么才能找到呢？

Answer 17

---当完成上面这段程序，domain的属性和方法就可以完成主域服务器的域用户管理器的工作，包括用户、组的建立和修改、删除，以及查找用户和权限验证等等呢？
我不明白

Answer 18

---当完成上面这段程序，domain的属性和方法就可以完成主域服务器的域用户管理器的工作，包括用户、组的建立和修改、删除，以及查找用户和权限验证等等呢？
我不明白是什么意思

Answer 19

    因为我的原意就是用程序完成主域服务器的域用户管理器的工作，包括用户、组的建立和修改、删除，以及查找用户和权限验证等等。
    我现在的意思是在设置完domain后，是不是就可以通过domain的属性和方法完成以上的工作呢？例如，domain.create("User", strUserName)表示用户的增加。
    我这样解释，您明白吗？
    

Answer 20

domain的方法、属性:
1.在MSDN中使用"索引"选项卡,然后键入"ADSI"就可以找到相关内容了
2.下载ADSI SDK或ADSI25.chm,要的话给你发一份.
注:ADSISDK(4669KB),ADSI25.chm(1567KB)

Answer 21

  The ADSI WinNT provider allows you to communicate to a Windows NT® 4.0 directory. Since Windows 2000 maintains backward compatible, you can also communicate with Windows® 2000 machines using WinNT. However, we recommend that you use the LDAP provider to communicate with Windows 2000 domain controllers. For the Windows 2000 standalone server and Professional Edition, you must use the WinNT provider to access the directory.
WinNT supports local and remote accounts, services, computers, security management and other functionalities. With the ADSI 2.5 extension, you'll be able to extend the functionality. For more information on extension, click here.RequirementsInstall ADSI 2.5. To download the runtime, visit http://www.microsoft.com/adsi on Windows NT 4.0 or Windows 95. Note: If you have Windows 2000 machine, you don't need to install ADSI. ADSI is one of Windows 2000 built-in components.You must have a Windows NT 4.0 or Windows 2000 or higher to connect to. The client and server may be on the same machine. 
Set up your development environment. 
 How do I...
BindBinding to a Windows NT 4.0 domain directory
A Windows machine may participate in a domain. You must know the domain name to which you want to bind. 
Binding to a Windows NT 4.0 local directory of a machine 
Each Windows nt workstation and standalone server has its own directory. You use the Mini User Manager (or Windows 2000 Local User Manager) tool to manage it. You must know the machine name to which you want to bind.Manage Users
Creating a User 
Changing the User's Full Name and Description 
Changing the User's Password 
Setting the User's Password 
Setting the User's Password Expiration Date 
Making the User Change the Password at Next Logon 
Preventing the User from changing the Password 
Setting the User's Password so that it Never Expires 
Disabling the User's Account 
Setting the Expiration Date on the User's Account 
Unlocking the User's Account 
Setting the User's Home Directory and Home Drive Directory 
Setting the User's Login Script 
Getting the User's Primary Group 
Getting the User's SID (Security ID) 
Deleting a User 
Renaming a User 
Source code can be found in \samples\WinNT\User directory
Manage a GroupCreating a Group 
Adding a User to a Group 
Adding a Group to a Group 
Enumerating Group in a Domain or Computer 
Enumerating Group Membership 
Removing a Member from the Group 
Finding Out if a User or Group is a Member of a Group 
Source code can be found in \samples\WinNT\Group directory. Manage a ComputerConnecting to a Computer 
Enumerating Services in a Computer 
Displaying a Service's Properties 
Stopping and Starting a Service 
Enumerating File Shares in a Computer 
Creating a File Share in a Computer 
Deleting a File Share 
Setting File Share Security 
Enumerating Sessions in a Computer 
Enumerating Resources in a Computer 
Source code can be found in the \samples\WinNT\Computer directory. Manage PrintersEnumerating Print Queues in a Computer 
Listing Print Jobs in a Queue 
Source code samples\WinNT\PrintQueue Manage FilesSetting and Getting File Security 
 Bind to a Windows NT 4.0 Domain DirectoryYou must supply the Windows NT 4.0 domain name. ADSI will transparently connect to one of the domain controllers.'-----------------------------------------------------
'--- BINDING TO A DOMAIN ---------------------------
'-----------------------------------------------------
domainName = "INDEPENDENCE"
userName = "Administrator"
password = "password"'----Binding to a domain as currently logged on user
Set dom = GetObject("WinNT://" & domainName)
'- Enumerate object in a domain
For Each obj In dom
   Debug.Print obj.Name & " (" & obj.Class & ")"
Next
'----Binding to a domain with alternate credentials
Set dso = GetObject("WinNT:")
Set dom = dso.OpenDSObject("WinNT://" & domainName, userName, password, ADS_SECURE_AUTHENTICATION)'----Enumerating the object in a domain
For Each obj In dom
   Debug.Print obj.Name & " (" & obj.Class & ")"
NextFor VBScript click here.
For VC++ Source Code, click here.Back to topBind to a Windows NT 4.0 Local Directory on a Machine'--------------------------------------------------
'--- BINDING TO A COMPUTER ---------------------
'--------------------------------------------------
computerName = "ADSI"
userName = "Administrator"
password = "password"
'--- Binding to a computer as currently logged on user
Set com = GetObject("WinNT://" & computerName & ",computer")
'- Enumerate object in a computer
For Each obj In com
Debug.Print obj.Name & " (" & obj.Class & ")"
Next
'--- Binding to a computer with alternate credentials
Set dso = GetObject("WinNT:")
Set com = dso.OpenDSObject("WinNT://" & computerName & ",computer", userName, password, ADS_SECURE_AUTHENTICATION)'--- Enumerate object in a computer
For Each obj In com
   Debug.Print obj.Name
Next
Back to topCreate a UserdomainName = "INDEPENDENCE"
'--- Binding to a domain as currently logged on user
Set dom = GetObject("WinNT://" & domainName)
'--- Create user
Set usr = dom.Create("user", "JSmith")
usr.SetInfoBack to topChange the User's Full Name and DescriptionSet usr = GetObject("WinNT://INDEPENDENCE/jsmith,user")
usr.FullName = "John Smith"
usr.Description = "DSys WOSD Program Manager"
usr.SetInfo
Back to top Change the User's PasswordA user may change his/her own password, but not others. Administrators have privileges to change any user's password. ChangePassword requires an old password and the user must already exist in the directory, while SetPassword does not. Both functions do not require SetInfo to commit the changes.'---- CHANGE PASSWORD ------Set usr = GetObject("WinNT://INDEPENDENCE/jsmith,user")
usr.ChangePassword "secret", "password"
Back to top Setting the User's Password
Administrators may reset the user password. '---- SET PASSWORD ------ Set usr = GetObject("WinNT://INDEPENDENCE/jsmith,user")
usr.SetPassword "secret"
Back to topSetting the User's Password Expiration Date
The password expiration date is a calculated field. The value is computed as follows:If the user's "Password Never Expires" (UF_DONT_EXPIRE_PASSWD) f lag is set, then there's no need to compute an expiration date. The user password is valid. 
If the user's flag is not set, then it computes the difference between when the password was last set and current time. 
If the difference is greater or equal to the MaxPasswordAge found in the domain object, then the user's password is expired. 
If the difference is less than MaxPasswordAge, then the user's password expiration date = user's password last set + MaxPasswordAge. 
To get the user's password expiration date:To set user's password expiration date, you set MaxPasswordAge in the domain object. Note that this will affect all users since the password expiration date is a calculated field from the domain object.expInDay = 60&
expInSec = expInDay * (3600& * 24&)
Set dom = GetObject("WinNT://INDEPENDENCE")
dom.Put "MaxPasswordAge", CLng(expInSec)
dom.SetInfo
Back to topMake a User Change the Password at Next LogonSet usr = GetObject("WinNT://INDEPENDENCE/jsmith,user")
usr.Put "PasswordExpired", CLng(1)
usr.SetInfo'-- To clear this flag (so that the user does not have to change the password at next logon)
usr.Put "PasswordExpired", CLng(0)
usr.SetInfo
Back to topPrevent the User from Changing the PasswordSet usr = GetObject("WinNT://INDEPENDENCE/jsmith,user")
usr.Put "userFlags", usr.Get("UserFlags") Or UF_PASSWORD_CANT_CHANGE
usr.SetInfo
'-----to clear this flag - use Xor : allow user to change his/her password
usr.Put "userFlags", usr.Get("UserFlags") Xor UF_PASSWORD_CANT_CHANGE
usr.SetInfo
Back to topPrevent the User's Password from ExpiringSet usr = GetObject("WinNT://INDEPENDENCE/jsmith,user")
usr.Put "userFlags", usr.Get("UserFlags") Or UF_DONT_EXPIRE_PASSWD
usr.SetInfo
'---- To clear this flag - use XOr
usr.Put "userFlags", usr.Get("UserFlags") Xor UF_DONT_EXPIRE_PASSWD
usr.SetInfo
Back to topDisable the User's AccountSet usr = GetObject("WinNT://INDEPENDENCE/jsmith,user")
usr.AccountDisabled = True 'disabled the account
usr.SetInfo
'---- To enabled an account
usr.AccountDisabled = False 'enabled the account
usr.SetInfoBack to topSet the User's Account Expiration DateSet usr = GetObject("WinNT://INDEPENDENCE/jsmith,user")'--Set a user account expiration 90 days from now
usr.AccountExpirationDate = Now() + 90
usr.SetInfo
'-- to set account expiration to NEVER (default)
usr.AccountExpirationDate = "01/01/1970"
usr.SetInfo
Back to topUnlock the User's Account
You can only set the account lockout to FALSE. Only the system can set the account lockout. You can also read the value of account lockout, but you can't lock the user's account.
'--- Unlocking the user's account ------------------Set usr = GetObject("WinNT://INDEPENDENCE/jsmith,user)
usr.IsAccountLocked = False
usr.SetInfoBack to topSet the User's Home Directory and Home Drive DirectorySet usr = GetObject("WinNT://INDEPENDENCE/jsmith,user")
usr.HomeDirectory = "UserHomeDirHere"
usr.HomeDirDrive = "HomeDirDriveHere"
usr.SetInfoBack to topSet the User's Login ScriptSet usr = GetObject("WinNT://INDEPENDENCE/jsmith,user")
usr.LoginScript = "LoginScriptHere"
usr.SetInfo
Back to topGet the User's Primary GroupSet usr = GetObject("WinNT://INDEPENDENCE/jsmith,user")
grpPrimaryID = usr.Get("PrimaryGroupID")Back to topGet the User's SID (Security ID)Set usr = GetObject("WinNT://INDEPENDENCE/jsmith,user")
sid = usr.Get("objectSID")
For Each element In sid
   Debug.Print Hex(element)
NextBack to topRename a UserRenaming a user is similar to renaming an object.Set dom = GetObject("WinNT://INDEPENDENCE")
Set usr = dom.MoveHere("WinNT://INDEPENDENCE/jsmith,user", "jjohnson")
usr.FullName = "Jane Johnson"
usr.SetInfoBack to topDelete a UserDeleting a user is similar to deleting an object.Set dom = GetObject("WinNT://INDEPENDENCE")
dom.Delete "user", "jjohnson"Back to topCreate a Group
'-----------------------------------------
'--- CREATING A LOCAL GROUP IN A DOMAIN
'-----------------------------------------
Set dom = GetObject("WinNT://INDEPENDENCE")
Set grp = dom.Create("group", "DSys")
grp.Put "groupType", ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP
grp.Description = "Distributed System Group"
grp.SetInfo'-----------------------------------------
'--- CREATING A GLOBAL GROUP IN A DOMAIN
'-----------------------------------------
Set dom = GetObject("WinNT://INDEPENDENCE")
Set grp = dom.Create("group", "PM")
grp.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP
grp.Description = "Program Managers"
grp.SetInfo
'-----------------------------------------
'--- CREATING A LOCAL GROUP IN A COMPUTER
'-----------------------------------------
Set comp = GetObject("WinNT://SEATTLE,computer")
Set grp = comp.Create("group", "TheSmiths")
grp.Put "groupType", ADS_GROUP_TYPE_LOCAL_GROUP
grp.Description = "The Smiths Family Member"
grp.SetInfo
Back to top
Add a User to a Group'----------------------------------------------------
'--- ADDING A USER IN A DOMAIN LOCAL or GLOBAL GROUP
'----------------------------------------------------
Set grp = GetObject("WinNT://INDEPENDENCE/DSys,group")
grp.Add ("WinNT://INDEPENDENCE/JSmith")
'-------------------------------------------------
'--- ADDING A USER IN A LOCAL GROUP IN A COMPUTER
'--------------------------------------------------
Set comp = GetObject("WinNT://SEATTLE,computer")
Set grp = comp.GetObject("group", "TheSmiths")
grp.Add ("WinNT://INDEPENDENCE/JSmith")
Back to topAdd a Group to a Group
Global group can be added to a local group in a Windows NT 4.0 domain. Note that in the Windows 2000 domain environment, you can nest a group.Set grp = GetObject("WinNT://INDEPENDENCE/DSys,group")
grp.Add ("WinNT://INDEPENDENCE/PM,group")
Back to topEnumerate Group in a Domain or Computer'------------------------------------
' ENUMERATING GROUPS IN A DOMAIN
'------------------------------------
Set dom = GetObject("WinNT://INDEPENDENCE")
dom.Filter = Array("Group")'--- Local Group
Debug.Print "Local Groups---"
For Each grp In dom
If (grp.GroupType = ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP) Then
   Debug.Print grp.Name
End If
Next'-- Global Group
Debug.Print "Global Groups---"
For Each grp In dom
If (grp.GroupType = ADS_GROUP_TYPE_GLOBAL_GROUP) Then
    Debug.Print grp.Name
End If
Next'---------------------------------------
' ENUMERATING GROUPS IN A COMPUTER
'---------------------------------------
Set comp = GetObject("WinNT://SEATTLE,computer")
comp.Filter = Array("Group")'All groups in a computer is a local group
Debug.Print "Groups:"
For Each grp In comp
   Debug.Print grp.Name
Next
Back to topEnumerate Group Membership'------------------------------------
' ENUMERATING GROUP MEMBERSHIP
'------------------------------------
Set grp = GetObject("WinNT://INDEPENDENCE/DSys,group")
For Each member In grp.Members
     Debug.Print member.Name & " (" & member.Class & ")"     'A local group may contain a global group
     'We can enumerate the global group membership as well
     If (member.Class = "Group") Then
            For Each obj In member.Members
                 Debug.Print " " & obj.Name & " (" & obj.Class & ")"
            Next
      End IfNextBack to topRemove Member from Group'-----------------------------------------------------
' REMOVING MEMBER FROM A GROUP
'-----------------------------------------------------
Set grp = GetObject("WinNT://INDEPENDENCE/PM,group")
grp.Remove ("WinNT://INDEPENDENCE/ChristyH")
Back to topFind Out if a User or Group is a Member of a Group'---------------------------------------------------
' IS MEMBER
'---------------------------------------------------
Set grp = GetObject("WinNT://INDEPENDENCE/DSys,group")
If (grp.IsMember("WinNT://INDEPENDENCE/JSmith")) Then
   Debug.Print "Yes"
Else
   Debug.Print "No"
End If
Back to topConnect to a Computer'-----------------------------------------
'--- BINDING TO COMPUTER OBJECT
'-----------------------------------------
Set comp = GetObject("WinNT://INDEPENDENCE/SEATTLE,computer")
Debug.Print comp.Division
Debug.Print comp.OperatingSystem
Debug.Print comp.OperatingSystemVersion
Debug.Print comp.Owner
Debug.Print comp.Processor
Debug.Print comp.ProcessorCount
Back to topEnumerate Services in a Computer'-------------------------------------------
'--- ENUMERATE SERVICES IN A COMPUTER
'-------------------------------------------
Set comp = GetObject("WinNT://INDEPENDENCE/SEATTLE,computer")
comp.Filter = Array("Service")For Each svc In comp
    Debug.Print svc.Name & " " & svc.DisplayName
NextBack to topDisplay the Service's Properties'----------------------------------------------
'--- DISPLAY SERVICE'S PROPERTIES
'-----------------------------------------------'--- Defined in winnt.h ----------------Const SERVICE_BOOT_START = &H0
Const SERVICE_SYSTEM_START = &H1
Const SERVICE_AUTO_START = &H2
Const SERVICE_DEMAND_START = &H3
Const SERVICE_DISABLED = &H4
'
' Error control type
'
Const SERVICE_ERROR_IGNORE = &H0
Const SERVICE_ERROR_NORMAL = &H1
Const SERVICE_ERROR_SEVERE = &H2
Const SERVICE_ERROR_CRITICAL = &H3Const SERVICE_KERNEL_DRIVER = &H1
Const SERVICE_FILE_SYSTEM_DRIVER = &H2
Const SERVICE_ADAPTER = &H4
Const SERVICE_RECOGNIZER_DRIVER = &H8Const SERVICE_DRIVER = &HB
Const SERVICE_WIN32_OWN_PROCESS = &H10
Const SERVICE_WIN32_SHARE_PROCESS = &H20
Const SERVICE_WIN32 = &H30
Const SERVICE_INTERACTIVE_PROCESS = &H100
Set comp = GetObject("WinNT://SEATTLE,computer")
Set svc = comp.GetObject("Service", "Browser")Debug.Print "Display Name: " & svc.DisplayName
Debug.Print "Order Group: " & svc.LoadOrderGroup
Debug.Print "Host Name: " & svc.HostComputers = "Startup: "Select Case svc.StartType
Case SERVICE_BOOT_START
   s = s + "Boot Start"
Case SERVICE_SYSTEM_START
   s = s + "System Start"
Case SERVICE_AUTO_START
   s = s + "Automatic"
Case SERVICE_DEMAND_START
   s = s + "Manual"
Case SERVICE_DISABLED
   s = s + "Disabled"
Case Else
   s = s + "Unknown"
End Select
Debug.Print s'Dependencies
Debug.Print "Dependencies: "
For Each dpc In svc.Dependencies
    Debug.Print " " & dpc
Next'Service Type
s = "Service Type: "Select Case svc.ServiceType
Case SERVICE_KERNEL_DRIVER
   s = s + "Kernel Driver"
Case SERVICE_FILE_SYSTEM_DRIVER
   s = s + "File System Driver"
Case SERVICE_ADAPTER
   s = s + "Adapter"
Case SERVICE_RECOGNIZER_DRIVER
   s = s + "Recognizer Driver"
Case SERVICE_WIN32_OWN_PROCESS
   s = s + "Win32 Process"
Case SERVICE_WIN32_SHARE_PROCESS
   s = s + "Win32 Share Process"
Case SERVICE_WIN32
   s = s + "Win32"
Case SERVICE_INTERACTIVE_PROCESS
   s = s + "Interactive Process"
End Select
Debug.Print s'Error Control
s = "Error Control: "
Select Case svc.ErrorControlCase SERVICE_ERROR_IGNORE
   s = s + "Service ignores error"
Case SERVICE_ERROR_NORMAL
   s = s + "No Error"
Case SERVICE_ERROR_SEVERE
   s = s + "Severe error"
Case SERVICE_ERROR_CRITICAL
   s = s + "Critical error"
Case Else
   s = s + "Unknown"
End Select
Debug.Print s
Back to topStop, Start, and Pause a Service'----------------------------------------------
'--- STOPPING, STARTING, AND PAUSING A SERVICE
'-----------------------------------------------
Set comp = GetObject("WinNT://SEATTLE,computer")
Set svcOp = comp.GetObject("Service", "Browser")
'Stopping
svcOp.Stop
'Starting
svcOp.Start
'Pausing
svcOp.Pause
Back to topEnumerate File Shares in a Computer'-----------------------------------------------
'---- ENUMERATING FILE SHARES IN A COMPUTER
'-----------------------------------------------
Set comp = GetObject("WinNT://SEATTLE,computer")
Set svc = GetObject(comp.ADsPath & "/" & "LanmanServer")
For Each fileShare In svc
   Debug.Print fileShare.Name & " " & " " & fileShare.CurrentUserCount & " " & fileShare.Path
NextBack to topCreate a File Share in a Computer'------------------------------------------
'---- CREATING A FILE SHARE IN A COMPUTER
'-------------------------------------------
Set comp = GetObject("WinNT://SEATTLE,computer")
Set svc = GetObject(comp.ADsPath & "/" & "LanmanServer")
Set fileShare = svc.Create("FileShare", "public")
fileShare.Path = "c:\public"
fileShare.SetInfo
Back to topDelete a File Share'------------------------------------------
'---- DELETING A FILE SHARE IN A COMPUTER
'-------------------------------------------
Set comp = GetObject("WinNT://SEATTLE,computer")
Set svc = GetObject(comp.ADsPath & "/" & "LanmanServer")
svc.Delete "FileShare", "public"Back to topEnumerate Sessions in a Computer'--------------------------------------------
'---- ENUMERATING SESSIONS IN A COMPUTER
'---------------------------------------------Dim fileSvc As IADsFileService
Dim session As IADsSessionSet comp = GetObject("WinNT://SEATTLE,computer")
Set fileSvc = GetObject(comp.ADsPath & "/" & "LanmanServer")
For Each session In fileSvc.Sessions
     Debug.Print session.Name & " " & session.ConnectTime
NextBack to topEnumerate Resources in a Computer'----------------------------------------------
'---- ENUMERATING RESOURCES IN A COMPUTER
'----------------------------------------------
Set comp = GetObject("WinNT://SEATTLE,computer")
Set fileSvc = GetObject(comp.ADsPath & "/" & "LanmanServer")
For Each resource In fileSvc.Resources
    Debug.Print resource.Name & " - " & resource.User
Next
Back to topSet File Share SecuritySetting file share security is supported in the ADSI Resource Tool Kit.Back to topSet File securitySetting file security is supported in the ADSI Resource Tool Kit.Back to top Enumerate Print Queues in a ComputercomputerName = "MSPRINT44"
printQueueName = "CORPF"Set comp = GetObject("WinNT://" & computerName & ",computer")comp.Filter = Array("PrintQueue")'--------------------------------------------------
'----Enumerating a Printer in a computer------------
'--------------------------------------------------For Each printQueue In comps = printQueue.Name & " " & printQueue.Description & " (" & printQueue.PrinterPath & ")"
'Debug.Print printQueue.status'-- QI the PrintQueueOperations ( this is optional step in VB/VBScript )
Set printQOps = printQueue
s = s & "Status: " & GetPrintStatus(printQueue.status)
Debug.Print s ' Report the printQueue and Printer status
Next
source code samples\WinNT\PrintQueueBack to topList Print Jobs in a QueueDim printQueue As IADsPrintQueue
Dim printQOps As IADsPrintQueueOperations
Dim printJob As IADsPrintJob
Dim printJobOps As IADsPrintJobOperations'---------------------------------------------
'----Binding to a specific printer queue--------
'---------------------------------------------
Set comp = GetObject("WinNT://" & computerName & ",computer")
Set printQueue = comp.GetObject("PrintQueue", printQueueName)'-- Get Print Queue Characteristics
Debug.Print printQueue.Name & " " & printQueue.Description & " (" & printQueue.PrinterPath & ")"
Debug.Print s
'--- Swith to Print Queue Operation
Set printQOps = printQueue
Debug.Print "Status: " & GetPrintStatus(printQueue.status)
'---- Get Print Jobs for this specific queue --------------------
Debug.Print "--- Jobs in the queue ----- "
For Each printJob In printQOps.PrintJobs
Debug.Print printJob.Description & " " & printJob.User & " " & printJob.Priority
Set printJobOps = printJob
Debug.Print "Page printed: " & printJobOps.PagesPrinted & "Page(s) " & GetJobStatus(printJobOps.status)
Debug.Print "-----"
NextSource code samples\WinNT\PrintQueueBack to top.
 
 

Answer 22

ADSISDK在哪里可以下载呢？还有，我上面的意思是否正确呢？如果正确，我拼命学习ADSI啦。

Answer 23

我另外的邮箱是：[email protected]，麻烦您试一试，万分感谢。

Answer 24

Rainbow，麻烦您留意一下另外一条“快快救我，一条关于API的问题”（在vb里），留一个言，全部分给您，90分喔。快。

Answer 25

Const NERR_Success = 0
Const CP_ACP = 0
Private Type USER_INFO_3
    usri3_name As Long
    usri3_password As Long
    usri3_password_age As Long
    usri3_priv As Long
    usri3_home_dir As Long
    usri3_comment As Long
    usri3_flags As Long
    usri3_script_path As Long
    usri3_auth_flags As Long
    usri3_full_name As Long
    usri3_usr_comment As Long
    usri3_parms As Long
    usri3_workstations As Long
    usri3_last_logon As Long
    usri3_last_logoff As Long
    usri3_acct_expires As Long
    usri3_max_storage As Long
    usri3_units_per_week As Long
    usri3_logon_hours As Byte
    usri3_bad_pw_count As Long
    usri3_num_logons As Long
    usri3_logon_server As String
    usri3_country_code As Long
    usri3_code_page As Long
    usri3_user_id As Long
    usri3_primary_group_id As Long
    usri3_profile As Long
    usri3_home_dir_drive As Long
    usri3_password_expired As Long
End Type
Private Declare Function NetUserGetInfo Lib "netapi32" (ByVal servername As String, ByVal username As String, ByVal level As Long, bufptr As Long) As Long
Private Declare Function NetApiBufferFree Lib "netapi32" (ByVal Buffer As Long) As Long
Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal dwLength As Long)
Private Declare Function lstrlenW Lib "kernel32" (lpString As Any) As Long
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal codepage As Long, ByVal dwFlags As Long, lpWideCharStr As Any, ByVal cchWideChar As Long, lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long
' Returns an ANSI string from a pointer to a Unicode string.
Public Function GetStrFromPtrW(lpszW As Long) As String
    Dim sRtn As String
    sRtn = String$(lstrlenW(ByVal lpszW) * 2, 0)   ' 2 bytes/char
    ' WideCharToMultiByte also returns Unicode string length
    Call WideCharToMultiByte(CP_ACP, 0, ByVal lpszW, -1, ByVal sRtn, Len(sRtn), 0, 0)
    GetStrFromPtrW = GetStrFromBufferA(sRtn)
End Function
' Returns the string before first null char encountered (if any) from an ANSII string.
Public Function GetStrFromBufferA(sz As String) As String
    If InStr(sz, vbNullChar) Then
        GetStrFromBufferA = Left$(sz, InStr(sz, vbNullChar) - 1)
    Else
        ' If sz had no null char, the Left$ function
        ' above would return a zero length string ("").
        GetStrFromBufferA = sz
    End If
End Function
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    ' -> Based on a KB article
    Dim lpBuf As Long
    Dim ui3 As USER_INFO_3
    ' replace "Administrator" with a valid NT username
    If (NetUserGetInfo("", StrConv("Administrator", vbUnicode), 3, lpBuf) = NERR_Success) Then
        Call MoveMemory(ui3, ByVal lpBuf, Len(ui3))
        MsgBox GetStrFromPtrW(ui3.usri3_name)
        MsgBox GetStrFromPtrW(ui3.usri3_comment)
        Call NetApiBufferFree(ByVal lpBuf)
    End If
End Sub

Answer 26

谢谢，Rainbow和大侠！非常感谢！