Dim oAccount
Dim rsUser

	Set oAccount = WScript.CreateObject("HELM.CUser")
	Set rsUser = oAccount.SearchEx("ADMIN")
	If Not rsUser.EOF Then	
	   Wscript.Echo "ADMIN real name is: " & rsUser("FirstName") & " " & rsUser("LastName")		
	End If

	Set rsUser = Nothing
	Set oAccount = Nothing