' @@@--> OHELIE OHELIE 0 Then


ReDim buff(0 To cbRequired - 1) As Byte


If GetNetworkParams(buff(0), cbRequired) = ERROR_SUCCESS Then


CopyMemory Info, ByVal VarPtr(buff(0)), LenB(Info)


GetDomainName = TrimNull(StrConv(Info.DomainName, vbUnicode))

End If '
End If

End Function


Private Function TrimNull(item As String)

Dim pos As Integer


pos = InStr(item, Chr$(0))
If pos Then
TrimNull = Left$(item, pos - 1)
Else: TrimNull = item
End If

End Function

' @@@--> OHELIE OHELIE