wscript.shell组件被禁用时 可以用Shell.Application执行命令

最新推荐文章于 2021-05-09 17:47:58 发布
最新推荐文章于 2021-05-09 17:47:58 发布
阅读量3.6k 收藏 2
点赞数
CC 4.0 BY-SA版权
分类专栏： VB学习 文章标签： asp cmd 测试 c xp
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/yatere/article/details/6453709
本文介绍如何在ASP环境中利用Shell.Application组件安全地执行命令，并提供了多种实现方式，包括创建并运行bat文件、直接调用cmd执行命令等。通过将命令输出重定向到文本文件，实现结果查看，确保了操作的可控性和安全性。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

 

wscript.shell 和 shell.application 这两个组件都是来执行程序的，因此是最不安全的组件。目前很多asp木马执行命令都是用的 wscript.shell ，忽略了 shell.application 。

 

我们可以首先在一个具有运行权限的目录上传一个bat文件，里面写上我们要运行的命令。然后调用 shell.application 组件运行这个bat。回显可以在bat中用重定向符号 > 到一个文本文件，想看命令的结果去读这个文件就可以了。当然也可以直接调用cmd执行命令。

 

抄 lcx 在 VBS 中 shell.application 运行文件的5种方法。

 

 

 

 

Shell.Application
lsprolove的小屋
06-08 1080
1、创建 Shell 对象  var Shell = new ActiveXObject("Shell.Application");   2、使用 Shell 属性及方法  Shell.Application  Shell.Parent  Shell.CascadeWindows()  Shell.TileHorizontally()  Shell.TileVertically()  Shel
vbs常用地方
longyup的博客
08-09 486
VBS获取系统安装路径 先定义这个变量是获取系统安装路径的，然后我们用”&strWinDir&”调用这个变量。 set WshShell = WScript.CreateObject(“WScript.Shell”) strWinDir = WshShell.ExpandEnvironmentStrings("%WinDir%") VBS获取C:\Program Files路径 msgbox CreateObject(“WScript.Shell”).ExpandEnvironmentStr
wscript.shell被禁,执行命令方法
06-19
wscript.shell被禁,执行命令方法
Shell.Application技术资料
weiyifan2004的专栏
04-20 1428
<br />1、创建 Shell 对象<br /> var Shell = new ActiveXObject("Shell.Application");<br /> <br />2、使用 Shell 属性及方法<br /> Shell.Application<br /> Shell.Parent<br /> Shell.CascadeWindows()<br /> Shell.TileHorizontally()<br /> Shell.TileVertically()<br /> Shell.Contr
vbs Shell.Application
liuxueyi521的专栏
02-12 3675
Set objShellApp = CreateObject("Shell.Application") Set objFolder = objShellApp.NameSpace("c:\") objFolder.Items().item("demo.exe").invokeverb '方法1 objFolder.Items().item("demo.exe").InvokeVerbEx'方
Shell.Application (vbs)
weixin_33932129的博客
11-13 647
Shell对象 --------------------------------------------- 表示外壳中的对象。方法被提供于控制外壳和执行外壳内的命令，也有一些方法获得其他外壳相关的对象。 　　ProgID Shell.Application 　　文件名 shell32.dll 　　类名 Shell 或 IShellDi...
MSsql2005(Sa)权限执行命令总结.txt
07-18
使用这些命令可以激活 `xp_cmdshell` 功能。一旦激活，便可以通过以下方式执行外部命令： ```sql EXEC master..xp_cmdshell 'ipconfig'; ``` 3. **使用 `xp_cmdshell` 进行文件操作**： 通过 `xp_cmdshell` ...
[投稿]Webshell下命令执行限制及绕过方法
Coisini的博客
06-23 4224
0x00 前言 上传webshell后，执行命令时或许没法执行了，这时我们该分析下原理并想出绕过方式，防守方也必须根据绕过方式想想更强的防御. 0x01 php webshell执行命令原理 php webshell（以下简称webshell)下是怎么执行系统命令的？我们找一个webshell分析下 搜索关键字定位到以下代码 function execute($cfe) { $re...
网盾服务器安全加固工具 2.0.zip
07-14
增加组件安全选项的禁用于卸载（WScript.Network、Wia.script、WScript.Shell、Shell.Application、wshom.ocx、shell32.dll） 　四.增加网络安全选项 　1.通过优化该选项可以提高系统防御SYN攻击的能力（推荐） ...
php wscript.shell组件,wscript.shell × 命令行执行组件
weixin_35809867的博客
04-09 421
动画内任何广告皆为作者个人行为，网络交易，风险自负大家好。我是辉少。那次的IIS重定向挂马大家都了解了吗？这次给大家带来的是：修改 wscript.shell 名称 达到“独享” wscript.shell组件my Blog (http://huishao.net)已经发布了好一段时间了。应一些网友要求做了这个教程今天测试的服务器是:http://bbs.yxol.net/huishao.asp ...
Shell.Application执行命令的五种方法小结
09-05
可能很多人发现了在海阳顶端2006+版本中Shell.Application执行命令的方法在win2003中不好用了。
vbs 中调用shell.application 简单函数
09-06
vbs实现的调用系统命令执行的函数，可以根据用户选择运行指定的程序
php环境下wscript.shell 组件被禁用不妨试试shell.user
沈天恩 S'blog
08-25 1301
在php环境下wscript.shell 组件被禁用不妨试试shell.user    1.    2. echo "PHP 版Shell.Users加管理员帐号";    3. $username="IceSkin";    4. $password="skin.com";    5. $su = new COM("Shell.Users");    6. $h=$su->
如何使用Shell.Application技术
koolfoo的专栏
02-13 1794
关于Shell.Application的使用-----------------------------------------------------------------------------------1、创建 Shell 对象 var Shell = new ActiveXObject("Shell.Application"); 2、使用 Shell 属性及方法 Shell.Ap
linux运行application,Shell.Application执行命令的五种方法小结
weixin_36352023的博客
05-09 342
当初老马写这个版本时，我测试过简繁两个2003版本的，当是是好用的。我猜测很可能与2003打了ms06014补丁有关。kyo在冰点论坛提出了解决方法，我今天下午研究了一下这个组件，发现它有5种方法可以执行命令。以下是vbs版本(asp版不提供了，如何利用asp版本在2003的webshell中运行命令，自己解决吧：-)：复制代码 代码如下:Set objShellApp = CreateObjec...
使用Shell.Application技术之二
koolfoo的专栏
02-13 1792
 function FileSearch() {  SearchAsst = new ActiveXObject("SearchAssistantOC.SearchAssistantOC");                SearchAsst.FindFilesOrFolders();                //ShellApp = new ActiveXObject("Shell.
ASP.NET下使用WScript.Shell执行命令
lake2的专栏
08-21 4517
        ASP.NET下有自己的执行CMD命令的方式，这里用WScript.Shell似有画蛇添足之嫌，但是我们也不能排除真的有机器禁用了.NET的相关类，未雨绸缪嘛。当然也不仅仅局限于WScript.Shell，只要是ASP中能用的组件，统统都可以用于ASP.NET中，而且还更方便！        ASP.NET提供了两种方法让我们使用COM组件：1、Server对象的CreatObje
Option Explicit Private WithEvents Timer1 As Timer Private wsh As Object Private objWnd As Object Private Const ObjHour As Integer = 4 Private Const ObjMinute As Integer = 0 Private Const ObjSecond As Integer = 0 Private LastSwitchTime As Date ' 记录上次切换时间 Private Sub Form_Load() On Error Resume Next Set wsh = CreateObject("WScript.Shell") Set objWnd = wsh.Exec("mshta.exe ""about:<title>running</title><body bgcolor=white><center><h1>Running</h1><p>Automatically press the F11 and TAB key every 3 minutes.<br> Please Close window to stop running</p></center><script>window.resizeTo(800,400);window.moveTo((screen.width-800)/2,(screen.height-400)/2);</script>""") If Err.Number <> 0 Then MsgBox "错误创建窗口: " & Err.Description Exit Sub End If Set Timer1 = Controls.Add("vb.timer", "Timer1") Timer1.Interval = 1000 ' 1秒检测一次 Timer1.Enabled = True OpenBrowserUrls End Sub Private Sub OpenBrowserUrls() Dim browserPath As String Dim urls(1 To 5) As String ' 5个URL browserPath = "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe" urls(1) = "http://192.168.10.81/decision/view/form?viewlet=%25E5%2588%25B6%25E9%2580%25A02%25E9%2583%25A8%252F%25E7%25AC%25AC3%25E5%2588%25B6%25E9%2580%25A0%25E7%25A7%2591%252F%25E5%258A%25A0%25E5%25B7%25A5%25E7%25AE%25A1%25E7%2590%2586%25E6%259D%25BF%252FTNGA12%25E7%25BC%25B8%25E7%259B%2596GL%25E7%25AE%25A1%25E7%2590%2586%25E6%259D%25BF.frm&ref_t=design&ref_c=fa0e913c-7664-49fc-9a79-307469631162" '缸盖GL管理板 urls(2) = "http://192.168.10.81/decision/view/form?viewlet=%252F%25E5%2588%25B6%25E9%2580%25A02%25E9%2583%25A8%252F%25E7%25AC%25AC3%25E5%2588%25B6%25E9%2580%25A0%25E7%25A7%2591%252F%25E5%258A%25A0%25E5%25B7%25A5%25E7%25AE%25A1%25E7%2590%2586%25E6%259D%25BF%252F%25E7%25BC%25B8%25E7%259B%2596%25E7%25BA%25BF%25E6%2597%25A5%25E6%25AC%25A1%25E7%25AE%25A1%25E7%2590%2586%25E6%259D%25BF%252F%25E7%25BC%25B8%25E7%259B%2596%25E7%2594%259F%25E4%25BA%25A7%25E6%2597%25A5%25E6%25AC%25A1%25E7%25AE%25A1%25E7%2590%2586.frm&__parameters__=%257B%2522__pi__%2522%253Atrue%252C%2522fine_hyperlink%2522%253A%252235217cc3-edb6-42cc-ad92-faf7f8620278%2522%257D&_=1753411072234" '缸盖日次管理板 urls(3) = "http://192.168.10.81/decision/view/form?viewlet=%25E5%2588%25B6%25E9%2580%25A02%25E9%2583%25A8%252F%25E7%25AC%25AC3%25E5%2588%25B6%25E9%2580%25A0%25E7%25A7%2591%252F%25E5%258A%25A0%25E5%25B7%25A5%25E7%25AE%25A1%25E7%2590%2586%25E6%259D%25BF%252F%25E5%258A%25A0%25E5%25B7%25A5%25E4%25B8%258D%25E8%2589%25AF%25E6%2597%25A9%25E5%25B8%2582%25E7%25AE%25A1%25E7%2590%2586%25E6%259D%25BF%252F%25E5%258A%25A0%25E5%25B7%25A5%25E7%25BA%25BF%25E4%25B8%258D%25E8%2589%25AF%25E6%2597%25A9%25E5%25B8%2582.frm&ref_t=design&ref_c=728e5577-12fa-43aa-8820-88188c7c7afc" '加工线不良早市 urls(4) = "http://192.168.154.11:5000/gridWebAndon/revoHeadPC" '#12缸盖安东 urls(5) = "http://192.168.10.81/decision/view/form?viewlet=%25E5%2588%25B6%25E9%2580%25A02%25E9%2583%25A8%252F%25E7%25AC%25AC3%25E5%2588%25B6%25E9%2580%25A0%25E7%25A7%2591%252F%25E7%25AE%25A1%25E7%2590%2586%25E6%259D%25BF%252F%25E8%2587%25AA%25E4%25B8%25BB%25E4%25BF%259D%25E5%2585%25A8%25E7%25AE%25A1%25E7%2590%2586%25E6%259D%25BF%252F%25E8%2587%25AA%25E4%25B8%25BB%25E4%25BF%259D%25E5%2585%25A8%25E7%25AE%25A1%25E7%2590%2586%25E6%259D%25BF.frm&ref_t=design&ref_c=8c02eda8-4333-4a5c-9416-eaf838aec16e" '缸体自主保全管理板 Dim i As Integer For i = 1 To 5 ' 打开浏览器窗口 wsh.Run Chr(34) & browserPath & Chr(34) & " " & Chr(34) & urls(i) & Chr(34) DoEvents ' 等待页面加载 Sleep 2000 ' 确保窗口激活后再发送F11 wsh.AppActivate "Microsoft Edge" Sleep 500 ' 短暂延迟确保激活完成 wsh.SendKeys "{F11}" Next i ' 额外确保最后一个窗口全屏 wsh.AppActivate "Microsoft Edge" Sleep 500 wsh.SendKeys "{F11}" LastSwitchTime = Now ' 初始化切换时间 End Sub Private Sub Timer1_Timer() Dim CurHour As Integer Dim CurMinute As Integer Dim CurSecond As Integer CurHour = Hour(Now) CurMinute = Minute(Now) CurSecond = Second(Now) ' 检查是否到达关机时间 If CurHour = ObjHour And CurMinute >= ObjMinute Then wsh.Run "cmd.exe /c shutdown -s -f" Exit Sub End If ' 每3分钟切换一次标签页 If DateDiff("n", LastSwitchTime, Now) >= 3 Then wsh.AppActivate "Microsoft Edge" Sleep 500 ' 确保窗口激活 wsh.SendKeys "^{TAB}" ' Ctrl+Tab切换标签页 LastSwitchTime = Now End If End Sub Private Sub Sleep(ms As Long) Dim endTime As Date endTime = DateAdd("s", ms / 1000, Now) Do While Now < endTime DoEvents Loop End Sub 最后页面没有全屏
最新发布
07-26
<think>我们正在解决用户的问题：使用VB6通过WScript.Shell打开Microsoft Edge并全屏显示特定URL，但最后页面没有全屏。需要找到解决方法。 根据用户描述，他们尝试了以下命令： WScript.Shell.Run "cmd /c start msedge --start-fullscreen --kiosk www.example.com" 但是问题在于，当Edge打开后，它并没有全屏显示，而是显示了一个带有地址栏和标签页的普通窗口。 原因分析： 在Microsoft Edge中，`--start-fullscreen`参数实际上是将浏览器以全屏模式启动，但全屏模式仍然会显示地址栏和标签栏（类似于按F11键的效果）。而`--kiosk`参数则是将浏览器设置为信息亭模式，该模式会隐藏浏览器UI，并占据整个屏幕。 然而，用户同时使用了`--start-fullscreen`和`--kiosk`，这可能会导致冲突。通常，信息亭模式（kiosk）是真正的全屏，而全屏模式（fullscreen）则保留了一些UI。 因此，我们应该单独使用`--kiosk`参数来达到真正的全屏效果（无任何浏览器UI）。但是，请注意，信息亭模式通常用于公共展示，它会阻止用户与浏览器UI交互，并且需要特定的方式退出（如按Alt+F4）。 另外，用户提到需要自动切换标签页和定时关机，但当前问题只关注全屏显示。 解决方案： 尝试只使用`--kiosk`参数，而不使用`--start-fullscreen`。命令如下： "msedge --kiosk www.example.com" 但是，如果使用`--kiosk`模式，用户可能无法切换标签页（因为UI被隐藏了）。所以需要权衡。 如果用户希望保留全屏模式（F11那种，有地址栏和标签栏）但自动进入全屏，那么使用`--start-fullscreen`即可，但注意它可能不会自动隐藏地址栏和标签栏，需要鼠标移到顶部才会显示。 然而，用户要求的是“全屏显示”，并且之前尝试没有成功。所以，我们可能需要考虑其他方法。 另外，注意在命令行中启动Edge时，如果已经有一个Edge实例在运行，那么新的窗口可能会被合并到现有的实例中，这可能导致全屏参数失效。 因此，建议先关闭所有Edge实例，然后再运行命令。或者，可以使用`--new-window`参数来强制打开一个新窗口。 综合以上，我们可以尝试以下命令： 方案1（信息亭模式，无任何UI）： msedge --kiosk --edge-kiosk-type=fullscreen --no-first-run www.example.com 方案2（全屏模式，有部分UI，类似F11）： msedge --start-fullscreen www.example.com 但是，根据用户反馈，方案2没有成功。所以重点考虑方案1。 另外，注意在VB6中，我们使用WScript.Shell的Run方法，可以直接运行msedge命令，而不需要cmd /c start。因为start命令会启动一个新窗口，但可能也会带来问题。 所以，我们尝试： WScript.Shell.Run "msedge --kiosk www.example.com" 如果这个命令没有打开浏览器，可能是因为msedge.exe不在系统路径中。我们可以使用完整路径： "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe" --kiosk www.example.com 或者，如果系统是64位，可能路径是： "C:\Program Files\Microsoft\Edge\Application\msedge.exe" 另外，注意在VB6中，如果路径包含空格，需要用引号括起来。 如果用户需要自动切换标签页，那么在信息亭模式下，可以通过JavaScript代码或自动化脚本来控制标签切换。但这不是当前问题。 关于定时关机，可以使用shutdown命令，例如： shutdown /s /t 3600 // 3600秒后关机 我们可以用另一个WScript.Shell.Run来执行关机命令。 因此，针对全屏问题的解决方案是使用`--kiosk`参数，并确保路径正确。 如果问题仍然存在，我们可以尝试使用Edge的自动化功能（如Edge DevTools Protocol）或使用其他自动化工具（如Selenium）来控制Edge。但用户要求使用VB6和WScript.Shell，所以我们尽量在这个范围内解决。 另外，用户提到“最后页面没有全屏”，可能指的是在打开多个标签页后，最后一个标签页没有全屏。如果是这样，那么我们需要确保每个标签页在打开时都处于全屏状态。但是，使用命令行参数打开的第一个页面是全屏的，后续通过JavaScript打开的标签页可能不会自动全屏。因此，我们需要在每个页面加载后发送F11按键事件？这很复杂。 考虑到用户需求是打开特定URL并全屏，且后续还有自动切换标签页和定时关机，我们可能需要一个更全面的自动化方案。但当前问题先解决全屏。 步骤总结： 1. 使用`--kiosk`参数启动Edge，并指定URL。 2. 确保使用完整的可执行文件路径。 3. 关闭所有已存在的Edge实例，以确保新实例的参数生效。 代码示例： Dim wsh As Object Set wsh = CreateObject("WScript.Shell") ' 关闭所有Edge实例（强制关闭） wsh.Run "taskkill /f /im msedge.exe", 0, True ' 启动Edge，进入kiosk模式 wsh.Run """C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"" --kiosk ""http://www.example.com""", 1, False 注意：强制关闭Edge可能会导致用户数据丢失，请确保用户了解这一点。 如果用户不想关闭已存在的Edge实例，可以尝试使用`--user-data-dir`指定一个新的用户数据目录，以避免与现有进程冲突。例如： wsh.Run """C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"" --user-data-dir=C:\Temp\EdgeKiosk --kiosk ""http://www.example.com""" 这样就不会影响用户默认的Edge实例。 关于自动切换标签页和定时关机，用户可以在VB6中设置定时器，然后使用发送按键（如Ctrl+Tab）来切换标签页。但是，在信息亭模式下，发送按键可能无法被浏览器接收（因为浏览器处于独占模式）。因此，可能需要通过其他方式，比如在网页中设置定时跳转，或者使用Edge的扩展功能。 由于问题重点在于全屏，我们先解决全屏问题。 如果上述方法仍然不行，我们可以考虑使用Windows API来将浏览器窗口最大化。但这种方法更复杂，且可能不够稳定。 因此，我们优先推荐使用`--kiosk`模式，并确保路径正确，且没有其他Edge实例干扰。 请用户尝试上述方法，并反馈结果。 引用说明：我们参考了用户提供的引用[^1]，但该引用是关于VBS脚本统计页面加载时间的，与当前问题关系不大。因此，我们主要基于对Edge命令行参数的了解来回答。 相关问题： 1. 在VB6中如何通过WScript.Shell执行带空格的命令行？ 2. 如何确保Microsoft Edge以独立进程启动（不与其他实例冲突）？ 3. 在信息亭模式下，如何实现自动切换标签页？ 4. 如何通过VB6实现定时关机功能？</think>### 解决 Microsoft Edge 全屏显示问题的方案 在 VB6 中使用 `WScript.Shell` 打开 Microsoft Edge 并全屏显示 URL 时，若页面未全屏，通常是由于命令行参数使用不当或浏览器进程冲突导致的。以下是详细解决方案： --- ### **原因分析** 1. **参数冲突** `--start-fullscreen` 和 `--kiosk` 参数功能不同： - `--start-fullscreen`：类似 F11 的“全屏模式”，但仍显示地址栏/标签页。 - `--kiosk`：真正的“信息亭模式”，隐藏所有 UI，独占整个屏幕。 同时使用可能导致行为冲突。 2. **进程干扰** 若已有 Edge 进程运行，新实例可能继承父窗口状态，导致全屏失效。 --- ### **解决方案** #### **方法 1：使用 `--kiosk` 模式（推荐）** ```vb Dim wsh As Object Set wsh = CreateObject("WScript.Shell") ' 关闭现有 Edge 进程，避免冲突 wsh.Run "taskkill /f /im msedge.exe", 0, True ' 启动 kiosk 模式（无 UI 全屏） wsh.Run """C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"" --kiosk ""https://example.com""", 1, False ``` **关键点**： - `--kiosk` 确保隐藏所有浏览器 UI。 - `taskkill` 强制结束现有进程，避免参数继承。 - 双引号包裹路径和 URL（防止空格错误）。 #### **方法 2：单独使用 `--start-fullscreen`** ```vb wsh.Run """msedge"" --start-fullscreen ""https://example.com""", 3, False ``` **适用场景**：需要保留地址栏/标签页的“类全屏”模式。 #### **方法 3：通过 VBScript 模拟 F11 键** 若参数仍失效，可在页面加载后发送全屏快捷键： ```vb ' 等待页面加载（单位：毫秒） WScript.Sleep 5000 ' 发送 F11 键 wsh.SendKeys "{F11}" ``` --- ### **补充说明** 1. **路径问题** 如果报错“系统找不到文件”，需指定 Edge 完整路径（根据安装位置调整）： - 64 位系统：`"C:\Program Files\Microsoft\Edge\Application\msedge.exe"` - 32 位系统：`"C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"` 2. **多标签页支持** 在 kiosk 模式中切换标签页需通过快捷键： ```vb ' 发送 Ctrl+Tab 切换标签 wsh.SendKeys "^{TAB}" ``` 3. **定时关机整合** 添加关机命令（示例：1小时后关机）： ```vb wsh.Run "shutdown /s /t 3600", 0, False ``` --- ### **效果验证** | **参数** | 效果 | 是否隐藏 UI | |----------------------|--------------------------|-------------| | `--kiosk` | 真全屏（信息亭模式） | 是 | | `--start-fullscreen` | 伪全屏（保留地址栏） | 否 | | `--kiosk + F11` | 双重保障 | 是 | > ⚠️ 注意：kiosk 模式需按 `Alt+F4` 退出。若需限制用户操作，可结合组策略禁用快捷键[^1]。 --- ### **相关问题** 1. 如何在 kiosk 模式下实现页面定时自动切换？ 2. 如何捕获 Edge 的加载完成事件以触发后续操作？ 3. 除 VB6 外，是否有更稳定的浏览器自动化方案（如 Selenium）？ [^1]: 引用自用户提供的 VBS 脚本示例，但实际解决方案需根据浏览器特性和系统配置调整。
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值