测试部署Ex2003和LCS2003
[ 2004/11/04 09:08 | by gOxiA ]
这几天看了些技术资料，便开始在自己的老牛上拉Ex2003和LCS2003，具体结构如下：
Win2000高级服务器版作为域控制器
Win2003企业版作为Ex2003和LCS2003
先安装的LCS2003便出现了问题，参照技术资料上的先在Win2000DC上扩展了活动目录使用以下命令：
结果显示成功，之后安装LCS2003也提示成功，重新启动服务器后，发现AD管理中无法为用户添加LCS功能。使用XP+AdminPack管理AD，可以看到Live Netmeeting信息栏，可是用户属性中没有LCS的配置。如果登录Win2000DC直接管理AD，发现更惨，什么都没有，这是为什么呢？记得资料中写道需要执行：
可视发现根本就没有这个文件嘛，已经发送了请求帮助还没有回答，无奈只能再安装Ex2003看情况如何。
无意中发现活动目录是混合模式，于是提升DC为Win2000纯模式，发现问题依旧。
算了，等答案吧，先装Ex2003再说。基本上快安装完了，在虚拟机里跑这些东东可真慢啊。
Win2000高级服务器版作为域控制器
Win2003企业版作为Ex2003和LCS2003
先安装的LCS2003便出现了问题，参照技术资料上的先在Win2000DC上扩展了活动目录使用以下命令：
adprep /forestprep和adprep /domainprep
结果显示成功，之后安装LCS2003也提示成功，重新启动服务器后，发现AD管理中无法为用户添加LCS功能。使用XP+AdminPack管理AD，可以看到Live Netmeeting信息栏，可是用户属性中没有LCS的配置。如果登录Win2000DC直接管理AD，发现更惨，什么都没有，这是为什么呢？记得资料中写道需要执行：
rtcsrv.msi prep=schema
rtcsrv.msi prep=enterprise
rtcsrv.msi prep=domain
rtcsrv.msi prep=enterprise
rtcsrv.msi prep=domain
可视发现根本就没有这个文件嘛，已经发送了请求帮助还没有回答，无奈只能再安装Ex2003看情况如何。
无意中发现活动目录是混合模式，于是提升DC为Win2000纯模式，发现问题依旧。
算了，等答案吧，先装Ex2003再说。基本上快安装完了，在虚拟机里跑这些东东可真慢啊。
解决Intel系列显卡驱动使鼠标变慢
[ 2004/10/28 17:42 | by gOxiA ]
删除：
下面的子项
除了 New(新建) 以外
HKEY_CLASSES_ROOT\Directory\Background\shellex\ContextMenuHandlers
下面的子项
除了 New(新建) 以外
How can I delete all files from my IIS log file directory that are over 90 days old?
这个脚本可以从日志目录中删除90天的记录。
这个脚本可以从日志目录中删除90天的记录。
Option Explicit
Const GENERAL_FAILURE = 2
Const KillFile=0 ' Set this to 0 to not delete the files, set to 1 to delete the files
Dim ArgObj, Servername, WebSiteID, WebSite, WebSitepath, totalDeleted, MaxAgeOfFileToKeep
Function DeleteOldLogFiles(WebSite, MaxAgeOfFile)
Dim File, ServerObj, FSO, FolderObj, FileObj, LogFileDir, Deleted, Status, FailedToDelete
Deleted = 0
FailedToDelete= 0
on error resume next
' Attempt to get the web site object from the metabase
Err.clear
Set ServerObj = GetObject(WebSite)
If (Err.Number <> 0) Then
WScript.Echo \"Error: \" & Err.Description & \" (\" & Err.Number & \")\"
Exit Function
end if
LogFileDir = ServerObj.LogFileDirectory
Set ServerObj = Nothing
WScript.Echo \"Log file dir for: \" &WebSite & \" = \" & LogFileDir
WScript.Echo \"Delete files over \"& MaxAgeOfFile & \" days old.\"
WScript.Echo \"\"
Set FSO = CreateObject(\"Scripting.FileSystemObject\")
set Folderobj = FSO.GetFolder(LogFileDir)
for each File in Folderobj.files
if (Date - File.DateCreated > cint(MaxAgeOfFile)) then
Status = \"Deleting File: \" & File.name & \", Age=\" & formatNumber(Date-File.DateCreated, 0) & \" days, Status=\"
Err.Clear
if (KillFile = 1) then
FSO.DeleteFile(LogFileDir & \"\" & File.Name)
If (Err.Number <> 0) Then
Status = Status & \"Failed : \"& Err.Description & \" (\" & Err.Number & \")\"
FailedToDelete = FailedToDelete +1
else
Status = Status & \"Deleted\"
Deleted = Deleted + 1
end if
else
Status = Status & \"Skipped\"
end if
WScript.Echo Status
end if
next
DeleteoldLogfiles = Deleted
WScript.Echo \"\"
if (FailedToDelete > 0) then
WScript.Echo \"There were \" & FailedToDelete & \" files that could not be deleted.\"
end if
WScript.Echo \"There were \" & Deleted & \" files deleted.\"
end function
Sub DisplayHelpMessage()
WScript.Echo
WScript.Echo \"Usage:\"
WScript.Echo \" DeleteOldWebSiteLogfiles.VBS MaxDays WebSiteNumber \"
WScript.Echo
WScript.Echo \"MaxDays = maximum age in days of files to keep.\"
WScript.Echo \"WebSiteNumber is the number of the web site, you have two methods to determine this:\"
WScript.Echo
WScript.Echo \"#1 = Run FINDWEB.VBS\"
WScript.Echo \"#2 = Right click the web site, select properties, on the web site tab\"
WScript.Echo \" under logging click the Properties button, part of the log file\"
WScript.Echo \" name will contain the web site #\"
WScript.Echo
WScript.Echo \" example log filename: W3SVC1\exyymmdd.log - the web site is 1\"
WScript.Echo \" W3SVC45\exyymmdd.log - the web site is 45\"
WScript.Echo
WScript.Echo \"Please visit and support : http://www.iisfaq.com\"
end sub
' Get the Arguments object
Set ArgObj = WScript.Arguments
' Test to make sure there is at least one command line arg - the command
If ArgObj.Count < 2 Then
DisplayHelpMessage
WScript.Quit (GENERAL_FAILURE)
End If
Servername = \"LocalHost\"
MaxAgeOfFileToKeep = trim(ArgObj(0))
WebSiteID = trim(ArgObj(1))
WebSite = \"W3SVC/\" & WebSiteID
WebSitepath = \"IIS://\" & Servername &\"/\" & WebSite
TotalDeleted = DeleteOldLogFiles(WebSitePath, MaxAgeOfFileToKeep)
Const GENERAL_FAILURE = 2
Const KillFile=0 ' Set this to 0 to not delete the files, set to 1 to delete the files
Dim ArgObj, Servername, WebSiteID, WebSite, WebSitepath, totalDeleted, MaxAgeOfFileToKeep
Function DeleteOldLogFiles(WebSite, MaxAgeOfFile)
Dim File, ServerObj, FSO, FolderObj, FileObj, LogFileDir, Deleted, Status, FailedToDelete
Deleted = 0
FailedToDelete= 0
on error resume next
' Attempt to get the web site object from the metabase
Err.clear
Set ServerObj = GetObject(WebSite)
If (Err.Number <> 0) Then
WScript.Echo \"Error: \" & Err.Description & \" (\" & Err.Number & \")\"
Exit Function
end if
LogFileDir = ServerObj.LogFileDirectory
Set ServerObj = Nothing
WScript.Echo \"Log file dir for: \" &WebSite & \" = \" & LogFileDir
WScript.Echo \"Delete files over \"& MaxAgeOfFile & \" days old.\"
WScript.Echo \"\"
Set FSO = CreateObject(\"Scripting.FileSystemObject\")
set Folderobj = FSO.GetFolder(LogFileDir)
for each File in Folderobj.files
if (Date - File.DateCreated > cint(MaxAgeOfFile)) then
Status = \"Deleting File: \" & File.name & \", Age=\" & formatNumber(Date-File.DateCreated, 0) & \" days, Status=\"
Err.Clear
if (KillFile = 1) then
FSO.DeleteFile(LogFileDir & \"\" & File.Name)
If (Err.Number <> 0) Then
Status = Status & \"Failed : \"& Err.Description & \" (\" & Err.Number & \")\"
FailedToDelete = FailedToDelete +1
else
Status = Status & \"Deleted\"
Deleted = Deleted + 1
end if
else
Status = Status & \"Skipped\"
end if
WScript.Echo Status
end if
next
DeleteoldLogfiles = Deleted
WScript.Echo \"\"
if (FailedToDelete > 0) then
WScript.Echo \"There were \" & FailedToDelete & \" files that could not be deleted.\"
end if
WScript.Echo \"There were \" & Deleted & \" files deleted.\"
end function
Sub DisplayHelpMessage()
WScript.Echo
WScript.Echo \"Usage:\"
WScript.Echo \" DeleteOldWebSiteLogfiles.VBS MaxDays WebSiteNumber \"
WScript.Echo
WScript.Echo \"MaxDays = maximum age in days of files to keep.\"
WScript.Echo \"WebSiteNumber is the number of the web site, you have two methods to determine this:\"
WScript.Echo
WScript.Echo \"#1 = Run FINDWEB.VBS\"
WScript.Echo \"#2 = Right click the web site, select properties, on the web site tab\"
WScript.Echo \" under logging click the Properties button, part of the log file\"
WScript.Echo \" name will contain the web site #\"
WScript.Echo
WScript.Echo \" example log filename: W3SVC1\exyymmdd.log - the web site is 1\"
WScript.Echo \" W3SVC45\exyymmdd.log - the web site is 45\"
WScript.Echo
WScript.Echo \"Please visit and support : http://www.iisfaq.com\"
end sub
' Get the Arguments object
Set ArgObj = WScript.Arguments
' Test to make sure there is at least one command line arg - the command
If ArgObj.Count < 2 Then
DisplayHelpMessage
WScript.Quit (GENERAL_FAILURE)
End If
Servername = \"LocalHost\"
MaxAgeOfFileToKeep = trim(ArgObj(0))
WebSiteID = trim(ArgObj(1))
WebSite = \"W3SVC/\" & WebSiteID
WebSitepath = \"IIS://\" & Servername &\"/\" & WebSite
TotalDeleted = DeleteOldLogFiles(WebSitePath, MaxAgeOfFileToKeep)
