标签: vbscript

我有以下VBScript代码:

Dim returnVal
returnVal = "You did not pass me 4 arguments"

args = WScript.Arguments.Count

If args = 4 Then
    returnVal = "The arguements you passed me are " & WScript.Arguments.Item(0) & "  "  & WScript.Arguments.Item(1) & "  "  & WScript.Arguments.Item(2) & "  "  & WScript.Arguments.Item(3) 
end if

我想要的是打印"returnVal"的能力,这样如果我输入:

test.vbs 1 2 3 4

它将返回:

The arguments you passed me are 1 2 3 4

我怎样才能做到这一点？

我今天在QTP 11中发现了奇怪的行为:表达式

Browser().Page().WebElement("PositionManagerContainer").WebElement("LoadingMessage").Object.ParentNode.ParentNode

给出错误:对象必需".Object.ParentNode"

但表达

Browser().Page().WebElement("PositionManagerContainer").WebElement("LoadingMessage").Object.parentNode.ParentNode

(.Object的ParentNode成员的情况不同)是正确的,没有任何错误正常工作.

浏览器是Firefox.在IE中它工作得很好.

有人能解释为什么会这样吗？只是为了兴趣.

我有一个如下所示的数组:

MyArray(0)='test'
MyArray(1)='test2'
MyArray(2)='test3'

如何通过函数传递此信息？

Function(MyArray(all_arrays)) 

我该怎么办all_arrays？

一般问题：如何将Microsoft Office中“记录”创建的VBA宏中的功能“转换”为可以在.vbs文件中的Windows执行的VBScript中？

具体问题：如何批量创建Word文档的缩略图以在Windows资源管理器中查看？

替代问题：在哪里可以找到有关使用VBS处理MS Word文档的文档？

我的最终目标是批处理为MS Word文档创建缩略图的过程。

我的人为方法是：

• 打开Word文档
• 按“另存为”
• 勾选“保存缩略图”
• 保存并替换

我从一个小型网站上发现，VBS以.vbs文件的形式可以操纵Word文档。可以通过在Windows资源管理器中双击.vbs文件来执行的示例：

'in a file called "something.vbs"
Set objWord = CreateObject("Word.Application")

objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection

objSelection.Font.Name = "Arial"
objSelection.Font.Size = "18"
objSelection.TypeText "Network Adapter Report"
objSelection.TypeParagraph()

objSelection.Font.Size = "14"
objSelection.TypeText "" & Date()
objSelection.TypeParagraph()

我还发现，通过“记录宏”，我可以获得一些VBA代码，该文件可以保存带有缩略图的文档。这是我记录的宏：

Sub save_with_thumbnail()
'
' save_with_thumbnail Macro
'
'
    ChangeFileOpenDirectory _
        "E:\"
    ActiveDocument.SaveAs2 FileName:="as90520.doc", FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ …

我有Jquery的代码链接到asp页面如下:

Jquery代码:

var url = "script_right2.asp?soc="+societe+"&phoneNum="+phoneNumber+"&seleDro="+sedro+"&desc="+des;

我想获得societe,phoneNumber,seleDro,desc页面的价值script_right2.asp

但问题是我不知道如何使用vbscript在asp页面中获取这些数据.

我正在尝试为我正在编写的Excel(for Windows)应用程序提供一些基本级别的保护.我正在考虑使用机器的mac地址生成许可证文件.我的问题是:如何使用VBScript获取Mac地址？

我有一个调用vbscript文件的注册表项,如下所示.右键单击.cur文件选择Change Cursor选项时会触发它

"C:\Program Files\Cursor Manager\CustomCursor.vbs" "%1" 2

下面是vbs文件(CustomCursor.vbs)

Set objArgs = WScript.Arguments ' Create object.
CusorValue=objArgs(1)
Path=objArgs(0)
MsgBox CusorValue
MsgBox Path

但它不起作用.它没有显示任何消息

当我从命令提示符调用脚本时,它正在工作,如下所示.

"C:\Program Files\Cursor Manager\CustomCursor.vbs" "E:\new\CM v5\cursors new\more\Arrow.cur" 2

如果注册表值是批处理文件,则其工作正常

"C:\Program Files\Cursor Manager\CustomCursor.cmd" "%1" 2

下面是批处理文件(CustomCursor.cmd)

echo %1
echo %2
pause

但我可以使用批处理文件,因为它将显示一个命令窗口,因为它将在执行脚本时显示命令窗口.

请告诉我一种从注册表执行vbs文件的方法,或者至少在后台运行批处理文件的方法.

谢谢

我正在尝试打开可通过Windows 7上的"计算机>映射网络驱动器"手动访问的对话框.是否有任何编程方式可以直接打开它,例如使用VBScript或PowerShell命令(而不是通过触发鼠标或键盘事件)？我知道net use ...shell命令,但我特别想显示该对话框.

我快要疯了.我在VBS中有一个代码配置,它会抛出一个逻辑上不可能的错误.

检查此代码:(您需要至少10个声望才能发布图片.确实很有帮助.) http://i.stack.imgur.com/jjNDm.png

如果文件夹revFolder存在,则(强制)将其删除.这也意味着如果文件夹不存在,则不会执行DeleteFolder.我确实在我面前有文件夹,它就在那里,我可以看到它.它是由相同的代码创建的几行.FolderExists返回true,因此该文件夹存在.然而它抛出错误"未找到路径".

到底是怎么回事？这一定是VBS中的一个错误,对吧？

我得到的网址包含amp;。有什么办法可以删除它，因为我目前正在尝试使用此URLDecode功能，但是它不起作用。我是否需要使用简单的字符串替换将其删除？或者有更好的方法吗？