如何解决如何在HTA页面上显示userinfo
因此，我开始编写VBScript以将来自不同位置的AD用户信息放入一个msgbox中，然后发现HTA现在试图在HTA中显示，但我不知道该怎么做。我正在使用document.getElementById，我认为可以显示多少个字符存在一些限制。
<!DOCTYPE HTML>
<html>
<head>
<title>My First HTML Application</title>
<HTA:APPLICATION
APPLICATIONNAME="My First HTML Application"
ID="MyFirstHTA"
VERSION="1.0"
SCROLL="yes"/>
<style type="text/css">
body {
background-color: #fdfeff;
color: darkblue;
font-family: Calibri;
font-size: 12pt;
margin: 4em 3em;
}
</style>
</head>
<script language="VBScript">
Sub CheckName()
On Error Resume Next
Dim objSysInfo,objUser
Set objSysInfo = CreateObject("ADSystemInfo")
strFalse.font.color = RGB(255,0)
strFalse = "Disabled"
struserName = document.getElementByID( "InputName" ).value
Aryusername = Split(struserName," ")
Set objUser = GetObject("LDAP://CN=" & Aryusername(0) & "." & Aryusername(1) & ",OU=Users,OU=XXXX,DC=xxxxxx,DC=com")
if (objUser.AccountDisabled = False) Then
strResult = strFalse
strResult.font.color=RGB(255,0)
else
strResult = strTrue
strResult.font.color=RGB(0,255,0)
end if
strText = "GENERAL" & "<BR><BR>" & _
"Full Name: " & objUser.givenName & " " & objUser.initials & " " & objUser.sn & "<BR>" & _
"Display Name: " & objUser.displayName & "<BR>" & objUser.description & "<BR>" & _
"Email: " & objUser.mail & "<BR><BR>" & "ACCOUNT" & "<BR><BR>"
document.getElementById( "OutputResult1" ).innerHTML = strText
'document.getElementById( "OutputResult1" ).innerHTML = "GENERAL" & "<BR><BR>" & _
' "Full Name: " & objUser.givenName & " " & objUser.initials & " " & objUser.sn & "<BR>" & _
' "Display Name: " & objUser.displayName & "<BR>" & objUser.description & "<BR>" & _
' "Email: " & objUser.mail & "<BR><BR>" & "ACCOUNT" & "<BR><BR>" & _
' "User Logon Name: " & objUser.PrincipalName & "<BR>" & "Is Account: " & strResult & "<BR>" & _
'document.getElementById( "OutputResult2" ).innerHTML = "ACCOUNT" & "<BR><BR>" & _
' "User Logon Name: " & objUser.PrincipalName & "<BR>" & "Is Account: " & strResult & "<BR>" & _
' "AD created on: " & objuser.whenCreated
End Sub
Sub Window_OnLoad
window.resizeTo 640,480
document.title = document.title & ",Version " & MyFirstHTA.Version
End Sub
</script>
<body>
<p><input type="text" id="InputName"/>
<input type="button" value="Submit" onclick="CheckName" /></p>
<p> </p>
<p id="OutputResult1">Enter a name of person to check.</p>
<p id="OutputResult2">and click on the Submit button</p>
</body>
</html>
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。