static extern UInt32 DsGetSiteName([MarshalAs(UnmanagedType.LPTStr)]string ComputerName, out IntPtr SiteNameBuffer);

    Private Shared Function DsGetSiteName( _

The DsGetSiteName function does not require any particular access to the specified domain. The function is sent to the Netlogon service on the computer specified by ComputerName.

UInt32 result = DsGetSiteName(ComputerName, out pBuffer);

    Dim result As UInt32 = DsGetSiteName("MEASUS", pBuffer)