279 lines
6.5 KiB
HTML
279 lines
6.5 KiB
HTML
|
<!--
|
||
|
|
'------------------------------------------------------------------------------
|
||
|
|
'
|
||
|
|
' Directory Service Administration Property Pages
|
||
|
|
'
|
||
|
|
' Microsoft Windows
|
||
|
|
' Copyright (C) Microsoft Corporation, 1992 - 1997.
|
||
|
|
'
|
||
|
|
' File: general.htm
|
||
|
|
'
|
||
|
|
' Contents: General property page.
|
||
|
|
'
|
||
|
|
' History: 2-25-97 ericb created.
|
||
|
|
'
|
||
|
|
'------------------------------------------------------------------------------
|
||
|
|
-->
|
||
|
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML 3.2//EN">
|
||
|
|
<HTML>
|
||
|
|
<HEAD>
|
||
|
|
<META http-equiv=Content-Type content="text/html; charset=ANSI_X3.4-1968">
|
||
|
|
</HEAD>
|
||
|
|
|
||
|
|
<OBJECT ID=ActiveDir CLASSID="Clsid:0998BB05-DFFD-11CF-927F-00AA00688A38">
|
||
|
|
</OBJECT>
|
||
|
|
|
||
|
|
<SCRIPT language=vbscript>
|
||
|
|
dim DsObj
|
||
|
|
|
||
|
|
'------------------------------------------------------------------------------
|
||
|
|
'
|
||
|
|
' Subroutine: DoOnLoad
|
||
|
|
'
|
||
|
|
' Synopsis: Bind to the DS object and set the initial control values.
|
||
|
|
'
|
||
|
|
'------------------------------------------------------------------------------
|
||
|
|
sub DoOnLoad
|
||
|
|
on error resume next
|
||
|
|
|
||
|
|
'
|
||
|
|
' Extract the object path from the URL params. This assumes that
|
||
|
|
' path= immediatly follows the ?
|
||
|
|
'
|
||
|
|
strUrl = document.URL
|
||
|
|
|
||
|
|
URLlen = len(strUrl)
|
||
|
|
i = InStr(strUrl, "?")
|
||
|
|
i = InStr(i, strUrl, "=")
|
||
|
|
EncodedPath = right(strUrl, URLlen - i)
|
||
|
|
|
||
|
|
err.clear
|
||
|
|
|
||
|
|
path = ActiveDir.DecodeURL((EncodedPath))
|
||
|
|
|
||
|
|
if err.number <> 0 then
|
||
|
|
alert("ActiveDir.DecodeURL failed with error " & hex(err.number) &_
|
||
|
|
" " & err.description)
|
||
|
|
exit sub
|
||
|
|
end if
|
||
|
|
|
||
|
|
'
|
||
|
|
' Activate the object.
|
||
|
|
'
|
||
|
|
set DsObj = ActiveDir.DSGetObject((path))
|
||
|
|
|
||
|
|
if err.number <> 0 then
|
||
|
|
alert("ActiveDir.DSGetObject failed with error " & hex(err.number) &_
|
||
|
|
" " & err.description)
|
||
|
|
exit sub
|
||
|
|
end if
|
||
|
|
|
||
|
|
'
|
||
|
|
' Get the object attributes for this page.
|
||
|
|
'
|
||
|
|
|
||
|
|
'
|
||
|
|
' Object name
|
||
|
|
'
|
||
|
|
DsName = DsObj.Get("name")
|
||
|
|
|
||
|
|
if err.number <> 0 then
|
||
|
|
alert("Get name failed with error " & hex(err.number) & " " &_
|
||
|
|
err.desctiption)
|
||
|
|
err.clear
|
||
|
|
end if
|
||
|
|
|
||
|
|
set Element = document.all.item("objname", 0)
|
||
|
|
|
||
|
|
if err.number <> 0 then
|
||
|
|
alert("item(objname) failed with error " & hex(err.number) & " " &_
|
||
|
|
err.desctiption)
|
||
|
|
err.clear
|
||
|
|
end if
|
||
|
|
|
||
|
|
set NameRange = document.rangeFromElement(Element)
|
||
|
|
|
||
|
|
NameRange.pasteHTML(DsName)
|
||
|
|
|
||
|
|
set Element = nothing
|
||
|
|
set NameRange = nothing
|
||
|
|
|
||
|
|
'
|
||
|
|
' Class
|
||
|
|
'
|
||
|
|
ObjClassList = DsObj.Get("objectClass")
|
||
|
|
|
||
|
|
if err.number <> 0 then
|
||
|
|
alert("Get class failed with error " & hex(err.number) & " " &_
|
||
|
|
err.desctiption)
|
||
|
|
err.clear
|
||
|
|
end if
|
||
|
|
|
||
|
|
Const vbString = 8
|
||
|
|
if VarType(ObjClassList) = vbString then
|
||
|
|
DsClass = TrimPath(ObjClassList)
|
||
|
|
else
|
||
|
|
i = 0
|
||
|
|
for each obj in ObjClassList
|
||
|
|
DsClass = obj
|
||
|
|
if i = 0 then
|
||
|
|
if obj <> "top" then
|
||
|
|
exit for
|
||
|
|
end if
|
||
|
|
i = i + 1
|
||
|
|
end if
|
||
|
|
next
|
||
|
|
end if
|
||
|
|
|
||
|
|
set Element = document.all.item("objclass", 0)
|
||
|
|
|
||
|
|
if err.number <> 0 then
|
||
|
|
alert("item(objclass) failed with error " & hex(err.number) & " " &_
|
||
|
|
err.desctiption)
|
||
|
|
err.clear
|
||
|
|
end if
|
||
|
|
|
||
|
|
set ClassRange = document.rangeFromElement(Element)
|
||
|
|
|
||
|
|
ClassRange.pasteHTML(DsClass)
|
||
|
|
end sub
|
||
|
|
|
||
|
|
'------------------------------------------------------------------------------
|
||
|
|
'
|
||
|
|
' Subroutine: DoApply
|
||
|
|
'
|
||
|
|
' Synopsis: Set the DS object to the new control values.
|
||
|
|
'
|
||
|
|
'------------------------------------------------------------------------------
|
||
|
|
sub DoApply
|
||
|
|
end sub
|
||
|
|
</SCRIPT>
|
||
|
|
|
||
|
|
<BODY bgcolor=silver onload="DoOnLoad()">
|
||
|
|
|
||
|
|
<font face=Arial size=2>
|
||
|
|
<table rows=1 cols=2 borders=0 cellpadding=5>
|
||
|
|
<tr>
|
||
|
|
<td>
|
||
|
|
<img src=images\user.gif>
|
||
|
|
</td>
|
||
|
|
<td valign=center>
|
||
|
|
<font face=Arial size=2><span id=objname></span></font>
|
||
|
|
</td>
|
||
|
|
</tr>
|
||
|
|
</table>
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
|
||
|
|
<table rows=4 cols=2 borders=0 cellpadding=0 width=100%>
|
||
|
|
<tr>
|
||
|
|
<td align=left>
|
||
|
|
<font face=Arial size=2>Type:</font>
|
||
|
|
</td>
|
||
|
|
<td align=left>
|
||
|
|
<font face=Arial size=2><span id=objclass></span></font>
|
||
|
|
</td>
|
||
|
|
</tr>
|
||
|
|
<tr>
|
||
|
|
<td align=left colspan=2>
|
||
|
|
<hr>
|
||
|
|
</td>
|
||
|
|
</tr>
|
||
|
|
<tr>
|
||
|
|
<td align=left>
|
||
|
|
<font face=Arial size=2>Creation Time:</font>
|
||
|
|
</td>
|
||
|
|
<td align=left>
|
||
|
|
<font face=Arial size=2><span id=createtime>1/1/80 12:00AM</span></font>
|
||
|
|
</td>
|
||
|
|
</tr>
|
||
|
|
<tr>
|
||
|
|
<td align=left>
|
||
|
|
<font face=Arial size=2>Last Modified:</font>
|
||
|
|
</td>
|
||
|
|
<td align=left>
|
||
|
|
<font face=Arial size=2><span id=modtime>1/1/80 12:00AM</span></font>
|
||
|
|
</td>
|
||
|
|
</tr>
|
||
|
|
</table>
|
||
|
|
|
||
|
|
</font>
|
||
|
|
|
||
|
|
<SCRIPT language=vbscript>
|
||
|
|
|
||
|
|
'------------------------------------------------------------------------------
|
||
|
|
'
|
||
|
|
' Subroutine: Filler
|
||
|
|
'
|
||
|
|
' Synopsis: This is here only as a work around for the display bug in the
|
||
|
|
' layout engine.
|
||
|
|
'
|
||
|
|
'------------------------------------------------------------------------------
|
||
|
|
sub Filler
|
||
|
|
on error resume next
|
||
|
|
|
||
|
|
DsObj.Put "givenName", document.forms(0).firstname.value
|
||
|
|
|
||
|
|
if err.number <> 0 then
|
||
|
|
alert("Put firstname failed with error " & hex(err.number) & " " &_
|
||
|
|
err.desctiption)
|
||
|
|
end if
|
||
|
|
|
||
|
|
DsObj.Put "sn", document.forms(0).lastname.value
|
||
|
|
|
||
|
|
if err.number <> 0 then
|
||
|
|
alert("Put lastname failed with error " & hex(err.number) & " " &_
|
||
|
|
err.desctiption)
|
||
|
|
end if
|
||
|
|
|
||
|
|
DsObj.Put "url", document.forms(0).homepage.value
|
||
|
|
|
||
|
|
if err.number <> 0 then
|
||
|
|
alert("Put homepage failed with error " & hex(err.number) & " " &_
|
||
|
|
err.desctiption)
|
||
|
|
end if
|
||
|
|
|
||
|
|
DsObj.SetInfo
|
||
|
|
|
||
|
|
if err.number <> 0 then
|
||
|
|
alert("SetInfo failed with error " & hex(err.number) & " " &_
|
||
|
|
err.desctiption)
|
||
|
|
end if
|
||
|
|
end sub
|
||
|
|
sub Filler1
|
||
|
|
on error resume next
|
||
|
|
|
||
|
|
DsObj.Put "givenName", document.forms(0).firstname.value
|
||
|
|
|
||
|
|
if err.number <> 0 then
|
||
|
|
alert("Put firstname failed with error " & hex(err.number) & " " &_
|
||
|
|
err.desctiption)
|
||
|
|
end if
|
||
|
|
|
||
|
|
DsObj.Put "sn", document.forms(0).lastname.value
|
||
|
|
|
||
|
|
if err.number <> 0 then
|
||
|
|
alert("Put lastname failed with error " & hex(err.number) & " " &_
|
||
|
|
err.desctiption)
|
||
|
|
end if
|
||
|
|
|
||
|
|
DsObj.Put "url", document.forms(0).homepage.value
|
||
|
|
|
||
|
|
if err.number <> 0 then
|
||
|
|
alert("Put homepage failed with error " & hex(err.number) & " " &_
|
||
|
|
err.desctiption)
|
||
|
|
end if
|
||
|
|
|
||
|
|
DsObj.SetInfo
|
||
|
|
|
||
|
|
if err.number <> 0 then
|
||
|
|
alert("SetInfo failed with error " & hex(err.number) & " " &_
|
||
|
|
err.desctiption)
|
||
|
|
end if
|
||
|
|
end sub
|
||
|
|
|
||
|
|
</SCRIPT>
|
||
|
|
|
||
|
|
</BODY>
|
||
|
|
</HTML>
|