WsusAgent检测脚本

由于WSUS升级到了3.0，发现很多客户端无法连接到WSUS服务器，原因是客户端的wsus update agent版本过低引起的。

如果运行本脚本后发现需要升级agent则可以去微软官方网站下载最新的agent3.0解决此问题。（http://support.microsoft.com/kb/949104/zh-cn）

操作：复制以下代码另存为WsusAgent30Chk.vbs

1. '==Program Start==  
2. Const WINDOWS = &H24&  
3.  
4. Set objShell = CreateObject("Shell.Application")  
5. Set objFolder = objShell.Namespace(WINDOWS)  
6. Set objFolderobjFolderItem = objFolder.Self  
7.  
8. strWinPath = objFolderItem.Path  
9. strDrvPath = Mid(strWinPath, 1, 3)  
10. strWinLen = Len(strWinPath)  
11. strNum = strWinLen - 3  
12. strWinName = Mid(strWinPath, 4, strNum)  
13. Set objFSO = CreateObject("Scripting.FileSystemObject")  
14. strFullpath = strDrvPath & "\" & strWinName & "\\system32\\wuaueng.dll"  
15.  
16. strComputer = "." 
17.  
18. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")  
19. Set colFiles = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile where name = '" & strFullpath & "'")  
20. For Each objFile in colFiles  
21.     strVer = objFile.Version  
22. Next  
23.  
24. strVerCur = Mid(strVer, 1, 12)  
25.     'Wscript.Echo strVerCur  
26. strVerNew = "7.2.6001.788" 
27. If strVerCur >= strVerNew Then  
28. Wscript.Echo "No need to update Agent"  
29. Else  
30. Wscript.Echo "Need update to Microsoft update Agent 3.0"  
31. End If  
32. '==Program End== 

 本文转自yangye1985 51CTO博客，原文链接：http://blog.51cto.com/yangye/198616，如需转载请自行联系原作者