vbscript脚本-批量添加AD域测试账号
作者：鞋-丢-了_151 | 来源：互联网 | 2023-05-18 03:33
Set objRootDSE GetObject("LDAP:rootDSE") 取域名,不用修改Set objContainerGetObject("L
Set objRootDSE = GetObject ("LDAP://rootDSE" ) '取域名,不用修改 Set objCOntainer=GetObject ("LDAP://ou=da,ou=OUYinshuai," &objRootDSE.Get("defaultNamingContext" )) 'ou=SUB,ou=DEM,从前往后一次为子部门、父部门 'Set objContainer = GetObject("LDAP://ou=测试部门,ou=安信证券," & objRootDSE.Get("defaultNamingContext")) For j = 1 To 2 "ut" & jSet objUser = objContainer.Create("User" , "cn=tt" & i) '账户------------------------------------------------------------------------------- "userPrincipalName" , "userPrincipalName" & i & "@wangpan.com" '用户登录名-主要名称 "sAMAccountName" , "sAMAccountName" & i '用户登录名-2000以前版本 '常规------------------------------------------------------------------------------- "Sn" , "姓" & i '验证大小写 "givenName" , "名" & i"displayName" , "displayName" & i"initials" , "e" & i"description" , "用户描述description" & i"physicalDeliveryOfficeName" , "办公室physicalDeliveryOfficeName" & i"telephoneNumber" , "010-8888" & i"mail" , "email" & i & "@e.com" "wWWHomePage" , "http://homepage_" & i & ".com" '电话------------------------------------------------------------------------------- "homePhone" , "010-1111" & i"pager" , "020-2222" & i"facsimileTelephoneNumber" , "030-3333" & i '传真号 "mobile" , "1888888" & i '移动电话 "ipPhone" , "040-4444" & i"info" , "用户-电话-注释信息" & i'组织------------------------------------------------------------------------------- "company" , "wangpan" "department" , "OU=OUYinshuai,DC=wangpan,DC=com" "title" , "职务名称xxx" "manager" , "CN=yinxiaopeiyxp,OU=OUYinshuai,DC=wangpan,DC=com" '部门经理 '地址------------------------------------------------------------------------------- "c" , "CN" "postalCode" , "010110" '邮政编码 "st" , "省份A" "l" , "城市B" "streetAddress" , "街道C" "postOfficeBox" , "朝阳110110" "111111" FALSE Next
推荐阅读
请问有谁能帮忙将满足条件的邮件内容弄成一封就将所有的完成啊？我现在满足条件的一个就发送一封，有所有满足的就会发送很多。请帮帮忙！真心感谢！谢谢！！<%@LANGUAGEVBSCRIP ...
[详细]
蜡笔小新 2023-06-30 16:28:29
<tablecellspacing0cellpadding0>&l ...
[详细]
蜡笔小新 2023-08-07 12:46:19
本文介绍了一个在线急等问题解决方法，即如何统计数据库中某个字段下的所有数据，并将结果显示在文本框里。作者提到了自己是一个菜鸟，希望能够得到帮助。作者使用的是ACCESS数据库，并且给出了一个例子，希望得到的结果是560。作者还提到自己已经尝试了使用"select sum(字段2) from 表名"的语句，得到的结果是650，但不知道如何得到560。希望能够得到解决方案。 ...
[详细]
蜡笔小新 2023-12-13 15:15:30
IamtryingtocallabatchfilefromVBS,butIkeepgettingthisobjectrequirederror:我试图从VBS调 ...
[详细]
蜡笔小新 2023-08-19 18:58:52
关于打印机的问题，在网上找了好久都找不到自动打印的代码！！！现在我把我找到的发布出来共享一下(这个是不会弹出打印提示的，直接打印的；但浏览器但设置一下)页面上写上：<objectidWebB ...
[详细]
蜡笔小新 2023-08-13 14:45:50
特需要使用集合的时候，无法找到VBScript中的Collection对象；到处找不到，那就自己写一个吧！注：1.需要VBScript5.0或更高版本，使用Class及 ...
[详细]
蜡笔小新 2023-08-08 14:07:29
【编程游戏】贺岁霓虹灯。（第一名奖励10000可用分）效果图评分参观[目前Firefox中好使，其他浏览器需复制到本地，存为html文件看效果]<html><head>&l ...
[详细]
蜡笔小新 2023-08-06 17:45:00
Ihaveasimplequestion,butIvesearchedforthisandcouldntfindanyhelpfultopics..我有一个简单的问 ...
[详细]
蜡笔小新 2023-07-17 13:02:50
注意：客户端要装OFFICE下面我就把代码给大家参考一下，希望大家以后能用到。对WORD文档，使用的文字型窗体区域的功能，所有区域定义好以后有个名字，也就是要替换的名字。（替换内容长度可以 ...
[详细]
蜡笔小新 2023-06-29 15:04:51
本文分析了Spring源码解密中默认标签的解析方式。通过对命名空间的判断，区分默认命名空间和自定义命名空间，并采用不同的解析方式。其中，bean标签的解析最为复杂和重要。 ...
[详细]
蜡笔小新 2023-12-14 17:24:50
本文介绍了在使用QTextEdit时如何实现拖放文件的功能，包括相关的方法和实现步骤。通过重写dragEnterEvent和dropEvent函数，并结合QMimeData和QUrl等类，可以轻松实现向QTextEdit拖放文件的功能。详细的代码实现和说明可以参考本文提供的示例代码。 ...
[详细]
蜡笔小新 2023-12-14 16:06:38
项目重构的Git地址：https:github.comrazerdpFriendCircletreemain-dev项目同步更新的文集：http:www.jianshu.comno ...
[详细]
蜡笔小新 2023-12-11 19:09:56
Opencv提供了几种分类器，例程里通过字符识别来进行说明的1、支持向量机（SVM）：给定训练样本，支持向量机建立一个超平面作为决策平面，使得正例和反例之间的隔离边缘被最大化。函数原型：训练原型cv ...
[详细]
蜡笔小新 2023-10-17 17:02:44
这期内容当中小编将会给大家带来有关vbscript中怎么调用Dir命令，文章内容丰富且以专业的角度为大家分析和叙述，阅读完这篇文章希望大家可以有所 ...
[详细]
蜡笔小新 2023-07-23 11:38:18
functiongetReviews(){varpaidocument.assess.pai.Reviewsif(check()){createXMLHttp_s();strAR ...
[详细]
蜡笔小新 2023-06-22 09:07:04
京公网安备 11010802041100号