What is the command or the quickest way to output results to console using vbscript?

vbscript output to console

I have a framework written in VBScript. Inside some function in this framework parameter of the function is checked for Nothing in If statement and then some actions executed.
Code that uses framework written in Javascript. So I need to pass Nothing to function to perform some actions. In IE8 and earlier versions worked next approach:

	&lt;script type=&quot;text/vbscript&quot;&gt;
		Function Test(val)
			If (IsNull(val)) Then
				Test = &quot;Null&quot;
			ElseIf (IsObject(val)) Then
				If (val Is Nothing) Then
					Test = &quot;Nothing&quot;
				End If
			End If
		End Function

		Dim jsNothing
		Set jsNothing = Nothing
		msgBox(Test(jsNothing))
		msgBox(Test(Null))
	&lt;/script&gt;

	
	&lt;script type=&quot;text/javascript&quot;&gt;
		alert(Test(jsNothing));
	&lt;/script&gt;

In IE &lt; 9 output will: Nothing, Null, Nothing.

In IE9: Nothing, Null, Null.

How can I pass Nothing from Javascript to VBScript in IE9?

Sorry, I know it&#39;s ugly, but I&#39;m trapped. And hate VBScript.

**edit:**
There is an example of framework function. I can not change it because it is widely used in application.

	Function ExampleFunction(val)
		If (val Is Nothing) Then
			ExampleFunction = 1
		Else
			ExampleFunction = 0
		End If
	End Function

---

**Update**

Quit job. Found a better one.

Pass Nothing from Javascript to VBScript in IE9

I want to use VBScript to catch errors and log them (ie on error &quot;log something&quot;) then resume the next line of the script.

For example,
&lt;pre&gt;
On Error Resume Next
&#39;Do Step 1
&#39;Do Step 2
&#39;Do Step 3
&lt;/pre&gt;

When an error occurs on step 1, I want it to log that error (or perform other custom functions with it) then resume at step 2. Is this possible? and how can I implement it?

EDIT: Can I do something like this?
&lt;pre&gt;
On Error Resume myErrCatch
&#39;Do step 1
&#39;Do step 2
&#39;Do step 3

myErrCatch:
&#39;log error
Resume Next
&lt;/pre&gt;

VBScript -- Using error handling

I have this script saved in &quot;test.vbs&quot;:

&lt;pre&gt;&lt;code&gt;Set FSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
Set File = FSO.OpenTextFile(workFolder &amp;&quot;\test.txt&quot;, 2, True)
File.Write &quot;testing&quot;
File.Close
Set File = Nothing
Set FSO = Nothing
Set workFolder = Nothing&lt;/code&gt;&lt;/pre&gt;

When I run the script I want to pass the value of the &quot;workFolder&quot; variable.

How can I do this? Can I do it? Something like &quot;cscript test.vbs workFolder:&#39;C:\temp\&#39;&quot; perhaps?

Bonus question: Is it neccessary to clean up the passed variable with &quot;Set workFolder = Nothing&quot; or does VBSCript do that automatically when it terminates? Maybe &quot;Set File = Nothing&quot; and &quot;Set FSO = Nothing&quot; is unneccessary also? Please let me know if you know the answer to both these questions.

Can I pass an argument to a VBScript (vbs file launched with cscript)?

How can I pass and access command line arguments in VBscript?

Using command line arguments in VBscript

I&#39;ve been able to find a zillion libraries for **generating** JSON in Classic ASP (VBScript) but I haven&#39;t been to find ANY for **parsing**.

I want something that I can pass a JSON string and get back a VBScript object of some sort (Array, Scripting.Dictionary, etc)

### Can anyone recommend a library for parsing JSON in Classic ASP?

Any good libraries for parsing JSON in Classic ASP?

I always read that it is recommended to set objects to nothing, once I am done with them. But I normally use them only in functions inside forms.

Isn&#39;t the reference lost and memory released when the function scope is left, regardless of setting objects to Nothing? 

i.e. is it really necessary to do:

    Set db = Nothing
    Set record_set = Nothing


Is there a need to set Objects to Nothing

I need a regular expression that I can use in VBScript and .NET that will return only the numbers that are found in a string. 

For Example any of the following &quot;strings&quot; should return only **1231231234**

- 123 123 1234
- (123) 123-1234
- 123-123-1234
- (123)123-1234
- 123.123.1234
- 123  123 1234
- 1 2 3 1 2 3 1 2 3 4

This will be used in an email parser to find telephone numbers that customers may provide in the email and do a database search.

