vbs脚本在重定向方面替换用户什么？

Question

嗨，我想知道如何在目录中替换用户？这是我的代码：

Dim oFS,oFl 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
Set oFl = oFSO.GetFile("myexe.exe")
oFl.Move "C:\Users\myusername\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"

我不知道要替换“ myusername”以与任何计算机一起使用。感谢您的帮助

Answer 1

如果您正在寻找当前登录的用户，则可以使用类似的壳体对象从Windows环境变量中将其拉到。

Dim objShell : Set objShell = CreateObject( "WScript.Shell" )
Dim strName : strName = objShell.ExpandEnvironmentStrings( "%USERNAME%" )

或者，您可以这样从网络对象中提取它。

Dim objNetwork : Set objNetwork = CreateObject("WScript.Network")
Dim strName : strName = objNetwork.Name

拥有用户名后，看起来您只是在用文件路径构建一个字符串以运行一个应用程序，您可以使用该应用程序。

objShell.Exec("C:\Users\" & strName & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\myexe.exe")
Set objShell = Nothing