However, we wanted to show you a more generic way to use ADSystemInfo, so we decided to go ahead and bind to the Ken Myer user account using these two lines of code:<\/P>
strUser = objSysInfo.UserName\nSet objUser = GetObject(“LDAP:\/\/” & strUser)\n<\/PRE>\nAs you can see, all we do is grab the value of the UserName property and store it in a variable named strUser, then use that variable as part of the GetObject<\/B> call that binds us to the user account.<\/P>\n
From there we simply echo back the value of the ADsPath attribute; seeing as how we\u2019re connected to the Ken Myer user account, though, we could just as easily echo back the value of any<\/I> (or all) of Ken\u2019s account attributes.<\/P>\n
That is<\/I> easy, isn\u2019t it?<\/P>\n
Now, what about using this code in an HTA? Well, here\u2019s a very simple example of that:<\/P>
<html>\n<head>\n <title>ADSystemInfo Sample<\/title>\n<\/head><\/p>\n<SCRIPT LANGUAGE=”VBScript”><\/p>\n
Sub Window_OnLoad\n On Error Resume Next<\/p>\n
Set objSysInfo = CreateObject(“ADSystemInfo”)<\/p>\n
strUser = objSysInfo.UserName\n Set objUser = GetObject(“LDAP:\/\/” & strUser)<\/p>\n
DataArea.InnerHTML = objUser.AdsPath\n End Sub<\/p>\n
<\/SCRIPT><\/p>\n
<body><\/p>\n
<span id=DataArea><\/span><\/p>\n
<\/body>\n<\/html>\n<\/PRE>\n
This HTA contains only a single element: a <span><\/B> tag named DataArea. When the HTA starts up, it runs a subroutine named Window_Onload<\/B>. (Any subroutine with that name automatically runs any time an HTA is started or refreshed.) The code for the Window_Onload subroutine should look familiar:<\/P>On Error Resume Next<\/p>\nSet objSysInfo = CreateObject(“ADSystemInfo”)<\/p>\n
strUser = objSysInfo.UserName\nSet objUser = GetObject(“LDAP:\/\/” & strUser)<\/p>\n
DataArea.InnerHTML = objUser.AdsPath\n<\/PRE>\n
That\u2019s right: it\u2019s the script we just showed you, but with one exception: instead of using Wscript.Echo to echo back the AdsPath for the logged-on user we use this line of code to write the AdsPath to the <span> tag:<\/P>
DataArea.InnerHTML = objUser.AdsPath\n<\/PRE>\nNow, does that look like the sort of thing someone sitting in an ivory tower could write?<\/P>\n
Well, OK, now that you mention it \u2026.<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! In my HTA, how can I determine the ADsPath for the logged-on user?— AC Hey, AC. You know, when you work at Microsoft people automatically assume that you spend your days in an ivory tower, totally removed from the day-to-day activities and needs of system administrators. To be honest, that isn\u2019t true: […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[9,16,47,3,4,5],"class_list":["post-68603","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-adsi","tag-desktop-management","tag-general-management-tasks","tag-scripting-guy","tag-scripting-techniques","tag-vbscript"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! In my HTA, how can I determine the ADsPath for the logged-on user?— AC Hey, AC. You know, when you work at Microsoft people automatically assume that you spend your days in an ivory tower, totally removed from the day-to-day activities and needs of system administrators. To be honest, that isn\u2019t true: […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/68603","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=68603"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/68603\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=68603"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=68603"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=68603"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/q-for-powertip.jpg\" "\\"Hey,")
\n![\"Spacer\"](\"https:\/\/devblogs.microsoft.com\/scripting\/wp-content\/uploads\/sites\/29\/2019\/05\/spacer.gif\")
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/a-for-powertip.jpg\" "\\"Hey,")
![\"Script](\"http:\/\/img.microsoft.com\/library\/media\/1033\/technet\/images\/scriptcenter\/ad.jpg\" "\\"Script")
<\/A> \n