Dx21 - UDF

Home

eZine

Coding

Software

Network Admin.

Home > Coding > Libraries > UDF / UDC Library > UDF Library

	Back
	UDC Library

User Defined Functions Library

Syntax:	GetDomainNetBIOSName
Where:	n/a (except for VB.NET Example)
Constants:	Const ADS_NAME_INITTYPE_GC = 3 Const ADS_NAME_TYPE_NT4 = 3 Const ADS_NAME_TYPE_1779 = 1
Return Type:	String

View Function in:

Function GetDomainNetBIOSName
	Const ADS_NAME_INITTYPE_GC = 3
	Const ADS_NAME_TYPE_NT4 = 3
	Const ADS_NAME_TYPE_1779 = 1 
	
	Dim objRDSE: Set objRDSE = GetObject("LDAP://RootDSE")
	Dim objTrans: Set objTrans = CreateObject("NameTranslate")
	
	objTrans.Init ADS_NAME_INITTYPE_GC, ""
	objTrans.Set ADS_NAME_TYPE_1779, objRDSE.Get("defaultNamingContext")
	
	Dim strNetBIOSDomain: strNetBIOSDomain = objTrans.Get(ADS_NAME_TYPE_NT4)
	strNetBIOSDomain = Left(strNetBIOSDomain, Len(strNetBIOSDomain) - 1) 
	
	GetDomainNetBIOSName =  strNetBIOSDomain
	
	Set objRDSE = Nothing
End Function

Script Example

WScript.Echo GetDomainNetBIOSName

Last Modification:
8/30/2009

More Information: None

	FAQs \| Terms Of Use \| Privacy Policy \| Contact Us
	Copyright © 1997 - 2010 Dx21, LLC. All rights reserved. Dx21, LLC a Washington Limited Liability Company Page Rendered at: 9/2/2010 8:11:15 PM for Unknown