国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

打開APP
userphoto
未登錄

開通VIP,暢享免費電子書等14項超值服

開通VIP
客戶端【腳本】自動加入域
客戶端【腳本】自動加入域
2010年10月08日 星期五 09:30

===================================================================================
【項目需求】
為了方便在局域網(wǎng)內(nèi)部署 Windows 平臺下的軟件。
希望通過一個局域網(wǎng)內(nèi)的一臺服務(wù)器,達到所有客戶端可以通過一次操作(甚至是無需操作)就可以完成:
自動安裝、升級軟件的工作。
所以我想到了“域”和“腳本”。
于是在網(wǎng)上找了一些資料,作為一個解決方案。
------------------------------------------------------------------------------------------------------------------------------------
腳本應(yīng)該完成以下功能:
① 客戶端加入域。
② 完成加入域的動作之后,自動重啟。
③ 重啟后以域用戶自動登錄,進入用戶界面。
④ 直接運行 bat 腳本,從而進行安裝、升級軟件。
------------------------------------------------------------------------------------------------------------------------------------
此腳本在【客戶端】運行
===================================================================================
set objShell=wscript.createObject("wscript.shell")
objShell.Run "cmd.exe /c net user %username% password",0,true
objShell.Run "cmd.exe /c label c: c",0,true
objShell.Run "cmd.exe /c echo c|convert c: /fs:ntfs /x",0,true

objShell.Run "cmd.exe /c netsh interface ip set dns ""本地連接"" static 192.168.1.254 primary",0,true
objShell.Run "cmd.exe /c sc config LmHosts start= AUTO",0,true
objShell.Run "cmd.exe /c net start lmhosts",0,true

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 = "weimeitc.ccc"
strPassword = "qu6zhi.."
strUser = "administrator"

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)
Set ws = WScript.CreateObject("WScript.Shell")
registrykey = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\"
user = "qu6zhi"
password = "Qast@"
domain = "weimeitc.ccc"
ws.RegWrite registrykey & "DefaultUserName", user
ws.RegWrite registrykey & "DefaultPassword", password
ws.RegWrite registrykey & "DefaultDomainName", domain
ws.RegWrite registrykey & "AutoAdminLogon", 1

ws.RegWrite registrykey & "DontDisplayLastUserName", 0
ws.RegWrite registrykey & "ForceAutologon", 1
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Shutdown)}!\\" & "." & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Reboot()
Next

===================================================================================

===================================================================================
ws.RegWrite registrykey & "ForceAutologon", 1
=
解決以下問題,使登錄過程中可以直接進入用戶界面。

===================================================================================
清除服務(wù)器中的緩存解決以下問題。



刪除客戶端。



===================================================================================
【以下是參考的內(nèi)容】
===================================================================================
參考資料 ① 《自動加入域的腳本》
------------------------------------------------------------------------------------------------------------------------------------
set objShell=wscript.createObject("wscript.shell")
wscript.echo "確定加入域,整個過程大概要1分鐘左右。"

//連接到文件服務(wù)器上服務(wù)器,0 表示 CMD 無前臺黑窗提示,true 表示只有前條正確執(zhí)行后才執(zhí)行下一條。
objShell.Run "cmd.exe /c net user %username% password",0,true
objShell.Run "cmd.exe /c label d: d",0,true

objShell.Run "cmd.exe /c echo d|convert d: /fs:ntfs /x",0,true
objShell.Run "cmd.exe /c reg add ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\
Advanced\Folder\SimpleSharing"" /v ""DefaultValue"" /t reg_dword /d ""00000000"" /f>nul",0,true
objShell.Run "cmd.exe /c reg add ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\
Advanced\Folder\SimpleSharing"" /v ""CheckedValue"" /t reg_dword /d ""00000000"" /f>nul",0,true
objShell.Run "cmd.exe /c reg add ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\
Advanced\Folder\SimpleSharing"" /v ""UncheckedValue"" /t reg_dword /d ""00000000"" /f>nul",0,true

//修改本地連接主 DNS 為 PDC 服務(wù)器地址,如果 DNS 和 PDC 做在同一服務(wù)器上的話。修改輔助 DNS 為 10.10.10.11,
objShell.Run "cmd.exe /c netsh interface ip set dns ""本地連接"" static 10.10.10.10 primary",0,true
objShell.Run "cmd.exe /c netsh interface ip add dns ""本地連接"" 10.10.10.11",0,true

//修改 TCP NETBIOS 服務(wù)狀態(tài)為自動,并啟動 netbios 服務(wù),不然會提示加入域失敗。
objShell.Run "cmd.exe /c sc config LmHosts start= AUTO",0,true
objShell.Run "cmd.exe /c net start lmhosts",0,true



