Predmet:Re: Provjera Link

---

Pinganje kompjutera
imas u atach dva modula
Napravi tabelu PostavkeMreze s dvije kolone
ID    NazivPostavke    Val
1    SMTPServer    DOMA_A
3    SMTPUser     ROKO
4    SMTPPass     1234

Poziv

SMTPName = ELookup("[Val]", "PostavkeMreze", "[NazivPostavke]='SMTPServer'")
If Ping(SMTPName) = -1 Then
MsgBox "Računalo koje pozivate nije spojeno na server. ", vbInformation, "Error Mreža"
Exit Sub
Else
SMTPUser = ELookup("[Val]", "PostavkeMreze", "[NazivPostavke]='SMTPUser'")'' ovo ako je konkretni user
SMTPPass = ELookup("[Val]", "PostavkeMreze", "[NazivPostavke]='SMTPPass'")
End If

Ako za SMTPName IP adresu recimmo 192.168.1.20 i u biosu podesiš na tu adresu funkcije bi ti trbala upaliti taj komp koji trenutno nije ONLINE
možeš podesiti WakeOnLan po IP adresi il
ako več svi živi idu na taj komp po podatke
File Sharing and printers dodaj port TCP port 445
a na Start/Settings/Control Panel/System stavi
Allow users to connect remotely to this computer
to bi ga trebalo upaliti
Ako nistaa od toga evo mali alat (gui)koji ti to može odraditi

poz..

Prilozi: