Questions tagged «vbscript»

由Microsoft开发的一种解释为脚本语言,该语言以Visual Basic为模型

12
删除文件夹及其子文件夹中的所有文件
我想从文件夹结构中删除所有文件,所以我留下了一个空的文件夹结构。 这可以通过批处理或VBScript脚本来实现吗? 我尝试过一个非常基本的批处理命令,但这要求用户允许删除每个文件。这不是一个合适的解决方案,因为有数百个文件,这将随着时间的推移而大量增加。 你能提出什么建议?

5
如何直接从CMD显示Msgbox
我想使用CMD向用户显示一条消息。我知道这样做的方法是创建一个.vbs(VBScript)文件,然后从CMD执行该文件,如下所示: (echo MsgBox "Line 1" ^& vbCrLf ^& "Line 2",262192, "Title")> File.vbs start File.vbs 但是我要做的是直接从CMD显示消息而不创建任何文件。也许通过使用命令直接从CMD运行VBScript。


5
Windows命令行获取以GB为单位的磁盘空间
我正在尝试创建一个批处理文件,以提取服务器C:\驱动器的总大小和可用空间(本地运行脚本)。我还需要输出易于阅读,因此字节将无法工作,因此我可以使用创建临时.vbs文件的命令行。 以下内容似乎可以使用,但是格式/数学不正确。 setlocal for /f "tokens=6" %a in ('fsutil volume diskfree C: ^| find "of bytes"') do set diskspace=%a echo wsh.echo FormatNumber(cdbl(%diskspace%)/1024, 0) > %temp%.\tmp.vbs for /f %a in ('cscript //nologo %temp%.\tmp.vbs') do set diskspace=%a del %temp%.\tmp.vbs echo For example %diskspace% 上面的命令也只显示了可用空间...我也希望总大小...想知道以下命令是否可能更适合提取信息: WMIC LOGICALDISK GET Name,Size,FreeSpace | find /i "C:" …

2
使用存储在标准USB笔式驱动器中的批处理文件(或VB脚本)自动登录Windows XP / Win-7
为什么我需要这个: 我的Pen Drive充满了批处理记录和其他诊断工具。我在2个实验室中拥有75台独立(未联网)的PC,其中大部分都装有Win-XP-Pro SP-2。我经常需要使用管理员帐户登录每台PC进行配置或诊断。 因此,当我启动PC时,每次必须从登录屏幕中手动选择用户名并输入其密码。 现在,我想登录到Admin Acc。如果笔驱动器已连接到PC,则自动(以编程方式)。 我知道的: 我知道可以在用户登录XP / Win7之前运行脚本(批处理文件)。我写了一个批处理文件并保存到本地PC。我在组策略中对其进行了配置,以在系统启动时运行它(GPO位置:Computer Configuration \ Windows Settings \ Scripts(启动/关闭)\ Sartup)。此批处理文件成功检测到“笔驱动器是否已连接”。 我在Pen Drive上存储了另一个批处理文件(当前为空白)。 第一个批处理文件使用循环在从C到Z的所有驱动器中搜索第二个(login.bat)批处理文件,如果该文件存在,则假定存在笔式驱动器,然后进一步调用第二个(login.bat)批处理文件进行操作。 我不知道的是: 现在我不知道login.bat文件的代码是什么,或者我不知道'如何实用地登录。 还有哪些其他选择: 不必仅使用批处理文件。我还可以考虑“如果您有其他任何自动登录选项,例如使用VB Script或任何其他第三部分可执行文件”, 编辑: 根据这个问题,设置用户通过批处理脚本在Windows上自动登录,我可以创建一个脚本来修改注册表项并允许自动登录。即使这可行,您也必须重新启动PC才能应用更改。这是我要避免的事情。与仅亲自登录相比,运行脚本和重新启动需要更多时间。 我希望能够根据需要自动登录。这意味着,一旦我连接笔式驱动器,该脚本就应该能够以管理员帐户登录我,而无需重新启动PC。 我在网上阅读可以通过创建GINA dll文件来实现,但是我在该领域没有经验。有什么想法可以实现吗?


1
Windows 7中的可执行文件提供亵渎错误消息
昨晚我被一位朋友打来电话抱怨说他以某种方式严重搞砸了Firefox。每次他点击桌面图标时,都会弹出以下错误消息: 当它碰到我的错误信息意味着什么时,我向他解释说这只是一个非常古老的恶作剧的变种,并且鉴于他在高中工作,可能不会花很长时间来确定谁负责。 我让他右键单击快捷方式并查看目标,假设它是VBS。令我惊讶的是,它实际上是指向正确的可执行文件。 更糟糕的是,事实证明他的许多程序都返回了相同的错误,而不仅仅是Firefox。他做了一个没有效果的快速系统恢复,在梳理了他的注册表副本后,我发现什么都没有发现。我弄清楚的是,罪魁祸首实际上是一个VBS,因为任务管理器显示消息是由“wscript.exe”生成的。 所以我的问题是,如果有人将Windows 7 Professional中的大量可执行文件重新路由到wscript主机而不对注册表或策略设置进行任何更改?它也必须是一个相当快速的过程,因为笔记本电脑很少无人看管。 (如果你还没弄清楚这个错误是如何亵渎的话,那就仔细看看大写了) 更新 好吧,如果有人好奇这里是如何做到的: 他们打开记事本并输入: x=msgbox("Fault, User Class KY: Operation Unsupported", 2+16, "Error") 他们将文件保存为something.vbs 虽然仍在记事本中,但他们删除了上一行并输入了 @echo off :start something GOTO start 然后他们将其保存为somethingelse.bat并使用一个简单的python脚本将垃圾追加到文件中,以使其大小与预期目标的大小相匹配。 接下来,他们将步骤4生成的批处理编译成exe,给它提供与目标相同的名称,信息和图标,然后在将原始文件移动到垃圾箱后将其移动到相应的文件夹中。 值得庆幸的是,他们至少有礼貌地没有清空垃圾桶(其中仍然有他们的python脚本)所以最后它很容易修复。



1
使用VBS创建Internet Explorer页面快捷方式
我正在尝试创建一个VB脚本来创建一个.lnk指向在Internet Explorer中打开的网页: Set oWS = WScript.CreateObject("WScript.Shell") sLinkFile = "C:\users\admin\Desktop\My Website.lnk" Set oLink = oWS.CreateShortcut(sLinkFile) oLink.TargetPath = "C:\Program Files (x86)\Internet Explorer\iexplore.exe http://192.168.1.1" oLink.WorkingDirectory = "C:\Program Files (x86)\Internet Explorer\" oLink.Description = "My Website" oLink.Save 但是当我尝试执行时,我收到以下错误: .\CreateShortcut.vbs(4, 1) Microsoft VBScript runtime error: Invalid procedure call or argument 我假设它在oLink.TargetPath变量上有我的语法,但我不确定是什么问题。我试过逃避报价,但这不起作用。 那个脚本中我的无效调用或参数是什么? 请注意,我不能只链接到网页而不是iexplore.exe,因为我需要此页面仅在Internet Explorer中打开,而不是默认的浏览器。

1
如何在不打开IE中的安全漏洞的情况下授予VBS脚本运行权限?
我目前正在开发一个基本上位于IE之上的应用程序。该程序用于警车中的Windows XP和Windows 7笔记本电脑。该程序有许多运行的VB脚本,允许官员进行车辆查找等。 每个函数都有自己的VBS脚本,并且有一个中央函数脚本,其中包含许多单个脚本使用的常用函数。每个脚本都有一个函数脚本的include条目,但是我目前的问题是在带有IE8的Windows 7中,它不允许运行函数脚本。如果我允许IE初始化并编写未标记为脚本安全的ActiveX控件脚本,它运行就好了。 有没有办法可以将VBS脚本标记为安全或允许?或者把它放在一个允许它的不同位置?如果官员没有互联网接入,我不会非常担心,但由于他们这样做,它会产生很大的安全风险。

1
用批处理写文件但文本正在消失
使用批处理文件编写文件时遇到问题。似乎一个字符正在触发这样的回声结束:代码是一个下载器。 C:\ProgramData\Tempfolder\test.vbs ECHO if WScript.Arguments.Count < 1 then 但文件输出是这样的。 if WScript.Arguments.Count then 这是我的代码: mkdir C:\ProgramData\Tempfolder >> C:\ProgramData\Tempfolder\test.vbs ECHO if WScript.Arguments.Count <1 then >> C:\ProgramData\Tempfolder\test.vbs ECHO MsgBox "Usage: wget.vbs <url> (file)" >> C:\ProgramData\Tempfolder\test.vbs ECHO WScript.Quit >> C:\ProgramData\Tempfolder\test.vbs ECHO end if >> C:\ProgramData\Tempfolder\test.vbs ECHO URL = WScript.Arguments(0) >> C:\ProgramData\Tempfolder\test.vbs ECHO if WScript.Arguments.Count …

1
Vbscript在Microsoft Word文件中搜索关键字
我想搜索所有保存在同一文件夹中的大量word文件,在每个文档中搜索关键字。 当标识包含关键字的文档时,脚本应将文档文件名输出到文本文件报告中。 到目前为止,我已经创建了以下脚本,用于搜索指定的单词docs以设置术语。对于特定文件,此脚本显然是硬编码的,如果您可以演示如何使其全部搜索 ".doc" 文件夹中的文件很棒。它也不会创建文本文件报告。 Set objWord = CreateObject("Word.Application") objWord.Visible = True Set objDoc = objWord.Documents.Open("L:\STSMP00001.docx") Set objSelection = objWord.Selection objSelection.Find.Forward = True objSelection.Find.MatchWildcards = True objSelection.Find.Text = "presentation" Do While True objSelection.Find.Execute If objSelection.Find.Found Then strWord = objSelection.Text strWord = Replace(strWord, "[[", "") strWord = Replace(strWord, "]]", "") Wscript.Echo …

0
Outlook中的预定和重复发送的电子邮件?打开对话框错误
我已经完成了这些指示 Outlook中的预定和重复发送的电子邮件? 现在,当我尝试在Outlook 2016中导入日历时,我收到一条错误消息 “对话框已打开。关闭它并再试一次” 我以前没有这个问题所以我认为这是相关的。我试图打开关闭Outlook 2016 365,重新启动comp,删除VBA代码。我仍然得到错误。

1
使用自定义消息拦截Windows XP注销或关闭
当用户退出他们的计算机时,我想要一种向他们显示消息的方式,询问他们是否记得设置他们的不在办公室和电子邮件转发,我想让他们有机会取消他们的注销,如果他们需要回到Outlook并执行此操作。 我已经尝试使用logout vbscript来捕获Yes / No问题的答案,但shell命令“shutdown -a”不起作用,因为我认为这个过程太过分了。 有没有办法自定义标准“你确定要注销吗?”消息显示提醒或拦截开始 - 关闭/注销过程?我对不同的方式持开放态度,它不一定是vbscript。 我的环境是Windows 2003服务器和Win XP Pro客户端。 提前致谢。

By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.