Add DNS AND Wins Entrys in Local Area Connection

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Add DNS AND Wins Entrys in Local Area Connection

Logged in as: Guest

arrSession:exec spGetSession 2,16,51347

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Add DNS AND Wins Entrys in Local Area Connection
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Add DNS AND Wins Entrys in Local Area Connection - 8/30/2007 3:49:22 AM

jeferson.propheta

Posts: 11
Score: 0
Joined: 8/27/2007
Status: offline

'ADD DNS AND WINS Entrys
'Written by: Jeferson Propheta June 2007 in FMM2007

On Error Resume Next

      strComputer = "."
      strNewDNSServerI1 = "10.10.10.2"   'DNS Search Order - First
      strNewDNSServerI2 = "10.10.10.2"   'DNS Search Order - Second

      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
      Set objNics = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

      For Each nic In objNics
      arrDNSServerOrder = nic.DNSServerSearchOrder
      nic.SetWINSServer strNewDNSServerI1,strNewDNSServerI2

      intNewArraySize = 1
      ReDim Preserve arrDNSServerOrder(intNewArraySize)

      For i = (intNewArraySize - 1) To 0 Step -1
      arrDNSServerOrder(i + 1) = arrDNSServerOrder(i)
      Next

      arrDNSServerOrder(0) = strNewDNSServerI1
      arrDNSServerOrder(1) = strNewDNSServerI2
      intNewDNS = nic.SetDNSServerSearchOrder(arrDNSServerOrder)

      Next

'ADD DNS AND WINS Entrys
'Written by: Jeferson Propheta June 2007 in FMM2007

On Error Resume Next

strComputer = "."
      strNewDNSServerI1 = "10.10.10.2"   'DNS Search Order - First
      strNewDNSServerI2 = "10.10.10.2"   'DNS Search Order - Second

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
      Set objNics = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each nic  In objNics
      arrDNSServerOrder = nic.DNSServerSearchOrder
      nic.SetWINSServer strNewDNSServerI1,strNewDNSServerI2

intNewArraySize = 1
      ReDim Preserve arrDNSServerOrder(intNewArraySize)

For i = (intNewArraySize - 1) To 0 Step -1
      arrDNSServerOrder(i + 1) = arrDNSServerOrder(i)
      Next

arrDNSServerOrder(0) = strNewDNSServerI1
      arrDNSServerOrder(1) = strNewDNSServerI2
      intNewDNS = nic.SetDNSServerSearchOrder(arrDNSServerOrder)

< Message edited by jeferson.propheta -- 8/30/2007 4:11:31 AM >

_____________________________

Wscript.Echo("Just4 Fun")

Revisions: 1 | Post #: 1

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> Post a VBScript >> Add DNS AND Wins Entrys in Local Area Connection

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts