Obtener información del PC con WScript.Network y WbemScripting.SWbemDateTime

Escribir en un Módulo el siguiente código:

Sub InfoPC()
Dim objNetwork As Object
Dim objTime As Object
Dim dtefecha As Date
Dim strnombre, strdominio, strusuario As String
Set objNetwork = CreateObject("WScript.Network")
strnombre = objNetwork.ComputerName
strdominio = objNetwork.UserDomain
strusuario = objNetwork.UserName
'Obtenemos la fecha y hora del sistema
Set objTime = CreateObject("WbemScripting.SWbemDateTime")
objTime.SetVarDate (Now)
dtefecha = objTime.GetVarDate
[A1] = "Nombre del equipo: " & strnombre
[A2] = "Dominio: " & strdominio
[A3] = "Usuario: " & strusuario
[A4] = "Fecha y hora: " & dtefecha
End Sub

Obtener información del PC