Wake On LAN preko web servera?

jedino kaj mi pada na pamet je da sam digneš neki webserver na kojemu to izdefiniraš

Q-zake baš mora bit webserver?

Kod mene, server se automatski pali kad ima struje, na njem je app kojim budim one koji mi trebaju.

Na server se povezivam remote desktopom.

<%@ Import Namespace = "System.Net" %>
<%@ Import Namespace = "System.Net.Sockets" %>
<%@ Import Namespace = "System.Net.Dns"%>
<%@ Import Namespace = "System.Text"%>

<script language="vb" runat="server">

 Private Function InvertBinary(ByVal x As String) As String
        Dim ch As Char
        Dim len As Integer = CStr(x).Length
        For Each ch In CStr(x)
            If ch = "1" Then
                InvertBinary += "0"
            Else
                InvertBinary += "1"
            End If
        Next
    End Function

    Private Function OrIt(ByVal x As Long, ByVal y As Long) As String
        'Pad out
        Dim xx As String
        xx = CStr(x)
        While xx.Length < 8
            xx = "0" + xx
        End While

        Dim yy As String
        yy = CStr(y)
        While yy.Length < 8
            yy = "0" + yy
        End While
        For c As Integer = 0 To 7
            If xx.Chars(c) = "1" Or yy.Chars(c) = "1" Then
                OrIt += "1"
            Else
                OrIt += "0"
            End If
        Next
    End Function

    Private Function ToBinary(ByVal x As Long) As String
        Dim temp As String = ""
        Do
            If x Mod 2 Then
                temp = "1" + temp
            Else
                temp = "0" + temp
            End If
            x = x \ 2
            If x < 1 Then Exit Do
        Loop

        While temp.Length < 8
            temp = "0" + temp
        End While

        Return temp
    End Function

    Private Function ToInteger(ByVal x As Long) As String
        Dim temp As String
        Dim ch As Char
        Dim multiply As Integer = 1
        Dim subtract As Integer = 1
        Dim len As Integer = CStr(x).Length
        For Each ch In CStr(x)
            For len = 1 To CStr(x).Length - subtract
                multiply = multiply * 2
            Next
            multiply = CInt(ch.ToString) * multiply
            temp = multiply + temp
            subtract = subtract + 1
            multiply = 1
        Next
        Return temp
    End Function
   
    Private Sub btnWakeUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim udpClient As New UdpClient
        Dim buf(101) As Char
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(buf)
        For x As Integer = 0 To 5
            sendBytes(x) = CInt("&HFF")
        Next

        Dim MacAddress As String
        MacAddress = Replace(edtMac.Text, "-", "")

        Dim i As Integer = 6
        For x As Integer = 1 To 16
            sendBytes(i) = CInt("&H" + MacAddress.Substring(0, 2))
            sendBytes(i + 1) = CInt("&H" + MacAddress.Substring(2, 2))
            sendBytes(i + 2) = CInt("&H" + MacAddress.Substring(4, 2))
            sendBytes(i + 3) = CInt("&H" + MacAddress.Substring(6, 2))
            sendBytes(i + 4) = CInt("&H" + MacAddress.Substring(8, 2))
            sendBytes(i + 5) = CInt("&H" + MacAddress.Substring(10, 2))
            i += 6
        Next

        Dim myAddress As String

        '' Split user IP address
        Dim myIpArray() As String
        Dim a, b, c, d As Int64
        myIpArray = edtIpAddress.Text.Split(".")
        For i = 0 To myIpArray.GetUpperBound(0)
            Select Case i
                Case Is = 0
                    a = Convert.ToInt64(myIpArray(i))
                Case Is = 1
                    b = Convert.ToInt64(myIpArray(i))
                Case Is = 2
                    c = Convert.ToInt64(myIpArray(i))
                Case Is = 3
                    d = Convert.ToInt64(myIpArray(i))
            End Select
        Next

        Dim mySubnetArray() As String
        Dim sm1, sm2, sm3, sm4 As Int64
        mySubnetArray = edtSubnetMask.Text.Split(".")
        For i = 0 To mySubnetArray.GetUpperBound(0)
            Select Case i
                Case Is = 0
                    sm1 = Convert.ToInt64(mySubnetArray(i))
                Case Is = 1
                    sm2 = Convert.ToInt64(mySubnetArray(i))
                Case Is = 2
                    sm3 = Convert.ToInt64(mySubnetArray(i))
                Case Is = 3
                    sm4 = Convert.ToInt64(mySubnetArray(i))
            End Select
        Next
        myAddress = ToInteger(OrIt(ToBinary(a), InvertBinary(ToBinary(sm1)))) & "." & ToInteger(OrIt(ToBinary(b), InvertBinary(ToBinary(sm2)))) & _
    "." & ToInteger(OrIt(ToBinary(c), InvertBinary(ToBinary(sm3)))) & "." & ToInteger(OrIt(ToBinary(d), InvertBinary(ToBinary(sm4))))

        udpClient.Send(sendBytes, sendBytes.Length, myAddress, CInt(edtPortNo.Text))
        lblSent.Text = " Magic Packet sent to " & myAddress

    End Sub

 </script>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>www.depicus.com</title>
</head>

<body>

