Scribd
Upload
1K views3 pages

VBScript REF

This document provides a quick reference for various VBScript elements including: 1. Sections for displaying output, handling errors, declaring variables, connecting to WMI and LDAP, reading/writing files, creating dictionaries, and working with arrays. 2. Code samples for common conditional statements, loops, and functions/subroutines. 3. A link to Microsoft's Windows 2000 Scripting Guide for more in-depth scripting information.

Uploaded by

Scott Sweeney
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
1K views3 pages

VBScript REF

This document provides a quick reference for various VBScript elements including: 1. Sections for displaying output, handling errors, declaring variables, connecting to WMI and LDAP, reading/writing files, creating dictionaries, and working with arrays. 2. Code samples for common conditional statements, loops, and functions/subroutines. 3. A link to Microsoft's Windows 2000 Scripting Guide for more in-depth scripting information.

Uploaded by

Scott Sweeney
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 3

VBScript Quick Reference VBScript Quick Reference

IGNORE RUNTIME ERRORS FORCE VARIABLE DECLARATION


DISPLAY TO STANDARD OUTPUT HTA SECTION
<head> On Error Resume Next Option Explicit
Wscript.Echo “Display this text” <title>HTA Test</title>
<HTA:APPLICATION
APPLICATIONNAME="HTA Test" CHECK FOR AN ERROR CLEAR THE ERROR CACHE
DISPLAY TO MESSAGE BOX SCROLL="yes" SINGLEINSTANCE="yes" If Err.Number Then Err.Clear
WINDOWSTATE="maximize" >
MsgBox(“Prompt”, vbOKCancel, “Title”) ‘ an error occurred (execute this statement each
</head>
End If time you check the Err object)

DISPLAY TO POPUP DIALOG BOX


SCRIPT SECTION
WshShell.Popup(“Message”, 5, “Title”, 1) <script language="VBScript“>
5: number of seconds to display popup box Sub window_OnLoad COMPUTER VARIABLE (local computer)
1: displays the OK and Cancel buttons ' Script to run on startup
strComputer = “.”
End Sub
Sub TestSub
' Script code goes here
CONNECT TO WMI
End Sub
</script> Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

HTML SECTION
QUERY: RETRIEVE ALL PROCESSES
<body> <input type="button"
value="Run Script" Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process")
name="run_button" ")
onClick="TestSub">
</body> QUERY: RETRIEVE ALL SERVICES
OPEN TEXT FILE FOR READING

Const ForReading = 1 Set colServiceList = objWMIService.ExecQuery("Select * from Win32_Service")

Set objFSO = CreateObject _


("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _ COMPUTER VARIABLE (local computer)
("c:\scripts\servers.txt", ForReading) strComputer = “localhost”

CREATE DICTONARY OBJECT RETRIEVE AN OU


OPEN TEXT FILE FOR WRITING Set objDictionary = _ Set objOU = GetObject("LDAP://ou=finance,dc=fabrikam,dc=com")
Const ForWriting = 2 CreateObject("Scripting.Dictionary")
RETRIEVE A USER ACCOUNT
Set objFSO = CreateObject _
("Scripting.FileSystemObject") Set objUser = GetObject("LDAP://cn=ken myer, ou=Finance, dc=fabrikam, dc=com")
POPULATE DICTIONARY OBJECT
Set objTextFile = objFSO.OpenTextFile _
("c:\scripts\servers.txt", ForWriting) objDictionary.Add key, item BIND TO THE LOCAL COMPUTER
Set colAccounts = GetObject("WinNT://" & strComputer)
VBScript Quick Reference VBScript Quick Reference

LOOPS
For Loops Do Loops

For Each x in arr Do Until x > 5


On Error Resume Next CONDITIONAL STATEMENTS ... ...
If Then Select Case Next Loop
Const ADS_SCOPE_ONELEVEL = 1

Set objConnection = CreateObject("ADODB.Connection") If x = 4 Then Select Case x For i = 1 to 10 Do While x < 5


Set objCommand = CreateObject("ADODB.Command") … Case 1 ... ...
objConnection.Provider = "ADsDSOObject" ElseIf x = 5 ... Next Loop
objConnection.Open "Active Directory Provider"
Then Case 2
Set objCommand.ActiveConnection = objConnection Do
… ...
Else Case Else While Loops ...
objCommand.Properties("Page Size") = 1000
... … Loop Until x > 5
objCommand.Properties("Searchscope") = ADS_SCOPE_ONELEVEL
End If End Select While x < 5
objCommand.CommandText = _ … Do
"SELECT Name FROM 'LDAP://OU=finance,dc=fabrikam,dc=com'“ Wend ...
Set objRecordSet = objCommand.Execute Learn more about scripting Loop While x < 5
from the Microsoft
Windows 2000 Scripting ARRAYS
Guide, available online
(and yes, despite the title arrItems =
most of the concepts apply Array("a","b","c") FUNCTIONS AND SUBROUTINES
to later versions of Function Subroutine
Windows too): Dim arr(2)
arr(0) = 20
Function TestFunc Sub TestSub
http://www.microsoft.com arr(1) = 30
… …
/technet/scriptcenter/guide TestFunc = 10 End Sub
EXCEL ReDim Preserve arr(3)
End Function
Set objExcel = CreateObject("Excel.Application") arr(2) = 40
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add

WORD
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Open("c:\scripts\test.doc")

SEND OUTPUT TO COMMAND WINDOW SET DEFAULT TO CSCRIPT


ACCESS
Set objAccess = CreateObject("Access.Application") C:\> cscript test.vbs C:\> cscript //H:cscript
objAccess.OpenCurrentDatabase "C:\Scripts\Test.mdb"

OUTLOOK SEND OUTPUT TO MESSAGE BOX SET DEFAULT TO WSCRIPT


Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
C:\> wscript test.vbs C:\> cscript //H:wscript
Filename: B3FE7EC.doc
Directory: C:\Documents and Settings\Scott Sweeney\Local Settings\Temporary
Internet Files\Content.MSO
Template: C:\Documents and Settings\Scott Sweeney\Application
Data\Microsoft\Templates\Normal.dot
Title:
Subject:
Author: Greg Stemp
Keywords:
Comments:
Creation Date: 5/30/2007 8:03:00 PM
Change Number: 27
Last Saved On: 5/31/2007 10:12:00 AM
Last Saved By: Greg Stemp
Total Editing Time: 178 Minutes
Last Printed On: 1/22/2008 9:43:00 PM
As of Last Complete Printing
Number of Pages: 2
Number of Words: 18 (approx.)
Number of Characters: 107 (approx.)

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy