[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
'-----------------------------------------------------------------------------