Const JOIN_DOMAIN = 1 Const ACCT_CREATE = 2 myDNS = Array("192.168.0.1", "192.168.0.2") myDomain = "DomainName or IP" myUser = "USERNAME" myPassword = "PASSWORD" Set objShell = CreateObject("Wscript.shell") Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!//" & "." & "/root/cimv2") Set colNetCards= objWMIService.ExecQuery ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each objNetCard in colNetCards objNetCard.SetDNSServerSearchOrder(myDNS) Next Set objNet = CreateObject("Wscript.network") strComputerName = objNet.ComputerName Set objComputer = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!//" & "." & "/root/cimv2:Win32_ComputerSystem.Name='" & strComputerName & "'") ReturnValue = objComputer.JoinDomainOrWorkGroup(myDomain, myPassword, myDomain & "/" & myUser, NULL, JOIN_DOMAIN + ACCT_CREATE) If ReturnValue = 0 Then MsgBox "Will Restart" obeShell.Run("cmd /c shuddown.exe -r -t 0") Else MsgBox "Error" End If