收藏的比较精典VBS代码发布

1、收藏的比较精典 VBS代码发布创建文件系统对象，用以处理驱动器、文件夹和文件Set fso = Wscript.CreateObject(Scripting.FileSystemObject)Set WshShell ifWscript.CreateObject(Wscript.Shell)创建系统Shell对象，用以运行程序等等刀剑 Onlinealreadyexist.txt)then如果找到文件 “ D:刀剑 Onlinealr eadyexist.txt刀剑刀剑Online.exe)运行“ D:刀剑刀剑 Online.exeelseif fso.fileexists( gengxinu

2、pdatedj.exe) then 否则，如果找到“WshShell.Run(”Wgengxinupdatedj.exe)运行 “dj.exeelse刀剑刀剑Online.exe)否则运行 “D:刀剑end if 根据条件执行语句结束dj.exe 则刀佥II Online.exeVBS导入注册表，然后执行文件dim Wsh Set WshWScript.CreateObject(WScript.Shell)Wsh.RegWriteHKCUSOFTWAREAUDITIONAUTOSTART,O,REG_DWORD网络游戏劲舞团1.5,REG_SZWsh.RegWrite HKCUSOFTWARE

3、AUDWsh.RegWriteHKCUSOFTWAREAUDITIONVERSION,1O1O,REG_DWORDWsh.ru npatcher.exePING内网不通就执行关机的 VBSstrIP = 54被 PING 的内网机器Set objShell = CreateObject(WScript.Shell)If Not IsOnline(strlP)Then objShell.runshutdown-s -t 30 -c &chr(34)&机器即将关闭&chr(34)End IfFun cti onIsOn li ne(strComputer)IsO nline=

4、 falsestrCommand= %comspec% /c ping -n 2 -w 500 & strComputer & ”Set objExecObject = objShell.Exec(strCommand)Do While Not objExecObject.StdOut.AtEndOfStreamstrText = objExecObject.StdOut.ReadAll()If Instr(strText, Reply) 0 ThenIsOn li ne= trueEnd IfLoopEnd Function开机脚本VBS用于ARP邦定Set WshShell = Wscri

5、pt.CreateObject(Wscript.Shell)WshShell.ru narp -s 30-18-e5-33-01,0WshShell.ru narp -s 30-18-e5-33-07,0运行程序Dim aSet a = WScript.CreateObject(WScript.Shell)a.Run网络游戏 大话西游llxy-2.exe运行oshell.rund:softhfhfgame3GameClie nt.l nk断幵网络连接strNICName = disable二netpci*Set objShell = CreateOb

6、ject(Wscript.Shell)strComma nd= devc on. exe&strNICNameobjShell.RunstrComma nd,0,False启动网络连接strNICName= enable=n etpci*Set objShell = CreateObject(Wscript.Shell)strComma nd= devc on. exe&strNICNameobjShell.RunstrComma nd,0,False删除文件的VBS脚本目标位置2,tdim fso Set fso = CreateObject(Scripting.FileSystemObje

7、ct)fso.CopyFile 共享目标位置 1,true 添加 fso.CopyFile 共享rue 添加fso.DeleteFile目标位置 1XXX.lnk,true 删除 fso.DeleteFile目标位置 2XXX.lnk,true 删除Set FSO=NoThingWScript.quit将域用户或租添加到本地组Set objGroup = GetObject(WinNT:/./Administrators)Set objUser = GetObject(WinNT:/testnet/Engineers)objGroup.Add(objUser.ADsPath)修改本地管理员密码

8、Set objcnlar= GetObject(WinNT:/./administrator,user)objcnla.SetPassword PssW0rdobjc nl a.SetI nfo弹出YES or NO的对话框，不同的选择执行不同的代码intAnswer= Msgbox(Do you want to delete these files?, vbYesNo, Delete Files)If intAnswer = vbYes ThenMsgbox You answered yes.Else Msgbox You answeredno.End Ifset obshell二wscri

9、pt.createobject(wscript.shell)obshell.ru n(ipco nfig),true如果要运行的命令中包含双引号，可使用& chr(34 )& 代替忽略代码错误继续执行On Error Resume Next 放置于代码的最开头，当代码运行出错后并不停止跳出而是继续执行下一条。适当应用会很有效果。注册表的修改，读取，删除，创建声明Set wso = CreateObject(WScript.Shell)wso.RegWrite%Path%创建子键wso.RegWrite%Path%,%Value%修改默认键值wso.RegWrite%Path%,%Value%,