I may have missed a similar regex but I did search on regexlib.com.

[EDIT] - Added code generated by [RegexBuddy][1] after setting up musicfreak&#39;s answer

**VBScript Code**

    Dim myRegExp, ResultString
    Set myRegExp = New RegExp
    myRegExp.Global = True
    myRegExp.Pattern = &quot;[^\d]&quot;
    ResultString = myRegExp.Replace(SubjectString, &quot;&quot;)

**VB.NET**

    Dim ResultString As String
    Try
          Dim RegexObj As New Regex(&quot;[^\d]&quot;)
          ResultString = RegexObj.Replace(SubjectString, &quot;&quot;)
    Catch ex As ArgumentException
          &#39;Syntax error in the regular expression
    End Try

**C#**

    string resultString = null;
    try {
    	Regex regexObj = new Regex(@&quot;[^\d]&quot;);
    	resultString = regexObj.Replace(subjectString, &quot;&quot;);
    } catch (ArgumentException ex) {
    	// Syntax error in the regular expression
    }


  [1]: http://www.regexbuddy.com/

return only Digits 0-9 from a String

I&#39;m writing a Windows batch file and want to copy something to the desktop. I think I can use this:

&gt; %UserProfile%\Desktop\  

However, I&#39;m thinking, that&#39;s probably only going to work on an English OS. Is there a way I can do this in a batch file that will work on any internationalized version?

**UPDATE**

I tried the following batch file:

    REG QUERY &quot;HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders&quot; /v Desktop
    FOR /F &quot;usebackq tokens=3 skip=4&quot; %%i in (`REG QUERY &quot;HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders&quot; /v Desktop`) DO SET DESKTOPDIR=%%i
    FOR /F &quot;usebackq delims=&quot; %%i in (`ECHO %DESKTOPDIR%`) DO SET DESKTOPDIR=%%i
    ECHO %DESKTOPDIR%

And got this output:

&lt;pre&gt;
S:\&gt;REG QUERY &quot;HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders&quot; /v Desktop

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders
    Desktop    REG_EXPAND_SZ    %USERPROFILE%\Desktop


S:\&gt;FOR /F &quot;usebackq tokens=3 skip=4&quot; %i in (`REG QUERY &quot;HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folder
s&quot; /v Desktop`) DO SET DESKTOPDIR=%i

S:\&gt;FOR /F &quot;usebackq delims=&quot; %i in (`ECHO ECHO is on.`) DO SET DESKTOPDIR=%i

S:\&gt;SET DESKTOPDIR=ECHO is on.

S:\&gt;ECHO ECHO is on.
ECHO is on.
&lt;/pre&gt;

What&#39;s the environment variable for the path to the desktop?

I came to some VBScript examples, and I saw the statement `On Error Resume Next` basically at the beginning of the script.

What does it do?

What does the &quot;On Error Resume Next&quot; statement do?

I would like to code a function to which you can pass a file path, for example:

    C:\FOLDER\SUBFOLDER\FILE.TXT

and it would open Windows Explorer with the folder containing the file and then select this file inside the folder. (Similar to the &quot;Show In Folder&quot; concept used in many programs.)

How can I do this?

How to open Explorer with a specific file selected?

Is the ZIP compression that is built into Windows XP/Vista/2003/2008 able to be scripted at all? What executable would I have to call from a BAT/CMD file? or is it possible to do it with VBScript?

I realize that this is possible using [WinZip][1], [7-Zip][2] and other external applications, but I&#39;m looking for something that requires no external applications to be installed.

  [1]: http://en.wikipedia.org/wiki/WinZip
  [2]: http://en.wikipedia.org/wiki/7-Zip


Can Windows&#39; built-in ZIP compression be scripted?

I have this code:

    a = &quot;xyz&quot;  
    g = &quot;abcd &quot; &amp; a  

After running it, the value of `g` is `abcd xyz`.

However, I want quotes around the value of `a` in `g`. After running the code, `g` should be `abcd &quot;xyz&quot;` instead.

How can I accomplish this?

Adding quotes to a string in VBScript

How to set delay in vbscript?

`WScript.Sleep(100)` does not work on Windows XP, Vista.


How to set delay in vbscript

I have a text file that ends with .vbs that I have written the following in:

    Set Conn = CreateObject(&quot;ADODB.Connection&quot;)
    Conn.Provider = &quot;Microsoft.ACE.OLEDB.12.0&quot;
    Conn.Properties(&quot;Data Source&quot;) = &quot;C:\dummy.accdb&quot;
    Conn.Properties(&quot;Jet OLEDB:Database Password&quot;) = &quot;pass&quot;
    Conn.Open
    Conn.Close
    Set Conn = Nothing

