Need help to change the default program for .java files

[clivebuckwheat]

Hi

I have to change the default program for .java files it should open by default in a program called Ready to Program which is available here. http://compsci.ca/holtsoft/ready171_install.exe

I tried the following vbs script but it isn't working.Any help would be greatly appreciated as I have to make this the default on about 250 computers,

Option Explicit
Dim objShell
set objShell = WScript.CreateObject ("WScript.Shell")

addFileAssociation ".java", "C:\Program Files (x86)\Ready to Program\Ready.exe"

Sub addFileAssociation( fileExt, whichApp )
If ( Left(fileExt, 1) <> "." ) Then
fileExt = "." & fileExt
End If
objShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & fileExt & "\Application", whichApp
End Sub

[jaclaz]

Where did you get that snippet?

Particularly, where did you get the Registry path?

HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\

Any reason NOT to use the ASSOC/FTYPE/ASSOCIATE commands?

http://ss64.com/nt/assoc.html

http://ss64.com/nt/ftype.html

http://ss64.com/nt/associate.html

jaclaz

[clivebuckwheat]

Where did you get that snippet?

Particularly, where did you get the Registry path?

HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\

Any reason NOT to use the ASSOC/FTYPE/ASSOCIATE commands?

http://ss64.com/nt/assoc.html

http://ss64.com/nt/ftype.html

http://ss64.com/nt/associate.html

jaclaz

I got the code from stack over flow. here is the snippet of code.

http://stackoverflow.com/questions/7988655/proper-way-tho-change-file-associations-using-vbs

I have never had any luck with the assoc commands, and I would like to use vbs, so I could just append the file associate fix into my default printer.vbs that runs in the startup of all the computers.

[jaclaz]

I have never had any luck with the assoc commands, and I would like to use vbs, so I could just append the file associate fix into my default printer.vbs that runs in the startup of all the computers.

Try these:

http://blogs.technet.com/b/heyscriptingguy/archive/2009/03/27/quick-hits-friday-the-scripting-guys-respond-to-a-bunch-of-questions-03-27-09.aspx

ListFileAssociations.vbs

Set objShell = WScript.CreateObject("WScript.Shell")objShell.Run("%comspec% /K Assoc | more"), 1, True

ChangeFileAssociation.vbs

Set objShell = WScript.CreateObject("WScript.Shell")objShell.Run("%comspec% /K ftype TIFImage.Document =""C:\Program Files\MSPVIEW.exe"" ""%1"""), 1, True

Afaik, a file association has a number of related keys in HKEY_CLASSES_ROOT (that the built-in commands know how to manage).

The snippet you posted most probably originated (without credits) from here:

http://jimkeller.blogspot.it/2005/09/changing-file-associations-in-windows.html

Which BTW "justifies" the otherwise senseless:

If ( Left(fileExt, 1) <> "." ) Then

fileExt = "." & fileExt

End If

If you hardcoded .java, there is no need to check if the first character is a dot....

This might be useful to quickly check associations:

http://www.nirsoft.net/utils/file_types_manager.html

jaclaz

[clivebuckwheat]

I have never had any luck with the assoc commands, and I would like to use vbs, so I could just append the file associate fix into my default printer.vbs that runs in the startup of all the computers.

Try these:

http://blogs.technet.com/b/heyscriptingguy/archive/2009/03/27/quick-hits-friday-the-scripting-guys-respond-to-a-bunch-of-questions-03-27-09.aspx

ListFileAssociations.vbs

Set objShell = WScript.CreateObject("WScript.Shell")objShell.Run("%comspec% /K Assoc | more"), 1, True

ChangeFileAssociation.vbs

Set objShell = WScript.CreateObject("WScript.Shell")objShell.Run("%comspec% /K ftype TIFImage.Document =""C:\Program Files\MSPVIEW.exe"" ""%1"""), 1, True

Afaik, a file association has a number of related keys in HKEY_CLASSES_ROOT (that the built-in commands know how to manage).

The snippet you posted most probably originated (without credits) from here:

http://jimkeller.blogspot.it/2005/09/changing-file-associations-in-windows.html

Which BTW "justifies" the otherwise senseless:

If ( Left(fileExt, 1) <> "." ) Then

fileExt = "." & fileExt

End If

If you hardcoded .java, there is no need to check if the first character is a dot....

This might be useful to quickly check associations:

http://www.nirsoft.net/utils/file_types_manager.html

jaclaz

Thanks Jaclaz,

You are saying to do this, i am sorry I am really not skilled in vbs. Do this

Option Explicit
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")objShell.Run("%comspec% /K ftype java.Document =""C:\Program Files (x86)\Ready to Program\Ready.exe"" ""%1"""), 1, True

Edited September 16, 2012 by clivebuckwheat

[jaclaz]

You need a newline:

Option Explicit
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("%comspec% /K ftype java.Document =""C:\Program Files (x86)\Ready to Program\Ready.exe"" ""%1"""), 1, True

