BgInfo : BgInfo - Computer info from AD/DC ?

' AD Computer Description v1.3
' Programmed by WindowsStar - Free To Use (c) 2013
' ---------------------------------------------------
On Error Resume Next
 
strComputer = "."
Set WShNetwork = CreateObject("WScript.Network")
Set objRoot = GetObject("LDAP://RootDSE")
Set objDomain = GetObject("LDAP://" & objRoot.Get("defaultNamingContext"))
strNamingContext = objRoot.Get("defaultNamingContext")
 
Set objComputer = GetObject ("LDAP://cn=" & WShNetwork.ComputerName & ",cn=Computers," & strNamingContext)
Echo objComputer.Description