Newsgroup: it.comp.appl.access
Titolo: Come trovare tutti i pc con un certo servizio attivo su una certa porta?

Vorrei permettere ad ogni singola postazione di lavoro (Access 2003) di 
poter scegliere il server ftp sul quale collegarsi per lo scaricamento degli 
aggiornamenti
Supponiamo che nella rete locale ci siano piu' ftp server attivi, tutti 
sulla porta XX (di pc diversi ovviamente), come fare per presentare in una 
combobox tutti i nomi/indirizzi dei pc che hanno un ftp server attivo nella 
lan?
Ciao e grazie
RobertoA

RobertoA ha scritto:

Devi ottenere l'IP e la subnet mask del PC, poi fare uno scan tentando la
connessione sulla porta XX di tutti i PC della subnet.
Ciao.
-Marco-
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 connessione sulla porta XX di tutti i PC della subnet.
Ti ringrazio per la risposta, ma gia' immaginavo che fosse questa la linea 
da seguire
Quello che chiedevo era qualche esempio di codice, ad esempio il tentativo 
di connessione oppure come leggere la subnet mask del pc locale
Ciao
RobertoA

 wrote in
news:4a9a3e8a$
1...@newsgate.x-privat.org
: 

cosa succede se qualcuno collega un server ftp che distribuisce 
aggiornamenti 'taroccati' e l'utente sceglie proprio il server maligno?
cosa succede se i server non hanno tutti la stessa versione del sw e i 
client si aggiornanon un po' da uno e un po' dall'altro?
imho stai scegliendo una strada che ti complica la vita senza darti 
sostanziali vantaggi...
-- 
Paolo opg
BE AWARE that this post uses a fake reply-to address
to contact me write to:
janickg ( at ) hotmail ( dot ) com
--

RobertoA ha scritto:


Riporto un blocco di codice che ti d� tutti i parametri della
configurazione IP del PC. Non � mio, l'ho copiato da una guida di
scripting.
Per i tentativi di connessione pensavo sapessi gi�, senn� a cosa ti serve
scoprire quali server sono attivi se poi non sai come collegarti?
Provo a vedere se trovo qualcosa.
Sicuro che non ti basta tenere una tabella con gli indirizzi dei server
invece di fare ogni volta uno scan dell'intera subnet?
Ciao.
-Marco-
=====================================================
Public Function IPCONFIG()
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")
Set colAdapters = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled =
True")
 
n = 1
 
