## Description
# Returns the name of the domain controller that was used to 
#   authenticate the current user of a computer. 
# VB code sample courtesy of MS Corp.
{
	-name test VBScript
	-start 
	-stop

	main()
	Print("Returned value is: '%TG.COMMAND_RETURN%'")
}


Function main()

	Set objDomain = getObject("LDAP://rootDse")
	objDC = objDomain.Get("dnsHostName")
	main = objDC
End Function