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

Welcome, Guest
  • Page:
  • 1

TOPIC: Mỗi ngày một Script

Mỗi ngày một Script 2 years, 1 month ago #9288

  • VLSM
  • OFFLINE
  • Expert Boarder
  • Posts: 102
  • Karma: 0
Thỉnh thoảng sưu tầm vài Script cho anh em sử dụng.

Sử dụng Script sẽ mang lại rất nhiều tiện ích trong việc quản trị và vận hành hệ thống

>>> Script enable DHCP client
---> Copy code save to file ".vbs"
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
Home page: www.VnExperts.net
Email : This e-mail address is being protected from spambots. You need JavaScript enabled to view it
YM : vlsm2000

Re:Mỗi ngày một Script 2 years, 1 month ago #9290

  • VLSM
  • OFFLINE
  • Expert Boarder
  • Posts: 102
  • Karma: 0
Script trên chỉ cho phép cấu hình ip address automatic trên client thôi còn DNS thì vẫn manually configured.

Đây là script cấu hình ip address và dns automatic (nhận ip và dns từ DHCP server)



'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
Home page: www.VnExperts.net
Email : This e-mail address is being protected from spambots. You need JavaScript enabled to view it
YM : vlsm2000

Re:Mỗi ngày một Script 2 years, 1 month ago #9304

  • VLSM
  • OFFLINE
  • Expert Boarder
  • Posts: 102
  • Karma: 0
Mấy hôm nay bận wa không post đc.

Scrip disable windows firewall (support: xp, 2k3)

'******************************************************************************
'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
Home page: www.VnExperts.net
Email : This e-mail address is being protected from spambots. You need JavaScript enabled to view it
YM : vlsm2000

Re:Mỗi ngày một Script 2 years, 1 month ago #9307

  • VLSM
  • OFFLINE
  • Expert Boarder
  • Posts: 102
  • Karma: 0
Script map network driver từ Active Directory

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


Ngoài VBscript trên chúng ba có thể sử dụng command line sau đó đưa vào file ".bat" để làm script

Net use z: \\servername\sharename


Nếu map data từ một server mà không nằm trong AD thì bạn phải chứng thực trên server đó

Net use z: \\servername\sharename /user:<username> <password>
Home page: www.VnExperts.net
Email : This e-mail address is being protected from spambots. You need JavaScript enabled to view it
YM : vlsm2000

Re:Mỗi ngày một Script 2 years, 1 month ago #9310

  • VLSM
  • OFFLINE
  • Expert Boarder
  • Posts: 102
  • Karma: 0
Script map multiple printer:


'  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
Home page: www.VnExperts.net
Email : This e-mail address is being protected from spambots. You need JavaScript enabled to view it
YM : vlsm2000

Re:Mỗi ngày một Script 2 years, 1 month ago #9319

  • VLSM
  • OFFLINE
  • Expert Boarder
  • Posts: 102
  • Karma: 0
Join client vào domain sử dụng script.

Bạn chỉ việc Edit Scirpt này sau đó save với đuôi ".vbs" sau đó chạy trên computer nào mà bạn muốn join vào domain la ok.


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)
Home page: www.VnExperts.net
Email : This e-mail address is being protected from spambots. You need JavaScript enabled to view it
YM : vlsm2000
  • Page:
  • 1
Moderators: pix, tranbinh48ca
Time to create page: 0.29 seconds