I’ve been working on a VS Code extension called VbsTools, and it’s now available on the VS Code Marketplace.

I built it because I still work with VBScript from time to time, especially COM/WSH automation, and I always felt that the editing experience was stuck in the past.

For example:

Set fso = CreateObject("Scripting.FileSystemObject")
fso.

Normally, once you get to fso., you either need to remember the API or go look it up.

VbsTools reads COM type information registered on Windows, so it can provide actual IntelliSense for COM objects, including members, parameters and return types.

It also tries to track returned COM objects, for example:

Set file = fso.GetFile("test.txt")
file.

In this case, it can infer that file is a File object and continue providing IntelliSense.

Current features include:

• COM / ProgID IntelliSense
• return-type inference for COM objects
• Go to Definition / References / Rename
• diagnostics and quick fixes
• formatting
• cross-file analysis
• semantic highlighting
• F5 debugging
• breakpoints and conditional breakpoints
• Variables / Watch / Call Stack
• Debug Console
• x86 / x64 COM environments
• WinCC V7 / V8 type support

One reason I made it as a VS Code extension instead of a standalone VBScript IDE is that I wanted to keep the rest of the VS Code ecosystem.

That means I can still use Git integration, terminal, search, themes, keybindings and other extensions, while working with .vbs files in the same editor.

There are mature standalone VBScript editors such as VbsEdit, but those are commercial tools. VbsTools is free.

GitHub: https://github.com/ZachShen99/VbsTools

You can also install it directly from the VS Code Marketplace by searching for VbsTools.

The project is still pretty new, so feedback would be really useful.

If anyone here still works with VBScript, WSH, COM automation or WinCC, I’d especially like to know what kinds of scripts and COM components you’re still using.

And if you have some obscure old COM object that completely breaks the type inference, I’d actually love to see it.

It's been so quiet, I thought I'd post a nice tidbit. This script can be used to create a FileOpen dialogue with no special requirements. Tested as late as Win11 22H2. https://pastebin.com/hwM1uDrz

It can also do a colorpicker dialogue with a bit more code.

can i post my own VBS script in this subreddit?

these vbscripts committed many crimes

click the spoilers to see their crimes

skibidi toilet: says skibidi toilet without stopping (SAPI tts

msg (1): looks like a message but it first says "hi" then says u cant close this infinitely (msgbox)

PLS NO OPEN (WARNING: CONTAINS A CURSE WORD): says ginger nigger without stopping (SAPI tts)

Hi! Does anyone have any tips or advice for using scripts to create workbenches? I am trying to create a weighted average workbench and the preloaded functions are not really giving me what I need. Any help on how to format/create calculation scripts would be really appreciated!

Thank you:)

We use Bartender 10.0 SR2 from Seagull Scientific to print our labels and since the 2025-08 cumulative update for Windows 11 24H2 we have been having issues with print station and labels that use VBscript. When we try to print a label we get the below error message:

One or more objects requires the use of Visual Basic scripting. You currently have installed a version of Visual Basic scripting earlier than version 2.0. BarTender requires Visual Basic scripting 2.0 or greater. Please run the BarTender setup program to install the correct verison of Visual Basic scripting.

Upon investigation the issue appears to be related to Microsoft updating the vbscript version from 5.812.10240.16384 to 10.0.26100.4768. I believe that Bartender is only looking at the first digit in the version and seeing 1 instead of 10 and therefore 1 is less than 2 and VBScript 2.0 or higher is required.

Does anyone know how Bartender validates the VBScript version and if there is a way to either get it to look at the first 2 digits or spoof it by getting it to look somewhere else where I can enter a random number higher than 2?

We are currently in the process of updating our MRP software from AX 2009 to D365 so cannot update Bartender until that process is finished first.

 Any assistance would be much appreciated.

I've been using a vbs script to skip ahead in itunes 30 seconds. It's named itunesskip.vbs

' Variables
dim iTunes, iSkip
iSkip = 30 ' seconds

' Connect to iTunes app
set iTunes = CreateObject("iTunes.Application")

' Jump ahead iSkip seconds
IF iTunes.playerstate = 1 THEN 
iTunes.PlayerPosition = iTunes.PlayerPosition + iSkip 
END IF

' Done; release object
set iTunes = nothing

I run an autokey script to with one of my Gkey keyboard keys to run it.

But it has been throwing an error message since I upgraded to Windows 11. https://imgur.com/a/PamuS8Q

I tried using AI to fix the problem and I couldn't get it to work.

Any help would be appreciated.

Hey VBScript enthusiasts! 👋

So I've been working on a compiler/transpiler project and wanted to tackle something that could actually be useful. You know what's the most frustrating thing about VBScript? Writing complex logic with that verbose syntax and limited features!

That's when I thought - what if we could write scripts in a clean, modern language and have it compile to VBScript? Enter Hulo!

What is Hulo? A modern, type safety programming language that transpiles to VBScript, making it much easier to write complex automation scripts for Windows.

Quick example:

Simple message box: hulo MsgBox "Hello, World!"

