Function GetIPAddress (strComputer)
    Set objWMIService = GetObject _
    ("winmgmts:" & "!\\" & strComputer & "\root\cimv2")

    Set colAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = 
True")

    For Each objAdapter in colAdapters
      If Not IsNull(objAdapter.IPAddress) Then
        For i = LBound(objAdapter.IPAddress) To UBound(objAdapter.IPAddress)
          GetIPAddress = objAdapter.IPAddress(i)
        Next
      End If
    Next
  End Function

  Const ForReading =  1 , ForWriting =  2 , ForAppending =  8  ' константы

  Dim path, dbName, tmpFN, msAccess, scrFN, userNm, compNm, strLog, tmpFile
  Dim fLog, tOpen, tClose, tS, tM, tH, resp

  Set WshShell = WScript.CreateObject("WScript.Shell")
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set wshProcEnv = WSHShell.environment("process")
  Set wshNetwork = WScript.CreateObject("WScript.Network")
  Set objArgs = WScript.Arguments

  userNm = LCase(wshNetwork.Username)
  compNm = wshNetwork.Computername
  ipadr = GetIPAddress(".")

'  scrFN = WScript.ScriptFullName ' полный путь размещения текущего скрипта
'  path = Left(scrFN, InStrRev(scrFN, "\")) ' папка с этим скриптом
'  ipadr = GetIPAddress(compNm, "администратор", "")


  tOff = Now()
  Set fLog = 
fso.OpenTextFile("\\Freebsd\мои_документы$\LogOnStatistic\LogOn.log", 
ForAppending) ' открыть лог для записи
  fLog.Write tOff & " " & userNm & " " &  ipadr & " " & compNm & " logON " & 
vbCrLf
  fLog.Close