S Douglas - Professional Profile

Executed as user: {username}. TCP Provider: The semaphore timeout period has expired. [SQLSTATE 08S01] (Error 121)  Communication link failure [SQLSTATE 08S01] (Error 121).  The step failed.

<return xmlns="urn:schemas-microsoft-com:xml-analysis">
  <results xmlns="http://schemas.microsoft.com/analysisservices/2003/xmla-multipleresults">
    <root xmlns="urn:schemas-microsoft-com:xml-analysis:empty">
      <Exception xmlns="urn:schemas-microsoft-com:xml-analysis:exception" />
      <Messages xmlns="urn:schemas-microsoft-com:xml-analysis:exception">
        <Error ErrorCode="3238002695" Description="Internal error: The operation terminated unsuccessfully." Source="Microsoft SQL Server 2005 Analysis Services" HelpFile="" />
        <Error ErrorCode="3238002695" Description="Internal error: The operation terminated unsuccessfully." Source="Microsoft SQL Server 2005 Analysis Services" HelpFile="" />
        <Error ErrorCode="3238395904" Description="OLE DB error: OLE DB or ODBC error: Transaction (Process ID 64) was deadlocked on thread | communication buffer resources with another process and has been chosen as the deadlock victim. Rerun the transaction.; 40001." Source="Microsoft SQL Server 2005 Analysis Services" HelpFile="" />
        <Error ErrorCode="3240034316" Description="Errors in the OLAP storage engine: An error occurred while the dimension, with the ID of 'Vw Dim Product CUBE', Name of 'Product' was being processed." Source="Microsoft SQL Server 2005 Analysis Services" HelpFile="" />
        <Error ErrorCode="3240034317" Description="Errors in the OLAP storage engine: An error occurred while the 'Subdepartment Number' attribute of the 'Product' dimension from the 'Cubes' database was being processed." Source="Microsoft SQL Server 2005 Analysis Services" HelpFile="" />
        <Error ErrorCode="3239837698" Description="Server: The operation has been cancelled." Source="Microsoft SQL Server 2005 Analysis Services" HelpFile="" />
      </Messages>
    </root>
  </results>
</return>

use msdb

SELECT
	sysjobs.name,
	step_id,
	step_name,
	isnull(nullif(convert(int,(run_duration/10000 * 60) + (run_duration/100%100) + (ceiling(run_duration%100/60.0))),0),1) as DurationMinutes,
	run_date
FROM 
	sysjobs 
	join sysjobschedules on sysjobs.job_id = sysjobschedules.job_id 
	join sysjobhistory on sysjobs.job_id = sysjobhistory.job_id 
WHERE 
	sysjobs.name ={job name}

USE ReportServer

DECLARE @EXEC_ID varchar(255)
DECLARE @RPT_NAME varchar(255)

SET @RPT_NAME='{Report Name}'

SET @EXEC_ID =(
	SELECT TOP 1
     a.ScheduleID
 FROM
     ReportServer.dbo.ReportSchedule a 
	INNER JOIN ReportServer.dbo.Subscriptions d ON  a.SubscriptionID = d.SubscriptionID 
	INNER JOIN ReportServer.dbo.Catalog e ON  d.report_oid = e.itemid
    WHERE e.name = @RPT_NAME  
)          

EXEC msdb.dbo.sp_start_job @job_name = @EXEC_ID; 

-----------------------------------------------------------

Create Table #results
(
	tbl_Name varchar(255),
	earliest datetime,  
	newest	datetime,
	countOf int
)

-----------------------------------------------------------

  	DECLARE @tbl AS VARCHAR(75)
	DECLARE @sql AS VARCHAR(4000)
	DECLARE @fnd AS VARCHAR(25)
	SET @fnd = 'fact'

	DECLARE TblCursor CURSOR FOR
	
	SELECT [name] as tbl_name
	FROM sys.Tables
	WHERE [name] like '%' + @fnd + '%'

	OPEN TblCursor
	FETCH next FROM TblCursor INTO @tbl
	WHILE @@fetch_status = 0
	BEGIN
		
		SET @sql = 'DROP TABLE ' + @tbl 

		PRINT @sql

		INSERT #results EXECUTE(@sql) 
		IF @@error <> 0
			INSERT INTO #results (tbl_Name) VALUES (@tbl)

		FETCH next FROM TblCursor INTO @tbl
	END
	CLOSE TblCursor
	DEALLOCATE TblCursor

