如何用VBS远程获得AD中客户机器的软件安装列表

dog542

需求是这样的，我想知道如何在用户不知道的状态下获得这台计算机的appwiz的列表。

dog542

木有人会么

yu2n

回复 2# dog542
我不会…但是度娘知道：

获取域内电脑所安装的软件（VBS）  
http://blog.163.com/huang_senlin ... 910920108297836601/
2010-09-29 19:08:36

这两天老大要查每台电脑安装了哪些软件，200台电脑呀，快跑得蹆抽筋啦！！没办法，只好想点法子！因为所有电脑已经加入域，好办，用组策略脚本，在此分享给需要的朋友。以下脚本功能：把注册表的软件列表读出来，然后写入一个文本文件！FilePath为这个文件保存的路径。另外，此列表筛选去除了一些系统的补丁更新。

1. 
   
2. '*************************************************
   
3. ' Script : Check Computer Application List  
   
4. 'Last Mondify:By Alin(slin0511@163.com)
   
5. '*************************************************
   
6. 
   
7. On Error Resume Next      
   
8. 
   
9. Const HKLM         = &H80000002   
   
10. Const strKeyPath   = "Software\Microsoft\Windows\CurrentVersion\Uninstall"
    
11. Const ForReading   = 1   
    
12. Const ForAppending = 8  
    
13.   
    
14. '*****************************************************************
    
15. 'Please change the path of the file where you want to save it!!!!
    
16. '*****************************************************************
    
17. Const FilePath     ="\\publicserver\public\exchange"
    
18. Set Wshell         = CreateObject("Wscript.Shell")   
    
19. Set objFSO         = CreateObject("Scripting.FileSystemobject")   
    
20. 
    
21. '*****************************************************************
    
22. 'Get the computer name!!!!
    
23. '*****************************************************************
    
24. Dim WshNetwork
    
25. Set WshNetwork = WScript.CreateObject("WScript.Network")
    
26. strComputer = WshNetwork.ComputerName  
    
27. 
    
28. '*****************************************************************
    
29. 'Delete the txt file if it is exist !!!!
    
30. '*****************************************************************
    
31. Set MyFile = objFSO.GetFile(FilePath & WshNetwork.ComputerName &".txt")
    
32. MyFile.Delete
    
33. 
    
34. '*****************************************************************
    
35. 'Create the txt file and write the application list to the file !!!!
    
36. '*****************************************************************
    
37. Set textWriteFile  = objFSO.OpenTextFile(FilePath & WshNetwork.ComputerName &".txt",forappending,True)
    
38. 
    
39. Do      
    
40. 
    
41. Set objReg  = GetObject("winmgmts://" & strComputer & "/root/default:StdRegProv")   
    
42. objReg.EnumKey HKLM, strKeyPath,arrSubKeys   
    
43. 
    
44.   For Each strSubKey In arrSubKeys        
    
45.     intRet = objReg.GetStringValue(HKLM, strKeyPath & strSubKey,"DisplayName",strValue)                              
    
46. 
    
47.         If strValue <> "" And intRet = 0 And inStr(1,strValue,"windows",1)<=0 Then
    
48.                 CScript.Echo strComputer & "    " & strValue
    
49.                 textWriteFile.WriteLine(strComputer & "    " & strValue)
    
50.              End If                  
    
51. 
    
52.         
    
53.          If strValue <> "" And intRet = 0 And inStr(1,strValue,"Java",1) >0 Then
    
54. 
    
55.                 CScript.Echo strComputer & "    " & strValue
    
56.                  textWriteFile.WriteLine(strComputer & "    " & strValue)
    
57.              End If                  
    
58. 
    
59. Next
    
60. 
    
61. Loop Until objFile.AtEndOfStream      
    
62. textWriteFile.Close   
    
63. objFile.Close

复制代码