$nul=SetOption("WrapAtEOL","On")

$nul=SetOption("Explicit","On")



KB823980



Function KB823980()

IF @INWIN=1

 DIM $KBPath,$Admin,$KBFile,$KBRequired,$IServer,$LServer,$GetLogServer,$Rpcs,$RPCver

 $KBPath='SP\KB823980'

 IF LocalAdmin

    $RPCver=GetRPCVersion

    $Admin ='Yes'

    SELECT

      CASE @ProductType='Windows NT Workstation'

        $KBFile='Q823980i.EXE'

        $KBRequired=KeyExist('HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Q823980')

        IF $KBRequired

          ; Patch already installed

        ELSE

          $GetLogServer = GetLogServer()

          $IServer = $GetLogServer[0]

          $LServer = $GetLogServer[1]

          SHELL '%comspec% /c \\'+$IServer+'\'+$KBPath+'\'+$KBFile+' /q /z'          

        ENDIF

      CASE @ProductType='Windows 2000 Professional'

        $KBFile='Windows2000-KB823980-x86-ENU.exe'

        IF $RPCver <> "5.00.2195.6753"

          $GetLogServer = GetLogServer()

          $IServer = $GetLogServer[0]

          $LServer = $GetLogServer[1]

          SHELL '%comspec% /c \\'+$IServer+'\'+$KBPath+'\'+$KBFile+' /u /q /z'

        ENDIF

      CASE @ProductType='Windows XP Professional' OR @ProductType='Windows XP Home Edition'

        $KBFile='WindowsXP-KB823980-x86-ENU.exe'

        IF @CSD = 'Service Pack 1'

          IF $RPCver <> "5.1.2600.1230"

            $GetLogServer = GetLogServer()

            $IServer = $GetLogServer[0]

            $LServer = $GetLogServer[1]

            SHELL '%comspec% /c \\'+$IServer+'\'+$KBPath+'\'+$KBFile+' /u /q /z'

          ENDIF

        ELSE

          IF $RPCver <> "5.1.2600.109"

            $GetLogServer = GetLogServer()

            $IServer = $GetLogServer[0]

            $LServer = $GetLogServer[1]

            SHELL '%comspec% /c \\'+$IServer+'\'+$KBPath+'\'+$KBFile+' /u /q /z'

          ENDIF

        ENDIF

      CASE 1

        ; 'Unknown Error..'

        EXIT @ERROR

    ENDSELECT

 ELSE

   $Admin ='No'

 ENDIF

ENDIF

EndFunction



function LocalAdmin()

 $LocalAdmin=ingroup('@wksta\'+sidtoname('S-1-5-32-544'))-1+@INWIN

endfunction



Function GetCurrentIP()

DIM $IP, $TempFile, $Line, $cf

$TempFile = "%TEMP%\PING.TXT"

If Exist($TempFile)

 Del $TempFile

EndIf

SHELL '%COMSPEC% /C PING -n 1 @WKSTA >'+$TempFile

$IP = ""

If Open(1, $TempFile) = 0

 $Line = ReadLine(1)

 While @ERROR = 0

  If InStr($Line,@WKSTA)

   $Line = SubStr($Line,InStr($Line,"[")+1)

   $GetCurrentIP = Substr($Line,1,InStr($Line,"]")-1)

  EndIf

  $Line = ReadLine(1)

 Loop

 $cf = Close(1)

EndIf

If Exist($TempFile)

 Del $TempFile

EndIf

EndFunction



Function GetLogServer()

  DIM $InstallerArray[2],$IP,$UserDomain,$spServer,$LogServer

  $UserDomain=@DOMAIN

  $IP=GetCurrentIP

  SELECT

   CASE InStr($IP, '132.36.')

    $spServer='none'

    $LogServer='APPSERVER1'

    EXIT @ERROR

   CASE InStr($IP, '122.124.111')

    $spServer='FPSERV2'

    $LogServer='APPSERVER1'

   CASE InStr($IP, '122.124.112')

    $spServer='FPSERV2'

    $LogServer='APPSERVER1'

   CASE $UserDomain='DOMAIN1'

    $spServer='FPSERV3'

    $LogServer='APPSERVER3'

   CASE $UserDomain='DOMAIN2'

    $spServer='FPSERV1'

    $LogServer='APPSERVER1'

   CASE $UserDomain='DOMAIN3'

    $spServer='FPSERV4'

    $LogServer='APPSERVER1'

   CASE 1

    $spServer='FPSERV1'

    $LogServer='APPSERVER1'

  ENDSELECT



  $InstallerArray[0]=$spServer

  $InstallerArray[1]=$LogServer

  $GetLogServer=$InstallerArray

EndFunction



Function GetRPCVersion()

  $GetRPCVersion = GetFileVersion('%windir%\system32\Rpcrt4.dll', 'Productversion')

endfunction