;hotfix Scanner

;########################

$hotfix="KB824146"

$type="SP5" ; pre sp5 hotfix



$rc=open(1,"\\server\patch\"+$hotfix,5)

$regkey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Updates\Windows 2000\"+$type+"\"+$hotfix

for each $machine in netview2()

	if "Windows 2000 Hotfix - KB824146"=ReadValue("\\"+$machine+"\"+$regkey, "Description")

		$rc=writeline(1,$machine+","+ReadValue("\\"+$machine+"\"+$regkey, "InstalledDate")+@crlf)

	else

		$rc=writeline(1,$machine+",not installed"+@crlf)

	Endif

next

$rc=close(1)