Notification

Icon
Error

Setting Computer AD Description Attribute

Posted: Friday, May 16, 2014 12:10:56 AM(UTC)
keys_it

keys_it

Member Original PosterPosts: 31
0
Like
I wanted to share a custom action that I created that has helped me tremendously. This custom action will change the AD Description for what ever computer asset your on.

It calls on a vbscript file called changeADCompDesc.vbs and passes the computer name. Then it prompts for the new description and if it is not blank then it will set it in AD.

Here is the vbscript code:

Code:

' Get computer object in AD
strComputer = WScript.Arguments(0)

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 

objCommand.CommandText = "SELECT distinguishedName FROM 'LDAP://dc=domain,dc=com' WHERE objectCategory='computer' and name = '" & strComputer & "'"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
     strDN = objRecordSet.Fields("distinguishedName").Value
     objRecordSet.MoveNext
Loop

Set objComputer = GetObject("LDAP://" & strDN)

' Input new AD computer description field
newDescription = InputBox("Please enter the new AD Computer Description: ", "New description")
If newDescription = "" Then
	Wscript.Echo ("Invalid description and this script will quit.")
	Wscript.Quit
End If

' Write to AD computer object	
objComputer.Put "Description" , newDescription
objComputer.SetInfo


Save the code as changeCompDesc.vbs and save it into your action folder on the Lansweeper server.
Remember to change the domain in line 15 to your own domain.
Lansweeper
#1Lansweeper Member Posts: 13,442  
posted: 5/16/2014 10:19:09 PM(UTC)
Thanks for posting!
jacobsenm
#2jacobsenm Member Posts: 63  
posted: 5/19/2014 5:29:34 PM(UTC)
I was waiting for this one very long.
Good post ! Thank you,
DJSMC
#3DJSMC Member Posts: 2  
posted: 10/4/2020 4:46:17 PM(UTC)
Is anyone else having issue with this action?

I am getting a error:

Windows Script Host
Line: 18
Char: 1
Error: Either BOF or EOF is True, or the current record has been deleted. Requestd operation requires current record.
Code: 800A0BCD
Source: ADODB.RecordSet

Active Discussions

Action Setting Computer AD Description Attribute
by  DJSMC   Go to last post Go to first unread
Last post: 10/4/2020 4:46:17 PM(UTC)
Action Open Teams/SfB Chat with user
by  marceman  
Go to last post Go to first unread
Last post: 9/10/2020 4:10:18 PM(UTC)
Lansweeper Report showing app even after it has gone
by  TimHolmes1973   Go to last post Go to first unread
Last post: 9/9/2020 11:50:17 PM(UTC)
Action Remote Device Manager
by  steveb  
Go to last post Go to first unread
Last post: 9/4/2020 9:52:01 PM(UTC)
Action View Windows Defender detections remotely
by  steveb   Go to last post Go to first unread
Last post: 9/4/2020 9:37:48 PM(UTC)
Action Remote Uninstaller
by  steveb  
Go to last post Go to first unread
Last post: 9/4/2020 9:27:17 PM(UTC)
Lansweeper Filter Assets' groups by WinSystemLocale
by  Alex Beaumier   Go to last post Go to first unread
Last post: 8/20/2020 4:17:17 PM(UTC)
Action Chrome History
by  csys  
Go to last post Go to first unread
Last post: 8/14/2020 2:14:21 PM(UTC)