[¤À¨É] ¨Ï¥ÎAPI¶Ç¦^¹q¸£¦WºÙ

Min

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

Sub Get_Computer_Name()
    Dim Comp_Name_B As String * 255
    Dim Comp_Name As String
    GetComputerName Comp_Name_B, Len(Comp_Name_B)
   
    'µM¦Ó¦¹¤@¦r¦ê¸g±`¥H null²Å¸¹§@¬°µ²§À¡A¦]¦¹¡A§Ú­Ì¨Ï¥Î Chr(0) ¨ç¼Æ¨Ó¨ú±oµ²§À
    Comp_Name = Left(Comp_Name_B, InStr(Comp_Name_B, Chr(0)))
   
    '¶È¶Ç¦^¹q¸£¦WºÙ
    MsgBox Comp_Name
End Sub