cerco programma che mostri ip e nome pc

Se Windows genera un errore, hai un problema di virus o vuoi discutere/segnalare l'uscita della nuova versione di un software per la piattaforma Microsoft, questa è la sezione giusta.
Regole del forum
Rispondi
Avatar utente
crazy.cat
Amministratore
Amministratore
Messaggi: 9005
Iscritto il: mer mag 01, 2013 4:02 pm
Località: Noventa Padovana
Contatta:

cerco programma che mostri ip e nome pc

Messaggio da crazy.cat »

Mi serviva un programmino semplicissimo, anche un batch, che visualizzi solo il nome computer e l'indirizzo ip sul desktop di un utente non amministratore. Non servono altri dati.
Lui deve leggerli e premere un tasto per chiudere la schermata.

Sono incasinato al massimo e non riesco a cercare e fare prove.
Grazie se riuscite a trovarmi qualcosa.
Se tutti i documenti raccontavano la stessa favola, ecco che la menzogna diventava un fatto storico, quindi vera.

System
System
Bot ufficiale TurboLab.it
Bot
Messaggi:
Iscritto il: sab dic 31, 2016 6:19 pm
Contatta: Contatta

Re: cerco programma che mostri ip e nome pc

Messaggio da System » mer ott 28, 2015 1:03 pm


Avatar utente
Al3x
Amministratore
Amministratore
Messaggi: 3992
Iscritto il: mer mag 01, 2013 12:59 pm
Località: http://127.0.0.1

Re: cerco programma che mostri ip e nome pc

Messaggio da Al3x »

Forse ho quello che fa per te
I :amore Sasha

Avatar utente
PippoDJ
Livello: Storage Area Network (12/15)
Livello: Storage Area Network (12/15)
Messaggi: 1678
Iscritto il: sab nov 01, 2014 3:50 pm

Re: cerco programma che mostri ip e nome pc

Messaggio da PippoDJ »

Ciao crazy.cat,
ecco una possibile soluzione (però testata solo con utenti con diritti di amministratore):

Codice: Seleziona tutto

Dim NOMEPC, RETE, INDIRIZZOIP, SCHEDE, SCHEDA

' recupero nome pc
Set RETE = WScript.CreateObject("WScript.Network")
NOMEPC = RETE.Computername

' recupero IP in uso
Set SCHEDE = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each SCHEDA in SCHEDE
    If SCHEDA.IPEnabled Then INDIRIZZOIP = SCHEDA.IPAddress(0)
Next

MsgBox "Nome PC: " & NOMEPC & Chr(13) & "Indirizzo IP: " & INDIRIZZOIP 

WScript.Quit
[da copiare/incollare in uno script .VBS]

