用vbs确定脚本正在哪一个帐户下运行
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 问： 您好，脚本专家！如何确定脚本正在哪一个帐户下运行？ --KW 答： 您好，KW。您知道，自从我们以各种托辞而开设这一专栏以来已有一段时间了，对于我们而言，这并非易事：毕竟，寻找托辞是我们这些脚本专家的拿手好戏。明确了这一点，那就让我们以我们最喜欢的一个托辞开始吧：我们将向您介绍的脚本只在WindowsXP和WindowsServer2003上有效。我们将向您介绍使得该脚本在Windows2000上同样有效的方法，但后者绝对不及前者好。 噢，是的：现在感觉该方法不错。 好了，不找托辞了（至少是现在）。还是让我们讨论一下脚本吧。该脚本如下： 复制代码 代码如下: strComputer="." SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2") 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:\Scripts\TestScripts\Test.vbs 由于我们假定不存在名为MyTest.vbs的脚本，因此我们将检查test.vbs。如果您担心此类名称冲突，那么，我们可以只使用InStr并针对类似\test.vbs的字符串进行测试。这是一个您必须决定的问题。 如果确实可以在CommandLine值中找到我们的目标字符串，则我们将调用GetOwner方法来找出进程的“所有者”（即，脚本在其下运行的帐户的名称）： objProcess.GetOwner(strNameOfUser,strUserDomain) 我们需要使用GetOwner传递一对“输出参数”。输出参数就是方法将用一个值对其进行填充的变量（由我们自己来命名该变量）。这里，我们将传递名为strNameOfUser和strUserDomain的变量。反过来，GetOwner将用户名称和拥有进程的用户所在的域赋值给这两个变量。 此时我们所要做 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于用vbs确定脚本正在哪一个帐户下运行的所有评论
