[Iska]

На WSH:

Скрытый текст

Код:

Option Explicit

Dim strSourceFolder


strSourceFolder = "c:\test"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FolderExists(strSourceFolder) Then
		With .CreateTextFile(.BuildPath(strSourceFolder, WScript.CreateObject("WScript.Network").UserName & "_" & GetLocalDateTime() & ".txt"), True)
			.Close
		End With
	Else
		WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
		WScript.Quit 2
	End If
End With

WScript.Quit 0
'-----------------------------------------------------------------------------

'-----------------------------------------------------------------------------
Function GetLocalDateTime()
	Dim objSWbemObjectEx
	
	For Each objSWbemObjectEx In WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").ExecQuery("SELECT LocalDateTime FROM Win32_OperatingSystem")
		GetLocalDateTime = Left(objSWbemObjectEx.LocalDateTime, 8 + 6)
		
		Exit For
	Next
	
	Set objSWbemObjectEx = Nothing
End Function
'-----------------------------------------------------------------------------

[xxxGadeSxxx]

Спасибо.
Скрипт нужный и рабочий, но не то что я хотел или просто не пойму как его в моем случае использовать...

У пользователя на рабочем столе лежит скрипт, который создает файл в указанном месте.
И как только он его запустил, в другом месте создался файл с данными пользователя (test\petrov) + дата (число и время)

[Iska]

как его … использовать... »

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