[stel222]

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