标签: vbscript

我试图使用以下VBS脚本同时关闭多个应用程序,但我0x80041017在For Each循环线上得到错误.它只使用一个应用程序,但我添加了另一个应用程序终止

strComputer = "."
strProcessToKill1 = "Acrobat.exe" 
strProcessToKill2 = "iexplore.exe" 

Set objWMIService = GetObject("winmgmts:" _
                & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 

Set colProcess = objWMIService.ExecQuery _
                ("Select * from Win32_Process Where Name = '" & strProcessToKill1 & "' or '" & strProcessToKill2 & "'")


count = 0
For Each objProcess in colProcess
                objProcess.Terminate()
                count = count + 1
Next 

我需要在复制后用vbscrip更改windows文件中的修改时间戳.谢谢

我想知道如果我在使用循环列表10,000循环而不是在每个循环中计算它时将字符串长度存储在临时变量中,性能是否更好？

计算字符串长度的代码示例:

'--
Dim I
Dim str : str = "Lets say this string length is around 50,000"
'--
For I=0 To 100000
    Response.Write Len(str) & "<br>"
Next

使用临时变量的代码示例:

'--
Dim I
Dim str : str = "Lets say this string length is around 50,000"
Dim temp : temp = Len(str)
'--
For I=0 To 100000
    Response.Write temp & "<br>"
Next

你觉得哪个更好？

谢谢!

我试图在VBScript:DateCreated中使用此属性,如下所述:http: //msdn.microsoft.com/en-us/library/ke6a7czx%28v=vs.84%29.aspx

但是我收到以下错误:Microsoft VBSCript运行时错误:

Object不支持此属性或方法:'objFSO.DateCreated'

我在互联网上找不到任何信息,有人可以帮忙吗？

这是我的一段代码:

Function showFile( str )
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objReadFile = objFSO.OpenTextFile( str , 1, False)

    contents = objReadFile.ReadAll
    objReadFile.close

    strCreated= objFSO.DateCreated

我有以下代码..如果我使用静态strInputPath3代码工作正常,但如果我使用strInputPath3代码错误输出错误无效的过程调用或参数..有人请告诉我我在做错了什么

strInputPath1 =  "C:\test" & "\" & "css" & "\" & "main.css"

strInputPath3 = "C:\test\css\main.css"


Set txsInput1 = FSO.OpenTextFile(strInputPath1, 1)

我有两个文件:batch.bat和vbscript.vbs..bat文件包含一个循环,我需要调用.vbs,并传递给它2个参数..vbs文件包含一个带有2个参数的函数(我传递给.vbs文件的参数).我需要在.bat文件中访问.vbs返回的函数值.
有人可以帮帮我吗？

我不是专家所以请原谅我糟糕的语法.我正在调用.bat文件.文件看起来应该是这样的

batch.bat:

loop start

' calling the vbs file

cscript vbscript.vbs arg1 arg2 ( here I suppose something has to be add to get val from vbs)

' using value returned by .vbs function

loop end 

vbscript.vbs:

function myfunction(arg1,arg2)
dim value

' do some calculation

myfunction= value
end function

dim value_to_return_to_batch
' now calling the function
value_to_return_to_batch=myfunction(arg1,arg2)
'
' here something has to be add to send value_to_return_to_batch  to batch
'

我在VBScript中编写这段代码,这在我以前没有用过.

我写了这个:替换(strContent,st,arr(k,i),1)

它给了我一个"在调用Sub时不能使用括号"的问题.有人可以帮忙吗？

我尝试过在线搜索,但没有任何帮助.

谢谢!

我正在玩VBScript，我想制作一个MsgBox，询问用户是否要关闭计算机。

如果用户单击，Yes他们应该首先看到一个MsgBox，然后他们的计算机开始关闭。

我正在使用此代码，但不起作用。

问题是什么？

result = MsgBox ("Shutdown?", vbYesNo, "Yes/No Exm")
Select Case result
    Case vbYes
        MsgBox("shuting down ...")
        Option Explicit
        Dim objShell
        Set objShell = WScript.CreateObject("WScript.Shell")
        objShell.Run "C:\WINDOWS\system32\shutdown.exe -r -t 0"
    Case vbNo
        MsgBox("Ok")
End Select

我有一个更改注册表值的脚本,在此之前,它使用regedit /e创建.reg文件来备份注册表项.

如果脚本第二次运行并且.reg备份文件存在,我问用户是否要将备份添加回注册表.

因为我不想混淆不知道发生了什么的用户以及他们可能无法理解的额外提示,我使用以下代码执行此操作而不询问用户是否要导入:

Set objShell = CreateObject("WScript.Shell")
objShell.Run"regedit /s "  & """" & BackupFile & """" , 0, True

有没有办法从regedit命令中获取退出代码,以便regedit导入备份.reg文件成功或失败？

我想获取应用程序池的状态.我从这里取了vbscript .

strArgAppPool = Wscript.Arguments.Unnamed.Item(0)
Const noError = False

' Establish the connection to the WMI provider
Set oWebAdmin = GetObject("winmgmts:root\WebAdministration")

' Search the AppPool passed as argument in the list of application pools
Set oAppPool = oWebAdmin.Get("ApplicationPool.Name='" & strArgAppPool & "'")

' Create nice messages for pool states
Select Case oAppPool.GetState      

    Case 0            
        StateDescription = "STARTING"        
        outputStatus = "WARNING! "
        outputCode = 1
    Case 1            
        StateDescription = "STARTED"        
        outputStatus = "OK! "
        outputCode = 0
    Case 2 …