<form id=myForm method=post runat="server">
<asp:textbox id=edtMac runat="server" CssClass="myInput">00-90-27-A3-22-FE</asp:TextBox><br>
<asp:textbox id=edtIpAddress runat="server" MaxLength="15" CssClass="myInput">217.204.255.55</asp:TextBox><br>
<asp:textbox id=edtSubnetMask runat="server" MaxLength="15" CssClass="myInput">255.255.255.240</asp:TextBox><br>
<asp:textbox id=edtPortNo runat="server" MaxLength="5" CssClass="myInput">7</asp:TextBox><br>
<asp:button id=btnWakeUp runat="server" onclick="btnWakeUp_Click" Text="Wake On Wan" CssClass="bluebutton"></asp:Button>
<asp:Label id=lblSent runat="server" CssClass="errortext"><p>&nbsp;</p></asp:Label>
</form>

</body>

</html>

- nije moja skripta

- ne dajem suport

- nisam programer

preuzeto sa: http://www.depicus.com/wake-on-lan/woli.aspx

potraži WOL Magic Packets... (klik magic). Dobro ga je imati na dva računala (unutar mreže).

edit: naravno, BIOS je podešen?

Ja sam to riješio preko LogMeIn-a na taj način da sam ostavio u routeru DHCP Lease time na never expire i tako mogu upaliti bilo koji komp iako su svi ugašeni.

Naravno uvijeti moraju biti podešeni na računalima da se mogu paliti WOL.

Kao prvo, nije riječ o čistom HTML-u - promakao ti je jedan ključan dio gdje se vrti ASP koji poziva vanjski DLL koji radi WOL-a željene MAC adrese. Treba ti IIS, a vjerojatno bi prošao i Apache::ASP (ali to nisam probao).

E sad... Čemu ovo? Zamisli sljedeću situaciju (moja je ipak dosta kompliciranija, ali pojednostavljujem radi primjera):

Računalo doma / laptop / mobitel --- Router --- Firewall --- DMZ --- Firewall --- Router --- ....

Pretpostavimo da u DMZ-u imaš X računala koja bi trebala raditi nešto tu i tamo, ali su u principu manje-više uglavnom ugašena. Problem je kako popaliti A, B, C, ..., ili Z skupinu računala (A, B, C, ..., Z <= X) kad se za to ukaže potreba pri čemu skupina računala A != B != C != ... !=Z (ovime želim reći da to u pravilu nikad nisu ista računala koja se pale).

E sad... Postoji nekoliko mogućnosti kako pristupiti rješenju ovog problema:

SOLUCIJA A

Instalirati neki WOL program na neko računalo u DMZ-u koje je uvijek upaljeno i onda ga pokretati preko RDP-a ili SSH-a i paliti željena računala u DMZ-u

Mane: U principu mi se ne sviđa nimalo otvarati RDP ili SSH portove prema Internetu - tako da ti portovi nisu otvoreni i to otpada. OK, ovo bi se dalo zaobići kombinacijom VPN+RDP/SSH, ali ne da mi se za svako paljenje sekundarnih računala u DMZ-u vaditi hardverski PKI token za pristup VPN-u. Plus, hardverski PKI key za VPN ne mogu ugurati u npr. smartphone.

Prednosti: Posve nevažno jer mane nadjačavaju sve prednosti. ;]

SOLUCIJA B

Napraviti port fwd na routeru koji će prosljeđivati WOL promet prema računalima.

Mane: svako računalo bi zahtjevalo svoj vlastiti port fwd rule = prilično nepraktično za administriranje i monitoriranje.

Prednosti: Posve nevažno jer mane nadjačavaju sve prednosti. ;]

SOLUCIJA C

Napraviti samo jedan port fwd na routeru koji će prekko WOL prometa paliti jedno određeno računalo, a onda će ono preko neke startup skripte paliti ostala.

Mane: Ne pale se uvijek ista računala.

Prednosti: Posve nevažno jer mane nadjačavaju sve prednosti. ;]

.... (ima još mogućnosti, ali ne da mi se sada sve popisivati - ugl, niti jedna mi nije odgovarala za moju specifičnu situaciju) ...

SOLUCIJA X (aka moja ideja koju sam na kraju i uspješno realizirao)

Dići mali web server u DMZ-u koji će predstavljati WOL server, dići sajt na njemu na nekom divljem portu i zaštititi sve HTTPS-om i dopustiti pristup samo klijentima s odgovarajućim certifikatom. Na routeru otvoriti port fwd za HTTPS promet samo prema tom web serveru na nekom drugom divljem portu. Ima još nekih razina zaštite tu, ali o tome baš i ne bi na forumu otvorenog tipa... U svakom slučaju - WOL server je zaštićen izvana i samo odabrani ljudi (admini) imaju pristup.

Mane: uz dobro izvedenu zaštitu web servera ne mogu se sjetiti neke.

Prednosti: Samo jedan port fwd na routeru. Mogućnost paljenja računala u DMZ-u s bilo kojeg uređaja koji ima pristup Internetu i podržava određene razine zaštite (prvenstveno certifikati). Npr. sad mogu (ako se ukaže potreba) upaliti traženo računalo sa svojeg HTC-a dok ispijam podnevnu kavu u lokalnom kafiću. ;]

Zapravo je ovo jedina logicna i najjednostavnija solucija.

Mi u firmi imamo ruter na kojeg se kacimo VPN-om i sa njega saljemo magic pakete dalje. Ali ti si reko da zelis posto poto izbjec vpn.

-da, ... razumijem tvoje potrebe (kava ) no moj način rada je kroz VPN...

-drugačije potrebe-drugačija rješenja. Samo paljenje mi je relativno sporedno.. toliko da se nesjećam kad sam ga koristio za posao, osim za kućni PC.