AD模式下出现NetLogon 5781错误的对策
[ 2004/08/07 09:40 | by gOxiA ]
当服务器使用域模式时，在登录后，日志事件中可能会出现Netlogon 5781错误。
域控制器上的 Netlogon 服务无法注册或取消注册多个资源记录时，系统事件日志中将记录 Netlogon 5781 错误信息。该事件描述不包含这些资源记录的名称。此外，该事件描述也可能是会让人误解的“no DNS servers are available”这一内容，
注意：这些错误的常见原因是域控制器在其 TCP/IP 属性中将其自身引用为主 DNS 服务器。当域控制器使用这种配置启动时，Netlogon 服务可能会在 DNS 服务启动之前启动。由于 Netlogon 服务必须在 DNS 中注册记录，而 DNS 服务尚不可用，因此可能会发生错误。在这种情况下，您可以安全地忽略这些错误，因为 Netlogon 服务将会在大约 5 分钟后会再次尝试注册这些记录，此时将能成功注册。不过，在这种情况下，有两种方法可以避免这些错误：
确保域控制器在其 TCP/IP 属性中不将其自身引用为主 DNS 服务器。
配置 Netlogon 服务使之依赖于 DNS 服务。这会使 Netlogon 服务在 DNS 服务启动后启动。为此，请运行 REGEDT32，并转至：
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Netlogon
在右窗格中，双击 DependOnService 值，然后将 DNS 添加到下一个可用空白行中。单击确定退出注册表编辑器。
微软官方关于5781错误的KBhttp://support.microsoft.com/default.aspx?scid=kb;en-us;259277
域控制器上的 Netlogon 服务无法注册或取消注册多个资源记录时，系统事件日志中将记录 Netlogon 5781 错误信息。该事件描述不包含这些资源记录的名称。此外，该事件描述也可能是会让人误解的“no DNS servers are available”这一内容，
注意：这些错误的常见原因是域控制器在其 TCP/IP 属性中将其自身引用为主 DNS 服务器。当域控制器使用这种配置启动时，Netlogon 服务可能会在 DNS 服务启动之前启动。由于 Netlogon 服务必须在 DNS 中注册记录，而 DNS 服务尚不可用，因此可能会发生错误。在这种情况下，您可以安全地忽略这些错误，因为 Netlogon 服务将会在大约 5 分钟后会再次尝试注册这些记录，此时将能成功注册。不过，在这种情况下，有两种方法可以避免这些错误：
确保域控制器在其 TCP/IP 属性中不将其自身引用为主 DNS 服务器。
配置 Netlogon 服务使之依赖于 DNS 服务。这会使 Netlogon 服务在 DNS 服务启动后启动。为此，请运行 REGEDT32，并转至：
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Netlogon
在右窗格中，双击 DependOnService 值，然后将 DNS 添加到下一个可用空白行中。单击确定退出注册表编辑器。
微软官方关于5781错误的KBhttp://support.microsoft.com/default.aspx?scid=kb;en-us;259277
Serv-U数据库存储模式数据库字段名
[ 2004/08/04 17:46 | by gOxiA ]
以下是配置Serv-U以数据库方式存储时的数据库字段名称，没有写原名称对应，因为太麻烦了！我直接写字段名称，中间会有提示！
\"数据库名称\"
空
空
User account
Group account
User access
Group access
User IP access
Group IP access
IndexNo
User
Password
PassType
ChangePass
SKey
Access
HomeDir
Privilege
空
Disable
空
LockHomeDir
空
空
MaxUsers
空
空
空
空
空
QuotaEnable
QuotaCurrent
QuotaMax
RatioType
RatioUp
RatioDown
RatioCredit
Expiration
Groups
以下全为空
\"数据库名称\"
空
空
User account
Group account
User access
Group access
User IP access
Group IP access
IndexNo
User
Password
PassType
ChangePass
SKey
Access
HomeDir
Privilege
空
Disable
空
LockHomeDir
空
空
MaxUsers
空
空
空
空
空
QuotaEnable
QuotaCurrent
QuotaMax
RatioType
RatioUp
RatioDown
RatioCredit
Expiration
Groups
以下全为空
摘录“ASP + Serv-u 实现FTP的代码”
[ 2004/08/04 17:38 | by gOxiA ]
“ASP + Serv-u 实现FTP的代码”awaysrain [原作]
<!--#include file="md5.asp"-->
<%
'**************************************************
'* 作者：awaysrain(绝对零度) *
'* 完成时间：2003-10-10 *
'* 测试环境：WIN2000SERVER，SERV-U 4.2-beta版 *
'**************************************************
Dim iniPath,iniFileName,iniStr,tmpStr,n
Dim userName,passWord,tmp
userName = "myfso222" '用户名
passWord = "awaysrain" '密码
tmp = "ai" '随机生成两个小写字母，（应该是随机生成的，但是我这里省略了）
passWord = tmp & UCase(md5(passWord)) '密码，是MD5加密过的，用动网的MD5加密程序，具体算法是随机生成两位小写字母，然后和你的密码连接后进行MD5加密，把随机生成的密码和MD5加密后的结果作为密码存放，举个例子来说比如下面的awaysrain用户，我的密码为awaysrain先随机生成两位小写字母ai，和我的密码awaysrain连接得到aiawaysrain把aiawaysrain进行MD5加密得到9118BFD94A9CE9CF37AE5BAA947ED596把随机生成两位小写字母ai和MD5加密后的结果9118BFD94A9CE9CF37AE5BAA947ED596连接得到密码ai9118BFD94A9CE9CF37AE5BAA947ED596
iniPath="D:\Program Files\Serv-U" 'ini文件的路径
iniFileName = "ServUDaemon.ini" 'ini的文件名
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set ServUIni = fso.OpenTextFile(iniPath & "\" & iniFileName,1,false)
iniStr = ""
n = 0
addedUserList = false
Set tf = fso.CreateTextFile(iniPath & "\" & iniFileName & "._awaysrain.tmp", True)
'生成新的临时INI文件
Do While not ServUIni.AtEndOfStream
tmpStr = ServUIni.ReadLine
If Instr("awaysrain||" & tmpStr,"awaysrain||User")>0 Then
'记录用户原来的数量
n = n+1
End If
If Instr("awaysrain||" & tmpStr,"awaysrain||[USER=")>0 and not addedUserList Then
'往用户列表的部分添加现在的用户
n = n +1
tf.WriteLine("User" & n & "=" & userName & "|1|0")
addedUserList = true
End If
tf.WriteLine(tmpStr)
Loop
ServUIni.Close
'添加新用户的信息，具体内容可以在SERV-U中新建用户并对照INI文件
tf.WriteLine("[USER=" & userName & "|1]") '用户名
tf.WriteLine("Password=" & passWord) '密码
tf.WriteLine("HomeDir=e:\temp") '主目录
tf.WriteLine("RelPaths=1") '是否锁定用户于主目录
tf.WriteLine("MaxUsersLoginPerIP=1") '相同IP同时登录数
tf.WriteLine("SpeedLimitDown=102400") '最大下载速度
tf.WriteLine("TimeOut=600") '空闲超时时间（秒）
tf.WriteLine("Access1=E:\Temp|RLP") '可访问目录,可以不是一个，比如 'Access2=E:\Temp1|RLP'
tf.Close
'--------------------备份原来的INI文件--------------------------
Set f1 = fso.GetFile(iniPath & "\" & iniFileName)
f1.Copy (iniPath & "\" & iniFileName & "._awaysrain.bak")
f1.Delete
'--------------------把生成的临时INI文件改为正式的INI--------------------------
Set f1 = fso.GetFile(iniPath & "\" & iniFileName & "._awaysrain.tmp")
f1.Copy (iniPath & "\" & iniFileName)
f1.Delete
Set fso = nothing
%>
注：以上代码假设ServUDaemon.ini中的格式只有一个域并已经至少有一个用户 测试的ServUDaemon.ini文件结构如下： ================================== [Domain1] User1=222|1|0 User2=myfso111|1|0 [USER=222|1] Password=hwB1ECF70CDAF5DAE2B981AE394EEFCDC0 HomeDir=E:\Temp RelPaths=1 TimeOut=600 Access1=E:\Temp|RLP [USER=myfso111|1] Password=ai9118BFD94A9CE9CF37AE5BAA947ED596 HomeDir=e:\temp RelPaths=1 TimeOut=600 Access1=E:\Temp|RLP 生成后的文件结构如下 ================================== [Domain1] User1=222|1|0 User2=myfso111|1|0 User3=myfso222|1|0 [USER=222|1] Password=hwB1ECF70CDAF5DAE2B981AE394EEFCDC0 HomeDir=E:\Temp RelPaths=1 TimeOut=600 Access1=E:\Temp|RLP [USER=myfso111|1] Password=ai9118BFD94A9CE9CF37AE5BAA947ED596 HomeDir=e:\temp RelPaths=1 TimeOut=600 Access1=E:\Temp|RLP [USER=myfso222|1] Password=ai9118BFD94A9CE9CF37AE5BAA947ED596 HomeDir=e:\temp RelPaths=1 TimeOut=600 Access1=E:\Temp|RLP
<%
'**************************************************
'* 作者：awaysrain(绝对零度) *
'* 完成时间：2003-10-10 *
'* 测试环境：WIN2000SERVER，SERV-U 4.2-beta版 *
'**************************************************
Dim iniPath,iniFileName,iniStr,tmpStr,n
Dim userName,passWord,tmp
userName = "myfso222" '用户名
passWord = "awaysrain" '密码
tmp = "ai" '随机生成两个小写字母，（应该是随机生成的，但是我这里省略了）
passWord = tmp & UCase(md5(passWord)) '密码，是MD5加密过的，用动网的MD5加密程序，具体算法是随机生成两位小写字母，然后和你的密码连接后进行MD5加密，把随机生成的密码和MD5加密后的结果作为密码存放，举个例子来说比如下面的awaysrain用户，我的密码为awaysrain先随机生成两位小写字母ai，和我的密码awaysrain连接得到aiawaysrain把aiawaysrain进行MD5加密得到9118BFD94A9CE9CF37AE5BAA947ED596把随机生成两位小写字母ai和MD5加密后的结果9118BFD94A9CE9CF37AE5BAA947ED596连接得到密码ai9118BFD94A9CE9CF37AE5BAA947ED596
iniPath="D:\Program Files\Serv-U" 'ini文件的路径
iniFileName = "ServUDaemon.ini" 'ini的文件名
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set ServUIni = fso.OpenTextFile(iniPath & "\" & iniFileName,1,false)
iniStr = ""
n = 0
addedUserList = false
Set tf = fso.CreateTextFile(iniPath & "\" & iniFileName & "._awaysrain.tmp", True)
'生成新的临时INI文件
Do While not ServUIni.AtEndOfStream
tmpStr = ServUIni.ReadLine
If Instr("awaysrain||" & tmpStr,"awaysrain||User")>0 Then
'记录用户原来的数量
n = n+1
End If
If Instr("awaysrain||" & tmpStr,"awaysrain||[USER=")>0 and not addedUserList Then
'往用户列表的部分添加现在的用户
n = n +1
tf.WriteLine("User" & n & "=" & userName & "|1|0")
addedUserList = true
End If
tf.WriteLine(tmpStr)
Loop
ServUIni.Close
'添加新用户的信息，具体内容可以在SERV-U中新建用户并对照INI文件
tf.WriteLine("[USER=" & userName & "|1]") '用户名
tf.WriteLine("Password=" & passWord) '密码
tf.WriteLine("HomeDir=e:\temp") '主目录
tf.WriteLine("RelPaths=1") '是否锁定用户于主目录
tf.WriteLine("MaxUsersLoginPerIP=1") '相同IP同时登录数
tf.WriteLine("SpeedLimitDown=102400") '最大下载速度
tf.WriteLine("TimeOut=600") '空闲超时时间（秒）
tf.WriteLine("Access1=E:\Temp|RLP") '可访问目录,可以不是一个，比如 'Access2=E:\Temp1|RLP'
tf.Close
'--------------------备份原来的INI文件--------------------------
Set f1 = fso.GetFile(iniPath & "\" & iniFileName)
f1.Copy (iniPath & "\" & iniFileName & "._awaysrain.bak")
f1.Delete
'--------------------把生成的临时INI文件改为正式的INI--------------------------
Set f1 = fso.GetFile(iniPath & "\" & iniFileName & "._awaysrain.tmp")
f1.Copy (iniPath & "\" & iniFileName)
f1.Delete
Set fso = nothing
%>
