Source code of Windows XP (NT5)
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
<!--
'------------------------------------------------------------------------------'' 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 DoApplyend 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 ifend subsub 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 ifend sub
</SCRIPT>
</BODY></HTML>
|
