VnExperts Academy - Đào tạo, học, thi chứng chỉ Quốc tế Cisco CCNA, CCNP, Microsoft MCP, MCSA, MCITP, Linux, Security+, CEH

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
 
For Each objNetAdapter In colNetAdapters
    errEnable = objNetAdapter.EnableDHCP()
Next

'Enable DHCP
'--------------------------------------------------------------------------

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
 
For Each objNetAdapter In colNetAdapters
    errEnable = objNetAdapter.EnableDHCP()
Next



'Set DNS back to DHCP / Set DNS server addresses to blank (redundancy)
'--------------------------------------------------------------------------
'The Chr(34) is used to create the " character so the string will pass correctly
'NOTE: I have it run through 3 different LAC's just to cover all bases

set objshell = wscript.createobject("wscript.shell")
filenamea = "Netsh inter ip set dns name="& Chr(34) &"Local Area Connection"& Chr(34) &" source=dhcp"
objshell.run ("%comspec% /c " & filenamea) ,0,true


set objshell = wscript.createobject("wscript.shell")
filenameb="Netsh inter ip set dns name="& Chr(34) &"Local Area Connection 2"& Chr(34) & " source=dhcp"
objshell.run ("%comspec% /c " & filenameb) ,0,true


set objshell = wscript.createobject("wscript.shell")
filenamec="Netsh inter ip set dns name="& Chr(34) &"Local Area Connection 3"& Chr(34) & " source=dhcp"
objshell.run ("%comspec% /c " & filenamec) ,0,true


'Sets WINS on all network adapters
'--------------------------------------------------------------------------

On Error Resume Next
 
Const DNS_ENABLED_FOR_WINS_RESOLUTION = True
Const USE_LMHOST_FILE = False

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
errResult = objNetworkSettings.EnableWINS(DNS_ENABLED_FOR_WINS_RESOLUTION,_
     USE_LMHOST_FILE)



'Sets the Dynamic DNS
'--------------------------------------------------------------------------
Const FULL_DNS_REGISTRATION = True
Const DOMAIN_DNS_REGISTRATION = True
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetCards = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objNetCard in colNetCards
    objNetCard.DomainDNSRegistrationEnabled
    objNetCard.SetDynamicDNSRegistration FULL_DNS_REGISTRATION, DOMAIN_DNS_REGISTRATION
Next



'Modify NETBIOS use on a network adapter
'--------------------------------------------------------------------------
On Error Resume Next

Set colNetCards2 = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objNetCard in colNetCards2
    objNetCard.SetTCPIPNetBIOS(0)
Next




'Set DNS Suffix Search Order
'--------------------------------------------------------------------------

Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
arrDNSSuffixes = Array("ad.company.net", "company.net")
objNetworkSettings.SetDNSSuffixSearchOrder(arrDNSSuffixes)



'Set DNS Domain
'--------------------------------------------------------------------------
Set objNetworkSettings = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetSettings = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each objNetworkSetting in colNetSettings
	Set objNetworkSetting = objWMIService.Get("Win32_NetworkAdapterConfiguration")
	strDNSDomain = "ad.company.net"
	objNetworkSetting.SetDNSDomain(strDNSDomain)
Next





'Sets WINS Servers to blank (defaulting to DHCP)
'--------------------------------------------------------------------------

Set colNetCards3 = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objNetCard in colNetCards3
    strPrimaryServer = ""
    strSecondaryServer = ""
    objNetCard.SetWINSServer strPrimaryServer, strSecondaryServer
Next





'Release and renew to refresh everything in lieu of restart
'--------------------------------------------------------------------------

set objshell = wscript.createobject("wscript.shell")
releasecomm = "ipconfig/release"
objshell.run ("%comspec% /c " & releasecomm) ,0,true

set objshell = wscript.createobject("wscript.shell")
renewcomm = "ipconfig/renew"
objshell.run ("%comspec% /c " & renewcomm) ,0,true





'Reboot system for settings to take effect
'--------------------------------------------------------------------------

'Set objWMIService = GetObject("winmgmts:" _
' & "{impersonationLevel=impersonate,(Shutdown)}!\\" & _
' strComputer & "\root\cimv2")
'Set colOperatingSystems = objWMIService.ExecQuery _
' ("SELECT * FROM Win32_OperatingSystem")
'For Each objOperatingSystem in colOperatingSystems
' objOperatingSystem.Reboot()
'Next

'******************************************************************************
'FwDisable.vbs
'Author: Peter Costantini, The Microsoft Scripting Guys
'Date: 9/2/04
'Version: 1.0
'Disables Windows Firewall, which is enabled by default on XP SP2.
'******************************************************************************

On Error Resume Next
'Create the firewall manager object.
Set objFwMgr = CreateObject("HNetCfg.FwMgr")
If Err <> 0 Then
  WScript.Echo "Unable to connect to Windows Firewall."
  WScript.Quit
End If
'Get the current profile for the local firewall policy.
Set objProfile = objFwMgr.LocalPolicy.CurrentProfile
'Is firewall enabled?
If objProfile.FirewallEnabled = True Then
  WScript.Echo "Windows Firewall is enabled."
'Disable it.
  objProfile.FirewallEnabled = False
  WScript.Echo "Windows Firewall now disabled."
Else
  WScript.Echo "Windows Firewall already disabled."
End If

Set objNetwork = Wscript.CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "S:","\\ComputerName\Share Name" 

Net use z: \\servername\sharename

Net use z: \\servername\sharename /user:<username> <password>

'  VBScript to map two printers from two servers
'  Guy Thomas February 2004.
'  ******************************
Dim multiPrinter, UNCpath1, UNCpath2
UNCpath1 = "\\Server1\printer1"
UNCpath2 = "\\Server2\printer2"
Set multiPrinter = CreateObject("WScript.Network")
multiPrinter.AddWindowsPrinterConnection UNCpath1
multiPrinter.AddWindowsPrinterConnection UNCpath2
WScript.Echo "Your printer is mapped from : " & UNCpath1  _
& "and from : " & UNCpath2
WScript.Quit
' End of example VBScript

Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144

strDomain = "VnExperts"  >>>>>>>>>>>>.Edit domain netbios name
strPassword = "ls4k5ywA" >>>>>>>>>>> Edit password for user domain
strUser = "VnE"                      >>>>>>>>>> Edit User name in domain

Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName

Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
   strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
       strComputer & "'")

ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
   strPassword, strDomain & "\" & strUser, NULL, _
       JOIN_DOMAIN + ACCT_CREATE)