2010. 2. 8. 20:32
컴퓨터 IP 주소 쿼리 - VBS(VB Script) Etc.2010. 2. 8. 20:32
strcomputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For each objitem in colitems
strIPaddress = Join(objitem.IPAddress, ",")
WScript.Echo strIPaddress
Next
Set colItems = NOTHING
