2

我希望能够只运行 xcopy 的一个实例而不是多个实例，从 USB 驱动器到 .\admin\desktop 在我插入它的计算机上，但是可能有一些我使用的计算机更改了管理员用户名以该人的名义。Windows 的管理员用户帐户是否有通用的批处理命名约定？如果是这样，我只想使用它可能是什么，而不是列出每个计算机的每个人的用户名并猜测它可能是什么而无需每次都查看。这是我到目前为止所拥有的，如果我知道“管理员”用户仍被标记为“管理员”这一事实，它会很好地工作。

@echo off

xcopy "%~dp0M1k_SWPCB\*.*" "C:\Documents and Settings\Admin\Desktop\SWPCB\" /d /s /h /v /c /f /k /y

pause

我也尝试了“所有用户”，但在某些情况下，该目录不存在并且无法正常工作。另外，如果计算机有多个用户，我不希望它出现在每个人的桌面上。

任何帮助将非常感激。

谢谢

4

1 回答 1

2

所有用户都有一个 SID 标识符，并且本地管理员帐户始终以 -500 后缀结尾，因此您可以通过检查注册表上的 SID 来获取管理员用户名：

@Echo OFF

FOR /F "Tokens=*" %%@ IN ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList" ^| FIND "-500"') DO (
    FOR /F "Tokens=2,*" %%A IN ('Reg Query "%%@" /v "ProfileImagePath" ^| FIND /V "%%@"') DO (
        Echo    Admin SID: %%~n@
        Echo Admin Folder: %%B
    )
)

Pause>NUL&Exit

输出：

   Admin SID: S-1-5-21-148789306-3749789949-2179752015-500
Admin Folder: C:\Users\Administrador

另一种方法是使用 VBScript，您可以在批处理文件中使用它并将管理员名称写入文本文件，然后接下来您将使用文本文件的内容设置一个变量。（我没有写这个函数）：

Set objNetwork = CreateObject("Wscript.Network")
objComputerName = objNetwork.ComputerName

Set objwmi = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & objComputerName)
qry = "SELECT * FROM Win32_Account where Domain = '" & cstr(objComputerName) & "'"

For Each Admin In objwmi.ExecQuery(qry)
    If (Left(Admin.sid, 6) = "S-1-5-" And Right(Admin.sid,4) = "-500") Then MsgBox Admin.name)
Next

PS：也许有人会发布其他解决方案，说列出组名是另一种选择......但是 groupnames 不是通用解决方案，因为母语。

于 2013-04-24T22:36:30.370 回答