Functions with types: ```hulo fn sayHello(name: str) -> void { MsgBox "Hello, $name!" }

fn add(a: num, b: num) => $a + $b

sayHello "Hulo"; MsgBox add(5, 3); ```

Classes and objects: ```hulo class User { pub name: str pub age: num

pub fn greet(other: str) {
    MsgBox "Hello, $other! I'm $name."
}

}

let u = User("John", 25) $u.greet("Jane") ```

Control flow and user input: ```hulo let n = InputBox("Input a number:")

if $n < 0 { MsgBox("The number is negative.") } else { MsgBox("The number is positive.") } ```

Lists and loops: ```hulo let arr: list<num> = [1, 2, 3, 4, 5]

loop $item in $arr { MsgBox $item }

loop $i in [0, 1, 2] { MsgBox $i } ```

More examples available in the examples/ directory!

No more struggling with VBScript's verbose syntax or limited features - just write clean code and let Hulo handle the VBScript generation!

Would love to hear your thoughts on this approach. Is this something you'd find useful for your VBScript development? Any feedback or suggestions are welcome!

Check it out: https://github.com/hulo-lang/hulo

What do you think? 🤔

Could I be caught out using a VBScript to keep my Microsoft teams active? Could this be identified by my company’s IT department ?

Hi,

I'm trying to get an understanding on how to calculate window position using X,Y coordinates to set the position of a window without having to "guess" and trial and error.

I thought at first that the values went off of pixels, but that is clearly not the case.
Putting X,Y as : 0,0 puts the window in the top left of my primary monitor.
With a screen Res of 2560x1440, and using an X,Y value of 0,2560: the window barely moves left of the 0,0 position.

Using 0,1000: the position is less the 3/4 of an inch or about 16mm.

is there an actual unit of measure that the X,Y grid utilizes to easily calculate the position that I want?

I've seen a yt vid about a Ethical hacker that WAS a Blackhat. He created a script that would automatically run only by plugging in his usb-stick just like that a programm would start that saves ALL keyboard input in nd txt file. I want to use this in a Hackers VS. Ethical Hackers competition my friend dragged me in sadly i have no idea how can someone maybe help me?

And another question CAN you even make this with vbs? Or does it have to be a dll or something if so thanks for telling me i will ask in another subreddit THANK YALL!

Hi I'm new in doing vbs. I'm doing crud vbs mostly I save the file somewhere but I feel someone can edit the script or do some manipulation. How can I protect my vbs, what are the best practices to protect it. I tried to use exescript but windows antivirus is blocking it. Could someone share some ideas please. Thanks

I have an .exe which was generated by the VbsEdit Editor. Is there a way to decompile it or view the VBS source code?

so i'm trying to have vba macro run on a schedule evryday, and to do so i have a batch file to open the excel and create a flagfile, and a vbs file to run everything in the background
everything works well when i manually start the vbs file, but when i create a task to automate it, it runs the task successfully but doesn't open the excel file nor run the macro

the files are on a work server, to wich i have full permissions and access, the excell file is open to everyone edit, ive run the code on the server itself and it works, but when i copy it to my pc it ceasses to work
i have all the paths correct, i amusing the correct file to open the vbs file and all that, but it simply does nothing, and it doesn't even give me an error

here's the codes, it might help

.bat file:

:: Set flag file path

set FLAG_FILE="\\srvfs01\1. Servidor Gypfor\50 SGQ\07.03 Processo Produtivo\2-Documentos\Doc 07.03-07 Lista de Recursos do Laboratorio e Producao\flagfile.txt"

:: Create the flag file

echo FLAG > %FLAG_FILE%

:: Wait for Excel to finish (optional delay if required)

timeout /t 10 /nobreak

:: Close Excel after the delay (force close all Excel instances)

taskkill /f /im excel.exe

:: Delete the flag file after completing the task

del %FLAG_FILE%

.vbs file:

Set WshShell = CreateObject("WScript.Shell")

WshShell.Run """\\srvfs01\1. Servidor Gypfor\50 SGQ\07.03 Processo Produtivo\2-Documentos\Doc 07.03-07 Lista de Recursos do Laboratorio e Producao\recursos_run.bat""", 0, False

Dim objExcel

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = False

objExcel.Workbooks.Open "\\srvfs01\1. Servidor Gypfor\50 SGQ\07.03 Processo Produtivo\2-Documentos\Doc 07.03-07 Lista de Recursos do Laboratorio e Producao\Doc 07.03-07 Lista de Recursos do Laboratorio e Producao automatico.xlsm"

please help, this is a work project and im in the final steps to deliver it

I used wkhtmltopdf into my vbs. It has two images in my webpage..but when It get printed to pdf the image isn't showing. Does anyone here has the same issue before and solved it? Or is there anything you can recommend to convert my webpage to pdf. Thanks a lot

Hello!

I found the following VBS script on the Internet:

if wsh.arguments.count < 2 then
        WScript.echo "Not enough arguments. Required syntax:"
        wscript.echo CHR(13) + CHR(10)
        wscript.echo "wordmark <filename> <bookmark>"
