Jan 17

VBScripts – Generic Templates for download

Hello Readers,

I’ve added a download section where I will provide templates for Generic Scripts that you can modify and use.
No Credit needed simply enjoy.
Hit the Download section on the top.

Have fun with this one 🙂

Set wshShell = wscript.CreateObject("WScript.Shell")
wscript.sleep 100
CreateObject("SAPI.SpVoice").Speak "You don't need to see my identification... Join the Droid... " 
Posted in Scripting | Tagged , , , | Leave a comment
Jan 10

Android Development – how to start? Start Here now

Android Dev

So i’m going to share the next two three months of my journey….
Currently I work as a Project Manager for a software company and from time to time I do some development for my customers (Automation Scripts, Visual Basic and C#) but I really like it for fun…
Now what would be more fun than making a few $$$ (or as some would say “Coin” here in our southern area)

So? what am I talking about and what am I going to share and show? and why did I pick android and not iOS or WP7 or BlackBerry (note I didn’t note WebOS well maybe I did… you got me now.)
I’m going to start with Why Android:
1. Y’all have a computer so the cost to start developing is cheap (don’t have to buy a mac or anything of sort)
2. Android based phones are cheap if you want a REAL phone to play around with and I already have three (Samsung Captivate, HTC Aria and a Dell Streak on the way)
3. Android Market only costs $25
4. I like Android (although I was an iPhone user and still have an iPad…. simply get more done with an android phone)

So as i’ve covered the why android let’s move on to what i’m going to share:
1. I’m going to share most of my ideas but will start with two small App/Util (you will know soon)
2. I will share all the revenue coming from the applications and the website (AdSense etc), not trying rub it in if I do end up making some coin just trying to give you and idea of your ROI (as you time is money)
3. How I started and tips and tricks along the way (and BTW i’m really starting now I’ve never done any Java…)
4. Guides for anything I do and some source code that will turn into open source…..

And now the why am I doing this?
1. I don’t know
2. Sounds like fun
3. Hope to get some comments out of people to hear what they think of my journey (not that nasty Dodge… I drive a Merc and not that merc 😉 )
4. Still thinking about it

How’s this going to work?
I opened a new Site www.inrim.net and I will have everything Android over there (so we have a clean start…..)
Every week I will post a few posts (now I sound like…. just repeating my self) about guides where to start costs etc.

It’s going to be fun so join me there

Posted in Android, My Sites | Tagged , , , | Leave a comment
Jan 10

To DIM or not to DIM that is the question, VBScript Variables

So I got an email from someone asking me based on the code snippets I place on my site why don’t I “Option Explicit” and declare my variables….

So what are variables and what do you do with them?
I’m not going to write to much but pull from another location – Source
Do you remember algebra from school? x=5, y=6, z=x+y
Do you remember that a letter (like x) could be used to hold a value (like 5), and that you could use the information above to calculate the value of z to be 11?
These letters are called variables, and variables can be used to hold values (x=5) or expressions (z=x+y).

So now that you know what variables are, let’s talk about variable type’s in VBScript’s and why I don’t use them…

In VBScript, all variables are of type variant, that can store different types of data, unlike other languages like VB that you need to declare the variable type like Integer, Decimal etc
You can declare variables in VBScript by starting you code with

Option Explicit
Dim MySpaceShip
MySpaceShip = "Some Odd Name or Value"

So in VB you would need to declare what your variable would hold something like

Dim MySpaceShip As String ' --> While string can be any value of characters and numbers....
Dim MySpaceShipSpeed As Integer ' --> My Space Ship's speed can only be in number values.....

There are more values but I won’t get into that as I said VBScript variables are always variant’s that can hold any value numeric or alphanumeric.

Some Rules
A variable can have a short name, something like Y would work but you should put some more details, let’s say MySpaceShip.
Rules for VBScript variable names:
They have to begin with a letter!
The varicable cannot contain a period “.”, the value they hold can
Length max is only 255 long

So back to VBScript and DIMing……
Why don’t I? the answer is quite simple, I create all scripts with VBS Edit and I don’t feel the need to declare anything (problems will start if you try to use the same variable twice without doing something with the old value)
So here is a good example of DIMing with and issue

' Yeshai Bouskila - Some Script
  	set objShell = CreateObject("Wscript.Shell")
  	set objFSO = CreateObject("Scripting.FileSystemObject")
	' Some Variables for Date, Year TOD
	D = Day(Date)
	Y = Year(Date)-2000
	T = Hour(Time) & Minute(Time)
	Y = "Yeshai"
	T = "What???"

So as you can see above I’ve used my Y and T variable’s twice…. first time they had my Year and Time value and second time they got the values I assigned to them, Yeshai and What???
Here is my quick test output screen

Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.
***** script completed – exit code: 0 *****

Now in a real world you would write it like so:

	Option Explicit
' Yeshai Bouskila - Some Script
  	set objShell = CreateObject("Wscript.Shell")
  	set objFSO = CreateObject("Scripting.FileSystemObject")
	' Some Variables for Date, Year TOD
	Dim D, Y, T
	D = Day(Date)
	Y = Year(Date)-2000
	T = Hour(Time) & Minute(Time)
	Dim Y,T
	Y = "Yeshai"
	T = "What???"

And the error would be “Testing.vbs(19, 6) Microsoft VBScript compilation error: Name redefined” (From my output box of VBS Edit) but you would get the same error if you run the file.

So bottom line here do what ever you want to do, one persons best practice is not always the right way, an you don’t have to listen to me as i’m not a real developer but do this both for fun and work….

Posted in Visual Basic | Tagged , , , , , | 1 Comment
Dec 30

Get Directory Path of an executing Batch file

Might not be needed for most of you out there that don’t use Batch files but what the heck.

So I was writing this simple app that will capture all my DLL and EXE files into a batch files to register and unregister them…. Please don’t ask me why (You can ask the QA team).

And one issue I found that if you run the batch file from a different folder was that is will execute the content of the batch file on the current working folder E.g batch file runs from C:\SomeFolder\ but you are in  C:\SomeOtherFolder\

So a simple addition at the beging of the batch file will return move to the correct folder.
Simply add “cd /d %~dp0” to the batch file and the execution will run on the folder.

Found this online (Some say he is wanted by the CIA, and that if he could be bothered, he could crack the Da Vinci code in 43 seconds. All we know is, he’s called The Stig. I don’t have The Stig’s number so I use Google).
Source – Linky

Posted in Development, From Other Sites, Scripting | Tagged , , , , | Leave a comment
Dec 26

VBScript – Using SUB’s and not the Sandwich and Functions

So, you have seen how do use some of my ideas (Well not only mine as you can find them across the WWW but this is my Blog so they are mine for this POST….)  and one of them was the WriteToLog Sub So let’s talk about SUB’s and Functions what we can do and use them for.

So what’s the big idea? and whats the difference between a SUB and a Function?
Both the SUB and the Functions are Procedues that can be called within your script and execute some functionality without writing lines of code over and over….
There is one major difference between SUB’s and Functions and it’s that a Function can return a value and a SUB can only run the proceduer.
So just as an example my WriteToLog SUB is called from withing the script’s and writes to a file based on arguments provided like Text, Time, File information ETC.
And as another Example that I will write about in a future date a Function that will return if  “RegistryItemExists” or “FileVersion” you catch my drift here…

A SUB (Again not the one from Subway) is a Subroutine or some might call it a procedure are basically an instance of code that you are going to use multiple times around your script but only right the main portion ounce.

So how do you start?
The Sub will Start with a Sub and a Value as well as some Arguments here is an example of a Copy SUB

Sub xCopyFile(xCopyFrom, xCopyTo)
----> Here goes the code
End Sub

So in this case I will write all my code inside the sub where xCopyFrom, xCopyTo will get values from the execution line in your code
So my execution line could look like

xCopyFile = "C:\Test.txt", "C:\Temp\Test.txt"

In this case
“C:\Test.txt” = “xCopyFrom” argument
“C:\Temp\Test.txt” = “xCopyTo” argument

And my real SUB could do some other things like verify that the destination

Now a Function
So a Function is writen in the same generic way to open and close the function

Function FileVersion(FileName)

-----> Code goes here

End Function

And in this case i’m going to get a file version for components I want to upgrade on the system and do something if needed…..
So the Code behind the function is simple as well (you do need some more code on your script…)

Function FileVersion(FileName)

FileVersion = objFSO.GetFileVersion(FileName)

End Function

So in this case from the script I will call the function in this way
MonitorFolderApp = FileVersion(“C:\MonitorApp\MonitorApp.Exe”)

MonitorFolderApp is the variable I want to assign the version to
= FileVersion calls the function
and (“what ever arguments”, “Some More Arguments”)  are the arguments you pass on to the Function

You might say why should I use a function just for one line of code? well you might be correct but here is an example for checking if a registry key exists as a function (I found this online somewhere, I will need to find where so I can give them some credit!)

Function xRegItemEX (xRegKey)
 On Error Resume Next
 If (Right(xRegKey, 1) = "\") Then
 objShell.RegRead xRegKey
 Select Case Err
 Case 0:
 xRegItemEX = true
 Case &h80070002:
 ErrDescription = Replace(Err.description, xRegKey, "")
 objShell.RegRead "HKEY_ERROR\"
 If (ErrDescription <> Replace(Err.description, "HKEY_ERROR\", "")) Then
 xRegItemEX = true
 xRegItemEX = false
 End If
 Case Else:
 xRegItemEX = false
 End Select
 objShell.RegRead xRegKey
 Select Case Err
 Case 0:
 xRegItemEX = true
 Case Else
 xRegItemEX = false
 End Select
 End If
 On Error Goto 0
End Function
Posted in Scripting | Tagged , , , , , , , | Leave a comment
Dec 09

Apple, Google, Facebook must Pay!

I seldom bring news from other sites into my sites but this cauge my eye in one of the sites I visit and I think I’d like to share
So Apple, Google and Facebook (not in any specific order) might need to pay for Data consumption from Mobile operators in the EU.

Read below for the info and tell me what you think….
Original Post at UberGizmo.com – Linky

With the increasing dependence on Internet services such as those fromGoogle and Facebook, it’s no surprise that carriers are reporting juicy revenues from mobile data usage. Of course, that itself presents another problem as carriers are often faced with bandwidth problems and need to build bigger networks. Word is going around that Vodafone, Orange, Telefonica and Telecom Italia actually want content providers such as Google, Facebook, and Apple to pay fees linked to usage. Stephane Richard, CEO of France Telecom (which operates under the Orange brand) stated that “Service providers are flooding networks with no incentive to cut costs. It’s necessary to put in place a system of payments by service providers as a function of their use.” Do you think those Internet giants will need to pay additional fees to carriers in the near future?

Posted in From Other Sites | Tagged , , , , , | Leave a comment
Nov 12

VBScript – Passing Arguments

So you want to pass some arguments to your VBScript either with a shortcut or command prompt…

Why do you need this at all? let’s say I have some customer I want to deploy some software or do something on their system and as well all know (Or we might not… at least not me) there is no way to Compress/UnCompress (Zip’d) files via VBScript in a nice way.

Or I want to automate a procedure to upgrade and if needed do a downgrade.

So the idea here is simple, I create a VBScript that will preform an UnZip and I want to specify what file ti UnZip and where to extract it to (I know you can always use WinZip Self Extractor of some sort but this is just an example for Arguments).

So here goes, simple start of the script with some objects (if you want you can open explicits I don’t think it’s needed with this one)

set objShell = CreateObject("Wscript.Shell")

set objFSO = CreateObject("Scripting.FileSystemObject")

Next line is where we set to get arguments from the script

Set args = WScript.Arguments

Now i’m going to do some verification here that if no arguments are passed i’m going to show an error with a MSGBOX as you can see in the screenshot below, and when they hit OK i’ll quit the script.

If Wscript.Arguments.Count = 0 Then

MsgBox ("Add some arugments this will not work without them...." &amp; vbNewLine &amp; _

"Please add MainFile and Locaion do unzip like Script.vbs C:\Temp\Temp.zip C:\Temp\")


Here is where i’m going to assign the arguments to a value, each arogument is passed as a number where the first argument is (0) and moving on.

In this case my command would be UnZip.vbs C:\Temp\Upgrade1234.zip C:\Temp\SoftwareUpgrade1234\


args.Item(0) = C:\Temp\Upgrade1234.zip  <-- First one And args.Item(1) =  C:\Temp\SoftwareUpgrade1234\ <-- Second one I think you catch what i'm talking about... [code lang="vb"] Else PathOfZipFile = args.Item(0) ExtractZipTo = args.Item(1) End If [/code] And this is what I do to UnZip the files.... (simple but make sure that you create folders if needed ETC...) [code lang="vb"] set UnZipIt = CreateObject("Shell.Application") set FilesInzip=UnZipIt.NameSpace(PathOfZipFile).items UnZipIt.NameSpace(ExtractZipTo).CopyHere(FilesInzip) [/code] So here is the whole code.... just so it's easy on the copy/paste (That you can't do on WP7... YET) [code lang="vb"] set objShell = CreateObject("Wscript.Shell") set objFSO = CreateObject("Scripting.FileSystemObject") Set args = WScript.Arguments If Wscript.Arguments.Count = 0 Then MsgBox ("Add some arugments this will not work without them...." &amp; vbNewLine &amp; _ "Please add MainFile and Locaion do unzip like Script.vbs C:\Temp\Temp.zip C:\Temp\") WScript.Quit Else PathOfZipFile = args.Item(0) ExtractZipTo = args.Item(1) End If set UnZipIt = CreateObject("Shell.Application") set FilesInzip=UnZipIt.NameSpace(PathOfZipFile).items UnZipIt.NameSpace(ExtractZipTo).CopyHere(FilesInzip) [/code]

Posted in Development, Scripting | Tagged , , , | 2 Comments
Aug 16

VBScript – In the beginning LOGGING

So what is VBScript? I’m not going to go into the whole what and why… you can read it all on WiKiPeDiA.
Sort Story
VBScript (Visual Basic Scripting Edition) is an Active Scripting language developed by Microsoft that is modelled on Visual Basic. It is designed as a “lightweight” language with a fast interpreter for use in a wide variety of Microsoft environments. VBScript uses the Component Object Model to access elements of the environment within which it is running; for example, the FileSystemObject (FSO) is used to create, read, update and delete files.
Read more on Wiki – http://en.wikipedia.org/wiki/VBScript

So now they what we can do with it and why as there are other solutions.
What did I use VBS for?
Anything from Go-Live with user intervention to enter details for Machine name changes, IP Changes, Registry Changes, DB Changes and much more to automate Go-Live and System staging.
Automate backup and restore, tie into active solutions via MS solutions…
HTA files are a nice touch to make everything look somewhat up to date.
VBScript is a simple but sofisticated way of automating enviromentatal solutions.

But before I start with anything i’m going to recommend LOGGING!!! so add the following code to the end of your scripts and LOG away.
There are many variations but I like the following one and it does have some variations, but here is what I like about it.
1. Create a few log files with the same SUB
2. Consistency with all your log files

In this example we use one log and one line, the log write line

WriteToLog("Generic Log.vbs - Write This")

The output line in the log file will be
8/16/2010 11:26:00 PM    :    Generic Log    :    Generic Log.vbs – Write This

Full Code

' Filename:  Generic Log.vbs
' Copyright (c) Yeshai Bouskila 2009
' All Rights Reserved
' Please Enter Updates with date and name including line of Change
 set objShell = CreateObject("Wscript.Shell")
 set objFSO = CreateObject("Scripting.FileSystemObject")

'--- Main Begins ---------------------------------------

 WriteToLog("Generic Log.vbs - Write This")

'--- Main Ends -----------------------------------------

'--- Write to log --------------------------------------
Sub WriteToLog(strLogMessage)
 Const ForAppending = 8
 Const vbsName = "Generic Log"
 strLogFileName = "C:\GenericLog.log"
 strLogEntryTime = NOW
 'test whether file exists To either write/append to file
 if objFSO.FileExists(strLogFileName) Then
 Set objLogFileTransaction = objFSO.OpenTextFile(strLogFileName, ForAppending)
 Set objLogFileTransaction = objFSO.CreateTextFile(strLogFileName)
 End if
 objLogFileTransaction.WriteLine strLogEntryTime &amp; chr(9) &amp; chr(58) &amp; chr(9) &amp; vbsName &amp; chr(9) &amp; chr(58) &amp; chr(9) &amp; strLogMessage
 WScript.StdOut.WriteLine strLogMessage
 WScript.StdOut.WriteLine ""
End Sub

Now let’s say I want to write in one script to a few log files but want to keep it constant.
We will change our SUB line to request another parameter from the WriteToLog line in the script

Sub WriteToLog(strLogMessage,strLogFileName)

As well another change to the log name in the function

strLogFileName = "C:\"& strLogFileName & ".log"

So what did we just do if our write to log like looks like this?

WriteToLog "Something for the VBScript Log","WhatAlog"

first area is our strLogMessage, second area is the log name strLogName
strLogMessage = “Something for the VBScript Log”
strLogName = “WhatAlog”

There are unlimited options here, have fun and ask away if you need.

Posted in Scripting | Tagged , , , , | 3 Comments
Aug 07

Android Development Book – Recommendation

Android Development Book – Recommendation
When I started developing it was for fun, most of my development was not really development but programming.
What’s the difference between development and programing? that’s a whole new story.
Back to programing, most of what I’ve done was for fun (with the exception of VB scripting for customers and work) with PHP and C# and mostly on my websites.
With my move from WM to RIM and then to iPhone I thought let’s pick up Cocoa but I was not willing to vest major $$$ on a Mac that will not help me in the real world.
So Android was the right way and my new HTC Aria is amazing but we are getting off topic here.
I wanted to start playing around with Android SDK and build my own simple apps so I looked around for some books and this one is by far the best one I’ve found.
It takes you through the “Fast Trak” of Android developmetn and it’s written in a fun and simple language and it’s one of the best development books I’ve read.

Well the book is called – Hello, Android: Introducing Google’s Mobile Development Platform, 3rd Edition
And can be picked up for around $25 “+” or “-” just google the name.
Check out his blog – http://eburnette.blogspot.com/


Posted in Android | Tagged , , , | Leave a comment
Jul 27

VBSEdit and HTA Edit Quick Recommendation

VBSEdit what’s it all about…
For the past two years I’ve been scripting for customers.
At first I used simple text editors as NotePad ++ or UltraEdit but I simply wanted much more and while reviewing more then one option on the market VBS Edit seemed like the perfect fit (price and value).
With built in debugger, EXE conversions, HTA Editor included in the package, great GUI and sample scripts all for the  small price of $59 you can’t really go wrong here.
Click on read more for some screen shots and a review (not mine)

AderSoft VBS Edit website – www.vbsedit.com – There is a free version but the Debugger will increment a wait timer

Read More »

Posted in Development, Scripting | Tagged , , , , , , | Leave a comment