This snippet assumes that a filetype "java.Document" already exists (and is associated to the .java extension)

jaclaz

[clivebuckwheat]

Thank Jaclaz,

Option Explicit
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("%comspec% /K ftype java.Document =""C:\Program Files (x86)\Ready to Program\Ready.exe"" ""%1"""), 1, True

Unfortunately the above still refuses to change, the .java extension to open in Ready to Program.

Edited September 16, 2012 by clivebuckwheat

[clivebuckwheat]

Jaclaz,

I did an assoc .java

it seems there is no association for the .java extension, so that is why the above vbs script will not work. How can I make the .java association exist first?

Thanks for the help. I really do appreciated.

[jaclaz]

How can I make the .java association exist first?

Using ASSOC ! back to square #1, actually post #2 (and given links).

assoc .java=java.Document

This should do

Option Explicit
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("%comspec% /K assoc.java=java.Document "), 1, True
objShell.Run("%comspec% /K ftype java.Document =""C:\Program Files (x86)\Ready to Program\Ready.exe"" ""%1"""), 1, True

jaclaz

[clivebuckwheat]

How can I make the .java association exist first?

Using ASSOC ! back to square #1, actually post #2 (and given links).

assoc .java=java.Document

This should do

Option Explicit
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("%comspec% /K assoc.java=java.Document "), 1, True
objShell.Run("%comspec% /K ftype java.Document =""C:\Program Files (x86)\Ready to Program\Ready.exe"" ""%1"""), 1, True

jaclaz

Thank you Jaclaz it now changes the association, I could have swore I ran the assoc command. Sorry. One more question about the above vbscript. Would it be possible to suppress the cmd window?. I need it totally silent as I am going to put it in the startup of my computers.

Thanks again you been an amazing help.

[jaclaz]

Thank you Jaclaz it now changes the association, I could have swore I ran the assoc command. Sorry. One more question about the above vbscript. Would it be possible to suppress the cmd window?. I need it totally silent as I am going to put it in the startup of my computers.

Thanks again you been an amazing help.

Which brings us back to square #1 on a few other thread

Use NIRCMD:

http://www.nirsoft.net/utils/nircmd.html

though NOT the answer to all questions (as an example the Answer to the ultimate question about life, the universe and everything is instead 42 ) it does represent an answer to most common day problems where bathc is involved.

exec hide, exec2 hide or execmd might be what you need:

http://www.nirsoft.net/utils/nircmd2.html#using

Or use any of the various alternative approaches:

http://blogs.technet.com/b/heyscriptingguy/archive/2007/12/05/hey-scripting-guy-how-can-i-start-a-script-in-a-hidden-window.aspx

http://superuser.com/questions/62525/run-a-completly-hidden-batch-file

Apart for the "pure .vbs" ones, the Iexpress one could be handy.

Thanks again you been an amazing help.

No prob .

jaclaz

[gunsmokingman]

You do not need any 3rd party application to run a vbs script without showing any Cmd Window.

Show Window

Option Explicit
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("%comspec% /K assoc.java=java.Document "), 1, True
objShell.Run("%comspec% /K ftype java.Document =""C:\Program Files (x86)\Ready to Program\Ready.exe"" ""%1"""), 1, True

Hide Window

Option Explicit
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("%comspec% /K assoc.java=java.Document "), 0, True
objShell.Run("%comspec% /K ftype java.Document =""C:\Program Files (x86)\Ready to Program\Ready.exe"" ""%1"""), 0, True

Another Example Hidden Window that produces a text file with no Window Showing

  CreateObject("Wscript.Shell").Run(_
  "%Comspec% /C @Echo Off && CLS && Echo Test Line 1 > Test.txt && " & _
  "Ping -n 2 127.0.0.1>nul && Echo Test Line 2 >> Test.txt"),0,True 

[clivebuckwheat]

You do not need any 3rd party application to run a vbs script without showing any Cmd Window.

Show Window

Option Explicit
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("%comspec% /K assoc.java=java.Document "), 1, True
objShell.Run("%comspec% /K ftype java.Document =""C:\Program Files (x86)\Ready to Program\Ready.exe"" ""%1"""), 1, True

Hide Window

Option Explicit
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("%comspec% /K assoc.java=java.Document "), 0, True
objShell.Run("%comspec% /K ftype java.Document =""C:\Program Files (x86)\Ready to Program\Ready.exe"" ""%1"""), 0, True

Another Example Hidden Window that produces a text file with no Window Showing

  CreateObject("Wscript.Shell").Run(_
  "%Comspec% /C @Echo Off && CLS && Echo Test Line 1 > Test.txt && " & _
  "Ping -n 2 127.0.0.1>nul && Echo Test Line 2 >> Test.txt"),0,True 

Thanks man.