Click here to Skip to main content
15,890,557 members
Articles / Programming Languages / Visual Basic

PSC: Basic Script

Rate me:
Please Sign up or sign in to vote.
5.00/5 (1 vote)
23 Mar 2013CPOL 9.9K   1   1
Still not sure what the final script will do but I have to detect how the script is started and act accordingly.

So the challenge was accepted! Follow it here! One of the conditions was that the script has to perform like a program or command line tool to be exact! But why go for one when you can go for both! Still not sure what the final script will do but I have to detect how the script is started and act accordingly.

I always use Option explicit, makes troubleshooting so much easier!

VB.NET
Option explicit

Check if the script is running from console or windows mode by checking the WScript.FullName string.

VB.NET
If InStr(1, WScript.FullName, "cscript", vbTextCompare) Then
    InitConsole
ElseIf InStr(1, WScript.FullName, "wscript", vbTextCompare) Then
    InitWindow
Else
	' Hope this never fires! 
    wscript.echo "How the hell did you start this script?"
End If

Sub for handling the command line version. Checks for command line arguments, if none, displays help.

VB.NET
Sub InitConsole()
	'Check if we have any parameters
	If Wscript.Arguments.Count = 0 then
		'Display help
		wscript.echo "You didn't supply any command line parameters... At least one parameter is required!"
	Else
		'Verify the parameters
		wscript.echo "You supplied " & Wscript.Arguments.Count & " arguments!"
	End If
End Sub

Sub for handling if the user double clicks the script...

VB.NET
Sub InitWindow()
	wscript.echo "You are running this by dubble click..."
End Sub

Stay tuned for the next version!

This article was originally posted at http://www.hackviking.com?p=284

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


Written By
Sweden Sweden
I develop in C# on .Net platforms like MVC. Like to use jQuery to build rich interfaces. I also blog about development and snags I got and the solutions I found for them.

I also a full time CIO at a Swedish energy company. When there is time I do some part time consulting on cloud issues.

Comments and Discussions

 
GeneralMy vote of 5 Pin
Ștefan-Mihai MOGA12-Apr-13 19:15
professionalȘtefan-Mihai MOGA12-Apr-13 19:15 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.