博客园_2010 cnSaaS.com 虎年虎威

自动发送TFS团队项目文件迁入迁出信息

2010-09-06T02:57:00Z

USE [TfsVersionControl]
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
Create Procedure [dbo].[usp_AutoSendMailForCheckOutInfo] As
Begin
/*
Function : Check TFS For Lock / Check Out
Author: LuoHP
Date:20100226
Modify Date:20100904
Note: First Create SQLMail
*/
declare @BodyStr nvarchar(max)
Declare @QuerySQL nvarchar(max)
Select @BodyStr = Convert(nvarchar(16),getdate(),120)+' List at attachment'
--表说明 Begin
--TfsVersionControl.dbo.tbl_lock  文件锁定信息
--TfsVersionControl.dbo.tbl_workspace 用户工作区
--TfsVersionControl.dbo.tbl_Identity 用户信息
--TfsVersionControl.dbo.tbl_pendingchange 文件迁入迁出信息
--表说明 End
Set @QuerySQL= 'select Convert(nvarchar(10),''LOCK'') As Type,
Convert(nvarchar(20),I.DisplayName) As [User],
Convert(nvarchar(30),W.Computer) As Computer,
Convert(nvarchar(150),L.FullPath) As FileName
  From tbl_lock L
Left Join tbl_workspace W on L.workspaceID = W.workspaceID
Left Join tbl_Identity I on I.IdentityId = W.OwnerID
Union All
select Convert(nvarchar(10),''CheckOut'') As Type,
Convert(nvarchar(20),I.DisplayName) As [User],
Convert(nvarchar(30),W.Computer) As Computer,
Convert(nvarchar(150),C.TargetParentPath+C.TargetChildItem) As FileName
  From tbl_pendingchange C
Left Join tbl_workSpace W on C.WorkspaceID = W.workspaceID
Left Join tbl_Identity I on I.IdentityId = W.OwnerID
Where W.Computer Is Not Null
Order By Type,[User],Computer'

--Print @QuerySQL
--取得收件人列表
declare @Mail nvarchar(max)
set @Mail = 'ReceiveMail@hotmail.com' --收件人地址
select @Mail=@Mail+mail+';' from WeeklyReport.dbo.Users
select @Mail = substring(@Mail,1,Len(@mail)-1)
--print @mail

EXEC msdb.dbo.sp_send_dbmail
@profile_name = 'DBMailprofile' --数据库邮件配置,
@recipients = @mail,
@subject = '【TFS每日提示】TFS文件迁出/锁定列表，请检查是否有忘记迁入的文件',
@body = @BodyStr,
@attach_query_result_as_file =1,
@query = @QuerySQL,
@append_query_error=1,
@execute_query_database ='TfsVersionControl'

End

本文链接

自动发送TFS团队项目用户权限检查信息

2010-09-06T02:46:00Z

USE [TfsVersionControl]
GO
/****** Object: StoredProcedure [dbo].[usp_AutoSendUserPrjRight]    Script Date: 09/06/2010 10:33:19 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
Create Procedure [dbo].[usp_AutoSendUserPrjRight] As
Begin
/*
Function : 定期向配置管理员发送用户权限列表
Author: LuoHP
Date:20100904
Note: First Create SQLMail
*/
declare @BodyStr nvarchar(max)
Declare @QuerySQL nvarchar(max)
Select @BodyStr = Convert(nvarchar(16),getdate(),120)+' List as a attachment'
--表说明 Begin
--TfsIntegration.dbo.tbl_gss_group_membership  用户群组关系表
--TfsIntegration.dbo.tbl_security_identity_cache 用户群组信息描述 type=2 用户 type =4 群组
--TfsIntegration.dbo.tbl_projects     项目信息表
--表说明 End

Set @QuerySQL= 'Select Convert(nvarchar(20),A.Account_Name) As [User],Convert(nvarchar(50),B.Display_Name) As Role,Convert(nvarchar(50),D.[project_name]) As Prj
From [tbl_security_identity_cache] A
Left Join [tbl_gss_group_membership] C On C.[member_sid] = A.sID
Left Join [tbl_security_identity_cache] B On B.SID = C.[parent_group_sid]
           And B.Type=4 and A.deleted=0
