Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для djoniAg

Пользователь


Сообщения: 106
Благодарности: 2

Профиль | Отправить PM | Цитировать


вот ответили на соседнем форуме - может кому пригодится:
Цитата:
Const ForAppending = 8
Set filesys = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = CreateObject("WScript.Network")
Set filetxt = filesys.OpenTextFile("\\server\share\logon.html", ForAppending, TRUE)
strComputer = WshNetwork.ComputerName
strUser = WshNetwork.UserName
strDate = FormatDateTime(Date(), 1)
strTime = FormatDateTime(Time(), 4)
filetxt.WriteLine("<tr><td>" & strUser & "<td>" & strComputer & "<td>"& strDate & " " & strTime & "<tr>")
filetxt.Close

Отправлено: 19:50, 30-05-2005 | #8