ADSI Computer Account Essentials - KiXtart.org

You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » COM Scripting » ADSI Computer Account Essentials

Page 1 of 1

Topic Options

#176666 - 2007-06-01 11:01 AM

ADSI Computer Account Essentials

Arend_ Offline

MM club member

Registered: 2005-01-17
Posts: 1896
Loc: Hilversum, The Netherlands

Here are some essentials that makes life easier.

Create Computer Account

Code:

Dim $compname, $ldap, $comp
$compname = "TestPC2" ; can also use @WKSTA
$ldap = GetObject("LDAP://OU=SomeSubOU,OU=SomeOU,DC=SomeDomain,DC=SomeDomainExtention")
$comp = $ldap.Create("Computer","CN=" + $compname)
$comp.Put("samAccountName", $compname + "$")
$comp.Put("userAccountControl", 4096)
$comp.SetInfo

Move Computer Account

Code:

$ldap = GetObject("LDAP://OU=SomeSubOU,OU=SomeOU,DC=SomeDomain,DC=SomeDomainExtention")
$ = $ldap.MoveHere("LDAP://CN=TestPC2,OU=SomeNEWOU,OU=SomeOU,DC=SomeDomain,DC=SomeDomainExtention","CN=TestPC2")

Delete Computer Account

Code:

$ldap = GetObject("LDAP://OU=SomeSubOU,OU=SomeOU,DC=SomeDomain,DC=SomeDomainExtention")
$ldap.Delete("Computer","CN=TestPC2")

Top

#177595 - 2007-07-05 10:18 AM Re: ADSI Computer Account Essentials [Re: Arend_]
Björn Björn Korg Regular Registered: 2005-12-07 Posts: 953 Loc: Stockholm, Sweden.	If I am not misstaken; Add Account[computer/user] to Group Code: Dim $strDomain,$strComp,$strGroupName Dom $oDomain,$oGroup $strDomain="Workgroup" $strComp="jdoe" $strGroupName ="Administrators" $oDomain = GetObject("WinNT://" + $strDomain) $oGroup = $oDomain.GetObject("Group", $strGroupName) $oGroup.Add ("WinNT://" + $strDomain + "/" + $strComp) _________________________ as long as it works - why fix it? If it doesn't work - kix-it!
Top

#177599 - 2007-07-05 11:22 AM Re: ADSI Computer Account Essentials [Re: Björn]
Arend_ Arend_ MM club member Registered: 2005-01-17 Posts: 1896 Loc: Hilversum, The Netherlands	Or Add Account to Group Code: $ldap = GetObject("LDAP://CN=SomeGroup,OU=SomeSubOU,OU=SomeOU,DC=SomeDomain,DC=SomeDomainExtention") $ldap.Add("LDAP://CN=TestUserOrComputer,OU=SomeSubOU,OU=SomeOU,DC=SomeDomain,DC=SomeDomainExtention")
Top

Page 1 of 1

Previous Topic View All Topics

Index Next Topic

Moderator: Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart

Hop to:

Shout Box

Search the board with:
superb Board Search
or try with google:

	Web kixtart.org