我正在做一个使用ASP经典的项目。我对这个错误有困难:
Microsoft VBScript运行时错误“800a01a8”
所需对象:“objContent.documentElement”
/muhproject/include/clsTransform.asp,第138行
如何将objContent.documentElement作为需求包含到项目中?
文件的第138行如下:
'Attach fragment into pageContentXML
objContent.documentElement.appendChild xDoc2.documentElement
编辑
我已将我的一些代码合并如下:
Option Explicit
Dim oShell : Set oShell = WScript.CreateObject ("WScript.Shell")
Dim FSO : set FSO = CreateObject("Scripting.FileSystemObject")
Dim StartTime,Elapsed
'msgBox(oShell.CurrentDirectory)
'MsgBox(FSO.GetFile(Wscript.Script
我想知道有没有人可以帮我修改我当前的代码,加入一个弹出对话框,要求用户指定他们将%name%.dsd文件放在哪里。我还希望将它存储在一个像%location%这样的变量中,这样我就可以替换当前使用%cd%的方法。代码如下:
@echo off
echo.
echo Hello!
echo Got file?
color f9
set /p="What did you name your file?:"<nul
set /p name=
cd %localhost%
echo -publish> %name%%.scr
echo %cd%\%name%%.dsd>
我已经写了下面的bat文件来解压zip文件。但是当我从Jenkins执行它时,它就不工作了。我怀疑这是因为它试图启动复制UI和服务阻止它这样做,因为windows服务不允许与UI一起工作。有没有办法编辑下面的脚本,以静默地进行解压缩?如果还有其他工具,请提供一些示例。
@echo off
FOR /D %%p IN ("%CD%\Setups\*.*") DO rmdir "%%p" /s /q
call mvn org.apache.maven.plugins:maven-dependency-plugin:2.4:get -DrepoUrl=htt
以下是我要做的事:
获得一个VBScript来运行另一个VBScript。
获取第二个VBScript在完成时发布错误,如果成功则为0,如果没有返回到原始脚本,则>0,然后根据返回的错误代码处理条件。
卸载2010 &复制办公室2013年
'Copy files from a network share to machine
Set FSO = CreateObject("Scripting.FileSystemObject")
WScript.Echo "Starting to uninstall Microsoft Office
当我使用它时,它只会在我教它另一个词的时候说,我不能让它在目录中说出一个具体的答案,你们对如何解决这个问题有什么意见吗,我很困惑。
@ECHO OFF
@mode con cols=55 lines=10
if not exist data.txt echo.>data.txt
:begin
set /p text="Talk: "
for /f "tokens=1,* delims=@" %%i in (data.txt) do (
if /i "%text%"=="%%i" (
echo Visu: %%j
go
我正在试图找到一种使用VBScript中的调用Excel函数的方法,然后将一个值传递给。见下文
Excel中的VBA
Sub RunTest()
Dim objString as String
'Begin Pseudocode
objString = Call VBScript Function Test()
'End Pseudocode
MsgBox objString `from VBS
End Sub
VBScript
Function Test
Test = "Hello World
我想要.vbs脚本,打开多个大文件.vbs,我想一个接一个地打开.vbs,不让我,滞后在PC上。
0001.vbs,0002.vbs,0003.vbs,0004.vbs可以是不同的名称,如: Anna.vbs、Diana.vbs、Antony.vbs、Andy.vbs
示例:
run C:\0001.vbs
MsgBox "0001.vbs IS END"
Next Open run C:\0002.vbs
MsgBox YES NO
MsgBox "0002.vbs IS END"
Next Open run C:\0003.vbs
MsgBox Y