code:

---

 
$Mac = GetMac('wheelerc_2nd', 'ada06')
shell '\\a06\logon\tools\wol.exe ' + $mac


Function GetMac($ip, $dhcpServer)
	DIM $logs, $found, $file, $arr

	$logs=enumdir('\\'+$dhcpServer+'\admin$$\system32\dhcp\','dhcpsrvlog.*',1)
	$found=0
	for each $file in $logs
		if $found=0
			if open(1,$file,2)=0
				$line=readline(1)
				while @error=0 and $found=0
					if instr($line,$ip) and (instr($line,'Assign') or instr($line,'renew'))
						$arr  =split($line,',')
						$GetMac = $arr[ubound($arr)]
						$found = 1
						endif
					$line=readline(1)
					loop
				$=close(1)
				endif
			endif
		next
	if $GetMac=''	exit (1)	endif
	endfunction
 

---

code:

---

DHCP Server version 5.5
Num Client info read = 2.
Total Client count = 2.
ClientInfo :
        IP Address = 192.168.1.200.
        SubnetMask = 255.255.255.0.
        Client Hardware Address = 00-80-ad-78-92-0e.
        Name = ws-main.deadminstrel.com.
        Comment = (null).
        Type = DHCP
        Expires = 04/19/2003 22:46:10.
        Owner Host IP Address = 192.168.1.10.
        Owner Host NetBios Name = SVR.
        Owner Host Name = (null).
ClientInfo :
        IP Address = 192.168.1.203.
        SubnetMask = 255.255.255.0.
        Client Hardware Address = 00-80-64-16-0a-50.
        Name = (null).
        Comment = (null).
        Type = DHCP
        Expires = 04/20/2003 07:54:35.
        Owner Host IP Address = 192.168.1.10.
        Owner Host NetBios Name = SVR.
        Owner Host Name = (null).
Command successfully completed.

---

code:

---

 
break on

$return = EnumMAC('192.168.110.2', '192.168.110.0','192.168.110.12')
for $x=0 to ubound($return,2)
	? 'IP:	' + $return[0,$x]
	? 'Host:	' + $return[1,$x]
	? 'MAC:	' + $return[2,$x]
	next

Function EnumMAC($server, $subnet, Optional $ip)
	DIM $DHCPCMD, $command, $line, $x, $addr, $host, $mac
	DIM $arrTemp[2,0]

	$x = 0
	$command = 'cmd /c '+@scriptdir+'\dhcpcmd.exe '+ $server +' enumclients ' + $subnet+' -h'
	if $ip
		$command = $command + ' | find "' + $ip + '"'
		endif
	$output = WSHPipe($command,1)

	For each $line in $output
		if val(left($line,1))
			$arrTemp[0,$x] = trim(substr($line,4,15))
			$arrTemp[1,$x] = split(trim(substr($line,21,16)),'.')[0]
			$arrTemp[2,$x] = trim(substr($line,37,16))
			$x = $x +1
			redim preserve $arrTemp[2,$x]
			endif
		next
	if $x
		redim preserve $arrTemp[2,$x-1]
		$EnumMAC = $arrTemp
	else
		exit (1)
		endif
	EndFunction
;********************************************************************************************
Function WshPipe($ShellCMD, OPTIONAL $NoEcho)
	Dim $WshShell, $oExec, $AllOutput, $Exit, $WshExitCode
	$WshErrorMsg=""
	$WshShell=CreateObject("WScript.Shell")
	$oExec=$WshShell.Exec($ShellCMD)
	While $Exit<>1
		Dim $Output
		Select
		Case Not $oExec.StdOut.AtEndOfStream		$Output=$oExec.StdOut.ReadAll
		Case Not $oExec.StdErr.AtEndOfStream		$Output=$oExec.StdErr.ReadAll
								$WshErrorMsg = $Output
		Case 1						$Output=-1
		EndSelect
		If $Output=-1
			If $oExec.Status=1		$Exit=1			Endif
		Else
			If $NoEcho<>1			? $Output			Endif
			$AllOutput = $AllOutput + $Output
			Endif
		Loop
	$WshExitCode=$oExec.ExitCode
	$WshPipe=split($AllOutput,chr(10))
	Exit($WshExitCode)
	EndFunction
 

---