早兩年的時候因目前工作的工廠有要求做域環境下單使用者的登陸控制，即只允許乙個使用者帳號在域環境下一台電腦登陸，以此來做好相關使用者資料及許可權控制的要求，故通過此指令碼來做好相關使用者的登陸記錄，並配合之後的登出指令碼來一起完成此任務，但因後來管理上的疏鬆及工作要求的改變，此指令碼被取消部署，之前有做過幾份拷貝，可是後來都不是因為硬碟壞或是忘了放哪，要用時到處找不到，故將此兩指令碼安放在此，以備後用！
登陸指令碼：
檔名： logon.vbs
內容：option explicit
dim onet, suser, scomputer, serverlog
serverlog = "\\server\logctrl$\" '加$目的是為了使用者在遊覽伺服器共享檔案的時候看不到.這樣使用者就無法來更改他們的登入資訊..set onet = createobject("wscript.network")
suser = onet.username
scomputer = onet.computername
set onet = nothing
dim fso, f1, wshshell, argu, alllog, lastlog
dim filename
filename=serverlog & suser & ".txt"
set fso = createobject("scripting.filesystemobject")
if not (fso.fileexists(filename)) then
set f1 = fso.createtextfile(filename,true)
f1.writeline suser & " " & scomputer
f1.close
set wshshell = wscript.createobject("wscript.shell")
argu = filename & "/t/e/g" & suser & ":f /r everyone"
wshshell.run("cacls " & argu)
set wshshell = nothing
end if
set f1 = fso.opentextfile(filename, 1, true)
alllog = f1.readall
f1.close
set f1 = fso.opentextfile(filename, 1, true)
lastlog = f1.readline
f1.close
if left(lastlog,5) = "logon" then '判斷是否登入 if instr(lastlog,scomputer) < 1 then '判斷是否同一臺機器，如果不是，往下執行
set f1 = fso.opentextfile(filename, 2, true)
f1.writeline (lastlog & chr(13) & chr(10) & "fail-so-logoff:" & now() & " " & suser & " at " & scomputer & chr(13) & chr(10) & alllog)
f1.close
set wshshell = wscript.createobject("wscript.shell")
dim i,oldcomputer
i=instr(lastlog,"at")
oldcomputer=right(lastlog,len(lastlog)-i-2)
wshshell.popup "對不起:此賬號已經在 " & oldcomputer & " 上登入使用！出現此提示,如是你還沒有登入，說明你的賬號被盜，請及時上報電腦部，謝謝合作！！！" , 10
set wshshell = nothing
dim os, retcode
for each os in getobject("winmgmts:!//" + scomputer).instancesof("win32_operatingsystem")
retcode = os.win32shutdown(4, 0)
next
wscript.quit
else
set f1 = fso.opentextfile(filename, 2, true)
f1.writeline ("logon: " & now() & " " & suser & " at " & scomputer & chr(13) & chr(10) & alllog)
f1.close
end if
else '沒有登入
set f1 = fso.opentextfile(filename, 2, true)
f1.writeline ("logon: " & now() & " " & suser & " at " & scomputer & chr(13) & chr(10) & alllog)
f1.close
end if
set f1 = nothing
set fso = nothing
wscript.quit
登出指令碼：
檔名：logoff.vbs
內容：option explicit
dim onet,suser,scomputer,serverlog
serverlog = "\\server\logctrl$\"
set onet=createobject("wscript.network")
suser=onet.username
scomputer=onet.computername
set onet=nothing
dim fso,f1,alllog,lastlog
dim filename
filename=serverlog & suser & ".txt"
set fso=createobject("scripting.filesystemobject")
set f1=fso.opentextfile(filename,1,true)
lastlog=f1.readline
f1.close
set f1=fso.opentextfile(filename,1,true)
alllog=f1.readall
f1.close
if left(lastlog,5)="logon" then
if instr(lastlog,scomputer) > 0 then '判斷是否同一臺機器，如果是，往下執行 set f1=fso.opentextfile(filename,2,true)
f1.writeline("logoff: " & now() & " " & suser & " at " & scomputer & chr(13) & chr(10) & alllog)
f1.close
end if
end if
set f1=nothing
set fso=nothing
wscript.quit
域控下發指令碼 域控下發指令碼，安裝zabbix客戶端
1.在域控制器上，訪問域的sys vol下的scripts資料夾，在本環境中，網域名稱為 com，對應的資料夾為 itjoying.com sysvol com scripts 2.新建乙個zabbix目錄，並將對應版本zabbix agentd.exe 複製到zabbix目錄下 3.cmd執行gp...
liunx 加入域控 linux下的域控做法
chinaunix 部落格日期 2008.09.11 11 06 共有ibm x3400 mt7674 安裝redhat as5 佈署samba3 域控和檔案伺服器 date 2008.4.9 author wang xiantong,xiantong gmail.com 需求個使用者，提供域控及檔...
windows域環境搭建 下
接上回，加入域環境失敗後，我又找了乙個企業版的win7映象，已經安裝好虛擬機器，配好ip位址了。重啟計算機生效 接下來在 dc 上檢視新加入的計算機，點選 window鍵 展開 test.local 點選 computers 可以檢視到域中新新增了兩台計算機，分別是 bob 和 john 加入域後，...