code:

---

; Get the present SuperDAT filename
$sDATString=DIR ($appsPATH + "SuperDAT\sdat*.exe")

; Parse the SuperDAT string for the version number
$sDATVer=SUBSTR($sDATString,5,4)

$VS45DATValue = READVALUE($RegPath + "Network Associates\TVD\Shared Components\VirusScan Engine\4.0.xx","szDatVersion")
$VS45DATNum = SUBSTR($VS45DATValue,5,4)

    IF VAL($sDATVer) > VAL($VS45DATNum)      ; if the SuperDAT is not up-to-date
      GOTO "SuperDAT"
    ELSE
...

---

code:

---

$ou = EnumOUs($ldap, 'computer')
For Each $item in Split($ou,"|")
	$txtArea.AddItem($item)
	Next  

---

code:

---

 $ou = "Your Domain"
$txtArea.AddItem($ou)
 

---

code:

---

 	$Computers = GetObject($area)
and 
		$Item = $List.Items.Add($name)

 

---

code:

---

 	$Computers = Netview($ou)
and
		$Item = $List.Items.Add($Item)

 

---

code:

---

 
		if $p[1]=1
			$eng=readvalue("\\$computer\$vsengine","szEngineVer")
			if @error	$eng="Unavailable"	endif
			$dat=readvalue("\\$computer\$vsengine","szDatVersion")
			if @error	$dat="Unavailable"	endif
			$Item.SubItems(1).Text=$eng
			$Item.SubItems(2).Text=$dat
		else
			$Item.SubItems(1).Text="Offline"
			endif
		$item.selected = 0
		next

 

---

code:

---

 
                if $p[1]=1
			$HKEYTVD = "\\$computer\HKEY_LOCAL_MACHINE\SOFTWARE\Network Associates\TVD\"
			Select
				; ####   Check if installed Viruscan Multiplatform version 4.5.x.xxxx
				Case ExistKey($HKEYTVD + "VirusScan") = 0
					$regver = ReadValue($HKEYTVD + "Shared Components\VirusScan Engine\4.0.xx","szDatVersion")
					$engver = ReadValue($HKEYTVD + "Shared Components\VirusScan Engine\4.0.xx","szEngineVer")
				; ####   Check if NetShield 4.5.x.xxxx installed
				Case ExistKey($HKEYTVD + "NetShield NT") = 0
					$regver = ReadValue($HKEYTVD + "NetShield NT\CurrentVersion","szVirDefVer")
					$engver = ReadValue($HKEYTVD + "NetShield NT\CurrentVersion","szEngineVer")
				; ####   Check if installed Viruscan Enterprise Version 7.0.0.xxx
				Case ExistKey($HKEYTVD + "VirusScan Enterprise") = 0
					$regver = ReadValue($HKEYTVD + "Shared Components\VirusScan Engine\4.0.xx","szVirDefVer")
					$engver = ReadValue($HKEYTVD + "Shared Components\VirusScan Engine\4.0.xx","szEngineVer")
				; ####	DEFAULT WHEN AN OUTDATED VERSION OR NO MCAFEE CAN BE FOUND
				Case 1
					$REGVER = "Unavailable"
					$ENGVER = "Unavailable"
			EndSelect
			; corrects the Dat Version on different install versions to match the same format.
			If $regver > 4000 AND $Regver <> "Unavailable"
				$regver = "4.0." + $regver
			Else
				If $regver < 1
					$regver = "4." + SubStr($Regver,1,6)
				EndIf
			EndIf
			$eng=$Engver
			$dat=$regver
			$Item.SubItems(1).Text=$eng
			$Item.SubItems(2).Text=$dat
		Else
			$Item.SubItems(1).Text="Offline"
			EndIf
		$item.selected = 0
		Next

 

---

quote:

---

replace the EnumOU() function with EnumDHCP()

But you will need to hardcode in you DHCP servers and subnets...

---