问：
您好，脚本专家！如何确定脚本正在哪一个帐户下运行？
--KW
答：
您好，KW。您知道，自从我们以各种托辞而开设这一专栏以来已有一段时间了，对于我们而言，这并非易事：毕竟，寻找托辞是我们这些脚本专家的拿手好戏。明确了这一点，那就让我们以我们最喜欢的一个托辞开始吧：我们将向您介绍的脚本只在WindowsXP和WindowsServer2003上有效。我们将向您介绍使得该脚本在Windows2000上同样有效的方法，但后者绝对不及前者好。
噢，是的：现在感觉该方法不错。
好了，不找托辞了（至少是现在）。还是让我们讨论一下脚本吧。该脚本如下：
复制代码 代码如下:
strComputer="."
SetobjWMIService=GetObject("winmgmts:"&strComputer&"rootcimv2")
SetcolProcessList=objWMIService.ExecQuery("Select*fromWin32_ProcessWhere"&_
"Name='cscript.exe'orName='wscript.exe'")
ForEachobjProcessincolProcessList
IfInStr(objProcess.CommandLine,"test.vbs")Then
colProperties=objProcess.GetOwner(strNameOfUser,strUserDomain)
Wscript.Echo"Thisscriptisrunningundertheaccountbelongingto"_
&strUserDomain&""&strNameOfUser&"."
EndIf
Next
正如您所看到的那样，虽然也可很容易地针对远程计算机运行此脚本，但我们还是首先连接至本地计算机上的WMI服务。（是的，我们的确说过很多次这样的话了。但这并不是托辞，而只是陈述事实：几乎所有的WMI脚本针对远程计算机的运行效果都与它们在本地计算机上的运行效果一样好。我们确实时常在谈论一些实质内容！）
接下来我们遇到了下面这行代码：
复制代码 代码如下:
SetcolProcessList=objWMIService.ExecQuery("Select*fromWin32_ProcessWhere"&_
"Name='cscript.exe'orName='wscript.exe'")
您可能已经猜到我们需要使用Win32_Process类来执行我们的任务，这是因为Win32_Process是用来跟踪计算机上当前运行的所有进程的WMI类。当然，我们并不关心计算机上运行的所有进程，我们只关心脚本。正因如此，我们添加了一个Where子句，该子句将只返回以下两个Windows脚本宿主的实例的信息：Cscript.exe和Wscript.exe。
注意：是的，我们本来可以以稍有不同的方式来编写此脚本的，或许那样会在进程中省下一两行代码。我们之所以选择了此方法，是因为该方法与我们在Windows2000上执行此任务的方法更相似。
发出查询后，我们建立一个ForEach循环，以遍历返回的集合。在本例中，我们试图确定名为Test.vbs的脚本的所有者。因此，我们需要检查每个脚本，以查看它的名称是否为Test.vbs。我们如何去做呢？通过使用下面这行代码：
IfInStr(objProcess.CommandLine,"test.vbs")Then
我们此处要做的是使用InStr函数来确定是否可在属性CommandLine中的某个位置找到字符串test.vbs。什么是CommandLine属性？简单地说，它就是从命令提示符启动脚本所需的命令字符串。例如，CommandLine可能为下列内容：
C:ScriptsTestScriptsTest.vbs
由于我们假定不存在名为MyTest.vbs的脚本，因此我们将检查test.vbs。如果您担心此类名称冲突，那么，我们可以只使用InStr并针对类似test.vbs的字符串进行测试。这是一个您必须决定的问题。
如果确实可以在CommandLine值中找到我们的目标字符串，则我们将调用GetOwner方法来找出进程的“所有者”（即，脚本在其下运行的帐户的名称）：
objProcess.GetOwner(strNameOfUser,strUserDomain)
我们需要使用GetOwner传递一对“输出参数”。输出参数就是方法将用一个值对其进行填充的变量（由我们自己来命名该变量）。这里，我们将传递名为strNameOfUser和strUserDomain的变量。反过来，GetOwner将用户名称和拥有进程的用户所在的域赋值给这两个变量。
此时我们所要做的就是回显返回信息：
Wscript.Echo"Thisscriptisrunningundertheaccountbelongingto"_
&strUserDomain&""&strNameOfUser&"."
那么，我们为何不能在Windows2000上运行此脚本呢？实际上，有充分的理由来对此进行解释：只有WindowsXP和WindowsServer2003上才有CommandLine属性。在其他版本的Windows上，我们无法标识各个脚本；最好的方法就是为恰好正在运行的Cscript.exe和Wscript.exe的所有实例返回所有者信息。如果只有一个脚本在运行，也同样没有问题：CScript.exe或Wscript.exe的单个实例必须为该单个脚本。换句话说，这就意味着脚本宿主进程的所有者也是脚本进程的所有者。如果运行了多个脚本，则是另外一回事了。如果确实为此种情况，您最好是说：“嗯，KenMyer拥有其中的一个脚本，尽管我们不知道具体是哪一个。他未拥有的某个脚本恰好为PilarAckerman所拥有。
不，没有那么好。不过事实就是这样。（是的，这是一个托辞。尽管有点漏洞百出，但它仍是一个托辞。）
下面是Windows2000解决方案（也可以说是：部分解决方案）：
复制代码 代码如下:
strComputer="."
SetobjWMIService=GetObject("winmgmts:"&strComputer&"rootcimv2")
SetcolProcessList=objWMIService.ExecQuery("Select*fromWin32_ProcessWhere"&_
"Name='cscript.exe'orName='wscript.exe'")
ForEachobjProcessincolProcessList
objProcess.GetOwnerstrNameOfUser,strUserDomain
Wscript.Echo"Ascriptisrunningundertheaccountbelongingto"_
&strUserDomain&""&strNameOfUser&"."
Next
【用vbs确定脚本正在哪一个帐户下运行】相关文章：
★ vbs 函数 获取数组字符串的最后一个LastOne 挺方便的