Here is some Awesome VB code that will help you along your way..
watch for wordwraps.
Option Explicit
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Const WindowsFolder = 0
Const SystemFolder = 1
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
Dim WshNetwork : Set WshNetwork = CreateObject("Wscript.Network")
Dim WshShell : Set WshShell = CreateObject("WScript.Shell")
Dim WshSysEnv : Set WshSysEnv = WshShell.Environment("SYSTEM")
dim strpath : strpath="\\TAC05\SOFT$\Patches\DESKTOP"
dim strpathA : strpathA="\\\\TAC05\\SOFT$\\Patches\\DESKTOP"
Dim DoThing
Dim GetOS
Dim GetSP
Dim fVer
Dim Os
Dim strAutoexec
Dim strDesktop
Dim strPrograms
Dim strStartMenu
Dim strStartup
Dim strVer
Dim fIE6Sec
Dim fWSHSec
Dim wJVMSec
Dim strSPDrive
Dim regTemp
Dim Disk
Dim GetIE
Dim wMsgsec
'*********************************************************************
' Set variable to indicate the version of the Windows operating system
'*********************************************************************
GetOS = GetTheOS 'WXP, W2K, NT4, WME, or W98
GetSP = GetServicePack 'SP1, SP2, SP3, SP4, SP5, SP6 Or None
'***************************************************************************
' Set variables to indicate the common folders that are in different
'locations on different versions of Windows
'***************************************************************************
If GetOS = "WXP" Or GetOS = "W2K" Or GetOS = "NT4" Then
strDesktop = WshShell.SpecialFolders("AllUsersDesktop")
strPrograms = WshShell.SpecialFolders("AllUsersPrograms")
strStartMenu = WshShell.SpecialFolders("AllUsersStartMenu")
strStartup = WshShell.SpecialFolders("AllUsersStartup")
End if
If GetOS = "W98" Then
strDesktop = WshShell.SpecialFolders("Desktop")
strPrograms = WshShell.SpecialFolders("Programs")
strStartMenu = WshShell.SpecialFolders("StartMenu")
strStartup = WshShell.SpecialFolders("Startup")
End if
If GetOS = "WXP" Then Call WriteLog("Installing available patches for
Windows XP")
If GetOS = "W2K" Then Call WriteLog("Installing available patches for
Windows 2000")
If GetOS = "NT4" Then Call WriteLog("Installing available patches for
Windows NT 4")
If GetOS = "W98" Then Call WriteLog("Installing available patches for
Windows 98")
'**********************************************************
'Windows XP, 2000, NT4, and 9x Updates
'**********************************************************
'Windows XP Updates
'**********************************************************
DoThing = False
If GetOS = "WXP" then
If GetSP = "SP1" Or GetSP = "SP2" Then
If CheckRegKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Updates\Windows
XP\SP2\KB823980\Type") = FALSE then
Call WriteLog("Installing Security Update KB823980")
WshShell.Run strpath & "\\WINXP\\KB823980.exe -x /q /u", 1, TRUE
Else
Call WriteLog("Operating System Needs Service Pack 1 or 1a Installed
before Security Update Can Be Applied")
End If
End if
End If
'**********************************************************
'Windows 2000 Updates
'**********************************************************
If GetOS = "W2K" then
If GetSP = "SP3" Or GetSP = "SP4" Then
If CheckRegKey("HKEY_LOCAL_MACHINE\software\Microsoft\Updates\Windows
2000\SP5\KB823980\Type") = FALSE then
Call WriteLog("Installing Security update KB823980")
WshShell.Run strPath & "\Win2K\KB823980.exe -x /q /u", 1, TRUE
Else
Call WriteLog("Operating System Needs Service Pack 3 or 4 Installed
before Security Update Can Be Applied")
End if
End if
End if
'**********************************************************
'Windows NT4 Updates
'**********************************************************
' Install Secuirty Update on Windows NT4 for Blaster Worm
' Refer: Microsoft Knowledge Base Article Q823980i
If GetOS = "NT4" Then
If GetSP = "SP6" or GetSP = "SP6a" Then
If CompareVersion(Fso.GetFileVersion(Fso.GetSpecialFolder(SystemFolder)
& "\ole32.dll"), "4.0.1381.7224") = -1 Then
If CompareVersion(Fso.GetFileVersion(Fso.GetSpecialFolder(SystemFolder)
& "\rpcrt4.dll"), "4.0.1381.7219") = -1 Then
Call WriteLog("Installing Security Update Q823980i")
WshShell.Run strPath & "\WinNT\Q823980i.exe -x /q /u", 1, TRUE
Else
Call WriteLog("The Operating System Needs Service Pack 6 or 6a
Installed before Security Update Can Be Applied")
End if
End if
End if
End if
'***********************************************************************
' Create tag file on C: drive to indicate that this script has
completed
'***********************************************************************
If Fso.FileExists(strStartup & "\continue.vbs")Then
Fso.CreateTextFile("c:\patchesdone.txt")
Else
Msgbox "Done"
End if
Call WriteLog("Completed """ & Wscript.ScriptName & """")
'Exit Patches
Wscript.Quit
'**********************************************************
'Procedures
'**********************************************************
Function GetServicePack
For Each Os in GetObject("WinMgmts://").ExecQuery("select * from
Win32_OperatingSystem where Primary=true")
' If (Os.CSDVersion) < "Service Pack 2" Then
Select Case Os.CSDVersion
Case "Service Pack 1" : GetServicePack = "SP1"
Case "Service Pack 2" : GetServicePack = "SP2"
Case "Service Pack 3" : GetServicePack = "SP3"
Case "Service Pack 4" : GetServocePack = "SP4"
Case "Service Pack 5" : GetServicePack = "SP5"
Case "Service Pack 6" : GetServicePack = "SP6"
Case Else GetServicePack = "None"
End Select
Next
End Function
'***************************************************************
'Function: Check the Registry Key
'***************************************************************
Function CheckRegKey(RegStr)
' Dim RegStr
On Error Resume Next
WshShell.RegRead RegStr
If Err Then
CheckRegKey = False
Else
CheckRegKey = True
End If
On Error Goto 0
End Function
'***************************************************************
'Function: Check the OS Type
'***************************************************************
Function GetTheOS()
'Will work with most versions of WSH.
Const OpenAsASCII = 0
Const FailIfNotExist = 0
Dim sResults, fFile
Dim WshShell : Set WshShell = CreateObject("WScript.Shell")
Dim FSO : Set FSO = CreateObject("Scripting.FileSystemObject")
Dim sTemp : sTemp = WshShell.ExpandEnvironmentStrings("%TEMP%")
Dim sTempFile : sTempFile = sTemp & "\runresult.tmp"
WshShell.Run "%comspec% /c ver >" & sTempFile, 0, True
Set fFile = FSO.OpenTextFile(sTempFile, ForReading, FailIfNotExist,
OpenAsASCII)
sResults = fFile.ReadAll
fFile.Close
FSO.DeleteFile(sTempFile)
Select Case True
'Add more info to the 98 and 95 to get the specific version. i.e. 98SE
95 a,b,or c
Case InStr(sResults, "Windows 95") > 1 : GetTheOS = "W95"
Case InStr(sResults, "Windows 98") > 1 : GetTheOS = "W98"
Case InStr(sResults, "Windows NT") > 1 : GetTheOS = "NT4"
Case InStr(sResults, "Windows 2000") > 1 : GetTheOS = "W2K"
Case InStr(sResults, "Windows XP") > 1 : GetTheOS = "WXP"
Case Else : GetTheOS = "Unknown"
End Select
End Function
'***************************************************************
'Function: Compare the version being installed to the version
'already installed on the system
'***************************************************************
Function CompareVersion(ByVal Version1, ByVal Version2)
Dim V1, V2, T1, T2
' Function returns -1 if Version1 < Version2
' Function returns 1 if Version1 > Version2
' Function returns 0 if Version1 = Version2
CompareVersion = 0
If Version1="" Or Version2="" Then
If Version1<Version2 Then
CompareVersion = -1
Exit Function
Else
If V1>V2 Then
CompareVersion = 1
Exit Function
Else
CompareVersion = 0
Exit Function
End if
End If
End If
T1 = Instr(Version1, ".")
If T1 = 0 Then T1 = Len(Version1)+1
T2 = Instr(Version2, ".")
If T2 = 0 Then T2 = Len(Version2)+1
Do While True
V1 = CInt(Left(Version1,T1-1))
V2 = CInt(Left(Version2,T2-1))
If V1<V2 Then
CompareVersion = -1
Exit Function
Else
If V1>V2 Then
CompareVersion = 1
Exit Function
End If
End iF
Version1 = Mid(Version1,T1+1)
Version2 = Mid(Version2,T2+1)
If Version1="" Or Version2="" Then
If Version1<Version2 Then
CompareVersion = -1
Exit Function
Else
If V1>V2 Then
CompareVersion = 1
Exit Function
Else
CompareVersion = 0
Exit Function
End If
End If
End iF
T1 = Instr(Version1, ".")
If T1 = 0 Then T1 = Len(Version1)+1
T2 = Instr(Version2, ".")
If T2 = 0 Then T2 = Len(Version2)+1
Loop
End Function
Sub DelFile(FilePath) ' For deleting files
If (Fso.FileExists(FilePath)) Then Fso.DeleteFile(FilePath), TRUE
End Sub
Sub WriteLog(String) ' For writing description of installation to
Software Configuration.log
Dim fLog
' Create the log file if it does not exist
If not Fso.FileExists("c:\program files\software configuration.log")
Then
Set fLog = Fso.CreateTextFile("c:\program files\Software
Configuration.log", TRUE)
fLog.WriteLine("Software Configuration Log")
fLog.Close
End if
' Append to the log file
Set fLog = Fso.OpenTextFile("c:\program Files\software
configuration.log", ForAppending)
If String = "" Then
fLog.WriteLine("")
flog.Close
Else
fLog.WriteLine(Now & " " & String)
fLog.Close
End If
End Sub
'***************************************************************
'Function: Compare the File Date of the file being compared
'to the file date of the new file being installed
'***************************************************************
Function CompareFileDate(Version1,Version2)
' Function returns -1 if Version1 < Version2
' Function returns 1 if Version1 > Version2
' Function returns 0 if Version1 = Version2
If DateValue(Version1.datelastmodified)<DateValue(Version2) then
CompareFileDate = -1
Exit Function
ElseIf DateValue(Version1.datelastmodified)>DateValue(Version2) then
CompareFileDate = 1
Exit Function
Else
CompareFileDate = 1
Exit Function
End if
End Function
