Here's the details of the problem.
Currently the workstations os image has the default settings on a folder for a usergroup called "everyone" set with the permissions "Read" on a specific folder. They need to have the permission "change" on this directory.
I've written a script that will execute another script as administrator using the RUNAS command during the login that will grant the user group change permission to that target folder.

My problem is that everytime the users log into the network my script will run everytime the login script is executed.
The permissions granting should only run once.
The granting permissions script shouldn't rerun itself everytime someone logs into the same machine over and over again when the folder has already been granted the rights to the users group.

This is why I'm trying to come up with a if statement that will check a folder to see if it already has the permissions given to a specific usergroup.

for example.
Folder = C:\windows\TEMP
If Folder permissions = group(Everyone) has change access then
skip
else
grant change access to the target folder to the user group named "everyone".
endif

That IF statement was to be intended as a english definition not as code, so please bare with me.

I hope this is enough details to get some help.
I've heard that its quite possible to check file and folder rights to see if the user or users group has already been given the access.
But I can't seem to find anything on the topic.

break on

if CheckPermissions("Everyone","C",@scriptdir + "\kix32.exe")=0
? "Has Proper Permissions"
else
? "Not proper Permissions"
endif

function CheckPermissions($user,$permission,$object)
dim $counter,$perms
$CheckPermissions=1
$perms=wshpipe('%comspec% /c cacls "' + $object + '"',1)
$counter=0
while $counter<=ubound($perms) and $CheckPermissions=1
if instr($perms[$counter],$object)
if trim(split($perms[$counter],$object)[1])=$user + ":" + $permission
$CheckPermissions=0
endif
else
if trim($perms[$counter])=$user + ":" + $permission
$CheckPermissions=0
endif
endif
$counter=$counter+1
loop
endfunction

Function WshPipe($ShellCMD, OPTIONAL $NoEcho)
Dim $oExec, $Output
$oExec = CreateObject("WScript.Shell").Exec($ShellCMD)
If Not VarType($oExec)=9 $WshPipe="WScript.Shell Exec Unsupported" Exit 10 EndIf
$Output = $oExec.StdOut.ReadAll + $oExec.StdErr.ReadAll
If Not $NoEcho $Output Endif
$WshPipe=Split(Join(Split($Output,CHR(13)),''),CHR(10))
Exit($oExec.ExitCode)
EndFunction