怎么才能用VB创建一个windows 2000 server的用户账号 看看下面的帖子,希望对你有帮助.http://expert.csdn.net/Expert/topic/1206/1206758.xml?temp=.1883966http://expert.csdn.net/Expert/topic/1515/1515981.xml?temp=.5800897 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Public Function ListMemberFromGroup(ByVal strFullServerName As String, ByVal strGroupName As String, ByVal strDomainName As String, Optional ByVal strHeader As String = "crbjl_") As VariantDim objGroup As IADsGroupDim objContainer As IADsContainerDim objUser As IADsUserDim strGroupNameString, TempString As String'init member's countMemberCount = 0MemberDisplayName = ""strGroupNameString = strHeader & strGroupNameOn Error GoTo ErrHandler_LM1Set objGroup = GetObject("LDAP://" + strFullServerName + "/CN=" & strGroupNameString & ",CN=Users," + strDomainName)On Error GoTo ErrHandler_LM2For Each objUser In objGroup.Members TempString = TempString & Right(objUser.Name, Len(objUser.Name) - 3) & "~" MemberDisplayName = MemberDisplayName & objUser.FullName & "~" MemberCount = MemberCount + 1NextIf TempString <> "" Then ListMemberFromGroup = Left(TempString, Len(TempString) - 1)Else ListMemberFromGroup = -1End IfSet objGroup = NothingSet objUser = NothingSet objContainer = NothingExit FunctionErrHandler_LM1:ListMemberFromGroup = -2Set objGroup = NothingSet objUser = NothingSet objContainer = NothingExit FunctionErrHandler_LM2:ListMemberFromGroup = -3Set objGroup = NothingSet objUser = NothingSet objContainer = NothingExit FunctionEnd Function 高分求助!关于调用搜索引擎。 如何将窗体最小化至任务栏中???? 双缓存画图为什么画图来的数据线都是黑色? 用print打印数据到文本文件如何控制输出文件是asc码还是十六进制数? 关于如何获得对方机器的名称 请问如何删除1张50万条记录的大表中的第1条记录。 问个简单的问题!!!!! VBA 中combobox插入列表项时如何去掉空格 亲爱的们来帮帮我看看这是哪里错了!!!数据库的!谢谢了! 60分求解,如何得到打印机支持的纸张类型,其实不会像你想象那么简单。 vb 中的按钮能改变背景颜色吗? VB中如何设置EXCEL指定的单元格属性为数值型呢????????
Dim objGroup As IADsGroup
Dim objContainer As IADsContainer
Dim objUser As IADsUser
Dim strGroupNameString, TempString As String
'init member's count
MemberCount = 0
MemberDisplayName = ""
strGroupNameString = strHeader & strGroupNameOn Error GoTo ErrHandler_LM1
Set objGroup = GetObject("LDAP://" + strFullServerName + "/CN=" & strGroupNameString & ",CN=Users," + strDomainName)On Error GoTo ErrHandler_LM2
For Each objUser In objGroup.Members
TempString = TempString & Right(objUser.Name, Len(objUser.Name) - 3) & "~"
MemberDisplayName = MemberDisplayName & objUser.FullName & "~"
MemberCount = MemberCount + 1
NextIf TempString <> "" Then
ListMemberFromGroup = Left(TempString, Len(TempString) - 1)
Else
ListMemberFromGroup = -1
End IfSet objGroup = Nothing
Set objUser = Nothing
Set objContainer = Nothing
Exit FunctionErrHandler_LM1:
ListMemberFromGroup = -2
Set objGroup = Nothing
Set objUser = Nothing
Set objContainer = Nothing
Exit FunctionErrHandler_LM2:
ListMemberFromGroup = -3
Set objGroup = Nothing
Set objUser = Nothing
Set objContainer = Nothing
Exit FunctionEnd Function