PC nameを取得する

VB Tips And Sample（HOME）＞(戻る)

Option　Explicit

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

Private　Sub　Command1_Click()

　　Dim　str　As　String　*　20
　　GetComputerName　str,　20
　　Debug.Print　str

End　Sub