Check OS, Check Hotfix, Install if not present

Tue, 21 Oct 2008 14:31:33 Z

Hi all,
This may seem like a simple question, but Scripting is not my forte.

I'm trying to figure out a way to check that the client OS is XPsp3 and then look for the existence of the $NTUninstallKB953760$ folder, and if it is not present, to install \\server\share\WindowsXP-kb953760-x86-ENU.exe.

Any assistance or advice would be greatly appreciated.

Thanks, Mark

Check OS, Check Hotfix, Install if not present

Tue, 21 Oct 2008 18:04:22 Z

Hey Mark,

Give this a try:

Set objShell = CreateObject("WScript.Shell") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem WHERE Name LIKE '%Microsoft Windows XP%'")
For Each objItem In colItems 
   If objItem.CSDVersion = "Service Pack 3" Then 
      If objFSO.FolderExists("C:\WINDOWS\$NTUninstallKB953760$")=False Then 
         objShell.Run "\\server\share\WindowsXP-kb953760-x86-ENU.exe /qn", ,TRUE 
      End If 
   End If 
Next 

-N

Check OS, Check Hotfix, Install if not present

Wed, 22 Oct 2008 05:39:21 Z

nckmrtn said:

Hey Mark,

Give this a try:

Set objShell = CreateObject("WScript.Shell") 

Set objFSO = CreateObject("Scripting.FileSystemObject") 

strComputer = "." 

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 

Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem WHERE Name LIKE '%Microsoft Windows XP%'")

For Each objItem In colItems 

   If objItem.CSDVersion = "Service Pack 3" Then' YES XP has SP3, then we check for patch

      If objFSO.FolderExists("C:\WINDOWS\$NTUninstallKB953760$")=False Then'Nope patch is not here, lets install on next line

         objShell.Run "\\server\share\WindowsXP-kb953760-x86-ENU.exe /qn", ,TRUE'Install patch from share

      End If 

   End If 

Next

-N

Put some small "helpers" in the script wich by itself is doing the job.
Checks for SP3 & the actual hotfix.

Check OS, Check Hotfix, Install if not present

Wed, 22 Oct 2008 06:24:11 Z

Hi Mark,

I modified your script a bit to check for whether the patch is installed instead of checking for the uninstall folder.

1
Set objShell = CreateObject("WScript.Shell")  

2
Set objFSO = CreateObject("Scripting.FileSystemObject")  

3
 

4
strComputer = "." 

5
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")  

6
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem WHERE Name LIKE '%Microsoft Windows XP%'")  

7
For Each objItem In colItems  

8
   If objItem.CSDVersion = "Service Pack 3" Then 

9
      If CheckPatch("KB953760")=True then  

10
         Wscript.Echo "Patch found." 

11
      Else 

12
          Wscript.Echo "Patch not found. Installing patch..." 

13
          objShell.Run "\\server\share\WindowsXP-kb953760-x86-ENU.exe /qn", ,TRUE  

14
      End if  

15
   End If 

16
Next 

17
 

18
Function CheckPatch(patch)  

19
  Set objSession = CreateObject("Microsoft.Update.Session")  

20
  Set objSearcher = objSession.CreateUpdateSearcher  

21
  Set objResults = objSearcher.Search("Type='Software'")  

22
  Set colUpdates = objResults.Updates  

23
  Found = False 

24
  Result = 0  

25
  For i = 0 to colUpdates.Count - 1  

26
      Result = Instr(colUpdates.Item(i).Title, patch)  

27
       If Result > 0 then  

28
         Found = True 

29
         Exit For 

30
       End if  

31
  Next 

32
  CheckPatch = Found  

33
End Function 

Regards,

Salvador Manaois III
MCSE MCSA CEH MCITP | Enterprise/Server Admin
Bytes & Badz : http://badzmanaois.blogspot.com

Check OS, Check Hotfix, Install if not present

Wed, 22 Oct 2008 15:55:12 Z

Thanks so much for your assistance guys!

Check OS, Check Hotfix, Install if not present

Fri, 24 Oct 2008 14:38:13 Z

Any way to run this against remote computers where the person logged on is only in the users group?

Check OS, Check Hotfix, Install if not present

Fri, 24 Oct 2008 16:17:44 Z

Not possible as the script is installing an OS patch; non-admins will not be able to accomplish this task. Use WSUS if you want to install patches on your clients without explicitly granting users admin rights on their machines.

http://technet.microsoft.com/en-us/wsus/default.aspx

Regards,

Salvador Manaois III
MCSE MCSA CEH MCITP | Enterprise/Server Admin
Bytes & Badz : http://badzmanaois.blogspot.com

1	Set objShell = CreateObject("WScript.Shell")
2	Set objFSO = CreateObject("Scripting.FileSystemObject")
3
4	strComputer = "."
5	Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
6	Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem WHERE Name LIKE '%Microsoft Windows XP%'")
7	For Each objItem In colItems
8	If objItem.CSDVersion = "Service Pack 3" Then
9	If CheckPatch("KB953760")=True then
10	Wscript.Echo "Patch found."
11	Else
12	Wscript.Echo "Patch not found. Installing patch..."
13	objShell.Run "\\server\share\WindowsXP-kb953760-x86-ENU.exe /qn", ,TRUE
14	End if
15	End If
16	Next
17
18	Function CheckPatch(patch)
19	Set objSession = CreateObject("Microsoft.Update.Session")
20	Set objSearcher = objSession.CreateUpdateSearcher
21	Set objResults = objSearcher.Search("Type='Software'")
22	Set colUpdates = objResults.Updates
23	Found = False
24	Result = 0
25	For i = 0 to colUpdates.Count - 1
26	Result = Instr(colUpdates.Item(i).Title, patch)
27	If Result > 0 then
28	Found = True
29	Exit For
30	End if
31	Next
32	CheckPatch = Found
33	End Function