-----------------------------------------------------------
	
SELECT * FROM #results ORDER BY newest

-----------------------------------------------------------

TRUNCATE TABLE #results

DROP TABLE #results

/* An Example Table */
CREATE TABLE #tmp(i int, s varchar(255))

/* Fill it up with some random data */
DECLARE @iRowCnt INT, @i INT, @sUID VARCHAR(255)

SET @iRowCnt = 1000
SET @i = 0

WHILE @i <= @iRowCnt
BEGIN
	SET @sUID = CAST(NewID() as Varchar(255))
	INSERT INTO #tmp(i, s) values(@i, @sUID)
	SET @i = @i + 1
END

/* Case statement inside of a select */
SELECT
	i ,
	CASE WHEN i % 2 = 1
		THEN
			'Got Nothing'
		ELSE
			s 
	END AS Case_Test
FROM 
	#tmp
	
/* Case inside of a where clause */
SELECT
	i,
	s 
FROM 
	#tmp
WHERE 
		(CASE WHEN i % 2 = 1
		THEN
			'Got Nothing'
		ELSE
			s 
	END) = 'Got Nothing'


/* Make sure to clean up after your self */
DROP TABLE #tmp

Event Type:	Error<br />
Event Source:	Report Server (MSSQLSERVER)<br />
Event Category:	Management <br />
Event ID:	107<br />
Date:		4/20/2009<br />
Time:		9:30:02 AM<br />
User:		N/A<br />
Computer:	xxxx<br />
Description:<br />
Report Server (MSSQLSERVER) cannot connect to the report server database.<br />
<br />
For more information, see Help and Support Center at http://go.microsoft.com/fwlink/events.asp.

Event Type:	Error<br />
Event Source:	DCOM<br />
Event Category:	None<br />
Event ID:	10016<br />
Date:		4/20/2009<br />
Time:		11:40:44 AM<br />
User:		NT AUTHORITY\NETWORK SERVICE<br />
Computer:	xxxx<br />
Description:<br />
The application-specific permission settings do not grant Local Activation permission for the COM Server application with CLSID <br />
{BA126AD1-2166-11D1-B1D0-00805FC1270E}<br />
 to the user NT AUTHORITY\NETWORK SERVICE SID (S-1-5-20).  This security permission can be modified using the Component Services administrative tool.<br />
<br />
For more information, see Help and Support Center at http://go.microsoft.com/fwlink/events.asp.

<br />
File system error: A FileStore error from WriteFile occurred. Physical file: \\?\C:\Program Files\Microsoft SQL Server\MSSQL.2\OLAP\Data\CB Cubes.0.db\Vw Dim Product CUBE.0.dim\172.Vw Dim Product CUBE.asstore. Logical file: . : The process cannot access the file because another process has locked a portion of the file. .

Option Explicit
 
' 1: Maps Printer

Main

Sub Main()

	Call MapPrinter("\\UNC\Path", true)

End Sub

Sub MapPrinter(sPrinter, bDefault)
Dim objNet
' *** Map the printer for the user *** '

	Set objNet = CreateObject("WScript.Network") 
	objNet.AddWindowsPrinterConnection sPrinter
	If bDefault Then 
		objNet.SetDefaultPrinter sPrinter
	End If
	
	Set objNet = Nothing

End Sub

Option Explicit
'**************************************************************'
'*** Del.Logs by Stephan Douglas 						***'
'*** Contact stephan@sentinalsoftware.com 				***' 
'*** No warranties express or implied use at your own risk		***' 
'*** You are free to use as you see fit 					***'
'**************************************************************'

