' Listing 14: The getNetBIOSDomain Function

Private Function getNetBIOSDomain(ByVal strComputer)
  Const HKEY_LOCAL_MACHINE = &H80000002
  Dim strKeyPath, strValueName, objRegistry, strValue
  strKeyPath = _
    "SOFTWARE\Microsoft\Windows NT\CurrentVersion\WinLogon"
  strValueName = "CachePrimaryDomain"
  On Error Resume Next
  Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}//" & _
     strComputer & "/root/default:StdRegProv")
  objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
  If Len(strValue) Then
    getNetBIOSDomain = strValue
  End If
  Err.Clear
  On Error Goto 0
  Set objRegistry = Nothing
End Function