当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 用vbs确定脚本正在哪一个帐户下运行

VBScript
用vbs检索在运行对话框中键入的一系列命令的代码
编写可以打开文本文件并打乱在该文件中所找到的单词顺序的vbs脚本
在 HTA 中暂停脚本的方法
运行脚本之前,如何确定计算机上的默认脚本宿主的代码
用vbs实现删除名称中有撇号的文件夹
用vbs将输出内容写到屏幕以覆盖当前屏幕上的内容的方法
用vbs实现配置无人登录计算机时使用的屏幕保护程序
用vbs更改 Internet Explorer 的标题栏
用vbs读取文本文件的最后一行
用vbs实现重新启动 Internet Explorer
用vbs实现禁用服务
用vbs确定计算机是否有 USB 2.0 端口的代码
用vbs列出注册表中 Run 项中的所有项目
用vbs将名称截断以使其最多包含 16 个字符的代码
用vbs将本地文件替换为在文件服务器上找到的新版本
用vbs确定脚本正在哪一个帐户下运行
用vbs确定可移动驱动器的连接时间
用vbs记录屏幕保护程序的开始时间和结束时间
用vbs计算某个词在日志文件中的出现次数
vbs病毒的简单例子源代码解析

VBScript 中的 用vbs确定脚本正在哪一个帐户下运行


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-11   浏览: 54 ::
收藏到网摘: n/a

问:
您好,脚本专家!如何确定脚本正在哪一个帐户下运行?
-- KW
答:
您好,KW。您知道,自从我们以各种托辞而开设这一专栏以来已有一段时间了,对于我们而言,这并非易事:毕竟,寻找托辞是我们这些脚本专家的拿手好戏。明确了这一点,那就让我们以我们最喜欢的一个托辞开始吧:我们将向您介绍的脚本只在 Windows XP 和 Windows Server 2003 上有效。我们将向您介绍使得该脚本在 Windows 2000 上同样有效的方法,但后者绝对不及前者好。
噢,是的:现在感觉该方法不错。
好了,不找托辞了(至少是现在)。还是让我们讨论一下脚本吧。该脚本如下:
复制代码 代码如下:

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where " & _
"Name = 'cscript.exe' or Name = 'wscript.exe'")
For Each objProcess in colProcessList
If InStr(objProcess.CommandLine, "test.vbs") Then
colProperties = objProcess.GetOwner(strNameOfUser,strUserDomain)
Wscript.Echo "This script is running under the account belonging to " _
& strUserDomain & "\" & strNameOfUser & "."
End If
Next

正如您所看到的那样,虽然也可很容易地针对远程计算机运行此脚本,但我们还是首先连接至本地计算机上的 WMI 服务。(是的,我们的确说过很多次这样的话了。但这并不是托辞,而只是陈述事实:几乎所有的 WMI 脚本针对远程计算机的运行效果都与它们在本地计算机上的运行效果一样好。我们确实时常在谈论一些实质内容!)
接下来我们遇到了下面这行代码:
复制代码 代码如下:

Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where " & _
"Name = 'cscript.exe' or Name = 'wscript.exe'")

您可能已经猜到我们需要使用 Win32_Process 类来执行我们的任务,这是因为 Win32_Process 是用来跟踪计算机上当前运行的所有进程的 WMI 类。当然,我们并不关心计算机上运行的所有进程,我们只关心脚本。正因如此,我们添加了一个 Where 子句,该子句将只返回以下两个 Windows 脚本宿主的实例的信息:Cscript.exe 和 Wscript.exe。
注意:是的,我们本来可以以稍有不同的方式来编写此脚本的,或许那样会在进程中省下一两行代码。我们之所以选择了此方法,是因为该方法与我们在 Windows 2000 上执行此任务的方法更相似。
发出查询后,我们建立一个 For Each 循环,以遍历返回的集合。在本例中,我们试图确定名为 Test.vbs 的脚本的所有者。因此,我们需要检查每个脚本,以查看它的名称是否为 Test.vbs。我们如何去做呢?通过使用下面这行代码:
If InStr(objProcess.CommandLine, "test.vbs") Then
我们此处要做的是使用 InStr 函数来确定是否可在属性 CommandLine 中的某个位置找到字符串 test.vbs。什么是 CommandLine 属性?简单地说,它就是从命令提示符启动脚本所需的命令字符串。例如,CommandLine 可能为下列内容:
C:\Scripts\Test Scripts\Test.vbs
由于我们假定不存在名为 MyTest.vbs 的脚本,因此我们将检查 test.vbs。如果您担心此类名称冲突,那么,我们可以只使用 InStr 并针对类似 \test.vbs 的字符串进行测试。这是一个您必须决定的问题。
如果确实可以在 CommandLine 值中找到我们的目标字符串,则我们将调用 GetOwner 方法来找出进程的“所有者”(即,脚本在其下运行的帐户的名称):
objProcess.GetOwner(strNameOfUser,strUserDomain)
我们需要使用 GetOwner 传递一对“输出参数”。输出参数就是方法将用一个值对其进行填充的变量(由我们自己来命名该变量)。这里,我们将传递名为 strNameOfUser 和 strUserDomain 的变量。反过来,GetOwner 将用户名称和拥有进程的用户所在的域赋值给这两个变量。
此时我们所要做的就是回显返回信息:
Wscript.Echo "This script is running under the account belonging to " _
& strUserDomain & "\" & strNameOfUser & "."
那么,我们为何不能在 Windows 2000 上运行此脚本呢?实际上,有充分的理由来对此进行解释:只有 Windows XP 和 Windows Server 2003 上才有 CommandLine 属性。在其他版本的 Windows 上,我们无法标识各个脚本;最好的方法就是为恰好正在运行的 Cscript.exe 和 Wscript.exe 的所有实例返回所有者信息。如果只有一个脚本在运行,也同样没有问题:CScript.exe 或 Wscript.exe 的单个实例必须为该单个脚本。换句话说,这就意味着脚本宿主进程的所有者也是脚本进程的所有者。如果运行了多个脚本,则是另外一回事了。如果确实为此种情况,您最好是说:“嗯,Ken Myer 拥有其中的一个脚本,尽管我们不知道具体是哪一个。他未拥有的某个脚本恰好为 Pilar Ackerman 所拥有。
不,没有那么好。不过事实就是这样。(是的,这是一个托辞。尽管有点漏洞百出,但它仍是一个托辞。)
下面是 Windows 2000 解决方案(也可以说是:部分解决方案):
复制代码 代码如下:

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where " & _
"Name = 'cscript.exe' or Name = 'wscript.exe'")
For Each objProcess in colProcessList
objProcess.GetOwner strNameOfUser,strUserDomain
Wscript.Echo "A script is running under the account belonging to " _
& strUserDomain & "\" & strNameOfUser & "."
Next