關於配置IP地址的、動靜態由域策略轉換腳本

因爲域裏的機器非常多。。有些機器的IP是由手動設定即靜態。另一部分是由服務器的DHCP提供。

現由於IP非常的混亂。需要對IP重新分配。但一部分人是靜態的。又不知道哪一部分具體的機器。不好一臺一臺的去查。

這樣非常的影響效率。想請教各位大蝦們。有沒有腳本能夠直接用AD來加腳。讓客戶機啓動的時候運行這個腳本自動把靜態的IP地址轉成DHCP自動獲得。

這樣就可以直接在服務器上重新分配。不需要管客戶機了。

另外用戶的權限是USER權限。不具備更改的功能。能否幫忙寫個用計算機加載這個腳本的。最好是VBS的。請大蝦們幫幫忙。先在此謝過了。

1. strComputer = "."
   
2. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
   
3. Set colNetCards = objWMIService.ExecQuery _
   
4.     ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
   
5. For Each objNetCard in colNetCards
   
6.     objNetCard.EnableDHCP()
   
7. Next

複製代碼

運行這個腳本可以使客戶機使用DHCP，但是DNS不能改掉。

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
  For Each objNetCard in colNetCards
    objNetCard.EnableDHCP()
    objNetCard.SetDNSServerSearchOrder(null)

Next


全部自動，這樣就完美了