'*** v6.1 *** www.dieseyer.de ******************************* 

' 

' Datei:  wmi-pcname-aus-ipadr.vbs 

' Autor:  dieseyer@gmx.de  

' Auf:    www.dieseyer.de 

' 

' Ermittelt zu einer AP-Adresse per WMI den entspr. PC-Namen. 

' 

'************************************************************ 

 

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl 

 

' On Error Resume Next 

 

Dim Tst : Tst = "192.168.1.19" 

 

MsgBox Tst & "      heißt      " & PCname( Tst ) , , WScript.ScriptName 

 

 

'*** v6.1 *** www.dieseyer.de ******************************* 

Function PCname( IPAdr ) 

'************************************************************ 

 

  Const wbemFlagReturnImmediately = &h10 

  Const wbemFlagForwardOnly = &h20 

 

  arrComputers = Array( IPAdr ) 

 

  Dim arrComputers, strComputer, objWMIService, objItem, colItems 

 

  For Each strComputer In arrComputers 

    

	Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 

	Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly) 

 

	For Each objItem In colItems 

	  PCname = objItem.Name 

	Next 

  Next 

 

End Function ' PCname( IPAdr )