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
[Solved] The Group Policy client-side extension Internet Explorer Zonemapping failed to execute
I had the error below in my application eventlog. Event Type: Error Event Source: Userenv Event Category: None Event ID: 1085 Date: 30-09-2008 Time: 15:20:30 User: NT AUTHORITY\SYSTEM Computer: TBG-TS01 Description: The Group Policy client-side extension Internet Explorer Zonemapping failed to execute. Please look for any errors reported earlier by that extension. For more information, see Help and Support Center at http://go.microsoft.com/fwlink/events.asp . My problem was with my site to zone assignment list I used a wildcard like this: “ *microsoft.com ” but what you need to do is this “ *.microsoft.com ” So it is safe to say that the documentation from microsoft needs some sort of an update stating that y...
Comments