标签: vbscript

在 VBScript ADODB.Command 中查看参数化查询

使用 Parameters.Append 参数化,如何查看查询的 SQL 代码

sql vbscript ado asp-classic

4
推荐指数
1
解决办法
3166
查看次数

如何使用 VbScript 创建选项对话框?

我有一个第三方应用程序,它为某些操作调用 vsbscript 文件。我想提供一个带有选项选择的用户提示,可以是下拉列表或复选框等。但是,我只能找到输入框选项。

我不认为 HTA 是我的选择(除非有办法从 .vbs 文件中调用它们?)

我的另一个想法是某种 ActiveX 控件,但我找不到在 WindowsXP/Vista 上默认可用的内置控件。

有人对我如何实现这一目标有任何想法吗?

vbscript

4
推荐指数
1
解决办法
7万
查看次数

vbs cmd 路径空间

我希望能够从 vbs 脚本中调用以下 cmd 命令:

cmd Client\setupclient.exe /q /targetdir "c:\program files\Microsoft CRM"
Run Code Online (Sandbox Code Playgroud)

我想出了以下vbs脚本:

Set oShell = WScript.CreateObject ("WScript.Shell") 
oShell.Run "cmd /c Client\setupclient.exe /q /targetdir c:\program files\Microsoft CRM", 1, true
Run Code Online (Sandbox Code Playgroud)

就我而言,如果 targetdir 没有空格,例如 c:\bla,这将正常工作。然后该应用程序将安装在该特定文件夹中。

显而易见的问题是,我如何定义带有空格的 targetdir 作为路径位置。
我试图用 ' ' 包围它,但这对我不起作用。有什么建议?

干杯克里斯

vbscript cmd space path

4
推荐指数
1
解决办法
2万
查看次数

如何使用命令行回收远程计算机上的应用程序池

我在尝试从命令行运行的 vbs 文件中有以下内容:

strServerName = "ServerName"
strAppPoolName = "DefaultAppPool"
set objAppPools = GetObject("IIS://" & strServerName 
                                  & "/w3svc/AppPools/" & strAppPoolName & "")
objAppPools.Recycle()
Run Code Online (Sandbox Code Playgroud)

然而,当我从 cmd 行运行 vbs 时,我收到以下错误:

Microsoft VBScript 运行时错误:ActiveX 组件无法创建对象:“获取对象”_

我在本地机器上运行 XP,远程机器有 IIS 7。

我怎样才能让它发挥作用?

c# windows vbscript iis-7 application-pool

4
推荐指数
2
解决办法
2万
查看次数

如何替换字符串中的双引号?

我需要用"一个字符串替换什么都没有.

我试过了:

replace(mystring, """, "")
Run Code Online (Sandbox Code Playgroud)

我想要:

String = " "my string " " --> " my string"
Run Code Online (Sandbox Code Playgroud)

vbscript

4
推荐指数
1
解决办法
2万
查看次数

命令提示符中使用vbscript的多个命令

Set oShell = CreateObject("WScript.Shell")
oShell.Run "cmd /c c:"
Run Code Online (Sandbox Code Playgroud)

这条线执行得非常好.现在我需要输入一个文本.

例如: c:\users> "abcd"

如何在已打开的cmd提示符中进行此操作.

vbscript

4
推荐指数
1
解决办法
1万
查看次数

VB脚本日期格式为"YYYYMMDDHHMMSS"

作为标题首字母,我需要填充now()函数以格式"YYYYMMDDHHMMSS"显示

我确实有一个关于尝试将其拆分出来的游戏,但这会丢掉我需要保留的前导零

mydt下面的例子是"27/02/2015 13:02:27"

mydt = now() 

MSGBOX Year(mydt)& Month(mydt)& Day(mydt)& Hour(mydt)& Minute(mydt)& second(mydt)
Run Code Online (Sandbox Code Playgroud)

这将返回"201522713227"

我需要它返回"2015 0 22713 0 227"我可以使用if <10但是必须有一个更光滑的方式

string vbscript date formats

4
推荐指数
2
解决办法
2万
查看次数

如何在此SSRS表达式中"指定数据集聚合"?

我的SSRS报告中需要一个行值,该值是基于报告中已经使用的几个字段计算出来的.我希望它显示在名为'textboxPercentageValue'的文本框中.在半简单英语中,表达式/公式为:

If the value of the "Week" field is "WK1", display the value of the Variance field divided by the value of the Price field; otherwise, just display the value from the Variance field.
Run Code Online (Sandbox Code Playgroud)

在VB脚本gobbledygook中,我添加到textboxPercentageValue的Value属性的表达式/公式是:

=IIF((Fields!Week.Value="WK1"), Fields!Variance.Value / Fields!Price.Value, Fields!Variance.Value)
Run Code Online (Sandbox Code Playgroud)

但是,当我尝试将.rdl文件上传到SQL Server Reporting Services时,我得到:

" 文本框'textboxPercentageValue'的值表达式直接指向字段'Week'而不指定数据集聚合.当报表包含多个数据集时,数据区域外的字段引用必须包含在指定数据集范围的聚合函数中.(rsFieldReferenceAmbiguous)获取联机帮助文本框'textboxPercentageValue'的值表达式直接指向字段'Variance'而不指定数据集聚合.当报表包含多个数据集时,数据区域外的字段引用必须包含在聚合函数中指定数据集范围.(rsFieldReferenceAmbiguous)获取联机帮助文本框'textboxPercentageValue'的值表达式直接指向字段'Price'而不指定数据集聚合.当报表包含多个数据集时,数据区域外的字段引用必须包含在指定数据集范围的聚合函数中.(rs FieldReferenceAmbiguous)获取联机帮助文本框'textboxPercentageValue'的值表达式直接指向字段'Variance'而不指定数据集聚合.当报表包含多个数据集时,数据区域外的字段引用必须包含在指定数据集范围的聚合函数中.(rsFieldReferenceAmbiguous) "

那么我需要做些什么来使这个表达式/公式明确无法与SQL Server Reporting Services或VBScript解析器或"谁"抱怨它?

vbscript rdl bids aggregates reporting-services

4
推荐指数
1
解决办法
2万
查看次数

如何获得具有焦点的IE选项卡的句柄?

有没有人知道如何使用vbscript获取当前焦点的IE选项卡的句柄?

我正在尝试使用HP-UFT进行一些自动化,并且需要获得具有焦点的选项卡的句柄,以便我可以关闭它.

UFT将每个选项卡视为自己独立的浏览器,因此我可以获得选项卡集合,但是我无法找到确定哪个选项卡具有当前焦点的方法.

我使用的浏览器是IE.

vbscript internet-explorer qtp hp-uft

4
推荐指数
1
解决办法
596
查看次数

如何在经典的asp中拆分字符串

我试图在经典的asp应用程序中拆分一个字符串,在页面中有下面的代码,它似乎不起作用.还有一个问题看起来很相似但是处理不同类型的问题,我已经找到了那里的答案而且他们没有帮助.任何帮助,将不胜感激.

<% 
Dim SelectedCountries,CitizenshipCountry, Count 
SelectedCountries = "IN, CH, US"    
CitizenshipCountry = Split(SelectedCountries,", ")
Count = UBound(CitizenshipCountry) + 1 
Response.Write(CitizenshipCountry[0])
Response.End
%>
Run Code Online (Sandbox Code Playgroud)

arrays string vbscript split asp-classic

4
推荐指数
1
解决办法
1万
查看次数