Else
        on error resume next
        Set wordapp = GetObject(,"Word.Application")
        if err <> 0 then
                err.clear
                on error resume next
                set wordapp = createObject("Word.Application")
        end if
        if err <> 0 then
                wscript.echo "failed to acquire Word COM server object"
        Else
                on error resume next
                set newdoc = wordapp.Documents.Open(wsh.arguments(0))
                if err <> 0 then
                        wscript.echo "Failed to open word document, " + wsh.arguments(0)
                        wordapp.quit
                else
                        wordapp.Visible=true
                        newdoc.Bookmarks.Item(wsh.arguments(1)).select
                end if
 
        end if
        'wordapp.quit
        set wordapp=nothing
end if

I created a file 123.vbs, pasted this script into it and edited line #4, adding the path to my document and the bookmark name.

This script is supposed to open a Word document and then automatically go to the bookmark it contains and select it. But, unfortunately, I couldn't get it to work: all sorts of errors pop up.

Since I'm a complete noob in this matter, but I need such a script, could someone tell me where the error is in this script?

Suppose my document is called "D:\Folder\File.docx", and the bookmark is called "qwer". What should this script look like then, so that it works?

Thank you in advance!

Solved!

I need to improve Vbscript code logics,can I get any support here

He intentado usar el vbs:

MSG * /server:192.168.0.1 "buenos días"

Pero solo lo he conseguido para un equipo, no sé si se pueda para varios equipos

i found a stack overflow but i didnt understand what they menat becuse it was weird and i dont know how to use it can someone help? heres the code i didnt understand:

Dim content: content = "hello"
Dim oHttp: Set oHTTP = CreateObject("Microsoft.XMLHTTP")
oHTTP.Open "POST", "(my webhook here)", False
oHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
oHTTP.SetRequestHeader "Content-Length", Len(content)
'Pass value as a form key value pair string.
oHTTP.Send "content=" & content
Dim response: response = oHTTP.ResponseText
Call MsgBox(response)

  I do not work with or know VB script at all, although I do work with Crystal Reports extensively and a bit with SQL. I am working in Bartender and trying to create a simple VB Script field, working with two database fields which are both Strings.

I want to accomplish the following:

If DBField1 equals this specific value: “.” OR IsNull then I want it to report DBField2, otherwise report DBField1

So in Crystal the formula would simply be:

If {DBfield1} = “.” Then {DBfield2} Else {DBfield1}

Can anyone help me with what the script should be in VB?

TIA!!

I've been using a VBScript file to open Explorer with two "default" tabs as I've found no other way to do so on Windows 11. However, within this last week, the script no longer does anything other than open Explorer.

Set oShell = CreateObject("WScript.Shell")

oShell.Run("""C:\windows\explorer.exe""")

WScript.Sleep 1000

oShell.AppActivate "Explorer"

WScript.Sleep 300

oShell.SendKeys "%d"

WScript.Sleep 300

oShell.SendKeys FILE PATH

WScript.Sleep 300

oShell.SendKeys "{ENTER}"

WScript.Sleep 300

oShell.SendKeys "^t"

WScript.Sleep 300

oShell.SendKeys "^{TAB}"

It seemingly refuses to execute the "%d" line anymore. However, I can manually open Explorer and hit Alt-d and it works just fine. Why does the SendKeys no longer work with the % or ^ characters?

I found that Microsoft is deprecating VBS on Windows 11 this year and figured that this might be the problem I'm running into. I have no idea what I would have done to break the script if it wasn't a Window update that did so.

How can I fix the above code, or my Windows 11 machine, to work again? Or, what would be a good alternative way to do this without using VBS?

So I have a VBscript that opens a .msg file on my desktop which is basically a template email and sends it off once a fortnight. Sometimes this works, sometimes it doesn’t.. with the main failure point being a warning message when opening the file about updating the excel links.

It’s a simple yes no dialog box and I’ve tried sending the Y key, the Enter Key, pretty much every combination and it’ll only work maybe 50% of the time.

It seems to lose itself on this dialog box, any way to make this more robust?

Important notes are that I cannot disable the message as it’s a company system and they’ve locked down trust centre.

so im making a vbs msgbox :

I=MsgBox("Windows has found a virus, would you like to repair your computer?",4+48,"Security Alert")

I=MsgBox("Repairing...",0+64,"Windows Security")

I=MsgBox("Unable to repair",0+16,"Windows Security")

I=MsgBox("Warning Virabot is copying important system information: passwords, email, etc.",0+48,"Warning")

I=MsgBox("Virabot has copied your passwords, email, etc.",0+48,"Warning")

I=MsgBox("Computer must restart",1+48,"Warning")

Dim objShell

Set objShell = WScript.CreateObject("WScript.Shell")

objShell.Run "C:\WINDOWS\system32\shutdown.exe -r -t 0"

and I want it to close when I click no/cancel what do I do?

ps Im VERY new to this