Articles of vbscript

批处理脚本/ PowerShell高级条件执行

我的问题是关于如何实现在Windows上执行批处理脚本/ PowerShell cmdlet,执行以下操作: 当浏览器窗口打开时,窗口/页面标题为“空白”,然后发送“标签”键,将login凭据发送到网页上的文本框,然后发送“input”键。 我发现这篇文章( 通过batch file在Windows 7 / Chrome上自动login网站 )关于在Web浏览器中发送login凭据,这与我想要做的非常相似,但是我希望脚本只能在浏览器已经打开,并在窗口标题中具有特定的值。 这是针对我服务器上运行的networking的authentication系统,要求我每30天重新login一次,并在需要login时自动打开浏览器窗口。 所以,当它打开窗口,我希望脚本能够自动login我。 由于服务器是无人值守(GUI智能),我想重新authentication自动发生。 我的计划是把这个集合作为一个计划任务,让它每晚运行,以validation系统是否仍然通过身份validation。 如果系统未通过身份validation,我希望batch file/ cmdlet能够为我login。 我做了一些研究,并find有关使用batch file的条件的信息,但是我找不到任何有关如何使用窗口标题或任何其他程序属性来基于我的条件的信息。 人们已经build议使用PowerShell,所以我完全开放,如果你有一个build议通过该路线的实施。 请让我知道如果您需要任何进一步的信息,或有任何问题。

如何将一个batch file和一个vbs脚本合并成一个.exe文件

我希望能够将我为batch file创build的vbs脚本合并到一个用于最终用户的.exe中,因此我可以为其分配一个图标。 我一直在试图寻找一种方式,但没有find有用的东西。 我想结合这个VBS脚本: Set oShell = CreateObject ("Wscript.Shell") Dim strArgs strArgs = "cmd /c CheckIn.bat" oShell.Run strArgs, 0, false 有了这个batch file: @echo off REM A message to ask the user to save their Outlook emails they have open mshta javascript:alert("Please be sure to save any emails that you need in Outlook. Click OK to […]

从组合键创build桌面快捷方式?

我需要一个小桌面快捷方式,我可以用鼠标点击。 它需要执行WINDOWS + D的操作。 有人告诉我,我可以build立一个.VBS文件来创build一个桌面快捷方式,但我绝对不知道如何做。 我对编码和这种技术的东西毫无头绪。 我能find的只有这个: Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "^+{ESCAPE}" 理论上我可以用WINDOWS + Dreplace这些值,但我不知道它们的对应string。 那么,我该怎么做到呢? 谢谢!

从括号内提取(子)string

我试图从一个string中的括号内提取文本。 例: "John D Wilson(some text)" 我只想从string中提取some text 。 这是我到目前为止的代码: temp = workingValue rawname=split(temp) dim value Set myRegExp = New RegExp myRegExp.IgnoreCase = True myRegExp.Global = True myRegExp.Pattern = "/\([az]+\)/" msgbox temp if myRegExp.Test(temp)then value = myRegExp.Replace(temp,"") msgbox value else msgbox "no match" end if

使用MSSQL SP +命令行定期检查文件夹是否已被删除?

我想编写一个MSSQL存储过程定期检查它所在的文件系统,看看是否有任何文件夹已被删除。 它应该在XP或Windows 7环境中工作。 我想我可能会使用Windows命令行或PowerShell(或VBScript)。 我只是从SQL存储过程调用脚本,它将检查文件系统,然后如果一个文件夹已被删除,它会提醒用户。 我的直觉告诉我,在这个地方有一个简单的解决scheme。 我知道匹配的目录已经是一个常见的任务。 我一直在玩命令行DIR和TREE,但是到目前为止他们给我的文本太多了。 我真的只想要一个简单的文件夹列表,我可以把它放到一个小的SQL表中。 (我知道这是过分的,但这是要求的。)

通过任务计划程序运行.bat时停止打开taskeng.exe

我有一个.bat文件,下面的示例内容是通过任务计划程序运行的。 C:\Windows\SysWOW64\cscript.exe C:\script.vbs > output 每当任务运行时,如何停止打开taskeng.exe?

发送进程到vbs中的背景

我正在使用一个代码, Dim sh Set sh = WScript.CreateObject("WScript.Shell") sh.run "cmd /K a.exe & exit",0,false Set sh = Nothing 它可以很好地开始一个后台进程。 但是,当我调用包含的.bat文件时, start b.bat 那么b.bat不会隐藏。 哪种方式是面糊来隐藏b.bat呢? 我可以从前景到背景采取这个b.bat吗?

为什么vbs msgbox不会与普通用户的任务调度程序一起工作?

我有一个简单的VBScriptlogging一个文件夹中的文件/子文件夹的数量,如果数字大于5,它会popup一条消息给用户。 我可以在pipe理员或普通用户帐户下手动运行这个脚本,但是当我把它作为pipe理员安排在任务调度器中后,它显示任务正在运行,[任务开始] [操作开始] [创build的任务进程],但是它永远不会结束,消息框popup在用户帐户下。 有什么不对的吗? 码: Set filesys = CreateObject("Scripting.FileSystemObject") Set shell = CreateObject("Shell.Application") Set RTMFolder = filesys.GetFolder("C:\work\RTM") Set PMFolder = filesys.GetFolder("C:\work\Powermill") Set RTMFiles = RTMFolder.Files Set PMFiles = PMFolder.SubFolders NumberOfRTM = RTMFiles.Count NumberofPM = PMFiles.Count 'Wscript.echo NumberOfRTM Set wshShell = WScript.CreateObject( "WScript.Shell" ) strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" ) If NumberOfRTM >= 5 Then msgbox […]

使用VB脚本压缩文件与睡眠

我想知道是否有使用vbscript压缩文件,而不使用WScript.Sleep。 以下是我的脚本(跳过实用方法); Sub Main Dim Path Dim ZipFile Dim objShell ZipFile = WScript.Arguments(0) Path = WScript.Arguments(1) Dim a: a = ListDir(Path) If UBound(a) = -1 then WScript.Echo "No files found." Exit Sub End If CreateObject("Scripting.FileSystemObject").CreateTextFile(ZipFile, True).Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar) Set objShell = CreateObject("Shell.Application") Dim fso Set fso = CreateObject("Scripting.FileSystemObject") Dim […]

如何通过vbs获取程序集版本

我不讨论我可以通过以下脚本得到的文件版本: Set args = WScript.Arguments Set fso = CreateObject("Scripting.FileSystemObject") WScript.Echo fso.GetFileVersion("somedll.dll") Wscript.Quit 我如何获得在GAC中可见的dll版本? 谢谢