发表于 2017-2-22 10:20 | 来自

51CTO网页

引用:原帖由 wankily 于 2017-2-22 08:33 发表

域环境是server2008，做了一个bat脚本，内容很简单，echo %date%,%username%,%COMPUTERNAME% >>\\192.168.10.1\tools$\pc-imformation-collect.txt，就是收集一下域用户登录的信息，方便盘点用户信息数据之类，先后放在scripts\l ...1、登录脚本是用SYSTEM这个用户去执行的，所以跟登录用户的权限没关系，USER权限用户也可以正常执行的。你这里涉及到的权限，不是脚本的执行权限，而是文件的写入权限，即pc-imformation-collect.txt这个共享文件，对域用户设置的权限。你的脚本还有一个问题是，如果有多个域用户同时登录，并同时往这个文件里追加信息，这时候一定会有问题的。还有网络问题也是有影响的。

2、BAT脚本本身做为登录脚本就不太稳定，很多方面的因素会制约它。明明测试时都很正常，但实际生产环境就掉链子，这是常有的事情。客户端数量、服务器性能瓶颈、网络等，都会有影响。所以可以使用VBS写，可以写成登录脚本，也可以写成远程获取，远程获取用Powershell能更好点。

3、我这有一个VBS的登录脚本,以前写的，获取IP、计算机、用户名放到共享上，并且每人生成一个文件，不会因为多人同时打开一个文件而出错。还是很稳定的，自己需要什么往上加就行，例如网络配置，硬件信息等，都可以，但内容不要太多，因为会影响登录速度的。

Dim oNet

Dim sUser

Dim sComputer

ServerAddress = "\\192.168.1.100\share$\"

Set oNet = CreateObject("Wscript.Network")

sUser = oNet.UserName  '用户名

sComputer = oNet.ComputerName  '计算机名

sDomain = oNet.UserDomain '所在域

Set oNet = Nothing

Public Function GetIP  '获取IP

ComputerName=sComputer

Dim objWMIService,colItems,objItem,objAddress

Set objWMIService = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objItem in colItems

For Each objAddress in objItem.IPAddress

If objAddress <> "" then

GetIP = objAddress

Exit Function

End If

Next

Next

End Function

dim fso,f1

Dim FileName

FileName=ServerAddress & sUser & ".txt"

Set fso = CreateObject("Scripting.FileSystemObject")

If not (fso.FileExists(FileName)) Then

Set f1 = fso.CreateTextFile(FileName,True)

f1.WriteLine str & chr(11) & "开机时间：" & now()

f1.WriteLine  "域用户名:" & sUser

f1.WriteLine  "域计算机名:" & sComputer

f1.WriteLine  "所在域:" & sDomain

f1.WriteLine  "IP地址:" &  GetIP

else

Set f1 = fso.OpenTextFile(FileName,8,True)

f1.WriteLine str & chr(11) & "开机时间：" & now()

f1.WriteLine  "域用户名:" & sUser

f1.WriteLine  "域计算机名:" & sComputer

f1.WriteLine  "所在域:" & sDomain

f1.WriteLine  "IP地址:" &  GetIP

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

我的微博：http://t.sina.com.cn/lzy821218