sTitle="Set Remote DNS Information"

sServer=Inputbox("Enter a computername to query",sTitle,wshNet.Computername)

'sServer=wscript.arguments(0)

 

 

'sNameSpace = "root/CIMV2"

'sTargetClass = "Win32_NetworkAdapterConfiguration"

'sClass = "Win32_NetworkAdapter"

'sProperty1 = "AdapterType"

'SValue1 = "Ethernet 802.3"

'sProperty2 = "NetConnectionStatus"

'iValue2 = 2