Magic packet via VB

[Sennec]

Hallo!

Ik ben een programma aan het maken dat checkt of een pc aanstaat en zoniet deze aanzet. zo moet ik niet altijd naar de datacomputer te lopen als ik iets nodig heb, of als ik wil afdrukken.
dat checken werkt, dat was een simpel regeltje om te pingen.

Maar nu zou ik dus een WOL (wake-on-LAN) willen uitvoeren vanuit VB. Ik heb hier al vanalles over gelezen dat je een magic packet zou moeten genereren maar ik geraak er niet uit. Heeft iemand een idee van hoe dit moet ?
Maar als dit niet lukt wil ik gerust een command venster gebruiken, maar bestaat hier een command line voor om zo'n packet te verzenden ?

(ik werk met windows 7)

 

[evertVB]

zomaar een beetje gegoogled op magic packet wake on lan visual basic

http://www.activexperts.com/activsocket/objects/wol/

 

[Sennec]

bedankt ik zal het eens uitproberen.

 

[Sennec]

OK ik heb het eens geprobeerd en het blijkt VBscript te zijn, in plaats van gewoon visual basic

ik wat zitten proberen met dit:

Dim wObj As Object = CreateObject("ActiveXperts.WOL")

        wObj.WakeUp("00-00-00-00-00-00")
        lbloutput.Text = "WakeUp: result = " & wObj.LastError

maar dit werkt dus zoals te verwachten was niet.
Is er een manier waarmee ik vbscript kan gebruiken binnen een vb project ?
want die vbscript code lijkt me wel goed, en niet te moeilijk, dus die zou ik gerust willen houden.

 

[Sennec]

UPDATE

  Set wObj = CreateObject("ActiveXperts.WOL")

  wObj.WakeUp "00-10-4B-BA-7A-51"
  WScript.Echo "WakeUp: result = " & wObj.LastError

dit stukje heb ik proberen uit te voeren als een alleenstaand vbs bestand, en dit wil ook niet werken. dus ik vrees aan de juistheid van dat script

 

[Ellasar]

Ik vrees niet de juistheid van het script maar de aanwezigheid van de classes/objecten die erbij horen op jou machine.

Heb je alleen de code geprobeerd of eerst de download geinstalleerd?

 

[Ellasar]

Ik vrees niet de juistheid van het script maar de aanwezigheid van de classes/objecten die erbij horen op jou machine.

Heb je alleen de code geprobeerd of eerst de download geinstalleerd?

en misschien heb je hiert meer aan:
BRON: ="http://cakcaknaplok.wordpress.com/2008/03/21/vb6-wake-on-lan/"

Private Sub cmdSend_Click()

With wskUDP
.Protocol = sckUDPProtocol
.RemoteHost = “255.255.255.255″
.RemotePort = 4000
End With

DataToSend = “FFFFFFFFFFFF”

For i = 1 To 16
DataToSend = DataToSend & txtMACAddress.Text
Next i

DataToSend = (HEX2ASCII(DataToSend))
wskUDP.SendData DataToSend
wskUDP.Close

End Sub

Private Sub Form_Load()

txtMACAddress.Text = “001195613823″

End Sub

Function HEX2ASCII(ByVal sHEX As String) As String

For j = 1 To Len(sHEX)
HEX2ASCII = HEX2ASCII & Chr(Val(“&h” & Mid(sHEX, j, 2)))
j = j + 1
Next j

End Function