‘コンピュータ名を取得する関数の宣言 Public Declare Function GetComputerNameEx Lib "kernel32.dll" _ Alias "GetComputerNameExA" _ (ByVal NameType As Long, _ ByVal lpBuffer As String, _ lpnSize As Long) As Long
‘WindowsAPIの戻り値にデータが設定されている場合(正常取得) If lngWin32apiResultCode <> 0 Then pstrComputerName = Left(strExtComputerName, _ InStr(strExtComputerName, vbNullChar) – 1) ‘プロシージャを終了する Exit Sub End If
‘プロシージャを終了する Exit Sub
Err_subGetComputerName: ‘ランタイムエラーが発生したのでエラー処理をする Call subErrSyori("subGetComputerName", Err.Number, Err.Description) End Sub