我对此很困惑,我试图通过VBS脚本将数据上传到FTP,它适用于单个文件文件,但是当我在循环中添加脚本时不上传多个文件.
另外,为什么我们需要在远程上传到FTP时生成临时文件,
我是说这个,
这是我正在使用的脚本,
Dim fso, folder, files, strPath
Set fso = CreateObject("Scripting.FileSystemObject")
strPath = "E:/Test"
Set folder = fso.GetFolder(strPath)
Set files = folder.Files
Const hostname = "ftp.domain.com"
Const port = 21
Const username = "username"
Const password = "password"
Const remoteDir = "/"
Const useDefaultsExclusively = True
Const skipConfirmation = True
For each item In files
If InStr(1, item.Name, "txt") <> 0 Then
defaultFile = item.Name
localFile = fso.getFileName(defaultFile)
localDir = fso.getParentFolderName(defaultFile)
Set shell = CreateObject("WScript.Shell")
tempDir = shell.ExpandEnvironmentStrings("%TEMP%") …我想看看是否可以组合两个字符串并按日期/时间排序？
dim strcountstf
dim strDateNTimes
dim strCOMBO
strcountstf = "02/01/2012 3:05am###,02/02/2012 7:05am###,02/05/2012 8:30pm###"
strDateNTimes = "02/01/2012 2:20am###,02/02/2012 8:00am###,02/06/2012 6:45pm###"
strCOMBO = strcountstf & strDateNTimes
现在strCOMBO会给我两个字符串,但我需要按日期/时间排序,也许使用CDate函数？
再次感谢大家,我非常感谢你给我的所有帮助.
我是QTP的新手,我遇到了"错误验证消息"的问题.我有一个任务,检查输入无效输入时是否出现错误验证消息.我尝试在输入数据之前和之后检查,但不幸的是QTP识别出"错误消息",甚至看到错误没有显示在页面上.
我可以处理这个问题吗？
这可能是一个棘手的问题,我想以某种方式解决.我之前为之工作的公司破产了.在混乱期间,许多用户拿走了公司的电脑并离开了.
现在,他们不知道的是我们在每台计算机上都安装了UAG.一种静默VPN解决方案,与域控制器通信并通过AD中的计算机帐户进行身份验证.
所以,我想要做的是运行某种类型的脚本,尝试联系每台计算机并收集登录到该计算机的用户名.这将为我提供一种简单的方法来确定该计算机是否被不在公司工作的人使用,而该公司购买了破产资源.
我已经运行dsquery来查找过去8周内的非活动计算机.将该列表与整个计算机列表进行比较,让我对目前正在使用的计算机有了很好的了解.我应该怎么做呢？
在vbscript中,通常使用浏览器(IE)作为GUI.请参阅下面的示例,它要求输入名称并将其返回给脚本.在Ruby中你有一些像Tcl和Shoes这样的GUI,但我想知道如何在浏览器中这样做.什么是最简单的Ruby解决方案？所以没有exta gems或package,没有已经运行的服务器..如果需要gem,最好是在Windows中运行而没有问题.
这里是vbscript示例
Set web = CreateObject("InternetExplorer.Application")
If web Is Nothing Then
msgbox("Error while loading Internet Explorer")
Wscript.Quit
Else
with web
.Width = 300
.Height = 175
.Offline = True
.AddressBar = False
.MenuBar = False
.StatusBar = False
.Silent = True
.ToolBar = False
.Navigate "about:blank"
.Visible = True
end with
End If
'Wait for the browser to navigate to nowhere
Do While web.Busy
Wscript.Sleep 100
Loop
'Wait for a good reference to the browser document
Set doc = …我正在尝试通过Adodb.Command使用以下查询命名参数,但没有运气.
Select * From mytable Where col1 = Lower(@param1) And col2 = Upper(@param2) And col3 = @param1
代码我使用了类似的东西.
Dim cmd
Set cmd = Server.CreateObject("Adodb.Command")
cmd.NamedParameters = True
cmd.CommandType = adCmdText
cmd.CommandText = "Select * From mytable Where col1 = Lower(@param1) And col2 = Upper(@param2) And col3 = @param1"
cmd.Parameters.Append cmd.CreateParameter("@param1", adVarchar, adParamInput, 20, "some text 1")
cmd.Parameters.Append cmd.CreateParameter("@param2", adVarchar, adParamInput, 20, "some text 2")
Set cmd.ActiveConnection = cn
Dim rs
Set rs = cmd.Execute
问题是,这会导致RDBMS端出错.
Microsoft OLE DB Provider for …我有一个大CSV文件,我想以编程方式在excel中打开它,突出显示一个特定行(我知道行号).最简单的方法是什么？
我认为我的选择是:
假设系统安装了Excel,我更喜欢Java/Python/Shell或任何适用于Mac/Windows的东西.所以,我最好的选择可能会让#1我回到如何将CSV文件转换为文件的问题xlsx.
可以通过将"Wscript.Echo"替换为"Msgbox"来清除"Windows Script Host"标题栏标题,但如果我想查看自定义标题栏标题,该怎么办？
我正在使用vbscript尝试连接到另一个域上的sql server.该服务器是群集的一部分,是SQL Server数据中心版(64位).我可以从我的机器ping服务器.我正在使用IP地址进行连接,这在SSMS上工作正常.我正在使用的vbscript代码是:
Set cn = CreateObject("ADODB.Connection")
cn.Open "DRIVER={SQL Server};Server=123.456.345.567\instance;Database=MyDB;User
ID=domain\myuserid;Password=mypass;"
strCommandText = "Select * from mytable"
cn.Execute strCommandText
当我运行它时,我收到以下错误:用于ODBC驱动程序的Microsoft OLE DB提供程序:[Microsoft] [ODBC SQL Server驱动程序] [SQL Server]用户'domain\myuserid'登录失败.
我无法加入我的测试机器到域,我不能使用sql身份验证,因为它在sql server上被禁用.
我需要做些什么才能让它发挥作用？
我想完成以下事项:
假设我有一个myFunc(sStr)返回值的函数.
我想动态调用该函数,我相信我可以通过使用vbScript函数eval()或其中一个构建来完成execute().
Function myFunc(fString)
myFunc = "some text in a string. " & fString
End Function
我想通过以下方式调用它:
sDoThis = "response.write myFunc(""blah blah. "")"
execute(sDoThis)
这似乎不起作用(例如我传入要执行的字符串的部分).
我需要要执行的字符串是动态的.
有谁知道这是否可行？