zoukankan      html  css  js  c++  java
  • VBS获取本机IP地址

    '获取本机IP
    '
    owner DeViL
    'return 本机的IP地址
    Public Function GetIP
       ComputerName
    ="."
        
    Dim objWMIService,colItems,objItem,objAddress
        
    Set objWMIService = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2")
        
    Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
        
    For Each objItem in colItems
            
    For Each objAddress in objItem.IPAddress
                
    If objAddress <> "" then
                    GetIP 
    = objAddress
                    
    Exit Function
                
    End If
            
    Next
        
    Next
    End Function
  • 相关阅读:
    提前期分类
    物料属性,MRP/MPS属性
    ASP.NET刷新页面的一些方法
    Nothing 和 Is
    三层架构与MVC
    ADO.NET
    软件工程之数据流程图(DFD Data Flow Diagram)
    VB.NET小结
    推荐开发人员看的具有影响力的书籍
    C++考试
  • 原文地址:https://www.cnblogs.com/coderzh/p/981119.html
Copyright © 2011-2022 走看看