10、%RegType%修改特定类型的键值(字符串值 REG_SZ 可扩充字符串值 REG_EXPAND_SZ DWORD 值 REG_DWORD 二进制值 REG_BINARY)Set WSHShell= Wscript.CreateObject(Wscript.Shell)WSHShell.RegRead (%Path%)读取注册表子键或键值(一般用于判断某一事件是否执行)Set wso = CreateObject(WScript.Shell)wso.RegDelete %Path%删除子键或键值(根键缩写 HKEY_CLASSES_ROOTHKCR HKEY_CURRENT_USER HKC

11、U HKEY_LOCAL_MACHINE HKLM,其余无)引用内容eg:Set wso = CreateObject(Wscript.Shell)wso.RegWriteHKLMSOFTWAREMicrosftWi ndowsNT#1wso.RegWriteHKLMSOFTWAREMicrosftWi ndowsNT#1,0wso.RegWriteHKLMSOFTWAREMicrosftWi ndowsNT#1#2,0,REG_BINARYwso.RegDeleteHKLMSOFTWAREMicrosftWi ndowsNT#1Wscript.quit文件的复制，删除，创建，简单的写入Set

12、 fso = Wscript.CreateObject(Scripting.FileSystemObject)声明Set f = fso.CreateTextFile(%PATH%)创建文件，其中f可任意，包含缩略名f.WriteLine(VBS)写文件内容，该命令功能太简单，目前看来只能用于TXT文件拷贝某文件f.Closeset c=fso.getfile(%path%)c.copy(%PATH2%)拷贝文件到指定地点fso.deletefile(%PATH%)删除文件Wscript.quit引用内容eg.Set fso = Wscript.CreateObject(Scripting.F

13、ileSystemObject)WriteL in e(VBS) f.close set e=fso.getfile(C:Sample.txt) e.copy(D:Sample.txt) fso.deletefile(C:Sample.txt)Wscript.quit向应用程序输出简单的连串指令dim program1声明变量 program1声明饮用函数运行程序program1= %Path%应用程序路径 set wshshell=createobject(wscript.shell)set oexec=wshshell.exec(program1)wscript.sleep 2000(该行

14、命令未知作用.估计是设定延迟，请高手指点)wshshell.appactivate%Win dowsName%激活运用程序窗口wshshell.se ndkeys+%KeyBoardName%第一次输出键盘按键指令前要加+wshshell.se ndkeys555555在程序输入栏中输入运用该系列命令须首先确定程序可以实施连串的键盘操作,这在QQ登录中最适用,如下例。引用内容eg.dim program1program1=D:ProgramFilesTe ncen tcoralQQ.exeset wshshell=CreateObject(wscript.shell)set oexec=wsh

15、shell.exec(program1)wscript.sleep 2000wshshell.appactivateQQ登录wshshell.se ndkeys+TABwshshell.se ndkeys250481892wscript.sleep 2000wshshell.se ndkeysTABwshshell.se ndkeys*wscript.sleep 2000wshshell.se ndkeysENTERWscript.quit文件夹的简单操作Set fso = Wscript.CreateObject(Scripting.FileSystemObject)声明Set f = fs

16、o.CreateFolder(%PATH%)创建文件夹Set e = getFolder(%PATH%)类似于绑定目标”e.copy(%PATH2%)复制文件夹fso.deletefolder(%PATH%)删除文件夹引用内容eg.Set fso = Wscript.CreateObject(Scripting.FileSystemObject)Set f = fso.CreateObject(C:sample)f.copy(D:sample)fso.deletefolder(C:sample)(由上例可以看出，文件夹的操作很多是和文件的操作相通的，因此VBS文件具有很多命令的统一性)将某一指

17、定文件夹的所有只读文件转为可读文件Co nst Read Only = 1设只读属性对应值为1Set FSO = CreateObject(Scripting.FileSystemObject)声明Set Folder = FSO.GetFolder(%PATH%)绑定文件夹Set colFiles = Folder.Files文件夹所有文件For Each objFile in colFiles下列语句应用于文件夹所有文件If File.Attributes AND ReadOnlyThen 这是关键之处，这里应用了If判断语句，来检测文件属性是否为只读File.Attributes = F

