Cacher is the code snippet organizer for pro developers

' Way 1: Though environment variables
Dim sHostName As String
Dim sUserName As String

' Get Host Name / Get Computer Name
sHostName = Environ$("computername")

' Get Current User Name
sUserName = Environ$("username")

' Way 2: Through WScript Host
Dim objNetwork As Object
Set objNetwork = CreateObject("WScript.Network")

ComputerName = objNetwork.ComputerName

Set objNetwork = Nothing