code:

---

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, '10.0.1.')
    $spServer='Server-1'
    $LogServer='Server-1'
    RETURN
   CASE InStr($IP, '10.0.2.')
    $spServer='Server-2'
    $LogServer='Server-2'
   CASE 1
    $spServer='Server-3'
    $LogServer='Server-3'
  ENDSELECT

  $InstallerArray[0]=$spServer
  $InstallerArray[1]=$LogServer
  $GetLogServer=$InstallerArray
EndFunction

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

---