域控下发脚本_域环境下做到单用户登陆控制脚本

早两年的时候因目前工作的工厂有要求做域环境下单用户的登陆控制，即只允许一个用户帐号在域环境下一台电脑登陆，以此来做好相关用户资料及权限控制的要求，故通过此脚本来做好相关用户的登陆记录，并配合之后的注销脚本来一起完成此任务，但因后来管理上的疏松及工作要求的改变，此脚本被取消部署，之前有做过几份拷贝，可是后来都不是因为硬盘坏或是忘了放哪，要用时到处找不到，故将此两脚本安放在此，以备后用！

登陆脚本：

文件名： 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