code:

---

 
Function MinorVersion($IfThisIsGreater, $ThanThis, Optional $char)
	Dim $1,$2
	if not $char	$char='.'	endif
	$1=val(right($IfThisIsGreater,instrrev($IfThisIsGreater,$char)))
	$2=val(right($ThanThis,instrrev($ThanThis,$char)))
	$MinorVersion=iif($1>$2,1,0)
	endfunction
 

---

code:

---

;===============================================================================================
;**** Created with KiXscripts Editor | http://KiXscripts.com ****
;**** Last Modified on 13-augustus-2003 at 23:09:37 by Administrator ****
;===============================================================================================

;SetConsole ("HIDE")

If @INWIN=1
 	Dim $KBPath,$KBFile,$KBRequired,$RPCver
 	$KBPath= @SCRIPTDIR + 'patch\'
	$RPCver=GetFileVersion('%windir%\system32\Rpcrt4.dll', 'Productversion')
;
	Select
		Case @ProductType='Windows NT Workstation'
			$KBFile='RPC_Patch_NT4.EXE'
			$KBRequired=KeyExist('HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Q823980')
			If $KBRequired = 0
				Shell '%comspec% /c '+$KBPath+'\'+$KBFile+' /q /z'          
			Else
				MessageBox("The RPC dll on your system is up to date","MS-03-026 RPC patch installation...",64)
				Goto end
			EndIf
;
		Case @ProductType='Windows NT Server'
			$KBFile='RPC_Patch_NT4.EXE'
			$KBRequired=KeyExist('HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Q823980')
			If $KBRequired = 0
				Shell '%comspec% /c '+$KBPath+'\'+$KBFile+' /q /z'          
			Else
				MessageBox("The RPC dll on your system is up to date","MS-03-026 RPC patch installation...",64)
				Goto end
			EndIf
;
		Case @ProductType='Windows NT Domain Controller'
			$KBFile='RPC_Patch_NT4.EXE'
			$KBRequired=KeyExist('HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Q823980')
			If $KBRequired = 0
				Shell '%comspec% /c '+$KBPath+'\'+$KBFile+' /q /z'          
			Else
				MessageBox("The RPC dll on your system is up to date","MS-03-026 RPC patch installation...",64)
				Goto end
			EndIf
;
		Case @ProductType='Windows 2000 Professional'
			$KBFile='RPC_Patch_Win2K.exe'
			If $RPCver <> "5.00.2195.6753"
				Shell '%comspec% /c '+$KBPath+'\'+$KBFile+' /u /q /z'
			Else
				MessageBox("The RPC dll on your system is up to date","MS-03-026 RPC patch installation...",64)
				Goto end
			EndIf
;
		Case @ProductType='Windows 2000 Server'
			$KBFile='RPC_Patch_Win2K.exe'
			If $RPCver <> "5.00.2195.6753"
				Shell '%comspec% /c '+$KBPath+'\'+$KBFile+' /u /q /z'
			Else
				MessageBox("The RPC dll on your system is up to date","MS-03-026 RPC patch installation...",64)
				Goto end
			EndIf
;
		Case @ProductType='Windows 2000 Domain Controller'
			$KBFile='RPC_Patch_Win2K.exe'
			If $RPCver <> "5.00.2195.6753"
				Shell '%comspec% /c '+$KBPath+'\'+$KBFile+' /u /q /z'
			Else
				MessageBox("The RPC dll on your system is up to date","MS-03-026 RPC patch installation...",64)
				Goto end
			EndIf
;
		Case @ProductType='Windows Server 2003'
			$KBFile='RPC_Patch_Win2K3.exe'
			If $RPCver <> "5.00.2195.5419"
				Shell '%comspec% /c '+$KBPath+'\'+$KBFile+' /u /q /z'
			Else
				MessageBox("The RPC dll on your system is up to date","MS-03-026 RPC patch installation...",64)
				Goto end
			EndIf			
;			
		Case @ProductType='Windows Server 2003 Domain Controller'
			$KBFile='RPC_Patch_Win2K3.exe'
			If $RPCver <> "5.00.2195.5419"
				Shell '%comspec% /c '+$KBPath+'\'+$KBFile+' /u /q /z'
			Else
				MessageBox("The RPC dll on your system is up to date","MS-03-026 RPC patch installation...",64)
				Goto end
			EndIf
;
		Case @ProductType='Windows XP Home Edition'
			$KBFile='RPC_Patch_WinXP.exe'
			If @CSD = 'Service Pack 1'
				If $RPCver <> "5.1.2600.1230"
					Shell '%comspec% /c '+$KBPath+'\'+$KBFile+' /u /q /z'
				Else
					MessageBox("The RPC dll on your system is up to date","MS-03-026 RPC patch installation...",64)
					Goto end
				EndIf
			Else
				If $RPCver <> "5.1.2600.109"
					Shell '%comspec% /c '+$KBPath+'\'+$KBFile+' /u /q /z'
				Else
					MessageBox("The RPC dll on your system is up to date","MS-03-026 RPC patch installation...",64)
					Goto end
				EndIf
			EndIf
;			
		Case @ProductType='Windows XP Professional'
			$KBFile='RPC_Patch_WinXP.exe'
			If @CSD = 'Service Pack 1'
				If $RPCver <> "5.1.2600.1230"
					Shell '%comspec% /c '+$KBPath+'\'+$KBFile+' /u /q /z'
				Else
					MessageBox("The RPC dll on your system is up to date","MS-03-026 RPC patch installation...",64)
					Goto end
				EndIf
			Else
				If $RPCver <> "5.1.2600.109"
					Shell '%comspec% /c '+$KBPath+'\'+$KBFile+' /u /q /z'
				Else
					MessageBox("The RPC dll on your system is up to date","MS-03-026 RPC patch installation...",64)
					Goto end
				EndIf
			EndIf




	EndSelect
Else
	MessageBox("The Windows version you are using does not need to be updated.","MS-03-026 RPC patch installation...",64)

EndIf
:end

---

code:

---

 IF @INWIN = 1

$os     = split(@ProductType)[1]
$csd    = val(right(@csd,1))
$admin  = ingroup('@wksta\'+sidtoname('S-1-5-32-544'))-1+@INWIN

 DIM $KBPath,$KBFile,$RPCver
 $KBPath = '\\servername\sharename\SP\KB823980'
 $RPCver = GetFileVersion('%windir%\system32\Rpcrt4.dll', 'Productversion')
 SELECT
   CASE $os='NT' and not KeyExist('HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Q823980')
        $KBFile='Q823980i.EXE /q /z'         
   CASE $os='2000' and $RPCver <> "5.00.2195.6753"
        $KBFile='Windows2000-KB823980-x86-ENU.exe /u /q /z'
   CASE $os='XP' and $CSD = 0 and $RPCver <> "5.1.2600.109"
        $KBFile='WindowsXP-KB823980-x86-ENU.exe /u /q /z'
   CASE $os='XP' and $CSD = 1 and $RPCver <> "5.1.2600.1230"
        $KBFile='WindowsXP-KB823980-x86-ENU.exe /u /q /z'
   CASE 1
        $KBFile=''
        ;? 'Must already be patched' ? $os ? $csd ? $rpcver
 ENDSELECT
 IF $KBFile
     IF $admin
         SHELL '%comspec% /c '+$KBPath+'\'+$KBFile
     ELSE
         $rc=sendmessage(@wksta,'This computer is unpatched for W32LoveSAN, Call IT Support immediately')
     ENDIF
 ENDIF
ENDIF 

---

quote:

---

Hey, R2. Can you clean up the long lines?

---