- When I execute this on a Windows 32-bit machine it runs and ends without any notion (expected). 
- When I execute this on a Windows 64-bit machine it gets the error 
  &gt; Provider cannot be found. It may not be properly installed.

But it is installed. I think the root of the problem is that the provider is a 32-bit provider, as far as I know it doesn&#39;t exist as 64-bit.

If I run the VBScript through IIS on my 64-bit machine (as a ASP file) I can select that it should run in 32-bit mode. It can then find the provider.

How can I make it find the provider on Windows 64-bit? Can I tell CScript (which executes the .vbs text file) to run in 32-bit mode somehow?

How do I run a VBScript in 32-bit mode on a 64-bit machine?

How do I get the type of a variable using VBScript?

Get the type of a variable in VBScript

I&#39;m trying to get the current directory and use it to run an application no matter where the file is put and no matter how the path is changed

    Dim fso: set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
    Dim CurrentDirectory
    CurrentDirectory = fso.GetAbsolutePathName(&quot;.&quot;)
    Dim Directory
    Directory = CurrentDirectory\attribute.exe

    Set WinScriptHost = CreateObject(&quot;WScript.Shell&quot;)
    WinScriptHost.Run Chr(34) &amp; &quot;Directory&quot; &amp; Chr(34), 0
    Set WinScriptHost = Nothing

How do I actually set up this code so it does what I want it to do correctly?


Getting current directory in VBScript

Is there a `substring()` function in VBScript similar to Java&#39;s `string.substring()`?

Does VBScript have a substring() function?

Is it possible to create a file and write lines to it in vbscript?

Something similar to **echo in bat** file (`echo something something &gt;&gt;sometextfile.txt`).

On execution of the vbscript depending on the path of the script would create an autorun.inf file to execute a particular program (**\smartdriverbackup\sdb.exe**).

Also how can I strip/remove the drive letter from the complete file path?

Creating and writing lines to a file

A colleague and I were trying to figure out a way of doing the equivalent of a &quot;continue&quot; statement within a VBScript &quot;For/Next&quot; loop.

Everywhere we looked we found people had no way to do this in VBScript without having nasty nestings, which is not an option for us since it is a quite big loop.

We came out with this idea. Would it work just as a &quot;continue(to next iteration)&quot;? Does anyone have any better workaround or improvement suggestion?

    For i=1 to N
      For workaroundloop = 1 to 1
        [Code]
        If Condition1 Then
          Exit For
        End If
      
        [MoreCode]
        If Condition2 Then
          Exit For
        End If
      
        [MoreCode]
        If Condition2 Then
          Exit For
        End If
      
        [...]
    
      Next
    Next

Thanks for your comments

&quot;Continue&quot; (to next iteration) on VBScript

Is it possible to create rules in Outlook 2007 based on a regex string? 

I&#39;m trying to add a filter for messages containing a string such as: `4000-10`, a four digit number followed by a dash and then a two digit number, which can be anything from `0000-00` to `9999-99`. 

I was using this as a regex: `\b[0-9]{4}\-[0-9]{2}\b` but the filter isn&#39;t working. I&#39;ve tried a few other modifications as well with no luck. I wasn&#39;t able to find anything concrete online about whether Outlook even supports entering regexes into a rule, though, so I figured I would ask here in case I&#39;m wasting my time.

EDIT: Thanks to Chris&#39;s comment below, I was able to implement this filter via a macro. I thought I would share my code below in case it is able to help anyone else:

    Sub JobNumberFilter(Message As Outlook.MailItem)
        Dim MatchesSubject, MatchesBody
        Dim RegEx As New RegExp
        
        &#39;e.g. 1000-10&#39;
        RegEx.Pattern = &quot;([0-9]{4}-[0-9]{2})&quot;
        
        &#39;Check for pattern in subject and body&#39;
        If (RegEx.Test(Message.Subject) Or RegEx.Test(Message.Body)) Then
            Set MatchesSubject = RegEx.Execute(Message.Subject)
            Set MatchesBody = RegEx.Execute(Message.Body)
            If Not (MatchesSubject Is Nothing And MatchesBody Is Nothing) Then
                &#39;Assign &quot;Job Number&quot; category&#39;
                Message.Categories = &quot;Job Number&quot;
                Message.Save
            End If
        End If
    End Sub

All Vbscript Solutions on Gang of Coders

Total of 21 Vbscript Solutions