Left Join [tbl_projects] D On Convert(nvarchar(40),D.Project_ID) = replace(B.[domain],''vstfs:///Classification/TeamProject/'','''')
Where A.Type = 2 and A.deleted=0
  And B.Display_Name is not Null
  And A.Display_Name Not in(''TFSSERVICE'',''TFSSETUP'')
  Order By D.[project_name],B.Display_Name'

  --Print @QuerySQL

--取得收件人列表
declare @Mail nvarchar(max)
set @Mail = 'username@hotmail.com‘

EXEC msdb.dbo.sp_send_dbmail
@profile_name = 'mailProfile',--数据库邮件配置文件
@recipients = @mail,
@subject = '【TFS每周提示】TFS用户权限记录检查',
@body = @BodyStr,
@attach_query_result_as_file =1,--查询结果作为附件，否则访问邮件正文
@query = @QuerySQL,
@append_query_error=1,--查询出错时，错误信息通过邮件正文发送出来
@execute_query_database ='TfsIntegration'

End

本文链接

MPSENG上 "MPFTranLogData with error code 80004005. "错误的处理

2009-10-13T04:17:00Z

为了实现Microsoft Dynamics CRM 和EXCHANGE SERVER 的SaaS运营，微软部署一套HMC必装组件MPS(Microsoft Provisioning System，介绍见http://technet.microsoft.com/en-us/library/cc526764.aspx,安装见http://www.microsoft.com/downloads/det...

高强度磁铁靠近笔记本屏幕灯管附近黑屏的原因及解决办法

2009-05-26T01:44:00Z

笔者不小心那磁铁靠近笔记本显示屏，发现屏幕立马变黑，拿走后仍然黑屏，只有合上笔记本再打开，屏幕才点亮。IBM T43/T42等机器可以反复试验，但是某国际大厂DL笔记本试了两次再也点不亮了，某国产大厂LX笔记本试一次也是挂了.可见屏的质量.后来检查发现估计是磁场太强电流不稳把高压板给烧了,花30元钱换个高压板就好了.首先讲讲普通液晶屏的组成，一般前面是图像显示屏，后面有几层反光板，上下各有两根灯管...

浅谈SaaS数据安全性

2009-04-18T18:42:00Z

http://developer.51cto.com/art/200903/117475.htm51CTO正持续关注《SaaS时代的软件开发》等SaaS热点。据BBC报道：如果说2008年是高科技职业犯罪出露马脚的一年,那么2009年则是这个噩梦的开始，地下经济正在蓬勃的发展，高科技犯罪分子不仅成立了多个组织,并且还相互合作以达到他们共有的最大的利益。近年高科技网络犯罪呈现出职业化,攻击手段多样化...

MS SQL Server 2005无数据库日志恢复

2008-07-25T02:35:00Z

场景：只有Test.mdf文件，日志文件被删除了，现需要恢复数据库。步骤：1.建立同名数据库Test.2.停止数据库服务,将旧的数据库文件test.mdf覆盖到新创建的数据库文件上3.启动数据库服务，这时候数据库是打不开的4.在master库中运行 ,如下语句便可。-- 1.置为紧急状态alter database test set emergency-- 2.恢复declare @databas...

Sql Server2005恢复备份数据库问题－Error:3154

2008-07-09T03:15:00Z

一个老土但是很重要的问题：SaaS到底怎么发音？

2008-03-12T17:12:00Z

之前跟很多人接触这个词SaaS，按照中国人直面意思发音都是读成[sa:s]，跟03年爆发的Sars发音类似，其实这是不准确的，这个词是根据英文简写发音应该读[sæs]，另外可以区分于Sars,何乐而不为！

IDC 双线技术引发的思考

2008-02-26T02:33:00Z

早些时间南北电信分家,个人觉得是信产部最大的一次败笔,现在网通也要被拆掉了,分别归入移动和新联通,所造成的信息化的一些瓶颈,就是南北互通的问题,如果机房放在北方网通机房,南方电信用户访问或多或少受些影响,不排除利益驱使人为干预,笔者所在地区就曾发生过电信跟领导不和而故意拔网线之事件发生,可堪之为流氓行为.电信跟网通在每个地方的关系也很巧妙,而电信内部人士透露,网通线是绝对不可以进电信机房的,甚至绝...

Windows2003 远程桌面超过最大连接数解决办法

2008-01-17T00:51:00Z

经常碰到超过远程连接数而无法连接服务器，你可以采用如下方法解决此时一般有以下选1.打托管商电话要求机房手动强制重启.2.使用专用远程连接器.如果以上两条不方便实现,那请看下面这条最方便的吧用如下命令形式解决超过最大连接数问题运行 mstsc /v:IP /console ,比如就可以连接到远程系统的的会话。mstsc /v:211.211.0.5 /console其实这主要是mstsc参数的了解...