Per approfondimenti: ComputerName Property e Win32_NetworkAdapterConfiguration Class ("leggermente"... deprecata, ma l'ho provata su Windows 10 e sembra funzionare ancora).

Ciao, Pippo.

Avatar utente
crazy.cat
Amministratore
Amministratore
Messaggi: 9005
Iscritto il: mer mag 01, 2013 4:02 pm
Località: Noventa Padovana
Contatta:

Re: cerco programma che mostri ip e nome pc

Messaggio da crazy.cat »

PippoDJ ha scritto:Ciao crazy.cat,
ecco una possibile soluzione (però testata solo con utenti con diritti di amministratore):
Un ottima soluzione, funziona bene anche con gli utenti normali.
Grazie 1000
Se tutti i documenti raccontavano la stessa favola, ecco che la menzogna diventava un fatto storico, quindi vera.

Avatar utente
The Doctor
Livello: Storage Area Network (12/15)
Livello: Storage Area Network (12/15)
Messaggi: 1882
Iscritto il: mer mag 01, 2013 3:46 pm
Località: Altrove
Contatta:

Re: cerco programma che mostri ip e nome pc

Messaggio da The Doctor »

Ho provato lo script e mi da un IP sbagliato :(
Io sto con Wile Coyote e Gatto Silvestro...

Avatar utente
Al3x
Amministratore
Amministratore
Messaggi: 3992
Iscritto il: mer mag 01, 2013 12:59 pm
Località: http://127.0.0.1

Re: cerco programma che mostri ip e nome pc

Messaggio da Al3x »

Marco perdona il ritardo :acch

c'è questa utility reperebile qui
https://technet.microsoft.com/it-it/sys ... s/bb897557

la usiamo al lavoro e crea un watermark sullo sfondo del desktop che riporta informazioni personalizzabili:
Boot Time: <Boot Time>
CPU: <CPU>
Default Gateway: <Default Gateway>
DHCP Server: <DHCP Server>
DNS Server: <DNS Server>
Free Space: <Free Space>
Host Name: <Host Name>
IE Version: <IE Version>
IP Address: <IP Address>
Logon Domain: <Logon Domain>
Logon Server: <Logon Server>
MAC Address: <MAC Address>
Machine Domain: <Machine Domain>
Memory: <Memory>
Network Card: <Network Card>
Network Speed: <Network Speed>
Network Type: <Network Type>
OS Version: <OS Version>
Service Pack: <Service Pack>
Snapshot Time: <Snapshot Time>
Subnet Mask: <Subnet Mask>
System Type: <System Type>
User Name: <User Name>
Volumes: <Volumes>
una volta installata va in esecuzione automatica piazzandosi nella solita chiave Run di HKLM
I :amore Sasha

Avatar utente
crazy.cat
Amministratore
Amministratore
Messaggi: 9005
Iscritto il: mer mag 01, 2013 4:02 pm
Località: Noventa Padovana
Contatta:

Re: cerco programma che mostri ip e nome pc

Messaggio da crazy.cat »

The Doctor ha scritto:Ho provato lo script e mi da un IP sbagliato :(
A me funziona...
Se tutti i documenti raccontavano la stessa favola, ecco che la menzogna diventava un fatto storico, quindi vera.

Avatar utente
crazy.cat
Amministratore
Amministratore
Messaggi: 9005
Iscritto il: mer mag 01, 2013 4:02 pm
Località: Noventa Padovana
Contatta:

Re: cerco programma che mostri ip e nome pc

Messaggio da crazy.cat »

Al3x ha scritto:Marco perdona il ritardo :acch
Perdonato... :)
Bginfo lo conoscevo bene, solo che dal cliente dove mi trovavo prima aveva il brutto vizio di sovraporre le scritte più volte, faceva la foto della foto della foto, e alla fine ti trovavi una marea di caratteri sparsi per lo schermo che non capivi più nulla.
Meglio lo script vbs, più rapido e indolore.
Se tutti i documenti raccontavano la stessa favola, ecco che la menzogna diventava un fatto storico, quindi vera.

Avatar utente
PippoDJ
Livello: Storage Area Network (12/15)
Livello: Storage Area Network (12/15)
Messaggi: 1678
Iscritto il: sab nov 01, 2014 3:50 pm

Re: cerco programma che mostri ip e nome pc

Messaggio da PippoDJ »

The Doctor ha scritto:Ho provato lo script e mi da un IP sbagliato :(
Immagino sia possibile, se alla tua scheda di rete sono associati più indirizzi IP...
La proprietà IPAddress() è un array che contiene tutti gli indirizzi associati alla scheda, ma io, per pigriz... ehm... per ottimizzare il codice, ho preso solo il primo elemento IPAddress(0) (che nel 99% dei casi dovrebbe essere il valore giusto).

Con questa modifica si dovrebbero visualizzare tutti gli IP:

Codice: Seleziona tutto

Dim SCHEDE, SCHEDA, TUTTIGLIIP

TUTTIGLIIP=""
Set SCHEDE = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each SCHEDA in SCHEDE
    If SCHEDA.IPEnabled Then 
        For i=0 To UBound(SCHEDA.IPAddress)
            TUTTIGLIIP = TUTTIGLIIP & "Indirizzo IP: " & SCHEDA.IPAddress(i) & chr(13)
        Next
    End If
Next

MsgBox TUTTIGLIIP

WScript.Quit
...prova a vedere se c'è quello giusto?

Avatar utente
The Doctor
Livello: Storage Area Network (12/15)
Livello: Storage Area Network (12/15)
Messaggi: 1882
Iscritto il: mer mag 01, 2013 3:46 pm
Località: Altrove
Contatta:

Re: cerco programma che mostri ip e nome pc

Messaggio da The Doctor »

Grazie Pippo, domattina lo provo. Per quanto riguarda l'indirizzo IP, dovrebbe essere 192.168.60.x invece lo script riporta 192.168.59.1
Io sto con Wile Coyote e Gatto Silvestro...

Avatar utente
PippoDJ
Livello: Storage Area Network (12/15)
Livello: Storage Area Network (12/15)
Messaggi: 1678
Iscritto il: sab nov 01, 2014 3:50 pm

Re: cerco programma che mostri ip e nome pc

Messaggio da PippoDJ »

The Doctor ha scritto:Per quanto riguarda l'indirizzo IP, dovrebbe essere 192.168.60.x invece lo script riporta 192.168.59.1
Può essere che ci sia un collegamento VPN attivo o comunque che la tua scheda di rete abbia i "piedi" in più reti.
Un

Codice: Seleziona tutto

ipconfig /all
da Prompt dei comandi, dovrebbe chiarire ogni dubbio.

Avatar utente
The Doctor
Livello: Storage Area Network (12/15)
Livello: Storage Area Network (12/15)
Messaggi: 1882
Iscritto il: mer mag 01, 2013 3:46 pm
Località: Altrove
Contatta:

Re: cerco programma che mostri ip e nome pc

Messaggio da The Doctor »

Scoperto l'arcano. Quell'IP è della scheda di rete di VirtualBox. Disabilitata quella l'IP è giusto :)
Io sto con Wile Coyote e Gatto Silvestro...

Avatar utente
PippoDJ
Livello: Storage Area Network (12/15)
Livello: Storage Area Network (12/15)
Messaggi: 1678
Iscritto il: sab nov 01, 2014 3:50 pm

Re: cerco programma che mostri ip e nome pc

Messaggio da PippoDJ »

The Doctor ha scritto:Scoperto l'arcano. Quell'IP è della scheda di rete di VirtualBox. Disabilitata quella l'IP è giusto :)
Buono a sapersi! :approvo

Avatar utente
cippico
Livello: Disco fisso (9/15)
Livello: Disco fisso (9/15)
Messaggi: 781
Iscritto il: gio mag 16, 2013 6:16 pm
Contatta:

Re: cerco programma che mostri ip e nome pc

Messaggio da cippico »

ottimo e comodo...
volevo sapere se e' possibile implementare anche la visualizzazione del nome del dominio (pc del lavoro)

grazie e ciaooo tutti
Salutone a Zane...padre putativo di...Turbolab... :-)
Mio sito... http://www.cippico.altervista.org

Avatar utente
PippoDJ
Livello: Storage Area Network (12/15)
Livello: Storage Area Network (12/15)
Messaggi: 1678
Iscritto il: sab nov 01, 2014 3:50 pm

Re: cerco programma che mostri ip e nome pc

Messaggio da PippoDJ »

cippico ha scritto:volevo sapere se e' possibile implementare anche la visualizzazione del nome del dominio (pc del lavoro)
Suppongo di sì: l'oggetto WScript.Network contiene anche la proprietà UserDomain.

Ecco il codice aggiornato:

Codice: Seleziona tutto

Dim NOMEPC, DOMINIO, RETE, INDIRIZZOIP, SCHEDE, SCHEDA

' recupero nome pc
Set RETE = WScript.CreateObject("WScript.Network")
NOMEPC = RETE.Computername
DOMINIO = RETE.UserDomain

' recupero IP in uso
Set SCHEDE = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each SCHEDA in SCHEDE
    If SCHEDA.IPEnabled Then INDIRIZZOIP = SCHEDA.IPAddress(0)
Next

MsgBox "Nome PC: " & NOMEPC & Chr(13) & "Dominio: " & DOMINIO & Chr(13) & "Indirizzo IP: " & INDIRIZZOIP

WScript.Quit
Ciao, Pippo.

Avatar utente
cippico
Livello: Disco fisso (9/15)
Livello: Disco fisso (9/15)
Messaggi: 781
Iscritto il: gio mag 16, 2013 6:16 pm
Contatta:

Re: cerco programma che mostri ip e nome pc

Messaggio da cippico »

grazie... :grazie

ciaooo
Salutone a Zane...padre putativo di...Turbolab... :-)
Mio sito... http://www.cippico.altervista.org

System
System
Bot ufficiale TurboLab.it
Bot
Messaggi:
Iscritto il: sab dic 31, 2016 6:19 pm
Contatta: Contatta

Re: Re: cerco programma che mostri ip e nome pc

Messaggio da System » mar nov 03, 2015 1:20 pm


Rispondi
  • Argomenti simili
    Risposte
    Visite
    Ultimo messaggio