Skip to content

Instantly share code, notes, and snippets.

@KEINOS

KEINOS/1.VBS samples for Wine@Wineskin.md

Last active December 7, 2016 01:19
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save KEINOS/39e3a6ea6e05b81b0c355f23ea751a92 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save KEINOS/39e3a6ea6e05b81b0c355f23ea751a92 to your computer and use it in GitHub Desktop.
Download ZIP
List of VBScript samples for WSH that worked in Wine @ Wineskin Winery
Raw
1.VBS samples for Wine@Wineskin.md

List

WSH Scripts below worked with Wine @ Wineskin winery.

  • Echo.vbs
  • Open_notepad.vbs
  • ReadFileAndConvertStrToUppercase.vbs

Reference

Raw
Echo.vbs
'Simple message dialog pops up in wine
WScript.Echo "hello world."
Raw
Open_notepad.vbs
'Opens notepad app after the dialog is closed
Set objShell = WScript.CreateObject("WScript.Shell")
WScript.Echo "Notepad.exe will lounch."
objShell.Run "notepad.exe"
Raw
ReadFileAndConvertStrToUppercase.vbs
'Sample VBS file that converts text to uppercase letters
'in lowercase.txt and export to uppercase.txt.
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set objInput = objFSO.OpenTextFile("lowercase.txt", ForReading)
Set objOutput = objFSO.OpenTextFile("uppercase.txt", ForWriting, True)
Do Until objInput.AtEndOfStream
strLine = objInput.ReadLine
objOutput.WriteLine UCase(strLine)
Loop
objInput.Close
objOutput.Close
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment