I believe this will do the same as your script:

code:

---

$AdminAccount='Admin' ; Change this to your own administrative accountname
If @PWAGE < @MAXPWAGE
	$nul=writeprofilestring('c:\@wksta.txt','@wksta','@wksta'+chr(44)+'PWage' , '@PWAGE') 
EndIf
CLS
Select
	Case @PWAGE < @MAXPWAGE - 10
		; More then 10 days away from password expiration.
		; Do Nothing
	Case @PWAGE < @MAXPWAGE
		? 'Your Password expires in ' @MAXPWAGE-@PWAGE ' days'
		Sleep 2
		? " Processing info......wait...."
		Sleep 2
	Case @PWAGE = @MAXPWAGE
		? 'Password Expires Today'
		Sleep 2
		$nul=SendMessage($AdminAccount , @USERID + ' Password on: @wksta expires today.')
	Case 1
		$nul=SendMessage($AdminAccount , @USERID + " PassWrd Routine Error on: @wksta at @Time")
EndSelect
CLS

---