Show Ip Address
'=================================================' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.0
'
' NAME: SHOW IP
'
' AUTHOR: Ryan
'
'=================================================
Set objShell=WScript.CreateObject("wscript.shell")
Set objExecObject=objShell.Exec("ipconfig")
Do Until objExecObject.Stdout.AtEndOfStream
strLine=objExecObject.StdOut.ReadLine()
strIP=InStr(strLine,"Address")
If strIP<>0 Then
WScript.Echo strLine
End If
Loop
posted by ryan @ 5:57 下午
0 comments
