<%@ LANGUAGE = VBScript %> <% 'Option Explicit %> <% 'Call this page with a query string of ?sname=machinename 'example: http://larad01/iis/iicnct.asp?sname=larad01 'On Error Resume Next Dim path, sname, scripttimeout, FileSystem, quote, errd, currentADsObj, lastobj Dim newid, topid, firstid, currentid, numNewItems 'This script can take a _long_ time to execute, 'as we may be dealing with thousands of items 'to add to our JScript object. 'save our current script timeout value & set to a much longer value... scripttimeout = Server.ScriptTimeOut Server.ScriptTimeOut = 2000 Set FileSystem=CreateObject("Scripting.FileSystemObject") path=Request.QueryString("fspath") quote=chr(34) errd=False lastobj = "" %> <% if err <> 0 then %> <% Response.write "err: " & err.description %>
<% Response.write "currentcontainer: " & currentADsObj.ADsPath %>
<% Response.write " " & currentADsObj.KeyType %>
<% Response.write "Err Container:" & lastobj %>
<% end if %>