GetPCName
Dim WSH Set WSH = CreateObject("WScript.Network") PCName = WSH.ComputerName Msgbox "This PC is named: " & PCName , vbInformation