Is it possible to run Powershell code (not .ps1 file) using VBScript? For example, to call Powershell function under VBScript (this script must be integrated in VBScript code). How to execute external .ps1 script using VBScript I know, but I didn't find any information about integration. Any ideas? Thanks
-
1No, this cannot be done because the VBScript interpreter cannot handle PS code. Could it be that your actual issue is passing parameter values from your VBScript to your external PS script?Filburt– Filburt2017-06-22 07:53:47 +00:00Commented Jun 22, 2017 at 7:53
-
Thank you for your answer. No, I don't want to pass paramaters to my external ps script. The main idea is to use one script for multiple tasks, but it should be readable (not .exe).Victor Vasilyonok– Victor Vasilyonok2017-06-22 08:04:12 +00:00Commented Jun 22, 2017 at 8:04
-
You can call "powershell -command" from VBS, technically being able to create that command as a string in your script.Vesper– Vesper2017-06-22 08:05:44 +00:00Commented Jun 22, 2017 at 8:05
-
I think,call a powershell from vb and pass parameters,it would be run from external powershell handlerChetan Kulkarni– Chetan Kulkarni2017-06-22 08:07:16 +00:00Commented Jun 22, 2017 at 8:07
Add a comment
|
1 Answer
As Filburt already noted, VBScript cannot execute Powershell as such. What you can do, however, is to launch Powershell and pass script as a parameter. Like so,
option explicit
Const WshRunning = 0
Const WshFinished = 1
Const WshFailed = 2
Dim objShell, oExec, strOutput, strPS1Cmd
' Store the ps1 code in a variable
strPS1Cmd = "& { get-date }"
' Create a shell and execute powershell, pass the script
Set objShell = wscript.createobject("wscript.shell")
Set oExec = objShell.Exec("powershell -command """ & strPS1Cmd & """ ")
Do While oExec.Status = WshRunning
WScript.Sleep 100
Loop
Select Case oExec.Status
Case WshFinished
strOutput = oExec.StdOut.ReadAll()
Case WshFailed
strOutput = oExec.StdErr.ReadAll()
End Select
WScript.Echo(strOutput)
In case of complex arguments, consider using the -EncodedCommand that accepts Base64 encoded command. Handy to work around quote escapes and such.
3 Comments
Victor Vasilyonok
But if I have Powershell code for 60 lines, can I pass It as parameter?
Vesper
@VictorVasilyonok At least you can throw a single dash in command and pipe your 60 lines via stdin to Powershell. Also in case of encoded command the answer is true.
vonPryz
@VictorVasilyonok VBScript could write the PS1 file onto disk and then run it. How about storing the actual scripts on a centralized network share and use VBScript to copy and/or execute those?