HTA / HTML / VBScript / AD - Извлечение пользовательской информации из AD с использованием VBscript - PullRequest
Новая
       31

HTA / HTML / VBScript / AD - Извлечение пользовательской информации из AD с использованием VBscript

0 голосов
/ 06 июля 2019

Я пытаюсь создать свое первое приложение.Я хочу создать скрипт, который извлекает свойства некоторых пользователей из Active Directory.Я создал приложение HTA, но оно не работает.Мне действительно нужна некоторая поддержка от вас.

Спасибо.

А вот и HTML-код [для приложения HTA ​​

Вот подробности скрипта: 

<script type="VBscript">

    Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand = CreateObject("ADODB.Command")
    objConnection.Provider = ("ADsDSOObject")
    objConnection.Open "Active Directory Provider"
    objCommand.ActiveConnection = objConnection
    objCommand.Properties("SearchScope") = 2
    objCommand.CommandText = "SELECT userWorkstations,sAMAccountName,Mail,name,DisplayName,distinguishedName,LastLogonDate, FROM 'LDAP://dc=NESTLE,dc=com' WHERE objectCategory='user' AND displayname='" & VaR5 & "'"
    Set objRecordSet = objCommand.Execute
</script>
<hta:application
    applicationname="ADUCUserGrab"  
    border="thin"
    borderstyle="normal"
    caption="ADUC User Grab"
    contextmenu="yes"
    icon="aduc_sm.ico"
    maximizebutton="no"
    minimizebutton="yes"
    navigable="yes"
    scroll="yes"
    selection="yes"
    showintaskbar="yes"
    singleinstance="yes"
    sysmenu="yes"
    version="1.0"
    windowstate="normal"
>
</head>

А вот и HTML-код [для.hta app]: 

<body topmargin="1" leftmargin="0" rightmargin="0" bottommargin="1" bgcolor="#000080" text="#FFFFFF">
<table border="0" width="640" cellspacing="0" cellpadding="0">
    <tr>
        <td align="center" valign="top" height="110" bgcolor="#000080">
            <i>Enter the <u>userid</u> or <u>last name</u> below and click appropriate search.</i><br>
            <input type="text" name="StrUserid" size="20">
            <input id=idsearchbutton  class="button" type="button" value="Search On UserID" name="userid"  onClick="SearchScope">
        </td>
    </tr>
    <tr>
        <td valign="top" height="300" bgcolor="#000080">
            <Div id="BaseUserInfo"></Div>
            <br>
            <table border="0" width="100%" cellspacing="1" cellpadding="0">
                <tr>
                    <td width="60%" valign="top"><Div id="AddUserInfo"></Div></td>
                    <td width="40%" valign="top"><Div id="AccUserStatus"></Div></td>
                </tr>
            </table>
        </td>
    </tr>
    <tr>
        <td valign="top" height="70" bgcolor="#000080">
            <div id="AdditionalOptions"></div>
        </td>
    </tr>
</table>

1 Ответ

0 голосов
/ 08 июля 2019

Если это ваш первый опыт работы с HTA, значит, вы слишком нацелены.Сильно упростите, пока на вашей кнопке не появится сообщение «Hello World», а затем уточните.Сделайте так, чтобы сообщение включало что-то извлеченное из свободного текстового поля, постройте постепенно.

...