.汾 2
.ֿ֧ script

ű1.  VBScript
ű1.ִ (#1)
ı (ű1. (GetIP, ))

 

'===================1========================

Function GetIP()
 strIP = ""
 ComputerName = "localhost"
 Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate}//" & ComputerName).ExecQuery("SELECT index, IPAddress FROM Win32_NetworkAdapterConfiguration")
 For Each OpSys In OpSysSet
  If TypeName(OpSys.IPAddress) <> "Null" Then
 For Each IP In OpSys.IPAddress
  strIP = strIP + IP + "|"
 Next
 End If
 Next
 GetIP = strIP
End Function

'===================1========================