code:

---

 
break on

$file='\\server\share\folder\filename.txt'
$P2Pclients='BearShare','Morpheus','LimeWire','Kazaa','Grokster','Gator.com','Napster','WinMX'

for each $app in $P2Pclients
	if keyexist('hklm\SOFTWARE\'+$app) 
	or keyexist('hkcu\SOFTWARE\'+$app) 
	or keyexist('hklm\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\'+$app) 
	or exist('%ProgramFiles%\'+$app)
		$=writeprofilestring($file,$app,@wksta,@date)
		endif
	next
 

---