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:
PING_KOMP.rar
Preuzimanja:366
Velicina datoteke:1.85 KB
WakeOnLanGui.rar
Preuzimanja:377
Velicina datoteke:146.49 KB
Ovaj post je ureden
1
puta. Posljednja izmjena 18.10.2012 18:08 od strane roko.