Vbscript 使用VBS获取用户

我需要找到一种方法来获取系统的当前用户，并将其放入地址中

现在我正在使用以下脚本：

Set WshShell = CreateObject("WScript.Shell")
Dim User
User = "User"
WshShell.Run Chr(34) & "C:\Users\" & User & "\Documents\Test\M2.bat" & Chr(34), 0
Set WshShell = Nothing

---

我正在使用它来运行批处理文件而不显示。现在要更改用户，我必须自己更改变量。有没有办法使其自动？

有几种方法可以获取当前登录用户的用户名，例如：

• 展开环境变量

  %USERNAME%

  ：

  Set sh = CreateObject("WScript.Shell")
  User = sh.ExpandEnvironmentStrings("%USERNAME%")
  

• 通过

  WshNetwork

  对象的

  UserName

  属性：

  Set net = CreateObject("WScript.Network")
  User = net.UserName
  

• 从

  Win32\u ComputerSystem

  WMI类：

  Set wmi = GetObject("winmgmts://./root/cimv2")
  For o In wmi.ExecQuery("SELECT * FROM Win32_ComputerSystem")
      User = o.UserName
  Next
  

• 通过ADSI：

  Set sys = CreateObject("ADSystemInfo")
  User = sys.UserName
  

---

有关更完整的列表，请参见Rob van der Woude编译。

有几种方法可以获取当前登录用户的用户名，例如：

Msgbox CreateObject("WScript.Shell").SpecialFolders("MyDocuments")

• 展开环境变量

  %USERNAME%

  ：

  Set sh = CreateObject("WScript.Shell")
  User = sh.ExpandEnvironmentStrings("%USERNAME%")
  

• 通过

  WshNetwork

  对象的

  UserName

  属性：

  Set net = CreateObject("WScript.Network")
  User = net.UserName
  

• 从

  Win32\u ComputerSystem

  WMI类：

  Set wmi = GetObject("winmgmts://./root/cimv2")
  For o In wmi.ExecQuery("SELECT * FROM Win32_ComputerSystem")
      User = o.UserName
  Next
  

• 通过ADSI：

  Set sys = CreateObject("ADSystemInfo")
  User = sys.UserName
  

有关更完整的列表，请参见Rob van der Woude编写的

Msgbox CreateObject("WScript.Shell").SpecialFolders("MyDocuments")

正确的方法是询问系统我的文档在哪里。用户可以移动它们

---

正确的方法是询问系统我的文档在哪里。用户可以移动它们。

如何自动移动？你希望这个脚本做什么？我的意思是，我不必每次更改系统时都更改“用户”变量…这个脚本将在USB上运行，我希望它能够根据它所使用的用户更改“用户”。因为我需要它来访问文档文件，而且您很可能知道它的目录是C:\Users\“取决于用户”\Documents。我需要它能够改变该领域的顶部，无论用户是什么。如何自动？你希望这个脚本做什么？我的意思是，我不必每次更改系统时都更改“用户”变量…这个脚本将在USB上运行，我希望它能够根据它所使用的用户更改“用户”。因为我需要它来访问文档文件，而且您很可能知道它的目录是C:\Users\“取决于用户”\Documents。我需要它能够改变该字段顶部，无论用户是什么。你以前给过我。你以前给过我。