如何强制Logon script被执行

最新推荐文章于 2024-03-25 15:03:09 发布
原创 最新推荐文章于 2024-03-25 15:03:09 发布 · 4.1k 阅读 · 1 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#templates #system #网络 #network #domain #windows

在 Windows Server 2003 环境中, 在你登入 Domain 时, 虽然网络联机尚未完全建立, 但其会先用其 Cache 中的认证来进行登入. 在这种状况下, 由于其登入后, 网络联机尚未完全建立, 因此 Logon scripts 有可能不会被执行.

 

下述做法, 可强迫该机器必须完成网络联机后, 才能进行登入.

I. Computer Configuration → Administrative Templates → System → Scripts

Run Startup scripts asynchronously — Disabled

Run logon scripts synchronously — Enabled

II. Computer Configuration → Administrative Templates → System → Logon

    Always wait for the network at computer startup and logon — Enabled

多种嵌入式文件系统移植集合
fulinux的博客
06-01 1万+
1. 嵌入式存储系统 1.1. 计算机组成原理 从冯.诺依曼的存储程序工作原理及计算机的组成来说，计算机由运算器、控制器、存储器和输入/输出设备五大部件组成。其中运算器和控制器统称为中央处理器(CPU)，而存储系统分成内部存储器(内存)和外部存储器(外存)。输入/输出设备并非计算机所必需的，如果一个设备具有CPU，内存和外存，我们就可以说它是一台计算机。在很多嵌入式设备上，都没有输入/输出设备
修改注册表键值UserInitMprLogonScript达到权限维持
热门推荐
Shanfenglan's blog
11-11 10万+
CATALOG前言实现 前言 注册表HKCR\Environment\UserInitMprLogonScript键值所指的程序会在杀毒软件启动前启动，而且修改它不需要管理员权限，因此我们可以通过其来达到权限维持的效果。 实现 bat文件内容为regsvr32 calc.dll，直接执行发现被360拦截。 这时候我们通过修改注册表的方式来绕过这个拦截让其在360启动前执行。 在powershell中输入,注意修改路径： New-ItemProperty "HKCU:\Environment\" UserI
组策略中Run logon scripts synchronously和Run startup scripts asynchronously的区别
weixin_34246551的博客
11-14 235
Run logon scripts synchronously：是指确保用户桌面出现前，完成所有脚本应用。 Run startup scripts asynchronously：是指确保出线用户登录对话框前，完成所有脚本应用。 本文转自daniel8294 51CTO博客，原文链接：http://blog.51cto.com/acad...
Logon Scripts的后门实现思路
weixin_34082854的博客
09-12 1123
本文讲的是Logon Scripts的后门实现思路，依旧是对后门利用方法做介绍，本次介绍的是使用Logon Scripts的方法。然而我在研究过程中发现了一个特别的用法，脚本优先于杀毒软件执行，能够绕过杀毒软件对敏感操作的拦截，本文将要具体介绍这个技巧。 0x01 简介 · Logon Scripts用法 · 绕过360对wmi调用的拦截 · 特别用...
Logon script后门权限维持
qq_64787896的博客
03-25 461
1.在Win2008上cmd输入reg add "HKEY_CURRENT_USER\Environment" /v UserInitMprLogonScript /t REG_SZ /d "C:\1704423740.exe" ，添加注册表，开机即执行木马。实验要求：在2008用户登陆时，修改注册表，触发logon，执行木马，上线Viper。Windows登录脚本，当用户登录时触发，Logon Scripts能够优先于。3.Viper成功上线，权限为system。执行，绕过杀毒软件对敏感操作的拦截。
组策略 优化组策略性能
weixin_34289454的博客
09-12 934
文章出处：[url]http://technet.microsoft.com/zh-cn/magazine/cc137720.aspx[/url]概览:整体化与功能化 GPO如何处理组策略条目当 GP 改变时会发生什么情况我经常会被问及“从性能方面考虑，是配置少量较大的 GPO 好还是配置大量较小的 GPO 好”这一问题，本文将集中讨论此问题以及其他与组策略设计和性能相关的问...
SAPscript Forms 教程
dayishi2939的博客
07-05 904
1 SAPscript Forms.. 3 1.1 SAPscript的组成... 3 1.2 Forms: 组件和技术... 3 1.2.1 概念... 3 1.2.1.1修改SAP Forms. 3 1.2.1.2 Forms：概念... 4 1.2.1.3 Client和语言版本：概念... 4 1.2.2 组件... 4 1.2.2.1 Header Data...
在Before Logon时运行ps1脚本，怎么添加到ntlite的后期任务中？
03-14
| **执行阶段** | `Before Logon` | | **命令行** | 任选以下一种格式： | | | ▶ 外部脚本调用： | | | ```powershell -ExecutionPolicy Bypass -WindowStyle Hidden -File "C:\Windows\Setup\Scripts\EnableAdmin....
安全集成之道：HTTPS、Client Certificate与SAP Logon Ticket配置的3大安全防线
[安全集成之道：HTTPS、Client Certificate与SAP Logon Ticket配置的3大安全防线](https://www.digicert.com/content/dam/digicert/nl/images/resources/what-are-ssl-diagram1-nl.png) # 摘要 本文系统探讨了...
Private Sub CommandButton1_Click() Dim SapGui As Object, App As Object, Conn As Object, Session As Object Dim wbMPS As Workbook, wsBOH As Worksheet Dim wbSAP As Workbook Dim cell As Range Dim rowNumber As Long, i As Long Dim exportPath As String, exportFile As String, filePath As String Dim startTime As Double Const TIMEOUT = 60 On Error GoTo ErrHandler Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False ' === 路径设置 === exportPath = Environ("USERPROFILE") & "\OneDrive - BASF\Desktop" exportFile = "GRRMPM.XLSX" filePath = exportPath & "\" & exportFile ' ===================================================== ' STEP 1: 获取 SAP GUI 对象（带容错） ' ===================================================== Set SapGui = Nothing On Error Resume Next Set SapGui = GetObject("SAPGUI") If SapGui Is Nothing Then Shell "C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe", vbNormalFocus Application.Wait Now + TimeSerial(0, 0, 5) Set SapGui = GetObject("SAPGUI") End If Set App = SapGui.GetScriptingEngine If App Is Nothing Then MsgBox "无法获取 SAP scripting engine.", vbCritical Exit Sub End If ' ===================================================== ' STEP 2: 获取第一个可用会话 ' ===================================================== If App.Children.Count > 0 Then Set Conn = App.Children(0) If Conn.Children.Count > 0 Then Set Session = Conn.Children(0) End If End If ' 若无现有连接，则打开新连接 If Session Is Nothing Then Set Conn = App.OpenConnection("Cobalt - Z2L (Prod) Link", True) If Conn Is Nothing Then MsgBox "无法打开 SAP 连接，请检查名称是否正确。", vbCritical Exit Sub End If Set Session = Conn.Children(0) End If If Session Is Nothing Then MsgBox "无法获取 SAP 会话。", vbCritical Exit Sub End If ' ===================================================== ' STEP 3: 执行 MB51 并导出（保持筛选条件） ' ===================================================== Session.StartTransaction "MB51" ' 展开布局选择器 → 选择第2行 → 双击进入明细 Session.FindById("wnd[0]/tbar[1]/btn[17]").Press Session.FindById("wnd[1]/tbar[0]/btn[6]").Press With Session.FindById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell") .CurrentCellRow = 2 .SelectedRows = "2" .DoubleClickCurrentCell End With Session.FindById("wnd[0]/tbar[1]/btn[8]").Press ' 执行 ' 打开菜单并导出为 Excel Session.FindById("wnd[0]/tbar[1]/btn[48]").Press Session.FindById("wnd[0]/usr/cntlGRID1/shellcont/shell").ContextMenu Session.FindById("wnd[0]/usr/cntlGRID1/shellcont/shell").SelectContextMenuItem "&XXL" ' 保存对话框操作（必须四步） Session.FindById("wnd[1]/tbar[0]/btn[0]").Press ' [Choose] Session.FindById("wnd[1]/usr/ctxtDY_PATH").Text = exportPath ' 路径 Session.FindById("wnd[1]/usr/ctxtDY_FILENAME").Text = exportFile ' 文件名 Session.FindById("wnd[1]/tbar[0]/btn[11]").Press ' [Save] ' ===================================================== ' STEP 4: 等待文件生成（使用稳健检测） ' ===================================================== startTime = Timer Do While Timer - startTime < TIMEOUT DoEvents If Len(Dir(filePath)) > 0 Then If IsFileReady(filePath) Then Exit Do End If Application.Wait Now + TimeSerial(0, 0, 1) Loop If Not IsFileReady(filePath) Then MsgBox "导出失败：文件未生成或被锁定。", vbCritical GoTo Cleanup End If ' ===================================================== ' STEP 5: 更新 MPS25 数据 ' ===================================================== Set wbSAP = Workbooks.Open(filePath) Set wbMPS = Workbooks.Open(exportPath & "\MPS25.XLSX") Set wsBOH = wbMPS.Sheets("BOH") ' 清除自动筛选，防止 Find 失败 If wsBOH.AutoFilterMode Then wsBOH.AutoFilterMode = False Set cell = wsBOH.Columns("A:A").Find(What:="SAPdataend", LookIn:=xlValues, LookAt:=xlWhole) If cell Is Nothing Then MsgBox "错误：未找到 'SAPdataend' 标记！", vbExclamation GoTo Cleanup End If rowNumber = cell.Row - 1 For i = 2 To rowNumber If Not IsEmpty(wsBOH.Cells(i, "A")) Then On Error Resume Next wsBOH.Cells(i, "K").Value = Application.WorksheetFunction.SumIf( _ wbSAP.Sheets(1).Columns(5), wsBOH.Cells(i, "A").Value, _ wbSAP.Sheets(1).Columns(7)) / 2 On Error GoTo ErrHandler End If Next i wbMPS.Save ' ' ===================================================== ' ' STEP 6.1: 强化版 - 关闭 GRRMPM 并清理 SAP 窗口 ' ' ===================================================== ' On Error Resume Next ' ' ' --- 1. 关闭 GRRMPM Excel 文件 --- ' If Not wbSAP Is Nothing Then ' wbSAP.Close SaveChanges:=False ' Set wbSAP = Nothing ' End If ' ' ' 等待文件句柄释放 ' Application.Wait Now + TimeSerial(0, 0, 2) ' DoEvents ' ' ' --- 2. 关闭所有子窗口 (wnd[1], wnd[2], ...) --- ' With Session ' Do While .Children.Count > 1 ' Dim win As Object ' Set win = .FindById("wnd[1]", False) ' 不抛异常 ' If Not win Is Nothing Then ' On Error Resume Next ' .FindById("wnd[1]/tbar[0]/btn[3]").Press ' 点击取消 ' If Err.Number <> 0 Then Exit Do ' On Error GoTo 0 ' Application.Wait Now + TimeSerial(0, 0, 1) ' DoEvents ' Else ' Exit Do ' 窗口已不存在 ' End If ' Loop 'End With ' ' ' --- 3. 退出当前主事务（如 MB51）--- ' With Session ' If .Info.Transaction <> "" Then ' .FindById("wnd[0]/tbar[0]/btn[3]").Press ' Exit transaction ' Application.Wait Now + TimeSerial(0, 0, 1) ' DoEvents ' End If ' '' ' --- 4. 跳转回 SESSMAN --- ' .StartTransaction "SESSMAN" ' End With ' ' ===================================================== ' STEP 6: 静默打开 Session Manager（不弹出 Log Off 对话框） ' ===================================================== On Error Resume Next ' --- 1. 关闭导出的 Excel 文件 --- If Not wbSAP Is Nothing Then wbSAP.Close SaveChanges:=False Set wbSAP = Nothing End If Application.Wait Now + TimeSerial(0, 0, 2) DoEvents With Session ' --- 关闭所有子窗口 --- Do While .Children.Count > 1 On Error Resume Next .FindById("wnd[1]/tbar[0]/btn[3]").Press ' Cancel Application.Wait Now + TimeSerial(0, 0, 1) DoEvents Loop ' --- 强制中断当前事务 --- If .Info.Transaction <> "" Then .FindById("wnd[0]/tbar[0]/btn[3]").Press ' Exit Application.Wait Now + TimeSerial(0, 0, 1) DoEvents End If ' --- 再次检查并使用 /n 清理残留 --- If .Info.Transaction <> "" Then .SendCommand "/n" ' 强制清空 Application.Wait Now + TimeSerial(0, 0, 1) DoEvents End If ' --- 清除任何待处理的消息（防回放攻击）--- DoEvents Application.Wait Now + TimeSerial(0, 0, 1) ' --- ? 静默打开 Session Manager（无副作用）--- .SendCommand "=/i" End With 'With Session ' ' --- 2. 关闭所有子窗口 --- ' Do While .Children.Count > 1 ' Dim childWin As Object ' Set childWin = .FindById("wnd[1]", False) ' If Not childWin Is Nothing Then ' On Error Resume Next ' .FindById("wnd[1]/tbar[0]/btn[3]").Press ' Cancel ' If Err.Number <> 0 Then Exit Do ' On Error GoTo 0 ' Application.Wait Now + TimeSerial(0, 0, 1) ' DoEvents ' Else ' Exit Do ' End If ' Loop ' ' ' --- 3. 强制退出主事务 --- ' If .Info.Transaction <> "" Then ' .FindById("wnd[0]/tbar[0]/btn[3]").Press ' Exit ' Application.Wait Now + TimeSerial(0, 0, 1) ' DoEvents ' End If ' ' ' --- 4. 再次确认并清空中断状态 --- ' If .Info.Transaction <> "" Then ' .SendCommand "/n" ' 强制中断 ' Application.Wait Now + TimeSerial(0, 0, 1) ' DoEvents ' End If ' ' ' --- 5. ? 静默打开 Session Manager（无 Log Off 提示）--- ' .SendCommand "=/i" ' ?? 核心修复：加等号表示“立即执行”，不触发退出逻辑 ' Application.Wait Now + TimeSerial(0, 0, 1) ' DoEvents 'End With Cleanup: On Error Resume Next If Not wbSAP Is Nothing Then wbSAP.Close SaveChanges:=False If Not wbMPS Is Nothing Then wbMPS.Close SaveChanges:=True Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.EnableEvents = True Set Session = Nothing Set Conn = Nothing Set App = Nothing Set SapGui = Nothing Exit Sub ErrHandler: MsgBox "运行时错误：" & Err.Description, vbCritical Resume Cleanup End Sub ' 辅助函数：检测文件是否可读（未被占用） Function IsFileReady(filePath As String) As Boolean On Error GoTo NotReady Open filePath For Input As #1 Close #1 IsFileReady = True Exit Function NotReady: IsFileReady = False End Function 防止在ACTIVE X 按钮上时无法获取SAP SCRIPT ENGINE
最新发布
11-20
你提到的问题是： > **“防止在ActiveX按钮上时无法获取SAP Scripting Engine”** 这是一个非常典型的 VBA...- 确保勾选 “Enable scripting” 和 “Notify when a script attaches to a running session” --- ###
securecrt logon script sudo 自动登录
weixin_34198453的博客
03-21 795
2019独角兽企业重金招聘Python工程师标准>>> ...
windows权限维持的方法
小小猪的博客
01-04 6421
windows权限维持的方法 影子账户： 使用如下命令创建隐藏用户并加入管理员组 net user test$ 123456 /add net localgroup administrators test$ /add 创建成功后使用net user命令无法查看到此用户，但是在计算机管理页面中还是可以看到，需要通过修改注册表来隐藏 打开注册表（HKEY_LOCAL_MACHINE\SAM\SAM），修改SAM权限，赋予adminitrators完全控制权限 重启之后，将Administr.
本地安全策略 | 服务器管理 | 配置项
梓芮
02-08 2499
Windows 本地安全策略是一组在本地计算机上配置的安全设置，用于管理计算机的安全性和访问控制。这些策略是针对单个计算机的，与域策略不同，本地安全策略不通过域控制器进行集中管理。本地安全策略通过本地组策略编辑器进行配置，提供一些基本的安全设置，用于保护计算机免受潜在的威胁。在 Windows 活动目录中，域策略提供种集中管理和配置整个域中计算机的安全设置的方式。但在 DMZ 或其他需要时，本地安全策略通常是与域策略共同使用，用于提供额外的安全配置，以满足特定的需求。以上是一些本地安全策略的常见配置项。
ATT&CK(一)
wanan的博客
01-26 297
ATT&CK(一)
script标签到底该放在哪里
ybdesire的专栏
10-20 5万+
script标签在HTML文档中的位置.
windows中常见后门持久化方法总结
收集盒 Book box
11-13 1992
前言 当我们通过各种方法拿到一个服务器的权限的时候，我们下一步要做的就是后渗透了，而后门持久化也是我们后渗透很重要的一部分，下面我来总结一下windows下常见的后门持久化的方法 后门持久化 我的操作环境是： 无AV、管理员权限（提权、免杀等是后门持久化的铺垫，当然有的方法也并不是全部需要这些铺垫） 操作系统：win7，windows server 2008R2，xp shift后门...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值