[API]Computer name 가져오기

선언)

Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _     (ByVal lpBuffer As String, nSize As Long) As Long

설명)
위의 함수는 buffer 에다 computer name 을 저장해주고 성공하면 0이 아닌 값을, 실패하면 0을 반환합니다. 그리고 버퍼에 computer name 이 아닌 값들이 들어가는데 이를 제거하기 위해 replace 함수를 써서 Chr(0) 인 값을 "" 로 바꿔주는게 좋습니다.

예)

Dim strComputerName As String * 255  Dim lngReturn As Long       lngReturn = GetComputerName(strComputerName, 255)     GetComputerName = Replace(Trim(strComputerName), Chr(0), "")