AutoIt脚本：自动化获取宽带账号密码

5星 · 超过95%的资源需积分: 16 147 浏览量更新于2024-09-12 收藏 8KB TXT 举报

在AutoIt编程中，读取宽带账号密码是一个实用的功能，特别是在进行系统恢复或新设备安装时，能够确保快速接入互联网。本文将详细介绍如何利用AutoIt脚本（AU3）通过本地安全授权（Local Security Authority，LSA）接口来获取用户的宽带账号信息，包括RasDialParams和L$_RasDefaultCredentials数据。首先，我们需要注意的是，此操作涉及访问用户的私人信息，因此必须遵循相应的权限和用户许可。在代码中，`GlobalConst$POLICY_GET_PRIVATE_INFORMATION`被设置为4，这是获取私人数据的策略标识符。`ERROR_INVALID_SID`常量的定义也体现了对SID（安全标识符）的有效性检查。 `_LookupAccountName(@UserName)`函数用于根据当前登录用户的用户名获取其SID，这在Windows系统中是唯一的标识符。然后，`_ConvertSidToStringSid`函数将SID转换为字符串形式，以便于后续处理。关键部分在于`_LsaRetrievePrivateData`函数，它接受两个参数：一个是特定的私有数据项名称，如RasDialParams或L$_RasDefaultCredentials，这些通常是与宽带账号相关的数据存储位置。该函数尝试从LSA中检索这些数据，如果成功，返回的数据会被存储在`$bData`变量中。在`Func_FINDADSL()`函数中，先尝试获取RasDialParams数据，如果失败，则转向L$_RasDefaultCredentials，这是因为前者可能包含更具体或完整的账号信息。数据大小通过`$iSize`变量表示，并用`DllStructCreate`和`DllStructGetData`来处理结构化的二进制数据，确保数据的正确解析。最后，通过循环遍历解析后的数据，将非空字符（除NULL结束符外）收集到字符串`sR`中，从而得到宽带账号密码信息。这部分代码的目的是提取可用的宽带账号字符串，供后续使用或存储。 AutoIt提供了强大的本地系统访问能力，允许开发人员在适当权限下获取用户信息，如宽带账号密码，但务必确保符合隐私政策并尊重用户知情权。这种功能对于自动化部署和维护过程中的网络配置尤其有用，但应当谨慎使用，以避免潜在的安全风险。

Global Const $POLICY_GET_PRIVATE_INFORMATION = 4
If Not IsDeclared("ERROR_INVALID_SID") Then Global Const $ERROR_INVALID_SID = 1337
Global Const $tagLSAUNICODE = "ushort Length;ushort MaxLength;ptr Wbuffer"
Global Const $tagLSAOBJATTR = "ulong Length;hWnd RootDir;ptr objName;ulong Attr;ptr SecurDescr;ptr SecurQuality"

MsgBox(0, "ADSL 账号密码", _FINDADSL()); 失败返回0，成功返回ADSL用户名及密码

Func _FINDADSL()
Dim $pSid = _LookupAccountName(@UserName) ; 获取用户SID指针。
Dim $sSid = _ConvertSidToStringSid($pSid) ; 转换为字符型SID。
_HeapFree($pSid)
Dim $bData = _LsaRetrievePrivateData("RasDialParams!" & $sSid & "#0")
$iSize = @extended
If $bData <> "" Then
Return _ADSL($iSize, $bData)
Else
$bData = _LsaRetrievePrivateData("L$_RasDefaultCredentials#0")
$iSize = @extended
If $bData <> "" Then
Return _ADSL($iSize, $bData)
EndIf
EndIf
EndFunc ;==>_FINDADSL

Func _ADSL($iSize, $bData)
Dim $tB = DllStructCreate("byte[" & $iSize & "]")
Dim $pB = DllStructGetPtr($tB)
Dim $tW = DllStructCreate("wchar[" & $iSize / 2 & "]", $pB)
DllStructSetData($tB, 1, $bData)
Dim $sR = ""

剩余7页未读，继续阅读

u010543875

粉丝: 0
资源: 1

AutoIt脚本：自动化获取宽带账号密码

autoit 读取xml代码

autoit 轻量级请求BigQuant策略方法+JSON解析+落地\委托\DB

autoit 打开网页输入账号密码

autoIt autoit autoit

AutoIT

autoit

scite4autoit3 AutoIT

Autoit工具

autoit实例

autoit 脚本

最新资源