Получение информации о последнем логине VBS

Понадобилось узнать, когда пользователи заходили на сервер терминалов в последний раз. Пользователей больше сотни и все учетки локальные, т.к. являются служебными и обезличенными. Ниже vbs скрипт выводящий информацию в файл.

Dim objWMIService, colItems, WshNetwork, strComputer
Dim objUser, objItem, dtmLastLogin, strLogonInfo
Set WshNetwork = CreateObject("Wscript.Network")
strComputer = WshNetwork.ComputerName

 Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_UserAccount Where Domain = '" & strComputer & "'")

 For Each objItem in colItems
  dtmLastLogin = ""
  On Error Resume Next
  Set objUser = GetObject("WinNT://" & strComputer _
      & "/" & objItem.Name & ",user")
  dtmLastLogin = objUser.lastLogin
  On Error Goto 0

   strLogonInfo = strLogonInfo & vbCrLf & objItem.Name & ": " & dtmLastLogin
Next
MsgBox strLogonInfo, vbOKOnly + vbInformation, "Информация о последнем входе в систему"
set FSO = CreateObject("Scripting.FileSystemObject")
set OFile = FSO.OpenTextFile("file.txt", 8, True)

OFile.Write(strLogonInfo & vbCrLf)

OFile.Close