使用VBScript与ASP我正在尝试设置一个HTTP GET请求,它将访问一个页面,该页面又生成一行ASCII(非HTML).然后我想推断那个ASCII行,它将有4个由分号分隔的值回到我原来的ASP页面中的4个变量中,这样我就可以获取这些值并对它们做些什么.
这是我想通过HTTP GET请求http://www.certigo.com/demo/request.asp访问的页面.这里有三个值为null.
我不太了解ASP,所以我有这个:
Dim oXMLHTTP
Dim strStatusTest
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")
oXMLHTTP.Open "GET", "http://www.certigo.com/demo/request.asp", False
oXMLHTTP.Send
If oXMLHTTP.Status = 200 Then
strStatusText = oXMLHTTP.responseBody
End If
但显然我不知道我在做什么,因为这根本不起作用.我完全不会惊讶地发现,我所拥有的不是正确的方向.请帮忙!!
-Tracy
我想通过WQL查询获取boot-harddisk的序列号.
可以使用以下查询检索引导分区:
SELECT * FROM Win32_DiskPartition where BootPartition=True
序列号在Win32_DiskDrive中:
SELECT DeviceID, SerialNumber FROM Win32_DiskDrive
Win32_DiskDriveToDiskPartition有映射Win32_DiskDrive到Win32_DiskPartition.它们被映射Win32_DiskDrive.DeviceID到Win32_DiskPartition.DeviceID在Win32_DiskDriveToDiskPartition
我怎样才能建立一个WQL查询内部联接Win32_DiskPartition和Win32_DiskDrive？我是否必须使用Associate？或者它是否与INNER JOIN一起使用？
找出Windows计算机上运行的版本和哪个Service Pack 的最简单方法是VBScript什么？
例如,我想知道Windows XP和Service Pack 3.
当我执行VBScript时,它创建的命令窗口会在用户有机会读取输出之前快速关闭.如何在不修改Windows注册表的情况下让窗口保持打开状态？
这是代码:
Set objShell = WScript.CreateObject("WScript.shell")
objShell.Run "SyncToyCmd.exe -R", 1, True
我需要将一个基于日期的名称的文件移动到另一个文件夹.
文件结构是:
来源:\network_location\folder\Filename_09-11-2012.txt目的地:C:\ Dump\Filename.txt
源文件总是落后1天.我希望在复制文件时重命名该文件.
我试图使用的代码是:
Sub Copy_And_Rename()
Name "\\network_location\folder\Filename_"+Month(Now())+"-"+Day(Now()-1)+"-"+Year(Now())+".txt" As "C:\Dump\Filename.txt"
End Sub
谢谢
我有一个ASP文件.实际上我在我的文件中使用connectionString连接到DataBase.
sConnString = "Driver={SQL Server}; Server=localhost; Database=DB"
有没有办法从Web.Config读取ConnectionString？
编辑:
得到了它:
' Imports a connection string from an xml file (usually web.config)
Function ImportConnectionString(webConfig, attrName, reformatDSN)
Dim oXML, oNode, oChild, oAttr, dsn
Set oXML=Server.CreateObject("Microsoft.XMLDOM")
oXML.Async = "false"
oXML.Load(Server.MapPath(webConfig))
Set oNode = oXML.GetElementsByTagName("connectionStrings").Item(0)
Set oChild = oNode.GetElementsByTagName("add")
' Get the first match
For Each oAttr in oChild
If oAttr.getAttribute("name") = attrName then
dsn = oAttr.getAttribute("connectionString")
If reformatDSN Then
' Optionally reformat the connection string (adjust as needed)
dsn = Replace(dsn, "User ID=", …有没有人在VBScript中有一个简单的方法来获取UTC的当前时间？
谢克斯,克里斯
总vbs脚本newb在这里.我正在尝试自动关闭某个打开的窗口,即一个名为HostsMan的程序.这是在Windows 8.1 Pro 64位上,这是我的脚本目前的样子:
Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate "HostsMan"
WshShell.SendKeys "%{F4}"
第二行似乎不起作用.我知道第3行有效,因为它激活了Windows关闭菜单.有什么我想念的吗？
更新/更多信息:手动输入alt-F4会关闭它,所以我知道这应该有效.我还用其他打开的窗口测试了这个脚本,它们关闭得很好.此外,HostsMan以管理员权限打开,因此我尝试将脚本作为具有最高权限的任务集运行,以查看是否会执行此操作,但仍然没有.但这适用于使用Admin权限运行的其他打开的窗口.令人沮丧!
我正在尝试这段代码:
filename = "test.txt"
listFile = fso.OpenTextFile(filename).ReadAll
listLines = Split(listFile, vbCrLf)
For Each line In listLines
WScript.Echo line
'My Stuff
Next
或者这个:
filename = "test.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename, ForReading)
Do Until f.AtEndOfStream
myLine = f.ReadLine
WScript.Echo myLine
'My Stuff
Loop
为什么在这两种情况下它同时回应所有线路,当然我无法一行一行地工作？任何的想法？