利用VBS腳本自動創建計算機帳戶的代碼

2019-10-26 17:58:14

字體：大中小

來源：轉載

供稿：網友

mcse注:其實這是按照ADSI(Active Directory Services Interface:活動目錄服務接口)寫的程序。如果你安裝了resource kit，這段代碼可以用netcom這條命令進行工作，下面是netcom的一個例子:

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

復制代碼代碼如下:

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

　　'* 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)

上一篇：解鎖注冊表的vbs腳本

下一篇：vbs實用軟件自造——Windows腳本應用實例

發表評論

共有條評論