On Error Resume Next
Dim adsinfo, ThisComp, oUser
Set adsinfo = CreateObject("adsysteminfo")
Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)
Thiscomp.put "description", "Logged on: " + oUser.cn + " " + CStr(Now)
ThisComp.Setinfo

Данный скрипт заносит в поле "Описание" (Description) компьютера информацию, какой пользователь когда и во сколько зашел в систему. Подскажите как допилить этот скрипт, чтобы в файл, желательно например log.csv (именно csv), записывалась информация о дате, времени, учетной записи и имени пк. В написании vbs скриптов не силен, но используется доп. скрипт который это делает во так:

@echo off
echo %date%; %time%; %username%; %computername% >> \\fs\LogOn\logOn.csv

Вывод в файле выглядит в таком виде:
02.08.2024   9:18:52,00 User_test ARM-001

По отдельности эти скрипты кое-что портят. Поэтому я бы хотел объединить их вместе.