Shell "Powershell Set-ExecutionPolicy RemoteSigned"
Shell "Powershell get-ExecutionPolicy > c:\temp\PSSec.txt"

$fileToCheck = "c:\temp\PSSec.txt"
$stringToFind = "RemoteSigned"
			
If Exist($fileToCheck)
	$stringFound = 0
	$fileContents = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile($fileToCheck, 1, Not 1).ReadAll, @CRLF)
	For Each $line in $fileContents
		If InStr($line, $stringToFind)
			$stringFound = 1
		EndIf
	Next
	If $stringFound
		MessageBox("Status OK ! ", "ICT - INFO", 64, 1)
	Else 
		MessageBox("Status NOT OK ! ", "ICT - INFO", 64, 1)
	EndIf
EndIf

$fileToCheck = "c:\temp\PSSec.txt"
$stringToFind = "RemoteSigned"

If Exist($fileToCheck)
   $stringFound = 0
   $fh = FreeFileHandle()
   $nul = Open($fh, $fileToCheck)
   While @error = 0
      $line = ReadLine($fh)
      If InStr($line, $stringToFind)
         $stringFound = 1
      EndIf
   Loop
   If $stringFound
      $nul = MessageBox("Status OK ! ", "ICT - INFO", 64, 3)
   Else 
      $nul = MessageBox("Status NOT OK ! ", "ICT - INFO", 64, 3)
   EndIf
EndIf

Shell "Powershell Set-ExecutionPolicy RemoteSigned"
Shell "Powershell get-ExecutionPolicy > c:\temp\PSSec.txt"

$fileToCheck = "c:\temp\PSSec.txt"
$stringToFind = "RemoteSigned"

If Exist($fileToCheck)
   $stringFound = 0
   $fh = FreeFileHandle()
   $nul = Open($fh, $fileToCheck)
   While @error = 0
      $line = ReadLine($fh)
      $text = $text + $line
   Loop
   If InStr($text, $stringToFind)
      $stringFound = 1
   Endif
   If $stringFound
      $nul = MessageBox("Status OK ! ", "ICT - INFO", 64, 3)
   Else 
      $nul = MessageBox("Status NOT OK ! ", "ICT - INFO", 64, 3)
   EndIf
Endif

; Get the FileIO function from the library
Call 'K:\KixLib\FileIO.kxf'

; Run the PowerShell command forcing ASCII output (default is "Unicode", not "Funky-Code"
Shell "Powershell get-ExecutionPolicy | Out-File -encoding ascii c:\temp\PSSec.txt"

; Read file as one big string - This UDF is faster that the FSO method
; FileIO returns the file contents as an array of lines - the Join() converts the entire 
; file into a single string
$FileContents = Join(FileIO($FileToCheck, 'R'), @CRLF)

; See if the result is found.
If InStr($FileContents, $StringToFind)
  'Found!' ?
Else
  'not found...' ?
EndIf