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 

---