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.
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.”
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
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.”
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
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
Inserendo un messaggio, dichiari di aver letto e accettato il regolamento di partecipazione.
Nello specifico, sei consapevole che ti stai assumendo personalmente la totale responsabilità delle tue affermazioni, anche in sede civile e/o penale,
manlevando i gestori di questo sito da ogni coinvolgimento e/o pretesa di rivalsa.
Dichiari inoltre di essere consapevole che il messaggio sarà visibile pubblicamente, accetti di diffonderlo con licenza
CC BY-NC-SA 3.0 (con attribuzione a "TurboLab.it") e rinunci ad ogni forma di compensazione (economica o altro).
Rinunci inoltre esplicitamente a qualsiasi pretesa di cancellazione del messaggio.