for user name
Sub Button2_Click()
Dim strUserName As String
strUserName = Environ("username")
MsgBox (strUserName)
End Sub
for computer name
Sub Button1_Click()
Dim strUserName As String
strUserName = Environ("computername")
MsgBox (strUserName)
End Sub
Hope that helps
Regards
Asim