//連接文件服務(wù)器,拷貝一個設(shè)置好的用戶配置文件模板作為新建用戶的配置。
//新建 D:\backup 目錄 并修改注冊表默認新建賬號的配置文件目錄為 D:\backup\
objShell.Run "cmd.exe /c net use \\10.10.10.100   password /user:netsun",0,true
objShell.Run "cmd.exe /c md d:\backup",0,true
objShell.Run "cmd.exe /c xcopy ""\\10.103.33.7\軟件\Default User"" ""d:\backup\Default User\"" /E /H /k",0,true
objShell.Run "cmd.exe /c reg add ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList"" /v ""ProfilesDirectory"" /t reg_expand_sz /d ""d:\backup"" /f>nul",0,true

//使用 winmgmts 服務(wù)實現(xiàn)加入域的功能
//strDomain = "domain.local"   域名
//strPassword = "user"
//strUser = "password"

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 = "domain.local"
strPassword = "user"
strUser = "password"
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)


//將 domain users 加入到本機的 administrator 組中,這個根據(jù)需要來做。
objShell.Run "cmd.exe /c net localgroup administrators ""domainname\domain users"" /add",0,true

//加入域成功之后自動重啟電腦
wscript.echo "確定重啟電腦,請關(guān)閉所有窗口,保存好數(shù)據(jù)!"
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Shutdown)}!\\" & "." & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Reboot()
Next


以上 vbs 腳本文件可以使用文件改造者來轉(zhuǎn)換成 EXE 文件,發(fā)給客戶端直接運行即可。

【腳本主要的一些改動】
① 修改本機用戶密碼,以免用戶加域后從本機登錄。
② 改動 D 盤為 NTFS 格式,去掉系統(tǒng)文件夾選項的簡單共享,方便做權(quán)限。
③ 改動本地連接的 DNS 為 DNS 服務(wù)器地址,這里有點勉強,應(yīng)為不是所有的機器網(wǎng)卡都是本地連接,不過一般只要不是雙卡的都正確的。
④ 開啟機器的 NetBios 解析服務(wù),不然會提示加域失敗的。
⑤ 從文件服務(wù)器上拷貝一個修改好的默認配置文檔到機器的 D:\backup,并修改注冊表默認配置文件路徑為D:\backup,這樣做是為了以后裝系統(tǒng)方便,不用導(dǎo)出用戶在 C 盤上的資料,如桌面和搜藏夾等等。
⑥ 將 Domain users 組加入到本機的 administrators 組中,這個因環(huán)境而定。
⑦ 加域成功后自動重啟。

具體的參數(shù)還是要根據(jù)實際情況改的。
不要直接運行了,可能會自動重啟的,而且密碼也會改掉。
===================================================================================
參考資料 ② 《用戶不自動登錄到域時應(yīng)用來自動執(zhí)行登錄過程中對舊的運行Windows 基礎(chǔ)的計算機上啟動腳本
------------------------------------------------------------------------------------------------------------------------------------
【概要】
本文介紹了當您創(chuàng)建一個啟動腳本以自動執(zhí)行登錄過程中對舊的運行 Microsoft Windows 基礎(chǔ)的計算機上時,會發(fā)生的問題。
該啟動腳本配置注冊表項,以讓用戶自動登錄到域。
但是,用戶啟動其計算機時,它們都不自動登錄到域。
本文介紹了四種方法可用來變通解決此問題。
------------------------------------------------------------------------------------------------------------------------------------
【癥狀】
請考慮以下情形。創(chuàng)建啟動腳本以自動登錄過程中對舊的運行 Windows 基礎(chǔ)的計算機上。該啟動腳本配置注冊表項,以讓用戶自動登錄到域時它們啟動計算機。例如對于您...請考慮以下情形。創(chuàng)建啟動腳本以自動登錄過程中對舊的運行 Windows 基礎(chǔ)的計算機上。
該啟動腳本配置注冊表項,以讓用戶自動登錄到域時它們啟動計算機。例如對于您創(chuàng)建一個包含下面的代碼的啟動腳本
Set ws = WScript.CreateObject("WScript.Shell")

registrykey = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\"

user = "UserName"
password = "Password"
domain = "DomainName"

ws.RegWrite registrykey & "DefaultUserName", user
ws.RegWrite registrykey & "DefaultPassword", password
ws.RegWrite registrykey & "DefaultDomainName", domain
ws.RegWrite registrykey & "AutoAdminLogon", 1
ws.RegWrite registrykey & "DontDisplayLastUserName", 0

