This example demonstrates how to send packets from VBScript.
'
'
'//
'
'//
'
'//
'
'//
'
'
'
Set oPktX = WScript.CreateObject("PktX.PacketX")
'// Display network adapters
For i = 1 To oPktX.Adapters.Count
If oPktX.Adapters(i).IsGood Then
WScript.Echo "(" & i & ") " & RTrim(LTrim(oPktX.Adapters(i).Description))
End If
Next
'
oPktX.Adapter = Nothing
While oPktX.Adapter Is Nothing
WScript.StdOut.Write "Choose adapter#"
On Error Resume Next
oPktX.Adapter = oPktX.Adapters(RTrim(LTrim(WScript.StdIn.ReadLine)))
On Error Goto 0
Wend
'// Get adapter hardware address and IP address
sHWAddr = oPktX.Adapter.HWAddress
sIPAddr = oPktX.Adapter.NetIP
sIPMask = oPktX.Adapter.NetMask
WScript.Echo "MAC Addr = " & sHWAddr
WScript.Echo "IP Addr = " & sIPAddr
WScript.Echo "IP Mask = " & sIPMask
'
sIPReso = "11.12.13.14"
aIPReso=Split(sIPReso, ".", -1, 1)
aIPAddr=Split(sIPAddr, ".", -1, 1)
'
'
'
'
'
'
'
'
'
'
'
oPktX.Adapter.SendPacket Array(&hFF, &hFF, &hFF, &hFF, &hFF, &hFF,_
CByte(HexToDec(Mid(sHWAddr,1,2))),_
CByte(HexToDec(Mid(sHWAddr,3,2))),_
CByte(HexToDec(Mid(sHWAddr,5,2))),_
CByte(HexToDec(Mid(sHWAddr,7,2))),_
CByte(HexToDec(Mid(sHWAddr,9,2))),_
CByte(HexToDec(Mid(sHWAddr,11,2))),_
&h08, &h06, &h00, &h01, _
&h08, &h00, &h06, &h04, &h00, &h01,_
CByte(HexToDec(Mid(sHWAddr,1,2))),_
CByte(HexToDec(Mid(sHWAddr,3,2))),_
CByte(HexToDec(Mid(sHWAddr,5,2))),_
CByte(HexToDec(Mid(sHWAddr,7,2))),_
CByte(HexToDec(Mid(sHWAddr,9,2))),_
CByte(HexToDec(Mid(sHWAddr,11,2))),_
CByte(aIPAddr(0)),_
CByte(aIPAddr(1)),_
CByte(aIPAddr(2)),_
CByte(aIPAddr(3)),_
&h00, &h00, &h00, &h00, &h00, &h00,_
CByte(aIPReso(0)),_
CByte(aIPReso(1)),_
CByte(aIPReso(2)),_
CByte(aIPReso(3)),_
&h00, &h00, &h00, &h00, &h00, &h00,_
&h00, &h00, &h00, &h00, &h00, &h00,_
&h00, &h00, &h00, &h00, &h00, &h00), 100
Function HexToDec(sByte)
For Counter=1 To Len(sByte)
Select Case Mid(sByte,Counter,1)
Case "0" HexToDec=HexToDec+0*(16^(Len(sByte)-Counter))
Case "1" HexToDec=HexToDec+1*(16^(Len(sByte)-Counter))
Case "2" HexToDec=HexToDec+2*(16^(Len(sByte)-Counter))
Case "3" HexToDec=HexToDec+3*(16^(Len(sByte)-Counter))
Case "4" HexToDec=HexToDec+4*(16^(Len(sByte)-Counter))
Case "5" HexToDec=HexToDec+5*(16^(Len(sByte)-Counter))
Case "6" HexToDec=HexToDec+6*(16^(Len(sByte)-Counter))
Case "7" HexToDec=HexToDec+7*(16^(Len(sByte)-Counter))
Case "8" HexToDec=HexToDec+8*(16^(Len(sByte)-Counter))
Case "9" HexToDec=HexToDec+9*(16^(Len(sByte)-Counter))
Case "A" HexToDec=HexToDec+10*(16^(Len(sByte)-Counter))
Case "B" HexToDec=HexToDec+11*(16^(Len(sByte)-Counter))
Case "C" HexToDec=HexToDec+12*(16^(Len(sByte)-Counter))
Case "D" HexToDec=HexToDec+13*(16^(Len(sByte)-Counter))
Case "E" HexToDec=HexToDec+14*(16^(Len(sByte)-Counter))
Case "F" HexToDec=HexToDec+15*(16^(Len(sByte)-Counter))
End Select
Next
End Function