Advertisement
Advertisement
| 01.09.2008 at 05:19AM PST, ID: 23069269 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: |
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title></title>
<script language="VB" runat="server">
Protected Sub Page_Load(ByVal Src As Object, ByVal E As EventArgs)
'First Section
'Get the LDAP path of the current user.
Dim UserData = Server.CreateObject("AdSystemInfo")
Dim AUserName As String
AUserName = UserData.UserName
aname.Text = AUserName
'Second section
'Get the NT 4.0 name of the user.
Dim WNTData = CreateObject("WinNTSystemInfo")
Dim BUserName As String
BUserName = WNTData.UserName
bname.Text = BUserName
'Third section
Dim CUser As String
CUser = User.Identity.Name
Cname.Text = CUser
End Sub
</script>
</head>
<body>
<form id="Form1" runat="server">
LDAP Path of user:
<asp:label id="aname" Font-Size="10pt" Font-Bold="True" Width="350px" runat="server"/>
<br/>
WinNT Path of User:
<asp:label id="bname" Font-Size="10pt" Font-Bold="True" Width="350px" runat="server"/>
<br/>
User.Identity.Name
<asp:label id="Cname" Font-Size="10pt" Font-Bold="True" Width="350px" runat="server"/>
</form>
</body>
</html>
|