Entry 3619

On Error Resume Next

UseCscript
Set objStdOut = WScript.StdOut

Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("%COMSPEC% /C VER")
output = ""
Do While Not oExec.StdOut.AtEndOfStream
output = output & oExec.StdOut.ReadAll
WScript.Sleep 100
Loop
objStdOut.WriteLine output

Set objWMIService = GetObject("winmgmts:\\" & "." & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( "SELECT *" _
& " FROM Win32_NetworkAdapterConfiguration Where IPEnabled = True",,48)
For Each objItem in colItems
DoAdapter objItem
Next

Cmd = "==========SCRIPT DONE BY CZAR==========="
Set oExec = WshShell.Exec(Cmd)
output = ""
Do While Not oExec.StdOut.AtEndOfStream
output = output & oExec.StdOut.ReadAll
WScript.Sleep 100
Loop
objStdOut.WriteLine Cmd & output

objStdOut.WriteLine "This screen may be copied to clipboard for pasting into other Windows:"
objStdOut.WriteLine "Click System Menu icon, Edit -> Mark, select text, and Edit -> Copy."
objStdOut.WriteBlankLines 1
objStdOut.Write "Press [Enter] to close..."
objStdOut.Close
Wscript.StdIn.ReadLine

Sub UseCscript
pcengine = LCase(Mid(WScript.FullName, InstrRev(WScript.FullName,"\")+1))
If Not pcengine="cscript.exe" Then
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "CSCRIPT.EXE """ & WScript.ScriptFullName & """"
WScript.Quit
End If
End Sub

Sub DoAdapter(objItem)
objStdOut.WriteLine objItem.Description
objStdOut.WriteLine "MACAddress: " & objItem.MACAddress

objStdOut.WriteLine "DHCPEnabled: " & objItem.DHCPEnabled
If objItem.DHCPEnabled Then

objStdOut.Write "Release IP Address..."
rtrn = objItem.ReleaseDHCPLease()
if rtrn = 0 Then
objStdOut.WriteLine "success."
Else
objStdOut.WriteLine "failure (" & rtrn & ")!"
End If

objStdOut.Write "Renew IP Address..."
rtrn = objItem.RenewDHCPLease()
if rtrn = 0 Then
objStdOut.WriteLine "success."
Else
objStdOut.WriteLine "failure (" & rtrn & ")!"
End If

objStdOut.WriteLine "DHCPServer: " & objItem.DHCPServer
objStdOut.WriteLine "DHCPLeaseExpires: " & objItem.DHCPLeaseExpires
objStdOut.WriteLine "DHCPLeaseObtained: " & objItem.DHCPLeaseObtained
End If

For Each strIPAddress in objItem.IPAddress
objStdOut.WriteLine "IP Address: " & strIPAddress
Next
objStdOut.WriteLine "IPConnectionMetric: " & objItem.IPConnectionMetric

objStdOut.WriteBlankLines 5
End Sub