PHP קוד:
Set Shell = Wscript.CreateObject("WScript.Shell")
Set File = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
set Dom = getobject("WinNT://YOURDOMAIN")
Dom.Filter = array("computer")
avail = false
for each item in Dom
ping item.Name,avail
if avail = true then maclist item.Name
next
wscript.echo "MAC address capture complete..."
wscript.quit
'---
'appends PC name and MAC address to macaddr.txt
Function macList(RemotePC)
Set IPConfigSet = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & RemotePC & "\root\cimv2" ).ExecQuery ("SELECT MACAddress FROM Win32_NetworkAdapterConfiguration " & "WHERE IPEnabled=true" )
For Each IPConfig In IPConfigSet
custom = RemotePC & vbTab & IPConfig.MACAddress & vbNewLine
Next
createTempfile custom
fileAppend File.OpenTextFile ("c:\temp.txt"), File.OpenTextFile ("c:\macaddr.txt", 8)
File.DeleteFile "c:\temp.txt", true
End Function
'---
'This function appends one file to another
Function fileAppend(source,destination)
Do While source.AtEndOfline <> true
destination.WriteLine(source.readline)
Loop
source.close
destination.close
End Function
'---
'creates a txt file called temp.txt and write's data from dat to it
Function createTempfile(dat)
Set temp = File.CreateTextFile("c:\temp.txt")
temp.WriteLine dat
temp.Close
End Function
'---
'pings a client
Function ping (RemotePC,avail)
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonat e}").ExecQuery("select * from Win32_PingStatus where address = '" & RemotePC & "")
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
avail = false
Else
avail = true
End If
Next
End Function