Const ForReading = 1
Dim arrTapes()
Redim arrTapes(1)
strPrevTapeNumber = "xxxx"
Dim objDictionary
Set objDictionary = CreateObject("Scripting.Dictionary")
'Reading Arguments from the commandline
Set args = WScript.Arguments
argTapesExportFile = args.Item(0)
argPoolName = args.Item(1)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(argTapesExportFile, ForReading)
Do While objTextFile.AtEndOfStream <> True
strLine = objtextFile.ReadLine
If inStr(strLine, argPoolName) Then
strTapeNumber = Mid(strLine,InStr(strLine,argPoolName) - 7,7)
if not inArray(arrTapes,strTapeNumber) then
redim preserve arrTapes(ubound(arrTapes)+1)
arrTapes(ubound(arrTapes)) = strTapeNumber
wscript.echo arrTapes(ubound(arrTapes))
end if
End If
strPrevTapeNumber = strTapeNumber
Loop
function inArray(a,value)
for each v in a
if v = value then
inarray = true
exit function
end if
next
end function
Exchange Server Error -1018: How Microsoft IT Recovers Damaged Exchange Databases
I found this paper on the showcase site from microsoft I hope it is of help to you. It sure helped me! Technical White Paper Published: August 1, 2005 Executive Summary Error –1018 (JET_errReadVerifyFailure) is a familiar—and dreaded—error in Microsoft® Exchange Server. It indicates that an Exchange database file has been damaged by a failure or problem in the underlying file system or hardware. This paper explains the conditions that result in error –1018. It also covers the detection mechanisms that Exchange uses to discover and recover from damage to its database files. The Microsoft Information Technology group (Microsoft IT) runs one of the most extensive Exchange Server organizations in the world. Exchange administrators at Microsoft have investigated and recovered from dozens of –1018 error problems. This paper shows you how Microsoft IT mo...
Comments