标签: vbscript

我正在为Office 2010和其他几个应用程序编写部署脚本,我们在测试中遇到的一个问题是一些计算机仍然有XP SP2,所以我想为此编写一个安全措施.

我想出了这个

Set colOperatingSystem = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystem
ServicePack = objOperatingSystem.ServicePackMajorVersion
Next

IF not ServicePack = "3" Then

MsgBox "WARNING: prerequisite to installing Microsoft Office 2010 Professional you must first install service pack 3" & VbCrlf & "your current Service Pack Version is " & ServicePack

ELSE

'Do Nothing

END IF

我将它插入XP SP2机器并获得警告弹出On_WindowLoad,所以我很高兴,但是当我将它插入我的Windows 7机器时,它会抛出相同的消息,挖掘一下powershell我意识到自从Windows 7报告它的ServicePackMajorVersion数字为"1",因此它不符合条件,

希望有人可能知道如何写一个IF /条件声明来绕过Windows 7 PC,我看了7601的内部版本号,但不知道如何嵌套这些

我使用此代码下载链接,我要保存文件中%SystemRoot%\system32,但是当替换C:\用%SystemRoot%的VBS无法运行.

function download(sFileURL, sLocation)

    'create xmlhttp object
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

    'get the remote file
    objXMLHTTP.open "GET", sFileURL, false

    'send the request
    objXMLHTTP.send()

    'wait until the data has downloaded successfully
    do until objXMLHTTP.Status = 200 :  wcript.sleep(1000) :  loop

    'if the data has downloaded sucessfully
    If objXMLHTTP.Status = 200 Then

            'create binary stream object
        Set objADOStream = CreateObject("ADODB.Stream")
        objADOStream.Open

            'adTypeBinary
        objADOStream.Type = 1
        objADOStream.Write objXMLHTTP.ResponseBody

            'Set the stream position to the start
        objADOStream.Position = …

我使用以下代码尝试从我的代码文件中查找包含在另一个目录中的文件.

Set fi=fs.OpenTextFile(Server.MapPath("~/counter/counter.txt"), 1)

我也试过了.

Set fi=fs.OpenTextFile(Server.MapPath("./root/folder1/counter/counter.txt"), 1)

在任何一种情况下,这应该让我回到counter.txt文件.从我的理解〜/向上移动1个目录和./移动到根目录.

但是两次都收到错误,说明使用了无效字符.删除这些时,我得到一个不同的错误,说找不到路径(我希望这是因为它不是一个有效的路径而没有移动1个目录).

在VBscript中执行以下操作的有效字符是什么:向上移动一个目录？移动到根目录？

谢谢您的帮助

CreateObject("Wscript.Shell").Run "taskkill /f /t /im oovoo.exe", 0, False

我知道它是Visual Basic的一些变体,我知道它不是.NET.它是VB6,还是我不知道的某种其他VB脚本语言？

我们可以使用VBScript以Day-Hour-Minutes格式获取两个日期值差异吗？

我试图为传统的经典ASP应用程序带来一些理智,作为其中的一部分,我正在尝试为我创建的一些JScript类编写Fluent API.

例如 myClass().doSomething().doSomethingElse()

这里概述了这个概念(在VBScript中)

这是我的示例JScript类:

var myClass = function () {
    this.value = '';
}

myClass.prototype = function () {

    var doSomething = function (a) {
        this.value += a;
        return this;
    },

    doSomethingElse = function (a, b) {
        this.value += (a + b);
        return this;
    },

    print = function () {
        Response.Write('Result is: ' + this.value + "<br/>");
    }

    return {
        doSomething: doSomething,
        doSomethingElse: doSomethingElse,
        print: print
    }; …

请帮我。我对在vbscript中获取字典的长度或大小而未创建手动编写字典的功能感到困惑。有没有可用的方法来获取字典的长度？（例如UBound在数组中的示例）。

谢谢您的关注，对不起，我的英语不好。

我使用自动化脚本来测试基于浏览器的应用程序.我想将我加载的每个页面的可见文本保存为文本文件.这需要适用于当前打开的浏览器窗口.我遇到过一些使用的解决方案,InternetExplorer.Application但这对我不起作用,因为它必须是当前的打开页面.

理想情况下,我想使用vbscript实现这一目标.任何想法如何做到这一点？

我是VBScript的新手,我需要使用VBScript打开控制面板,我试图像这样打开资源管理器

Dim txtFolderToOpen  
txtFolderToOpen = "C:\Windows" 
App.Run txtFolderToOpen 
Set App = Nothing

这工作正常,但如果我把路径,Control Panel因为它将无法正常工作,

有没有办法做到这一点？谢谢

我是一个运行VB脚本与asp经典,我收到以下错误:

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'FormatDateTime'

/whatsnew/updated_pages_www.htm, line 52

我试图找出导致错误的原因.csv文件中的日期格式有什么问题吗？日期格式为:20090220122443

以下页面代码:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Response.CharSet = "UTF-8" %>
<%
pagetitle="What was published last week on casa.gov.au"
%>

<%
connectString = "Driver={Microsoft Text Driver (*.txt; *.csv)}; DBQ=" & Server.MapPath("/whatsnew/data")

set connect = Server.CreateObject("ADODB.connection")
connect.open connectString
selectSQL = "SELECT * FROM www.csv" 

set www_RS = connect.execute(selectSQL)

%>



<!--#INCLUDE VIRTUAL="/_lib/include/header.htm"-->
<!--#INCLUDE VIRTUAL="/_lib/include/menu.htm"-->
<p class="breadCrm"><a href="/index.htm">Home</a>  <span>&gt;</span> <a href="/whatsnew/index.htm">What's New</a></p>
<!--<img src="/_lib/images/menu/yourarea.gif" alt="" width="891" /> -->
<div class="twoColumnRow"> …