' Requirements as defined by Krishna K 11.12.2008
' 1: Delete xml files in 'C:\SLMMSG\log\ImportExport\' older than a give number of day, from server 
' 2: Need to keep one weeks worth of logs (approx)
' 3: Based on date created

Call Main()

'****************************************************'
'*** Script Main, all work stems from main ***'
'****************************************************'
Sub Main()
'On error Resume Next
Dim sPath, sSelect, dDate, sResults, dFileDate
Dim objWMIService, objChild, objFile
Dim objFSO

	sPath = GetIniValue("Path")

	if (Len(sPath)) < 1 Then
		iCounter = 0
		Exit Sub
	End if	
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
	
	dDate = DatePart("yyyy", DateAdd("d", GetIniValue("NumDays"), Date))
	
	If DatePart("m", DateAdd("d", GetIniValue("NumDays"), Date)) < 10 Then 
		dDate = dDate & "0" & DatePart("m", DateAdd("d", GetIniValue("NumDays"), Date))
	Else
		dDate = dDate & DatePart("m", DateAdd("d", GetIniValue("NumDays"), Date))
	End If

	If DatePart("d", DateAdd("d", GetIniValue("NumDays"), Date)) < 10 Then 
		dDate = dDate & "0" & DatePart("d", DateAdd("d", GetIniValue("NumDays"), Date))
	Else
		dDate = dDate & DatePart("d", DateAdd("d", GetIniValue("NumDays"), Date))
	End If
	
	dDate = dDate & "000000.000000+000"
	sSelect = "Select * from CIM_DataFile where Path= '" & sPath & "' and CreationDate <= '" & dDate & "'"

	Set objFSO = CreateObject("Scripting.FileSystemObject")
	
	Set objChild = objWMIService.ExecQuery(sSelect)
	if not IsNull(objChild) then
		For Each objFile in objChild
			Call objFSO.Delete(objFile.Name, true)
		Next
	End If
	
	Set objFSO = Nothing
	Set objChild = Nothing
	Set objWMIService = Nothing
	Set objFile = Nothing

'*** Error Handling ***'
If Err.Number <> 0 Then
	'Call LogIt ("Error- Main - " & Err.Number & " " & Err.Description, 2)
End If
End Sub

'***************************************************************************'
'*** Get Value From INI File *** SFD 01/04/2006
'***************************************************************************'
Function GetIniValue(sID)
On Error Resume Next
Dim objFSO
Dim objTextFile
Dim sValue
Dim sKey, sFileName

Set objFSO = CreateObject("Scripting.FileSystemObject")
	'*** Make sure the ini file exists ***'
	sFileName = GetScriptName(".ini")
        If (objFSO.FileExists(sFileName) = False) Then
				msgbox "No configuration file defined!" 
                GetIniValue = vbNullString
				set objFSO = Nothing
                Exit Function
        End If
	
	'*** Open a handle to the ini file ***'
        Set objTextFile = objFSO.OpenTextFile(sFileName)
	
	'*** Parse the ini file ***'
        Do While Not objTextFile.AtEndOfStream
                sValue = objTextFile.ReadLine()
               If InStr(sValue, "=") Then
					sKey = Split(sValue, "=")
					If sKey(0) = sID Then
							GetIniValue = sKey(1)
					End If
				End If
        Loop
        
        objTextFile.Close
        
Set objTextFile = Nothing
set objFSO = Nothing

'*** Error Handling ***'
If Err.Number <> 0 Then
	'Call LogIt ("Error- Get Ini Value - " & Err.Number & " " & Err.Description, 2)
End If
End Function

'***************************************************************************'
'*** Return Script Name with user selected File Extension *** SFD 03/02/2008
'***************************************************************************'
Function GetScriptName(sExt)
On Error Resume Next
	
	GetScriptName = Replace(Wscript.ScriptName, ".vbs", sExt)

'*** Error Handling ***'
If Err.Number <> 0 Then
	'Call LogIt ("Error- Get Script Name - " & Err.Number & " " & Err.Description)
End If
End Function