Use VBScript in HTML to write a PowerShell script

Question

I'm trying to use VBScript in HTML to write text into what will become a powershell script. I am doing this to avoid having to statically code into my HTA the location of these powershell scripts.

My problem becomes working around Powershell's " ( and )

An example, I'm just not sure how to wrap the characters in order to keep VBS happy.

Dim filesys, filetxt
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.OpenTextFile("c:\Temp\somefile.txt", ForAppending, True)
filetxt.WriteLine ("Param([Parameter(Mandatory=$true)]")
filetxt.WriteLine ("[string]$Str)")
filetxt.WriteLine ("# Create the IE com object")
filetxt.WriteLine ("$ie = new-object -comobject InternetExplorer.Application")
filetxt.WriteLine ("#Navigate to www.")
filetxt.WriteLine ("$ie.navigate("http://www.page.com")")

dperish · Accepted Answer · 2015-03-20 04:22:42Z

2

Assuming that last line is your only issue, you can escape the quotes either by doubling them up or by using Chr(34) to programatically insert them.

filetxt.WriteLine ("$ie.navigate(""http://www.page.com"")")

filetxt.WriteLine ("$ie.navigate(" & Chr(34) & "http://www.page.com" & Chr(34) & ")")

answered Mar 20, 2015 at 4:22

dperish

1,57117 silver badges27 bronze badges

Sign up to request clarification or add additional context in comments.

4 Comments

user4317867 Over a year ago

I knew it was something simple! Ended up using filetxt.WriteLine ("$ie.navigate(" & Chr(34) & "http://www.website.com" & Chr(34) & ")") But now I'm stuck on trying to delete the temporary script created. VBS is telling me Permission denied for filesys.DeleteFile "c:\Temp\somefile.txt"

dperish Over a year ago

Did you try the optional force argument on the DeleteFile command: filesys.DeleteFile "c:\temp\somefile.txt", True? Make sure you're closing the filestream first with filetxt.Close if you're performing this within the same script. Otherwise, it may be a permissions issue, in which case you could try to elevate the permissions within VBScript using the ShellExecute/runas method here: ss64.com/vb/shellexecute.html

user4317867 Over a year ago

Ended up using filedelete.DeleteFile "c:\temp\temp.ps1" which works. Thanks again!

user4317867 Over a year ago

Just for follow up, I'm using filesys.DeleteFile (filesys.GetSpecialFolder(2) & "\FileName.ps1") where Set filesys = CreateObject("Scripting.FileSystemObject")

Collectives™ on Stack Overflow

Use VBScript in HTML to write a PowerShell script

1 Answer 1

4 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

4 Comments

Your Answer

Sign up or log in

Post as a guest

Related