摘要:
function act1(no)
{
if(document.all.item("y"+no).style.display=="") document.all.item("y"+no).style.display="none";
else document.all.item("y"+no).style.display="";
}
1、在 Windows 或 AD 中批量增加用户
使用方法,新建一 users.csv,字段格式必须按如下顺序,且不能为空: 登录名, 姓名, 密码, 描述;然后将脚本与 CSV 文件存储至同一目录,以管理员/域管理员运行脚本即可。代码>> (单击显示/隐藏)
'// Name: BulkAddUser
'// Purpose: 从 CSV 文件中批量生成 Active Directory 用户
'// 注意:
'// 1. 源文件必须使用逗号分割
'// 2. 字段必须按如下顺序,且不能为空: 登录名, 姓名, 密码, 描述
'// 3. 只能由域管理员才能运行此程序
Option Explicit
Dim oFSO, oTF, objRootDSE, objContainer, i
Dim aLine, sLine, sLogon, sPass
Dim sLoginName, sDisplayName, sDescription
'// 用户批量文件
Const InpFile = "users.csv"
Const ForReading = 1
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTF = oFSO.OpenTextFile(InpFile, ForReading, True)
Set objRootDSE = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://cn=Users," & objRootDSE.Get("defaultNamingContext"))
i = 1
Do While oTF.AtEndOfStream <> True
sLine = oTF.ReadLine
aLine = Split(sLine,......[
阅读全文]