For Each objAdapter In colAdapters
   Debug.Print "Network Adapter " & n
   Debug.Print "================="
   Debug.Print "  Description: " & objAdapter.Description
 
   Debug.Print "  Physical (MAC) address: " & objAdapter.MACAddress
   Debug.Print "  Host name:              " & objAdapter.DNSHostName
 
   If Not IsNull(objAdapter.IPAddress) Then
      For I = 0 To UBound(objAdapter.IPAddress)
         Debug.Print "  IP address:             " & objAdapter.IPAddress(I)
      Next
   End If
 
   If Not IsNull(objAdapter.IPSubnet) Then
      For I = 0 To UBound(objAdapter.IPSubnet)
         Debug.Print "  Subnet:                 " & objAdapter.IPSubnet(I)
      Next
   End If
 
   If Not IsNull(objAdapter.DefaultIPGateway) Then
      For I = 0 To UBound(objAdapter.DefaultIPGateway)
         Debug.Print "  Default gateway:        " & _
             objAdapter.DefaultIPGateway(I)
      Next
   End If
 
   Debug.Print
   Debug.Print "  DNS"
   Debug.Print "  ---"
   Debug.Print "    DNS servers in search order:"
 
   If Not IsNull(objAdapter.DNSServerSearchOrder) Then
      For I = 0 To UBound(objAdapter.DNSServerSearchOrder)
         Debug.Print "      " & objAdapter.DNSServerSearchOrder(I)
      Next
   End If
 
   Debug.Print "    DNS domain: " & objAdapter.DNSDomain
 
   If Not IsNull(objAdapter.DNSDomainSuffixSearchOrder) Then
      For I = 0 To UBound(objAdapter.DNSDomainSuffixSearchOrder)
         Debug.Print "    DNS suffix search list: " & _
             objAdapter.DNSDomainSuffixSearchOrder(I)
      Next
   End If
 
   Debug.Print
   Debug.Print "  DHCP"
   Debug.Print "  ----"
   Debug.Print "    DHCP enabled:        " & objAdapter.DHCPEnabled
   Debug.Print "    DHCP server:         " & objAdapter.DHCPServer
 
   If Not IsNull(objAdapter.DHCPLeaseObtained) Then
      utcLeaseObtained = objAdapter.DHCPLeaseObtained
      strLeaseObtained = WMIDateStringToDate(utcLeaseObtained)
   Else
      strLeaseObtained = ""
   End If
   Debug.Print "    DHCP lease obtained: " & strLeaseObtained
 
   If Not IsNull(objAdapter.DHCPLeaseExpires) Then
      utcLeaseExpires = objAdapter.DHCPLeaseExpires
      strLeaseExpires = WMIDateStringToDate(utcLeaseExpires)
   Else
      strLeaseExpires = ""
   End If
   Debug.Print "    DHCP lease expires:  " & strLeaseExpires
 
   Debug.Print
   Debug.Print "  WINS"
   Debug.Print "  ----"
   Debug.Print "    Primary WINS server:   " & objAdapter.WINSPrimaryServer
   Debug.Print "    Secondary WINS server: " &
objAdapter.WINSSecondaryServer
   Debug.Print
 
   n = n + 1
 
Next
 
End Function
Function WMIDateStringToDate(utcDate)
   WMIDateStringToDate = CDate(Mid(utcDate, 5, 2) & "/" & _
                               Mid(utcDate, 7, 2) & "/" & _
                               Left(utcDate, 4) & " " & _
                               Mid(utcDate, 9, 2) & ":" & _
                               Mid(utcDate, 11, 2) & ":" & _
                               Mid(utcDate, 13, 2))
End Function


 sostanziali vantaggi...
Eh gia', la vita e' piena zeppa di potenziali pericoli
Direi che agli mprevisti e' inutile pensarci, sono "imprevisti" e quindi non 
prevedibili
Per i problemi prevedibili ovviamente si cerca adottare delle tecniche per 
evitarli, eluderli, schivarli.
Comunque l'esempio era di un server ftp per gli aggiornamenti ma in effetti 
non e' un server ftp e non sono aggiornamenti quelli che tirero' giu'
Ciao
RobertoA

 
comunque, se ti capita di far sapere cosa devi fare, magari si riesce a 
darti una mano ^^
bye


 darti una mano ^^
Mi e' gia' capitato all'inizio del thread
E ringrazio calorosamente chi mi ha dato una mano
Grazie anche a te per le risposte, anche se nulla avevano a che fare con la 
domanda
Bye
RobertoA 

 wrote in
news:4a9ba3da$
1...@newsgate.x-privat.org
: 

np, e' solo che dall'esempio che hai usato pareva che avessi scelto una 
soluzione 'rischiosa' per un problema che magari puo' essere risolto in 
altra maniera.
tanto piu' che anche il suggerimento di Marco Pizzamiglio ti indica la 
lista di server come una soluzione preferibile al subnet scan.
pero' magari nella tua situazione, la scansione della subnet e' l'unica 
chance...



Scusa ma non capisco..., di solito in una rete interna i Server FTP
hanno IP fisso, ma anche in Internet i Server FTP hanno indirizzamento
fisso...(con il Nome)
Non vorrai metterti a lanciare BroadCasting nella rete sulla porta
21... per vedere chi ti risponde...??
@Alex


Si
Non so a priori dove siano i server che cerco
In qualche modo devo trovarli, non c'e' altro modo che la scansione brutale
Ciao
RobertoA