花ちゃん様下記で、やっと実現できました。ありがとうございました。 Dim lpBuffer As String Dim nSize As Long Dim lRet As Long lpBuffer = "" nSize = 100 lRet = GetComputerName(lpBuffer, nSize)