Sub testB_ok()
Dim tmp$
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer In colComputer
tmp = objComputer.UserName
Next
MsgBox "User Name: " & Split(tmp, "\")(1), vbExclamation, "I know who you are, Baby!"
End Sub