• Home
 · 
• Miscellaneous
 · 
• Retrieve Computer Name and User logged in. Run inside an Excel workbook.

Retrieve Computer Name and User logged in. Run inside an Excel workbook.

Retrieve Computer Name and User logged in. Run inside an Excel workbook.

Rate Retrieve Computer Name and User logged in. Run inside an Excel workbook.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim objNet As Object
    Dim CompName As String, User_Name As String
    Dim Row As Integer, Total As Integer
    
    Set objNet = CreateObject("WScript.Network")
    CompName = objNet.computername
    User_Name = objNet.UserName
    Total = 0
    
    For Row = 2 To 10000
        If Range("IU" & Row).Value = "" And Total = 0 Then
            Range("IU" & Row).Value = "User: " & User_Name & " Computer: " & CompName
            Range("IV" & Row).Value = Now()
            Range("IU" & Row).Font.ColorIndex = 2
            Range("IV" & Row).Font.ColorIndex = 2
            Range("IU" & Row).Interior.ColorIndex = xlNone
            Range("IV" & Row).Interior.ColorIndex = xlNone
            Total = Total + 1
        End If
    Next

End Sub