• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 471
  • Last Modified:

.vbs script to run a file

I'd like a simple .vbs script that launches a file "MyAutoHotkeyScript.ahk"

The script below I found which originally launched "calc.exe" . I replaced "calc.exe" with the full path/filename of MyAutoHotkeyScript.ahk, but nothing happens.

(P.S. I know nothing about .vbs script files. Where's some good documentation for beginners? [I'm good at other languages.])
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
 
errResult = objWMIService.Create("C:\\Users\\Public\\_zProgramFiles\\AutoHotKey\\MyAutoHotkeyScript.ahk", null, null, intCalcID)

Open in new window

0
deleyd
Asked:
deleyd
  • 4
  • 2
  • 2
1 Solution
 
HubasanCommented:
Hi deleyd,

just replace sPath variable with the path to your script. This will only work if, when you double-click on your .ahk script, it launches in default script program.

Here try this:
Set oWS = CreateObject("WScript.Shell")
 
sPath = "C:\Windows\notepad.exe"
 
errResult = oWS.Run(sPath,,False)

Open in new window

0
 
HubasanCommented:
As for learning how to script, here is a good start for Visual Basic Scripting:

http://www.microsoft.com/technet/scriptcenter/guide/sagsas_overview.mspx?mfr=true
0
 
deleydAuthor Commented:
I tried this but it can't find the file.

Also tried doubling the backslashes,
sPath = "C:\\Documents and Settings\\Owner\\My Documents\\_zProgramFiles\\AutoHotKey\\idletime.ahk"
but it still complained it couldn't find the file.


Set oWS = CreateObject("WScript.Shell")
sPath = "C:\Documents and Settings\Owner\My Documents\_zProgramFiles\AutoHotKey\idletime.ahk"
errResult = oWS.Run(sPath,,False)

Open in new window

0
Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

 
HubasanCommented:
Here try this one:

I have added additional double quotes since your path has spaces in it:
Set oWS = CreateObject("WScript.Shell")
sPath = chr(34) & "C:\Documents and Settings\Owner\My Documents\_zProgramFiles\AutoHotKey\idletime.ahk" & Chr(34)
errResult = oWS.Run(sPath,,False)

Open in new window

0
 
deleydAuthor Commented:
I see, chr(34) is the clever way of adding another double-quote.

What character is used to comment out a line in a .vbs script file?
0
 
HubasanCommented:
You can use apostrophe character. On US keyboard it would be right of the colon/semi-colon key.
Example:

'this line is comented out
0
 
crokeefe28Commented:
try this
Set objApp = CreateObject("Wscript.Shell") 
objApp.Run "C:\Users\Public\_zProgramFiles\AutoHotKey\MyAutoHotkeyScript.ahk"

Open in new window

0
 
crokeefe28Commented:
by chance....does the app run in a command windows?  If so, then try this:



Set objApp = CreateObject("Wscript.Shell") 
objApp.Run "cmd /c C:\Users\Public\_zProgramFiles\AutoHotKey\MyAutoHotkeyScript.ahk"

Open in new window

0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 4
  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now