コンピュータ名を取得するWindowsAPI関数（GetComputerName）について紹介します。
構文
記述方法は以下の通りとなります。
（API定義）
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
---------------------------------
（VBA記述）
GetComputerName(lpBuffer，nSize)
[説明]：
コンピュータ名を取得するAPI関数はGetComputerName関数となります。VBAから呼び出して使用する場合には、
---------------------------------
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
---------------------------------
をプロシージャ外で宣言します。
引数であるlpBufferは取得したコンピュータ名を格納する変数を指定します。また、nSizeにはコンピュータ名の文字数を指定します。実行による戻り値には「0」又は「0以外」があり、「0以外」の場合は正常終了、「0」の場合はエラーとなります。
使い方
使用方法について説明します。
[プログラミング例]：
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Sub サンプル()
'↓処理①
Dim コンピュータ名 As String * 255
'↓処理②
If GetComputerName(コンピュータ名, 255) <> 0 Then
MsgBox コンピュータ名
Else
MsgBox "コンピュータ名がありません。"
End If
End Sub
処理の流れは以下の通りとなります。
［処理①］：変数定義
コンピュータ名を格納する変数定義となります。予め格納する変数のサイズを指定する必要があるため、サイズを255にしてあります。
［処理②］：GetComputerNamによるコンピュータ名取得
WindowsAPI関数であるGetComputerNamを使用したコンピュータ名の取得になります。各引数には以下の内容をセットして処理を実行します。
・lpBuffer・・・コンピュータ名を格納する変数をセットします。
※今回は［処理①］で定義した変数：コンピュータ名をセットします。
・nSize・・・ログイン名の最大長をセットします。
※今回は［255］をセットします。
処理が終了すると戻り値として「0」又は「0以外」が返され、「0」の場合にはコンピュータ名を取得できた状態（MsgBoxでコンピュータ名を表示）となります。また、「0以外」の場合に取得に失敗した状態（MsgBoxで”コンピュータ名がありません。”を表示）となります。
※上記のプログラミング例は、VBE（VBA記述画面）に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。
[実行例]：
①<実行>ボタンには上記のプログラミング例のプログラムが登録されています。この<実行>ボタンをクリックします。（※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。）
②現在使用しているコンピュータ名「HMSLP193023」がMsgBoxで表示されます。
[サンプル]：
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。
WindowsAPIを使用したコンピュータ名を取得する方法についての説明は以上です。
おわりに
今回はWindowsAPI関数によるコンピュータ名の取得方法について説明しました。是非参考にして下さい。