您創(chuàng)建了的域控制器上的組策略對象 (GPO) 和此 GPO 適用于對舊的運行 Windows 基礎(chǔ)計算機的啟動腳本。
但是,當用戶開始其中一臺計算機問題中,用戶是不自動登錄到域。
而應(yīng),顯示 歡迎使用 Windows 對話框。用戶必須按 CTRL + ALT + DELETE 在 歡迎使用 Windows 對話框中,然后手動登錄到域。
------------------------------------------------------------------------------------------------------------------------------------
【原因】
出現(xiàn)此問題的原因是 Windows 基礎(chǔ)對舊的處理策略的一個用戶在在 歡迎使用 Windows 中按 CTRL + ALT + DELETE 后才啟動腳本中包含...出現(xiàn)此問題的原因是 Windows 基礎(chǔ)對舊的處理策略的一個用戶在在 歡迎使用 Windows 中按 CTRL + ALT + DELETE 后才啟動腳本中包含對話框。
------------------------------------------------------------------------------------------------------------------------------------
【替代方法】
警告如果您修改注冊表錯誤地使用注冊表編輯器或使用另一種方法,則可能會出現(xiàn)嚴重問題。
這些問題可能需要重新安裝操作系統(tǒng)。
Microsoft 不能保證可以解決這些問題...警告如果您修改注冊表錯誤地使用注冊表編輯器或使用另一種方法,則可能會出現(xiàn)嚴重問題。這些問題可能需要重新安裝操作系統(tǒng)。Microsoft 不能保證可以解決這些問題。修改注冊表的風險由您自己承擔。
要變通解決此問題,使用下列方法之一。
------------------------------------------------------------------------------------------------------------------------------------
方法 1: 修改 ForceAutlogon 注冊表項的值設(shè)置為 1 啟動腳本
修改啟動腳本設(shè)置的該 ForceAutologon 值在 1 到以下注冊表子項中的注冊表項:
HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\CurrentVersion\Winlogon
若要執(zhí)行此操作將下面的代碼添加到末尾的啟動腳本
ws.RegWrite registrykey & "ForceAutologon", 1

下面是一個包含代碼的 ForceAutologon 注冊表值設(shè)置為 1 的啟動腳本的一個示例。

Set ws = WScript.CreateObject("WScript.Shell")

registrykey = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\"


user = "UserName"

password = "Password"
domain = "DomainName"

ws.RegWrite registrykey & "DefaultUserName", user

ws.RegWrite registrykey & "DefaultPassword", password
ws.RegWrite registrykey & "DefaultDomainName", domain
ws.RegWrite registrykey & "AutoAdminLogon", 1
ws.RegWrite registrykey & "DontDisplayLastUserName", 0
ws.RegWrite registrykey & "ForceAutologon", 1


注意 使用此方法時,用戶必須重新啟動計算機正在運行的 Windows 基礎(chǔ)對舊的兩個時間之前該用戶自動登錄到域。此外,您是否管理員不能使用遠程桌面功能來遠程登錄到計算機。
------------------------------------------------------------------------------------------------------------------------------------
方法 2: 修改重新啟動計算機啟動腳本
修改啟動腳本,使腳本配置注冊表項后,重新啟動計算機。
若要這樣做,請按照下列步驟操作:
從到的 Drive 運行 Microsoft Windows Server 2003 或 Microsoft Windows XP 的計算機復(fù)制 Shutdown.exe 命令行工具: \Windows\System 對舊的運行 Windows 基礎(chǔ)計算機上的文件夾。
將 Shutdown.exe 命令行添加到啟動腳本。 The following is an example of a startup script that contains code that includes the Shutdown.exe command line.
on error resume next
Set ws = WScript.CreateObject("WScript.Shell")

registrykey = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\"

user = "UserName"
password = "Password"
domain = "DomainName"

CurrentDomain = ws.RegRead (registrykey & "DefaultDomainName")
CurrentPassword = ws.RegRead (registrykey & "DefaultPassword")
CurrentAutoAdminLogon = ws.RegRead (registrykey & "AutoAdminLogon")
CurrentUserName = ws.RegRead (registrykey & "DefaultUserName")

if (CurrentUserName <> user) or _
(CurrentPassword <> password) or _
(CurrentDomain <> domain) or _
(CurrentAutoAdminLogon <> 1) then

ws.RegWrite registrykey & "DefaultUserName", user
ws.RegWrite registrykey & "DefaultPassword", password
ws.RegWrite registrykey & "DefaultDomainName", domain
ws.RegWrite registrykey & "AutoAdminLogon", 1
ws.RegWrite registrykey & "DontDisplayLastUserName", 0

