主頁 > 知識(shí)庫 > 利用VBS腳本自動(dòng)創(chuàng)建計(jì)算機(jī)帳戶的代碼

利用VBS腳本自動(dòng)創(chuàng)建計(jì)算機(jī)帳戶的代碼

熱門標(biāo)簽:外呼系統(tǒng)telrobot 深圳外呼系統(tǒng)收費(fèi) 外呼線路中繼線是什么 百度地圖標(biāo)注是什么意思 怎么看地圖標(biāo)注 外呼系統(tǒng)免費(fèi)招代理 廣州ai電銷機(jī)器人一般多少錢 拉薩外呼系統(tǒng)業(yè)務(wù) 合肥高德地圖標(biāo)注
mcse注:其實(shí)這是 按照ADSI(Active Directory Services Interface:活動(dòng)目錄服務(wù)接口)寫的程序。如果你安裝了resource kit,這段代碼可以用netcom這條命令進(jìn)行工作,下面是netcom的一個(gè)例子: 

  NETDOM /Domain:MYDOMAIN /user:adminuser /password:apassword MEMBER MYCOMPUTER /ADD 

復(fù)制代碼 代碼如下:

  ***********************

  '* Start Script

  '***********************

  Dim sComputerName, sUserOrGroup, sPath, computerContainer, rootDSE, lFlag

  Dim secDescriptor, dACL, ACE, oComputer, sPwd

  '

  '* Declare constants used in defining the default location for the

  '* machine account, flags to identify the object as a machine account,

  '* and security flags

  'Const UF_WORKSTATION_TRUST_ACCOUNT = H1000

  Const UF_ACCOUNTDISABLE = H2

  Const UF_PASSWD_NOTREQD = H20

  Const ADS_GUID_COMPUTRS_CONTAINER = "aa312825768811d1aded00c04fd8d5cd"

  Const ADS_ACETYPE_ACCESS_ALLOWED = 0

  Const ADS_ACEFLAG_INHERIT_ACE = 2

  '

  '* Set the flags on this object to identify it as a machine account

  '* and determine the name. The name is used statically here, but may

  '* be determined by a command line parameter or by using an InputBox

  'lFlag = UF_WORKSTATION_TRUST_ACCOUNT Or UF_ACCOUNTDISABLE Or UF_PASSWD_NOTREQD

  sComputerName = "TestAccount"

  '

  '* Establish a path to the container in the Active Directory where

  '* the machine account will be created. In this example, this will

  '* automatically locate a domain controller for the domain, read the

  '* domain name, and bind to the default "Computers" container

  '*********************************************************************

  Set rootDSE = GetObject("LDAP://RootDSE")

  sPath = "LDAP://  Set computerContainer = GetObject(sPath)

  sPath = "LDAP://"  computerContainer.Get("distinguishedName")

  Set computerContainer = GetObject(sPath)

  ''* Here, the computer account is created. Certain attributes must

  '* have a value before calling .SetInfo to commit (write) the object

  '* to the Active Directory

  'Set oComputer = computerContainer.Create("computer", "CN="  sComputerName)

  oComputer.Put "samAccountName", sComputerName + "$"

  oComputer.Put "userAccountControl", lFlag

  oComputer.SetInfo

  '

  '* Establish a default password for the machine account

  'sPwd = sComputerName  "$"

  sPwd = LCase(sPwd)

  oComputer.SetPassword sPwd

  ''* Specify which user or group may activate/join this computer to the

  '* domain. In this example, "MYDOMAIN" is the domain name and

  '* "JoeSmith" is the account being given the permission. Note that

  '* this is the downlevel naming convention used in this example.

  'sUserOrGroup = "MYDOMAIN\joesmith"

  ''* Bind to the Discretionary ACL on the newly created computer account

  '* and create an Access Control Entry (ACE) that gives the specified

  '* user or group full control on the machine account

  'Set secDescriptor = oComputer.Get("ntSecurityDescriptor")

  Set dACL = secDescriptor.DiscretionaryAcl

  Set ACE = CreateObject("AccessControlEntry")

  '

  '* An AccessMask of "-1" grants Full Control

  '

  ACE.AccessMask = -1

  ACE.AceType = ADS_ACETYPE_ACCESS_ALLOWED

  ACE.AceFlags = ADS_ACEFLAG_INHERIT_ACE

  ''* Grant this control to the user or group specified earlier.

  'ACE.Trustee = sUserOrGroup

  '

  '* Now, add this ACE to the DACL on the machine account

  'dACL.AddAce ACE

  secDescriptor.DiscretionaryAcl = dACL

  '

  '* Commit (write) the security changes to the machine account

  'oComputer.Put "ntSecurityDescriptor", Array(secDescriptor)

  oComputer.SetInfo

  ''* Once all parameters and permissions have been set, enable the

  '* account.

  '

  oComputer.AccountDisabled = False

  oComputer.SetInfo

  ''* Create an Access Control Entry (ACE) that gives the specified user

  '* or group full control on the machine account

  'wscript.echo "The command completed successfully."

  '*****************

  '* End Script


標(biāo)簽:臺(tái)灣 漳州 嘉興 六安 周口 玉林 延安 廣安

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《利用VBS腳本自動(dòng)創(chuàng)建計(jì)算機(jī)帳戶的代碼》,本文關(guān)鍵詞  利用,VBS,腳本,自動(dòng),創(chuàng)建,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《利用VBS腳本自動(dòng)創(chuàng)建計(jì)算機(jī)帳戶的代碼》相關(guān)的同類信息!
  • 本頁收集關(guān)于利用VBS腳本自動(dòng)創(chuàng)建計(jì)算機(jī)帳戶的代碼的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章