标签: vbscript

从ZIP文件中提取文件时,我使用以下内容.

Sub Unzip(strFile)
' This routine unzips a file. NOTE: The files are extracted to a folder '
' in the same location using the name of the file minus the extension.  '
' EX. C:\Test.zip will be extracted to C:\Test '
'strFile (String) = Full path and filename of the file to be unzipped. '
Dim arrFile
    arrFile = Split(strFile, ".")
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CreateFolder(arrFile(0) & "\ ")
    pathToZipFile= arrFile(0) & ".zip"
    extractTo= arrFile(0) & "\ "
    set …

我在尝试运行VBScript时收到此错误(请注意,这不是在Web环境中 - 只是在Windows上运行VBScript):

Line: [Last line]
Error: Expected 'End'
Code: 800A03F4
Source: Microsoft VBScript compilation error

我认为这是一个没有正确关闭"If If"的If语句,但是我在代码中经历了"If"的每个实例并且找不到错误.任何提示或工具可以帮助我找出错误发生的位置/原因？

在"If(IsNull(value))"行下面"我的代码是否正确？我想检查注册表项是否存在,如果没有,则显示一个网页.

Option Explicit
On error resume next
Dim SysVarReg, Value
Set SysVarReg = WScript.CreateObject("WScript.Shell")
value = SysVarReg.RegRead ("HKCU\Software\test\FirstLogonComplete")

If (IsNull(value)) then

    Set WshShell = WScript.CreateObject("WScript.Shell") 
    WshShell.Run "c:\Program Files\Internet Explorer\iexplore.exe https://intranet/start.htm"

    Dim SysVarReg2, Value2
    Value2 = "TRUE"
    Set SysVarReg2 = WScript.CreateObject("WScript.Shell")
    SysVarReg2.RegWrite "HKCU\Software\test\FirstLogonComplete", Value2

else
    wscript.echo "Already logged on"
end if

在提交表单时,我想捕获表单的字段名称和值,我希望它们在浏览器中都没有显示(Response.Write使它们在浏览器中可见).我该怎么办？我正在使用此代码:

    For Each Item In Request.Form
    fieldName = Item
    fieldValue = Request.Form(Item)

    Response.Write(""& fieldName &" = Request.Form("""& fieldName &""")")       
    Next 

我有一个VBS文件test.vbs C:/work/selenium/chrome/,我想从我的Java程序运行它,所以我尝试了这个,但没有运气:

public void test() throws InterruptedException {
   Runtime rt = Runtime.getRuntime();
   try {
      Runtime.getRuntime().exec( "C:/work/selenium/chrome/test.vbs" );
   }
   catch( IOException e ) {
      e.printStackTrace();
   }
}

如果我尝试使用此方法运行某些exe文件,它运行良好,但是当我尝试运行VBS文件时,它说"不是有效的win32应用程序".

知道如何从Java运行VBS文件吗？

我需要编写一个VBScript代码来检查outlook是使用MAPI配置文件还是使用RPC over HTTP/S配置文件.

那么任何人都可以让我知道哪个注册表项决定相同吗？

请帮忙.

我正在研究经典的asp应用程序.我在某些页面上使用了URL重写.

如何在经典asp中获取页面的当前URL？

例如:http: //www.site.com/page.asp --->在IIS中重写url ---> http://www.site.com/home/page

所以在这里我想要的网页的当前网址是http://www.site.com/home/page

请帮我.谢谢.

我有代码在单个文件上执行该过程,任何人都可以更改此脚本,以便循环遍历文件类型为" .LTR " 的目录"H:\ Letter Display\Letters"中的所有文件,并将它们全部保存:

 Const ForReading = 1
 Const ForWriting = 2

 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Set objFile = objFSO.OpenTextFile("H:\Letter Display\Letters\LTRPRT__00000008720000000001NI-K-RMND.LTR",    ForReading)


 str1000 = "1000"
 str1100 = "1100"
 str1200 = "1200"
 str9990 = "9990"

 arrCommas1 = Array(14,31,41,59,70,81,101,111,124,138)
 arrCommas2 = Array(14,31,41,55,79,144,209,274,409,563,589,608,623)
 arrCommas3 = ArraY  (14,32,41,73,83,97,106,156,167,184,188,195,207,260,273,332,368,431,461,472,593,617,666,772,810,834,848,894,898)
 arrCommas4 = Array(14,31,41)

 Do Until objFile.AtEndOfStream
   strLine = objFile.ReadLine

   If Left(strLine, 4) = str1000 then
     intLength = Len(strLine)
     For Each strComma in arrCommas1
       strLine = Left(strLine, strComma - 1) + "," _
         + Mid(strLine, …

美好的一天,我想问一个事情 on error resume next

让我们假设我们有一个循环来浏览记录集,如:

Do while not rs.EOF
query = "UPDATE ...."    
conn.execute(query)    
rs.movenext
loop

我想确定它UPDATE是好的,我想检查是否有一些问题,所以我在代码中添加了调试功能,如:

Do while not rs.EOF
query = "UPDATE ...."

on error resume next

conn.execute(query) 

If Err.Number <> 0 Then
   Response.write(Err.Number)
   response.write("<br>")
   response.write(Err.description)
   response.write("<br>")
   response.write(query)
   response.write("<br><br>")
end if

on error goto 0

rs.movenext
loop

问题是:在循环期间,如果遇到错误,下一个循环将出现错误(因此再次触发错误块)？或者on error goto 0会清除Err对象？换句话说,它会作为错误处理吗？

我想知道是否有人可以帮助我.

我是ASP的新手,我想格式化当前的日期和时间,如下所示:

yyyy-mm-dd hh:mm:ss

但我能做的就是以下几点

Response.Write Date

有人可以帮帮我吗.