File 使用VBScript确定登录用户

好的，所以我想制作一个程序，在用户的桌面上创建一个文本文件，但我也希望它不仅仅在我的电脑上工作，有什么想法吗？

好的，我得到的是：

Set File = CreateObject("Scripting.FileSystemObject")
Set User = CreateObject("Wscript.Network")
Set Report = File.CreateTextFile("C:\Users\" & User.UserName & "\Desktop\Report.txt", True)

如果您想在文件中键入内容，请在前三行后添加日期和时间：

Report.WriteLine(vbNewLine & "Accessed On: " & Day(date) & "/" & Month(date) & "/" & Year(date) & vbNewLine & "Accessed At: " & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now))
Report.Close

---

我看你已经接受了@Jonco98的答复。但是，不能保证

C:\Users

始终是根用户文件夹。在XP上，它可能位于

文档和设置

下。或者，操作系统可能安装在

C

以外的驱动器号上

检索用户桌面的更好方法是使用

WshSpecialFolders

集合

strDesktopFolder = CreateObject("WScript.Shell").SpecialFolders("Desktop")

---

你有我的兴趣，在那之后，代码会和我写的一样。什么会改变？@Jonco98是的，我认为你剩下的答案看起来不错。我会用

CreateObject（“WScript.Shell”）.SpecialFolders（“Desktop”）和“\Report.txt”

替换

“C:\Users\”&User.UserName&“\Desktop\Report.txt”

。