Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
strComputer = "." 'wscript.echo strComputer 'strComputer = InputBox("Enter the Machine Name you want to modify") On Error Resume Next Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colNetCards = objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") 'change arrDNSServers to reflect values for your environment For Each objNetCard in colNetCards arrDNSServers = Array("0.0.0.1","0.0.0.2","0.0.0.3") objNetCard.SetDNSServerSearchOrder(arrDNSServers) Next If Err.Number <> 0 Then 'wscript.echo err.number 'If err.number = 462 then 'strStatus = "Error-COULD NOT CONNECT," &strComputer 'ElseIf err.number = 451 then 'strStatus = "Error-ACCESS DENIED," &strComputer 'Else strStatus = "Error," & strComputer 'End If Else strStatus = "Success," & strComputer End If w.writeline strStatus Err.Clear On Error Goto 0
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|VB script: Files verification based on last date modified and prefix with loop number and pause param v2||10||43|
|reboot server with scheduled time and week base||4||88|
|Append multiple Excel workbooks with multiple sheets into a new workbook||44||121|
|How do I get the exit code from the executed .bat to pass back...||11||54|
Join the community of 500,000 technology professionals and ask your questions.