IP Address by VB Script
Step1- Open Notepad.
Step2- Write the Program.
dim DTC1, DTC, StrIP
Set DTC1 = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each DTC in DTC1
if DTC.IPEnabled then
StrIP = DTC.IPAddress(i)
MsgBox "IP Address: "&StrIP
wscript.quit
end if
next
Step3- Save this program as .vbs
OUTPUT:-
Download VBS Code- Click Here
No comments:
Post a Comment