Question

如何检查脚本是否以root权限运行？

我使用以下代码，但它使用linux命令获取用户ID，因此它不适用于m $ win。是否有独立于平台的方法来处理这个问题？

if { [exec id -u] eq 0 } {
    //nice, let us destroy something!
} else {
    //sorry. you are not root
}

Answer 1

Windows没有root权限也许SYSTEM帐户或管理员组的成员就是您想要的。

我所知道的并不存在已知的平台无关方法。

我建议为不同的操作系统分支。

在Windows上：要检查当前进程是否作为Administrators组的成员运行，您可以执行以下操作：
```
package require twapi
set token [twapi::open_process_token]
set groups [twapi::get_token_groups_and_attrs $token]
twapi::close_token $token
if {[dict exists $groups S-1-5-32-544] && {enabled} in [dict get $groups S-1-5-32-544]} {
     puts "I run as administrator"
} else {
     puts "No admin rights"
}
```
这需要twapi，这是一个很棒的Windows包管理员的SID是硬编码的，因为它在每个系统上都是相同的，而管理员组的名称则不是（在我的系统上它是“Administratoren”）。

您应该检查该组是否已启用，因为从Windows Vista开始有UAC，它将列出该组成员的管理员组SID（S-1-5-32-544），但带有use_for_deny_only标志。（仅当使用“以管理员身份运行”调用时，才会启用此组。）
在Unix / Linux上我建议使用TclX。

这里很简单：
```
package require TclX
if {[id userid]} {
     puts "Not root"
} else {
     puts "root"
}
```
这甚至适用于OS / X，但我不确定。

PS：不要做坏事。

Answer 2

在perl中，您可以编写以下内容以获取脚本运行所在的用户名，如下所示（独立于操作系统）

print "Current username is " . (getpwuid($<))[0] . "\n";

我不知道关于TCL的muhc - 但你可以看看这里 how to do getpwnam/getpwuid etc in tcl 在这里http://wiki.tcl.tk/1649