Я хочу создать скрипт VBS, который будет выводить имя пользователя как username.txt

Question

Я хочу создать скрипт vbs, который будет выводить текстовый файл с именем пользователя, когда этот пользователь входит в систему. Например, когда он входит в систему, он создает файл john.txt в выбранной папке.

Answer 1

Dim oFSO, oTxtFile

Set oFSO = CreateObject("Scripting.FileSystemObject") 

If oFSO.FileExists("C:\Logs\" & CurrentUser() & ".txt")  Then
   Msgbox "File Exist"
   Set oTxtFile = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\Logs\" & CurrentUser() & ".txt",8)
Else 
   Set oTxtFile = oFSO.CreateTextFile("C:\Logs\" & CurrentUser() & ".txt") 
   Msgbox "File Created"
End If

oTxtFile.WriteLine(CurrentUser() & " logged in at " & now() & Chr(13) & Chr(10))

Function CurrentUser()
   Set objNetwork = CreateObject("Wscript.Network")
   CurrentUser = objNetwork.username
End Function