http://dieseyer.de • all rights reserved • © 2011 v11.4

'*** 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 )


http://dieseyer.de • all rights reserved • © 2011 v11.4