Kodlar incelenince ne oldu\u011fu anla\u015f\u0131l\u0131yor.<\/p>\n
Private Sub Workbook_BeforeClose(Cancel As Boolean)\r\n\r\nDim strComputer As String\r\nDim objWMIService As Object\r\nDim colItems As Object\r\nDim objItem As Object\r\nDim myMACAddress As String\r\nDim s As Worksheet\r\nDim x As Integer\r\n\r\n\r\nSet s = Sheets(\"logs\")\r\n\r\n\r\nx = s.Range(\"a1\").End(xlDown).Row\r\n\r\n\r\n'Set the computer.\r\nstrComputer = \".\"\r\n\r\n'The root\\cimv2 namespace is used to access the Win32_NetworkAdapterConfiguration class.\r\nSet objWMIService = GetObject(\"winmgmts:\\\\\" & strComputer & \"\\root\\cimv2\")\r\n\r\n'A select query is used to get a collection of network adapters that have the property IPEnabled equal to true.\r\nSet colItems = objWMIService.ExecQuery(\"SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True\")\r\n\r\n'Loop through all the collection of adapters and return the MAC address of the first adapter that has a non-empty IP.\r\nFor Each objItem In colItems\r\nIf Not IsNull(objItem.IPAddress) Then myMACAddress = objItem.MACAddress\r\nExit For\r\nNext\r\n\r\n\r\nIf myMACAddress = \"D4:AE:52:B7:A5:9B\" Then\r\ns.Range(\"a\" & x + 1) = x\r\ns.Range(\"b\" & x + 1) = Now\r\ns.Range(\"c\" & x + 1) = \"c\u00fcneyt\"\r\nElseIf myMACAddress = \"6C:F0:49:B3:D1:90\" Then\r\ns.Range(\"a\" & x + 1) = x\r\ns.Range(\"b\" & x + 1) = Now\r\ns.Range(\"c\" & x + 1) = \"karaca\"\r\nElseIf myMACAddress = \"78:2B:CB:CC:93:8F\" Then\r\ns.Range(\"a\" & x + 1) = x\r\ns.Range(\"b\" & x + 1) = Now\r\ns.Range(\"c\" & x + 1) = \"serdar\"\r\nElse\r\ns.Range(\"a\" & x + 1) = x\r\ns.Range(\"b\" & x + 1) = Now\r\ns.Range(\"c\" & x + 1) = myMACAddress\r\nEnd If\r\n\r\nActiveWorkbook.Save\r\n\r\nEnd Sub<\/pre>\n<\/div>\nKolay gele…<\/p>\n","protected":false},"excerpt":{"rendered":"
Kodlar incelenince ne oldu\u011fu anla\u015f\u0131l\u0131yor. Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim strComputer As String Dim objWMIService As Object Dim colItems As Object Dim objItem As Object Dim myMACAddress As String…<\/p>\n