18、ile.Attributes XOR ReadOnly对判断结果为 Ture (默认为 True)执行XOR逻辑运算，将其改为可读End If结束判断Next将Word文件另存为文本文件Const wdFormatText = 2 设置常数值(当该值为8时另存为HTML文档，为11时另存为XML文档)Set objWord = CreateObject(Word.Application)申明调用函数Set objDoc = objWord.Documents.Open(%Path%)打开某 DOC 文件objDoc.SaveAs %PATH2%, wdFormatText 另存为objWord

19、.Quit引用内容eg:Const wdFormatText =2Set objWord = CreateObject(Word.Application)Set objDoc = objWord.Documents.Open(d:doc1.doc)objDoc.SaveAs g:doc1.txt, wdFormatTextobjWord.QuitstrURL = InputBox(请输入要读的网址 ,朗读网页, If strURL = The nWscript.quitEnd IfSet ie = WScript.CreateObject(l nternetExplorer.Applicati

20、o n)ie.visible = Trueie.n avigate strURLDoWscript.Sleep 200Loop Un til ie.ReadyState = 4strC ontent = ie.docume nt.body.i nn erTextSet objVoice = CreateObject(SAPI.SpV oice)Set objVoice.Voice = objV oice.GetV oices(Name=Microsoft Simplified Chinese).Item(0) objVoice.Rate = 5 速度 :-10,10 0objVoice.Vol

21、ume = 100 声音 :0,100 100 objVoice.Speak strContent本文来自 : 脚本之家 () 详细出处参考： by sssa2000我们来看一看怎么利用fso来进行文件操作。Fso时vbs里进行文件操作的核心。作为黑客,不管学习什么语言，对文件的操作都应该是要了如指掌的，所以请大家仔细学习。不说废话，先看 fso 由哪几个对象组成：drive 对象：包含储存设备的信息，包括硬盘，光驱， ram 盘，网络驱动器drives 集合：提供一个物理和逻辑驱动器的列表file 对象：检查和处理文件files 集合：提供一个文件夹中的文件列表folder 对象：检查和处理

22、文件夹folders 集合：提供文件夹中子文件夹的列表textstream 对象：读写文本文件看看 fso 的方法：由于很多，所以我不会把每个的作用写出来，如果有不懂的，自己查一下msd n。不要说没有哦bulidpath:把文件路径信息添加到现有的文件路径上copyfilecopyfoldercreatefoldercreatetextfiledeletefiledeletefolderdreveexitsfileexitsfolderexistsgetabsolutepathname：返回一个文件夹或文件的绝对路径getbase name返回一个文件或文件夹的基本路径getdrive :返

23、回一个 dreve对象getdrive name :返回一个驱动器的名字getexte nsio nn ame:返回扩展名getfile: 返回一个 file 对象getfile name:返回文件夹中文件名称getfoldergetpare ntfoldername:返回一个文件夹的父文件夹getspecialfolder: 返回指向一个特殊文件夹的对象指针gettempname:返回一个可以被createtextfile使用的随机产生的文件或文件夹的名称movefile movefolder opentextfile好了，看到这里我想大家也明白了一大半，可能后面都不用我多说了，脚本就是这么

24、简单， 呵呵呵，还是继续把。1、使用 fso 由于 fso 不是 wsh 的一部分，所以我们需要建立他的模型 例如 set fs=wscript.createobject( “ scripting.filesystemobject ”) 这样就建立了 fso 的模型。如果要释放的话也很简单， set fs=nothing2、使用文件夹创建： 在创建前我们需要检查是否存在，看一下程序 *createfolder.vbs* dim fs,sset fs=wscript.createobject( “ scripting.filesystemobject ”)if (fs.folderexists(

25、temp ”“ )c): thens=”is available”elses= ” not exist ”set foldr=fs.createfolder(temp ”“) c:end if 删除、拷贝、移动删除：set fs=wscript.createobject( “ scripting.filesystemobject ”) fs.deletefolder(win“docw: s ”)拷贝：set fs=wscript.createobject( “ scripting.filesystemobject ”) fs.copyfolderda“tac:” “dadta: ”注意，如果这

26、个时候c:data和d:data都存在，会出错，复制也就会停止，如果要强制覆盖,使用 fs.copyfolder “c:data” “d:data”， true移动set fs=wscript.createobject(“scripting.filesystemobject”)fs.movefolderd“atac: ” “dadta: ”关于通配符： 我们可以使用统配符，来方便操作： 例如， fs.movefolder :c:datate* ” , “ d :working ” 注意到没有，我在目的路径最后没有使用“ ”也就是说我没有这样写：te* ” , “d: ”这样写的话，如果 d:w

27、orking 目录不存在， windows 就不会为我们自动创建这个目录。还有一点，大家注意到没有 上面说的都没有涉及到 folder 对象，我们都是在利用 fso 提供 的方法，当然利用 folder 一样可以的：set fs= wscript.createobject(“ scripting.filesystemobject”)set f=fs.getfolder(data“”c:)f.delete 删除。如果有子目录，也会被删除f.copy “ d:working ” ,true 拷贝到 d:workingf.move : ” d:temp ” 移动到 d:temp特殊文件夹般指的就是系

28、统文件夹：windowssystem32 , 临时文件夹，windows文件夹 看下面，我们使用环境变量来获得 windows 目录，关于环境变量我们会在后面详细讲道， 如果我忘记了 请大家提醒我set fs=wscript.createobject(“scripting.filesystemobject”)set wshshell=wscript.createobject(“ wscript.shell”)osdir=wshshell.ex pandenvironmentstrings( “%systemroot% ”) set f =fs.getfolder(osdir)wscript.e

29、cho f当然，还有简单的方法 那就是使用 getspecialfolder() 这个方法使用 3 种值：0 表示 windows 文件夹，相关常量是 windowsfolder1 系统文件夹，相关常量是 systemfolder2 临时目录，相关常量 temporaryfolder 看下面的例子：*getspecialfolder*set fs=wscript.createobject(set wfolder=fs.getspecialfolder(0)set wfolder=fs.getspecialfolder(1)set wfolder=fs.getspecialfolder(2)“s

30、cripting.filesystemobject返回 windows 目录 返回 system32 返回临时目录3、使用文件使用文件属性：文件夹的属性我没有说，大家可以从文件属性里举一反三 文件属性常用的就是：normal 0readonly 1hideen 2system 4set fs=wscript.createobject(“scripting.filesystemobject”)set f=fs.gerfile(inde“x.tdxt:”)f.attributes=f.attributes+1如果文件的属性是 0，这里由于不知道 d:index.txt 的文件属性，所以会发生不可预

31、测的结果， 那么就会变成 1。所以最好在改变属性前查询创建 创建前需要检查文件是否存在，方法和前面说的文件夹的方法一样 *file.vbs* set fs=wscript.createobject( “ scripting.filesystemobject ”) if fs.fileexists(asd.tx“t c:”) thens=” available ”else s=not exist ” set f=fs.createtextfile( asd.txt “ ”c: ) end if当然我们也可以使用 set f=fs.createtextfile( “ c:asd.txt”， tru

32、e) 来强制覆盖已存在的文件。复制移动删除文件和文件夹一样 我们既可以使用 fso 提供的方法也可以用 file 对象set fs=wscript.createobject( fs.copyfile “ c:asd.txt” ,” fs.movefile “c:asd.txt ” ,“ scripting.filesystemobject ”) d:1asd.txt ” ,true 复制文件 ,如果已存在就强制覆盖 ”移动fs.deletefile “c:asd.txt” 删除 好了，下一章我们就要学习文件的读写了， 文件的读写是文件系统， 尤其是黑客编程里面十 分重要的一部分，今天打字可能有

33、很多错误，大家看的时候仔细一点，不懂得多看看 msdn, 要提高水平只有靠自己，别人是帮不了你的 本文来自 : 脚本之家 () 详细出处参考： VBS取得本机 IPstrComputer = .Set objWMIService = GetObject(winmgmts: & strComputer & rootcimv2)Set IPConfigSet = objWMIService.ExecQuery(Select IPAddress fromWin32_NetworkAdapterConfiguration Where IPEnabled=TRUE)For Each IPConfig i

34、n IPConfigSetIf Not IsNull(IPConfig.IPAddress) ThenFor Each strAddress in IPConfig.IPAddressWScript.Echo strAddressNextEnd IfNext2 取得本机计算机名 strComputer = . Set objWMIService = GetObject(winmgmts: & strComputer & rootcimv2) Set colComputers = objWMIService.ExecQuery(Select * from Win32_ComputerSystem

35、) For Each objComputer in colComputers Wscript.Echo objComputer.NameNext4 检查升级包 strComputer = .Set objWMIService = GetObject(winmgmts: & strComputer & rootcimv2)fromSet colOperatingSystems = objWMIService.ExecQuery(Select * Win32_OperatingSystem)For Each objOperatingSystem in colOperatingSystemsWscr

36、ipt.Echo objOperatingSystem.ServicePackMajorVersion & . & objOperatingSystem.ServicePackMinorVersionNext5 检查 Hot Fix strComputer = .Set objWMIService = GetObject(winmgmts: & strComputer & rootcimv2)Set colQuickFixes = objWMIService.ExecQuery (Select * from Win32_QuickFixEngineering) For Each objQuic

37、kFix in colQuickFixesWscript.Echo Description: & objQuickFix.DescriptionWscript.Echo Hot Fix ID: & objQuickFix.HotFixIDNext6 检查本地管理员数目Set objNetwork = CreateObject(Wscript.Network) strComputer = objNetwork.ComputerNameSet objGroup = GetObject(WinNT:/ & strComputer & /Administrators,group)For Each ob

38、jUser in objGroup.MembersWscript.Echo objUser.NameNext7 磁盘系统 strComputer = .Set objWMIService = GetObject(winmgmts: & strComputer & rootcimv2)Set colDisks = objWMIService.ExecQuery(Select * from Win32_LogicalDisk Where DriveType3)For Each objDisk in colDisksWscript.Echo Disk drive: & objDisk.DeviceI

39、D & - & objDisk.FileSystem Next8 检测自动登录是否开启Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = .Set objReg=GetObject(winmgmts: & strComputer & rootdefault:StdRegProv) strKeyPath = SoftwareMicrosoftWindows NTCurrentVersionWinLogon strValueName = AutoAdminLogon objReg.GetDWORDValue HKEY_LOCAL_MACHINE,

40、 strKeyPath, strValueName,dwValue If dwValue = 1 ThenWscript.Echo Auto logon is enabled.ElseWscript.Echo Auto logon is disabled.End If9 关闭自动登录Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = .Set objReg=GetObject(winmgmts: & strComputer & rootdefault:StdRegProv) strKeyPath = SoftwareMicrosoftWind

41、ows NTCurrentVersionWinLogon strValueName = AutoAdminLogon dwValue = 0 oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue 10 检查 Guest 是否禁用Set objNetwork = CreateObject(Wscript.Network) strComputer = objNetwork.ComputerNameSet objUser = GetObject(WinNT:/ & strComputer & /Guest)I

42、f objUser.AccountDisabled ThenWscript.Echo The Guest account is disabled.ElseWscript.Echo The Guest account is enabled.End If11 关闭 GuestSet objNetwork = CreateObject(Wscript.Network) strComputer = objNetwork.ComputerNameSet objUser = GetObject(WinNT:/ & strComputer & /Guest)If objUser.AccountDisable

43、d ThenWscript.Echo The Guest account is already disabled.Else objUser.AccountDisabled = True objUser.SetInfoWscript.Echo The Guest account has been disabled.End If12 检索本地共象 strComputer = .Set objWMIService = GetObject(winmgmts: & strComputer & rootcimv2)Set colShares = objWMIService.ExecQuery(Select

44、 * from Win32_Share)For each objShare in colShares Wscript.Echo Name: & objShare.Name Wscript.Echo Path: & objShare.Path Wscript.Echo Type: & objShare.TypeNext13 脚本检索一个文件夹下 .txt 文件 汗哦 值得学习 Set objWMIService = GetObject(winmgmts:.rootcimv2)Set colFiles = objWMIService.ExecQuery(SELECT * FROM CIM_Data

45、File WHERE Path = Documents桌面 AND Drive = E: AND Extension = txt)Wscript.Echo Number of .txt files found: & colFiles.Count for each aa in colFilesNL=NL & vbcrlf & nextWscript.Echo NL14 我如何向用户显示一个用来选择文件的对话框？ 问：嗨， Scripting Guy ！有没有什么方法可以让我使用脚本向用户显示一个对话框，供用户选择 文件使用？- BF 答：您好，BF。如果您使用的是Windows

46、2000，我们不知道实现此操作的方法，至少操作系统中没有内置这样的方法。但如果您使用的是Windows XP，情况就不同了。在Windows XP上，您可以使用“UserAccounts.CommonDialog ”对象向用户显示一个标准的“文件打开”对话框。可以用 类似以下代码的脚本：Set objDialog = CreateObject(UserAccounts.CommonDialog) objDialog.Filter = All Files|*.* objDialog.InitialDir = C: intResult = objDialog.ShowOpenIf intResul

47、t = 0 Then Wscript.Quit Else Wscript.Echo objDialog.FileName End If 这是一个小脚本， 所以 让我 们逐行进行解释吧。 我 们首先创建一个对 UserAccounts.CommonDialog 对象 的对象引用(名为“ objDialog ”)。接着，我们设置对话框的“筛选”属性。我们要显示所有 文件，所 以我们将筛选设置成这样： objDialog.Filter = All Files|*.* 假如我们只想显示文本文件，那该怎么办？在这种情况下，我们将使用以下筛选： objDialog.Filter = Text Files|

48、*.txt您也许能够看出它是如何运行的：我们为文件类型提供说明(Text Files)，然后插入一个竖线分隔符(|)，最后使用标准的通配符来指示所有 .txt 文件 (*.txt) 。是不是想默认显示 .txt 文件，然 后为用户提供查看所有文件的选项？那么可以使用以下代码： objDialog.Filter = Text Files|*.txt|All Files|*.* 试一试，您就明白我们的意思了。C 的根文件夹然后，我们指定默认文件夹。默认情况下，我们希望对话框显示位于驱动器中的文件，所以我们这样设置“ InitialDir ”属性：objDialog.InitialDir = C:希

49、望显示 C:Windows 文件夹中的文件吗？那么可以使用以下代码： objDialog.InitialDir = C:Windows 不必担心：这是一个真正的“文件打开”对话框，所以您可以随意单击，并且可以随时停下 来。您从C:Windows 开始并不意味着您只能打开该文件夹中的文件。 最后，我们使用下面这行代码显示对话框：intResult = objDialog.ShowOpen 现在，我们只需坐下来，等待用户选择文件并单击“确定” （或者等待用户单击“取消” ）。 如果用户单击“取消”，则变量 intResult 将被设置为 0。在我们的脚本中，我们检查intResult 的值，如果是

50、 0，我们将只需要使用 Wscript.Quit 来终止此脚本。但是如果用户实际上选择了文件并单击了 “确定”，那该怎么办？在这种情况下， intResult 将 被设置为-1，“ FileDialog ”属性将被设置为所选文件的路径名。我们的脚本只回显路径名，这意味着 我们将得到类似以下内容的输出：C:WINDOWSPrairie Wind.bmp 不用说，您并不局限于只回显文件路径。实际上，您可以使用 WMI 、 FileSystemObject 或 一些其他技术来绑定该文件， 然后对其执行删除、 复制、 压缩或检索文件属性等操作 您对文件能够执 行的操作差不多都可以对它执行。但无论如何，

51、您都需要使用脚本。 顺便说一句，使用此方法，您一次只能选择一个文件，而不能按住“Ctrl ”键选择多个文件。有一种方法可以选择多个文件，至少在 XP 计算机上可以，但是我们只能将此问题留到以后的专栏中 讨论了。15 我如何确定进程是在哪个帐户下运行的？问：嗨， Scripting Guy ！我有一个脚本，它返回关于计算机上运行的所有进程的信息，只是我不 知道如何获得这些进程在其下运行的用户帐户的名称。您可以帮助我吗？- DL答：您好， DL 。是的，我们可以帮助您。确定进程是在哪个帐户下运行的，实际上相当简单， 只是如何着手执 行此操作并不是特别显而易见的。如果您与大多数人一样，那么您可能会通

52、过扫描 Win32_Process 类的属性来查找名为 Account 或 UserName 或类似的属性。您很有可能找不到。出现这种情况 的原因是：Win32_Process 没有可以告诉您进程在哪个帐户下运行的属性。您需要使用“ GetOwner ”方法来捕捉此信息。下面这个脚本可以告诉您 Microsoft Word (Winword.exe) 在哪个帐户下运行：strComputer = .Set objWMIService = GetObject(winmgmts: & strComputer & rootcimv2)Set colProcessList = objWMIService.ExecQuery _ (Select * from Win32_Process Where NameWinword.exe)For Each objProcess in colProcessList objProcess.GetOwner strUserName, strUserDomain Wscript.Echo Process & objProcess.Name & is owned by _ & strUserDomain & & strUserName & .