Silver,

Here is another method of a counter. Not exactly what you're looking for, but an idea for future reference.

Break On
ModifyBackGround

code:
Function ModifyBackGround()
DIM $AddServerKey, $AddBackGroundValue, $CheckBGValue, $UpdateBGValue
IF @INWIN = 1
$SRVR = ReadValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ProductOptions", "ProductType")
 IF $SRVR<>"WinNT"
  IF INGROUP("\\@WKSTA\Administrators")<>0
   IF NOT keyexist("HKEY_LOCAL_MACHINE\SOFTWARE\MyCompany\SERVER")
    $AddServerKey = addkey("HKEY_LOCAL_MACHINE\SOFTWARE\MyCompany\SERVER")
    SHELL '%COMSPEC% /C "\\MyServer\MyShare\WHOAMI.EXE" >NUL 2>NUL'
    $RC=WRITEVALUE ("HKEY_USERS\.DEFAULT\Control Panel\Desktop", "Wallpaper", "%WINDIR%\Kewlit.com-autopaper.bmp", "REG_SZ")
    $AddBackGroundValue = writevalue("HKEY_LOCAL_MACHINE\SOFTWARE\MyCompany\SERVER", "BackGroundUpdate", "0", "REG_DWORD")
   ENDIF
    $CheckBGValue = VAL(READVALUE("HKEY_LOCAL_MACHINE\SOFTWARE\MyCompany\SERVER", "BackGroundUpdate"))
    $BGTemp = $CheckBGValue+1
    $UpdateBGValue = writevalue("HKEY_LOCAL_MACHINE\SOFTWARE\MyCompany\SERVER","BackGroundUpdate","$BGTemp","REG_DWORD")
    IF $CheckBGValue >10
     SHELL '%COMSPEC% /C "\\MyServer\MyShare\WHOAMI.EXE" >NUL 2>NUL'
     $RC=WRITEVALUE ("HKEY_USERS\.DEFAULT\Control Panel\Desktop", "Wallpaper", "%WINDIR%\Kewlit.com-autopaper.bmp", "REG_SZ")
     $AddBackGroundValue = writevalue("HKEY_LOCAL_MACHINE\SOFTWARE\MyCompany\SERVER","BackGroundUpdate","0","REG_DWORD")
    ENDIF
  ENDIF
 ENDIF
ENDIF
EndFunction