コンピュータ名取得(Ⅰ)          <TOP>

コンピュータ名を取得します。GetComputerNameとの相違点は、取得する名前の種類を指定することができることです。

GetComputerNameEx コンピュータ名を取得

　

　

ComputerNameNetBIOS

NetBIOS名を取得します。ローカルコンピュータがクラスタ内のノードの1つである場合は、クラスタのNetBIOS名を取得します。

ComputerNameDnsHostname

ローカルコンピュータのDNSホスト名を取得します。ローカルコンピュータがクラスタ内のノードの1つである場合は、クラスタのDNSホスト名を取得します。

ComputerNameDnsDomain

ローカルコンピュータに割り当てられている DNS ドメインの名前を取得します。ローカルコンピュータがクラスタ内のノードの1つである場合は、クラスタのDNSドメイン名を取得します。

ComputerNameDnsFullyQualified

ローカルコンピュータを一意に識別する完全修飾 DNS 名を取得します。この名前は、DNSホスト名とDNSドメイン名をHostName.DomainNameの形式で組み合わせたものです。ローカルコンピュータがクラスタ内のノードの1つである場合は、クラスタの完全修飾DNS名を取得します。

ComputerNamePhysicalNetBIOS

ローカルコンピュータのNetBIOS名を取得します。ローカルコンピュータがクラスタ内のノードの1つである場合は、クラスタではなく、ローカルコンピュータのNetBIOS名を取得します。

ComputerNamePhysicalDnsHostname

ローカルコンピュータのDNSホスト名を取得します。ローカルコンピュータがクラスタ内のノードの1つである場合は、クラスタではなく、ローカルコンピュータのDNSホスト名を取得します。

ComputerNamePhysicalDnsDomain

ローカルコンピュータに割り当てられているDNSドメインの名前を取得します。ローカルコンピュータがクラスタ内のノードの1つである場合は、クラスタではなく、ローカルコンピュータのDNSドメイン名を取得します。

ComputerNamePhysicalDnsFullyQualified

コンピュータを一意に識別する完全修飾DNS名を取得します。ローカルコンピュータがクラスタ内のノードの1つである場合は、クラスタではなく、ローカルコンピュータの完全修飾DNS名を取得します。

 
　
'================================================================
'= コンピュータ名を取得
'=    (GetComputerNameEx.bas)

'================================================================

' コンピュータ名を取得
Declare Function Api_GetComputerNameEx& Lib "kernel32" Alias "GetComputerNameExA" (ByVal NameType&, ByVal lpBuffer$, lpnSize&)

'================================================================
'= Null[Chr$(0)]を取り除く
'================================================================
Declare Function TrimNull (item As String) As String
Function TrimNull(item As String) As String
    Var ePos As Integer

    ePos = instr(item, Chr$(0))
    If ePos Then
        TrimNull = left$(item, ePos - 1)
    Else
        TrimNull = item
    End If
End Function

'------------------------------
Var ComputerName As String * 128
Var txt As String
Var Ret As Long

Ret = Api_GetComputerNameEx(ComputerNameNetBIOS, ComputerName, len(ComputerName))
txt = "NetBIOS名" : GoSub *dsp

Ret = Api_GetComputerNameEx(ComputerNameDnsHostname, ComputerName, len(ComputerName))
txt = "DNSホスト名" : GoSub *dsp

Ret = Api_GetComputerNameEx(ComputerNameDnsDomain, ComputerName, len(ComputerName))
txt = "DNSドメイン名" : GoSub *dsp

Ret = Api_GetComputerNameEx(ComputerNameDnsFullyQualified, ComputerName, len(ComputerName))
txt = "完全修飾DNS名" : GoSub *dsp

Ret = Api_GetComputerNameEx(ComputerNamePhysicalNetBIOS, ComputerName, len(ComputerName))
txt = "物理的なNetBIOS名" : GoSub *dsp

Ret = Api_GetComputerNameEx(ComputerNamePhysicalDnsHostname, ComputerName, len(ComputerName))
txt = "物理的なDNSホスト名" : GoSub *dsp

Ret = Api_GetComputerNameEx(ComputerNamePhysicalDnsDomain, ComputerName, len(ComputerName))
txt = "物理的なDNSドメイン名" : GoSub *dsp

Ret = Api_GetComputerNameEx(ComputerNamePhysicalDnsFullyQualified, ComputerName, len(ComputerName))
txt = "物理的な完全修飾DNS名" : GoSub *dsp

Stop
End

'------------------------------
*dsp
    If Ret <> 0 Then
        Print txt & ":" & TrimNull(ComputerName)
    End If
return