Batcher

' test1.vbs
WScript.Echo "hello world"
Call GetIP

FUNCTION GetIP
    ' test2.vbs
    set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
            ("select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    For Each IPConfig IN IPConfigSet
        If Not IsNull(IPConfig.IPAddress) Then
            For i=LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
                WScript.Echo IPConfig.IPAddress(i)
            Next
        End If
    Next
END FUNCTION
复制代码