dll注册.sql

BCB 编写的一些简单函数用于SQL的扩展存储过程. -检查文件是否存在Select dbo.FileExist( c:oot.ini ) --删除文件Select dbo.FileDelete(

--检查文件是否存在Select dbo.FileExist('c:\boot.ini')
--删除文件Select dbo.FileDelete('C:\X.txt')
--服务状态Select dbo.ServerStat('awhost32',1)
--建立目录Select dbo.MKDIR('C:\Test\test',1)
--文件复制Select dbo.FileCopy('C:\boot.ini','c:\Boot\YYY.ini',1)
--删除目录Select dbo.RDDIR('C:\Text',1)
--锁定计算机Select dbo.LockPc()
--结束程序Select dbo.KillPorg('Notepad.exe')
--执行程序Select dbo.StartPorg('Notepad.exe')
--得到IP地址Select dbo.GetIP()
--分解字符Select dbo.TextPart('123*456*789','*',0)

--添加扩展过程

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[GetIP]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[GetIP]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FileCopy]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[FileCopy]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FileDelete]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[FileDelete]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FileExist]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[FileExist]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[KillPorg]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[KillPorg]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[LockPc]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[LockPc]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[MKDIR]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[MKDIR]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[RDDIR]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[RDDIR]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[ServerStat]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[ServerStat]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[StartPorg]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[StartPorg]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[TextPart]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[TextPart]
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

exec sp_addextendedproc N'GetIP', N'ExtEnd.dll'
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

exec sp_addextendedproc N'FileCopy', N'ExtEnd.dll'
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

exec sp_addextendedproc N'FileDelete', N'ExtEnd.dll'
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

exec sp_addextendedproc N'FileExist', N'ExtEnd.dll'
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

exec sp_addextendedproc N'KillPorg', N'ExtEnd.dll'
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

exec sp_addextendedproc N'LockPc', N'ExtEnd.dll'
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

exec sp_addextendedproc N'MKDIR', N'ExtEnd.dll'
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

exec sp_addextendedproc N'RDDIR', N'ExtEnd.dll'
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

exec sp_addextendedproc N'ServerStat', N'ExtEnd.dll'
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

exec sp_addextendedproc N'StartPorg', N'ExtEnd.dll'
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

exec sp_addextendedproc N'TextPart', N'ExtEnd.dll'
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO