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.
Re: cerco programma che mostri ip e nome pc
Inviato: mer ott 28, 2015 1:20 pm
da Al3x
Forse ho quello che fa per te
Re: cerco programma che mostri ip e nome pc
Inviato: gio ott 29, 2015 10:54 am
da PippoDJ
Ciao crazy.cat,
ecco una possibile soluzione (però testata solo con utenti con diritti di amministratore):
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
una volta installata va in esecuzione automatica piazzandosi nella solita chiave Run di HKLM
Re: cerco programma che mostri ip e nome pc
Inviato: gio ott 29, 2015 3:14 pm
da crazy.cat
The Doctor ha scritto:Ho provato lo script e mi da un IP sbagliato
A me funziona...
Re: cerco programma che mostri ip e nome pc
Inviato: gio ott 29, 2015 3:17 pm
da crazy.cat
Al3x ha scritto:Marco perdona il ritardo
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.
Re: cerco programma che mostri ip e nome pc
Inviato: gio ott 29, 2015 3:30 pm
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:
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?
Re: cerco programma che mostri ip e nome pc
Inviato: gio ott 29, 2015 5:13 pm
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
Re: cerco programma che mostri ip e nome pc
Inviato: gio ott 29, 2015 5:38 pm
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
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
