DevAdmin Blog

Blog di Ermanno Goletto (Microsoft MVP Directory Services - MCSE - MCSA - MCITP - MCTS)
posts - 1026, comments - 598, trackbacks - 8

My Links

News

Il blog si è trasferito al seguente link:

www.devadmin.it

Avatar

Visualizza il profilo di Ermanno Goletto su LinkedIn

Follow ermannog on Twitter


Il contenuto di questo blog e di ciascun post viene fornito “così come é”, senza garanzie, e non conferisce alcun diritto. Questo blog riporta il mio personale pensiero che non riflette necessariamente il pensiero del mio datore di lavoro.

Logo Creative Commons Deed


Logo SysAdmin.it SysAdmin.it Staff


Logo TechNet Forum TechNet Italia @ForumTechNetIt Follow TechNet Forum on Twitter


Logo MVP

Article Categories

Archives

Post Categories

Blogs

Friends

Knowledge Base

MVP Sites

Resources

Ricavare gli indirizzi IP di un Host tramite WMI e VbScript

Dim wmiQuery, objWMIService, objPing, objStatus
    
wmiQuery = "Select * From Win32_PingStatus Where Address = 'HostName'"
    
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objPing = objWMIService.ExecQuery(wmiQuery)
    
For Each objStatus In objPing
If objStatus.StatusCode = 0 Then
    msgbox(objStatus.ProtocolAddress)
Else
    msgbox("Unreachable")
End If
Next

Set wmiQuery = Nothing
Set objWMIService = Nothing
Set objPing = Nothing
Set objStatus = Nothing

Ovviamente il codice può essere trasportato anche in applicazioni .NET

UPDATE:
Come detto da Marco Minerva nel suo post:
http://blogs.ugidotnet.org/marcom/archive/2007/01/25/68646.aspx

Se la necessità è solo quella di ricavare gli indirizzi IP il .NET Framework offre nativamente la classe  System.Net.DNS.GetHostEntry

Se invece l'esigenza è di taglio più sistemistico e serve sapere l'ip solo nel caso in cui l'host è raggiungibile (via ping) e magari con quali temistiche la Win32_PingStatus può tornare utile.
http://msdn2.microsoft.com/en-us/library/aa394350.aspx

Print | posted on Thursday, January 25, 2007 4:32 PM | Filed Under [ Links Code, Snippets & Scripts IT ]

Powered by:
Powered By Subtext Powered By ASP.NET