GNU openVBS – VBScript,Reborn

# Clone the repository
git clone https://github.com/yourusername/openvbs.git
cd openvbs

# Install dependencies (optional)
pip install colorama  # For enhanced CLI colors

from openvbs import *

# Clear any previous script
clear_vbs()

# Create variables
define_variable("username", "John Doe")
define_variable("age", 25)

# Show a message
message_prompt(f"Hello {username}!", title="Welcome")

# Create a simple loop
for_loop("i", 1, 5, 1, 'WScript.Echo "Count: " & i')

# Execute the generated VBScript
execute_vbs()

from openvbs import *

clear_vbs()

# Create a log file
create_file("system.log", "System started at: ")
write_file("system.log", current_datetime(), append=True)

# Read system information
get_system_info()

# Organize files by extension
template_file_organizer()

execute_vbs()

from openvbs import *

clear_vbs()

# Read from registry
registry_read("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "ProductName")

# Get environment variables
define_variable("user_profile", "")
user_profile = get_env_var("USERPROFILE")

# Run a system command
shell_execute("notepad.exe", wait_on_return=False)

execute_vbs()

define_variable("name", "value")        # Create a variable
const_variable("PI", 3.14159)          # Create a constant
define_array("numbers", [1, 2, 3, 4])  # Create an array

# Conditional statements
if_else("x > 10", "WScript.Echo 'Large'", "WScript.Echo 'Small'")

# Loops
for_loop("i", 1, 10, 1, "WScript.Echo i")
do_while("x < 100", "x = x + 1")

# Select case
select_case("userChoice", {
    1: "WScript.Echo 'Option 1'",
    2: "WScript.Echo 'Option 2'",
    "default": "WScript.Echo 'Invalid choice'"
})

file_system_object()                    # Initialize file system
create_file("data.txt", "Hello World")  # Create file with content
read_file("data.txt")                   # Read file content
write_file("log.txt", "Entry", True)    # Write/append to file
delete_file("temp.txt")                 # Delete file
folder_exists("C:\MyFolder")           # Check folder existence

# Registry operations
registry_read("HKCU\Software\MyApp", "Setting1")
registry_write("HKCU\Software\MyApp", "Setting1", "NewValue")

# Environment variables
get_env_var("USERNAME")
set_env_var("MY_VAR", "MyValue")

# Shell commands
shell_execute("dir", window_style=1, wait_on_return=True)
run_program("C:\Program Files\MyApp\app.exe", "/silent")

# HTTP requests
http_get("https://api.example.com/data")
http_post("https://api.example.com/submit", "data=value")
download_file("https://example.com/file.zip", "C:\Downloads\file.zip")

# Email
send_email("user@example.com", "Subject", "Message body", "smtp.server.com")

# Export current script as a module
export("my_utilities.vbs")

# Import a module into current script
get("my_utilities.vbs")

# Clear all saved modules
clear_modules()

# Save settings
set_setting("default_path", "C:\MyApp")
set_setting("auto_backup", True)

# Load settings
path = get_setting("default_path", "C:\Default")
backup_enabled = get_setting("auto_backup", False)

# Debug output
debug_print("Variable x = " + str(x))

# Log to file
log_to_file("Process started", "app.log")

# Performance timing
start_timer("processing")
# ... your code here ...
end_timer("processing")

# Assertions
assert_condition("x > 0", "X must be positive")

# Try-catch style error handling
error_handling(
    try_block="risky_operation()",
    catch_block="WScript.Echo 'Operation failed: ' & Err.Description"
)

# Traditional VBS error handling
on_error_resume_next()
# ... code that might fail ...
on_error_goto_zero()

openvbs/
├── openvbs/
│   ├── __init__.py          # Main imports and exports
│   ├── main.py              # Core functions and language features
│   ├── runner.py            # VBScript execution engine
├── files/
│   ├── windows/
│   │   └── output.vbs       # Generated VBScript output
│   ├── compiled_output/     # Packaged executables
│   ├── modules/             # Saved script modules
├── src/
│   └── examples/            # Example scripts
├── tests/                   # Unit tests
└── LICENSE                  # License file

pip install colorama  # Enhanced terminal colors

# Clone your fork
git clone https://github.com/yourusername/openvbs.git
cd openvbs

# Create virtual environment
python -m venv venv
source venv/bin/activate  # On Windows: venvScriptsactivate

# Install development dependencies
pip install -r requirements-dev.txt

# Run tests
python -m pytest tests/

from openvbs import *

clear_vbs()
comment("System Information Gatherer")

# Get computer name
get_env_var("COMPUTERNAME")
define_variable("computer_name", get_env_var("COMPUTERNAME"))

# Get OS information
get_os_info()

# Get system specs
get_system_info()

# Save to file
write_file("system_info.txt", "System Report Generated: ")
write_file("system_info.txt", current_datetime(), append=True)

execute_vbs()

from openvbs import *

clear_vbs()
comment("Automated Backup Script")

# Define source and destination
define_variable("source_folder", "C:\Important Files")
define_variable("backup_folder", "D:\Backups")

# Create backup folder with timestamp
define_variable("timestamp", "")
current_datetime()
# Format: YYYY-MM-DD_HH-MM-SS
string_replace(current_datetime(), "/", "-")
string_replace(current_datetime(), ":", "-")
string_replace(current_datetime(), " ", "_")

# Copy files
shell_execute('xcopy "' + source_folder + '" "' + backup_folder + '\Backup_' + timestamp + '\" /E /I /Y')

message_prompt("Backup completed successfully!", title="Backup Status")

execute_vbs()

from openvbs import *

clear_vbs()
comment("Network Connectivity Monitor")

# Test multiple servers
servers = ["google.com", "github.com", "stackoverflow.com"]

for server in servers:
    define_variable(f"result_{server.replace('.', '_')}", "")
    shell_execute(f'ping -n 1 {server} > nul')

    if_else(
        "Err.Number = 0",
        f'WScript.Echo "{server}: Online"',
        f'WScript.Echo "{server}: Offline"'
    )

# Log results
log_to_file("Network check completed", "network_monitor.log")

execute_vbs()