ws.Run ("shutdown.exe -r -t 5 -f -d P:4:2")
end if
------------------------------------------------------------------------------------------------------------------------------------
方法 3: 對舊的禁用快速登錄優(yōu)化功能在 Windows 基礎(chǔ)知識
禁用 Windows 中的快速登錄優(yōu)化功能對舊式的基礎(chǔ)知識。若要執(zhí)行此操作啟用 $"總是等待網(wǎng)絡(luò)在計算機啟動和登錄"策略設(shè)置。
若要以便該策略設(shè)置,請按照下列步驟操作:
打開相應(yīng)的策略對象。
展開 計算機配置,展開 管理模板,展開 系統(tǒng),然后單擊 登錄。
在右窗格中雙擊 $ 總是等待網(wǎng)絡(luò)在計算機啟動和登錄。
單擊 啟用,然后單擊 確定。
注意當您使用此方法在 歡迎使用 Windows 對話框?qū)@示一個用戶啟動計算機時。在用戶按下 CTRL + ALT + DELETE 后,用戶登錄到域。用戶不必輸入用戶名或密碼。
------------------------------------------------------------------------------------------------------------------------------------
方法 4: 指導(dǎo)用戶等待前按下 CTRL + ALT + DELETE 的四個到五分鐘
下次用戶啟動該的計算機時指示該用戶等待之前他或她按下 CTRL + ALT + DELETE 歡迎使用 Windows 對話框中的四個到五分鐘。在用戶執(zhí)行此過程一次后,用戶將自動登錄到域他或她啟動計算機的每個后續(xù)時間。但是,用戶必須執(zhí)行此過程再次如果其他用戶登錄到域在同一臺計算機上。
===================================================================================
:start
if exist "C:\Program Files\程序目錄" goto sp3
msiexec /i "\\程序的網(wǎng)絡(luò)路徑\程序名.msi" /n /quiet
:sp3
:end

===================================================================================
自動校準 windows xp 系統(tǒng)時間的腳本
① 新建一個文本文件,在里面輸入以下內(nèi)容
net time /SETSNTP:210.72.145.44
w32tm /once   'Win2000下
w32tm /resync 'WinXP 下
保存后,將文件名改為    ResyncTime.bat

② 在[開始]---[運行]中輸入“gpedit.msc"(不包括引號)
在出來的組策略選擇【W(wǎng)indows設(shè)置】——[腳本(啟動關(guān)機)]在啟動添加剛才建立的批處理文件,保存后即可。以后計算機在開機時每次都會與 Internet 授時服務(wù)器同步了。

③ 查詢時間服務(wù)器
net time /QUERYSNTP
--------------------------------------------------
@echo off
set RSYNC_HOME=d:\Program Files\cwRsync\bin
cd %RSYNC_HOME%
d:
rsync -avzP --progress --delete --password-file=/cygdrive/d/pass/rsync.passwd SvcCWRSYNC@192.168.101.62::rsync /cygdrive/d/file

命令參數(shù)解釋:
-avzP
-a 參數(shù),相當于-rlptgoD,-r 是遞歸 -l 是鏈接文件,意思是拷貝鏈接文件;-p 表示保持文件原有權(quán)限;-t 保持文件原有時間;-g 保持文件原有用戶組;-o 保持文件原有屬主;-D 相當于塊設(shè)備文件;
-z 傳輸時壓縮;
-P 傳輸進度;
-v verbose,詳細模式輸出
-u是只同步已經(jīng)更新的文件,避免沒有更新的文件被重復(fù)更新一次,不過要注意兩者機器時鐘的同步
--progress
顯示備份過程
--delete
刪除那些DST中SRC沒有的文件
--password-file
指定密碼文件,只需包含密碼而不用包含用戶名
SvcCWRSYNC@192.168.101.62::rsync
SvcCWRSYNC 登陸服務(wù)器端的用戶名
192.168.101.62 服務(wù)器端的ip地址
rsync 服務(wù)器端指定的認證模塊名,多個同步作業(yè)靠此模塊名區(qū)分
/cygdrive/d/file  

存放服務(wù)器端同步文件的本地目錄
4、配置系統(tǒng)作業(yè),運行腳本選擇rsync.bat,客戶端配置完畢。
===================================================================================
感謝“譚學(xué)士”對我的幫助。
參考:
http://songxj.blog.51cto.com/620981/237183
http://support.microsoft.com/kb/920319/zh-cn

 

 


 
本站僅提供存儲服務(wù),所有內(nèi)容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請點擊舉報。
打開APP,閱讀全文并永久保存 查看更多類似文章
猜你喜歡
類似文章
VBS整人代碼
VBS教程(文本版)|『 腳本技術(shù)交流 』
深入挖掘Windows腳本技術(shù)(三)
一些很惡作劇的vbs程序代碼
Windows 任務(wù)計劃 隱藏執(zhí)行窗口的幾種方法
windows開機自動執(zhí)行bat腳本啟動cmd命令窗口并執(zhí)行命令,最后自動關(guān)閉cmd命令窗
更多類似文章 >>
生活服務(wù)
分享 收藏 導(dǎo)長圖 關(guān)注 下載文章
綁定賬號成功
后續(xù)可登錄賬號暢享VIP特權(quán)!
如果VIP功能使用有故障,
可點擊這里聯(lián)系客服!

聯(lián)系客服