标签: vbscript

我试图在VBScript中压缩一个文件夹,它似乎不起作用.我确定我正在创建头文件.

它正确创建实际文件,只是不压缩文件夹.

有人有任何想法:

Sub ArchiveFolder (folder)

    Dim fso, wShell, sApp, zipFile

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set wShell = CreateObject("WScript.Shell")  
    Set sApp = CreateObject("Shell.Application")
    Set zipFile = fso.CreateTextFile(folder & ".zip")

    ' Write zip file header.
    zipFile.Write "PK" & Chr(5) & Chr(6) & String(18, 0)
    zipFile.Close

    sApp.NameSpace(folder & ".zip").CopyHere folder

End Sub

我在Outlook中有一个过程,它将所有已保存的消息发送到Drafts文件夹中.
以下是代码:

Public Sub SendMail()

Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim olDraft As Outlook.MAPIFolder
Dim strfoldername As String
Dim i As Integer

Set olApp = Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set olFolder = olNS.GetDefaultFolder(olFolderInbox)

strfoldername = olFolder.Parent

Set olDraft = olNS.Folders(strfoldername).Folders("Drafts")

If olDraft.Items.Count <> 0 Then
    For i = olDraft.Items.Count To 1 Step -1
        olDraft.Items.Item(i).Send
    Next
End If

End Sub

以上代码工作正常.

题:

我想用它Task Scheduler来指定这个程序.
1.我将把程序放在Outlook,Module或ThisOutlookSession中？
2.我不擅长,vbscript所以我也不知道如何编写代码来调用Outlook程序.我已经完成了调用Excel Procedure但Outlook不支持 …

我需要将wmi vbscript编译为可执行文件（以自动在多台计算机中进行配置）。任何免费的vbscript编译器或任何其他建议？

我想要一个工具来整理VBScript代码.我正在寻找与Perl相同的工作,或者为C++和Java代码执行相同的工作.

我看了,但没有在这里或谷歌找到任何东西.开源软件将是首选.

有人能指点我吗？

我有一个VB脚本打开一个Excel文件并运行一个宏.我试图关闭此excel文件(不保存任何更改),而不提示保存.我已将'已保存'属性设置为true.但我仍然会在"保存"窗口中提示我.我读到某处我必须禁用宏.不确定怎么样？我想关闭excel文件而不保存和没有提示.

Dim objExcel, objWorkbook 

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("c:\aaa\Test.xls")
objExcel.Visible = True
objExcel.Run "Extract_PLStatements"
objworkbook.Saved = True
objWorkbook.Close

objExcel.Quit

Set objWorkbook = Nothing
Set objExcel = Nothing

WScript.Quit

我甚至不确定从哪里开始我的问题,我尝试了几百个东西并用谷歌搜索了几个小时但没有找到任何有用的东西.(我对每一个肮脏的把戏持开放态度.)

这是我的问题:

我有一个带有列表框的.hta文件,如下所示:

它列出了我的SAP Gui运行的所有会话/ modi.

        Set SapGuiAuto  = GetObject("SAPGUI")
        Set application = SapGuiAuto.GetScriptingEngine

        If application.Connections.Count > 0 Then
            Set connection  = application.Children(0)

            If connection.Sessions.Count > 0 Then
                Set session = connection.Children(0)
            End If
        End If


        If IsObject(WScript) Then
            WScript.ConnectObject session,     "on"
            WScript.ConnectObject application, "on"
        End If

Set optGroup = Document.createElement("OPTGROUP")
    optGroup.label = "Server"


    'count all connected servers 
    ConnectionCount = application.Connections.Count




        If ConnectionCount > 0 Then
            Sessionlist.appendChild(optGroup)

            Else 
            optGroup.label = "No connection here."


        End If
        'count …

有没有办法检查子或函数是否存在？

sub mySub()
 'some code
end sub

就像是 if exist(mySub)

我几天前开始玩VBScript了,有一个问题让我感到恼火.我试过测试简单的hello world程序:

Module Hello
  Sub Main()
      MsgBox("Hello, World!") ' Display message on computer screen.
  End Sub 
End Module

当我cscript "hello world.vbs"从cmd 运行它时.我收到一个错误: M:\hello world.vbs(6, 1) Microsoft VBScript compilation error: Expected statement

当我仅将代码更改为: MsgBox("Hello, World!") ' Display message on computer screen. 代码正常运行.有一条弹出消息,没有错误.我使用的是Win 7 SP1,Sublime text 3,我安装了.Net 4.5; 4.6.

我对.VBS有点小说,所以请不要苛刻.谢谢xD.

我有以下asp-classic代码,它将3个变量附加到XML文档中,'location_x','location_y'和'date_and_time'.

ASP-Classic代码 - 创建或附加现有XML文档.

Function LoadObjecttoXML(strXMLFilePath, strFileName)

    Dim objDom
    Dim objGpx
    Dim objWpt
    Dim objRte
    Dim objRtept
    Dim objDateTime
    Dim objattLat
    Dim objattLon
    Dim objPI
    Dim blnFileExists

    'Instantiate the Microsoft XMLDOM
    Set objDom = server.CreateObject("Microsoft.XMLDOM")
    objDom.preserveWhiteSpace = True

    blnFileExists = objDom.Load(strXMLFilePath & "\" & strFileName)

    If blnFileExists = True Then
        Set objGpx = objDom.documentElement
    Else
        'GPX root element and append it to the XML document.
        Set objGpx = objDom.createElement("gpx")
        objDom.appendChild objGpx                                   
    End If

    Set objWpt = objDom.createElement("wpt")

        'Create "Lat" attribute' …

我有一个连接到FoxPro数据库的VBS脚本.

Dim oCN : Set oCN = CreateObject("ADODB.CONNECTION")
oCN.Open sCS
Dim oRS : Set oRS = oCN.Execute("SELECT SN_ANALSYS, SN_CRLIM, SN_CURRBAL FROM " & WScript.Arguments(0) & "_SNAME.DBF WHERE SN_ANALSYS != '' ORDER BY SN_ANALSYS ASC")
Do Until oRS.EOF
   WScript.Echo oRS.Fields(0).value, "50", oRS.Fields(1).Value
   WScript.Echo oRS.Fields(0).value, "51", oRS.Fields(2).Value
   oRS.MoveNext
Loop
oCN.Close

我通过BAT运行它:

C:\query.vbs A > \\share\results.txt

的A是在查询中使用(WScript.Arguments(0)).但是我希望能够这样做:

C:\query.vbs A,D > \\share\results.txt

因此,它使用A和运行2个查询,D但结果是相同的results.txt.