Hey i want to run from an vbs script a powershell commando. Something like start powershell.exe and enter a specific command like Restart-Service. I thought something similar to this could work:
strCommand = "C:\WINDOWS\system32\WindowsPowerShell\v1.0\powershell.exe -command Restart-Service [service name]"
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objExec = WshShell.Exec(strCommand)
Has someone an idea how can i manage this?
1) store your powershell command as powershell script.
2) Use the vbs to run the powershell
Set objShell = CreateObject("Wscript.Shell")
objShell.Run("powershell.exe -noexit c:\scripts\test.ps1")
objShell.Run "powershell -file ""c:\scripts\test.ps1""", 0, true doesn't?
C:\Users\lpeder6\Desktop\PowerShell Scripts\GUI Files\Basic GUI Script - Combo Box.ps1 opens in Windows PowerShell ISE, but not when I call it from a VBScript (example: objShell.Run ("powershell.exe -noexit C:\Users\lpeder6\Desktop\PowerShell Scripts\GUI Files\Basic GUI Script - Combo Box.ps1"))?Try this:
powershell -command '& {command to run}'
/G
You can use the shortest version.
CreateObject("Wscript.Shell").Run ("powershell.exe -noexit $c= 'lola'; write-host $c -ForegroundColor green")
Try this:
Set objShell = CreateObject("Wscript.Shell")
objShell.Run("powershell.exe -noexit .\c:\scripts\test.ps1")
Or keep the files in the same folder where the PS exe is and then
Objshell.Run("powershell.exe -noexit .\test.ps1")
While researching how to use this to run PowerShell scripts using VBScript, I was running into the issue shown below:
I've since then figured out why it was not working. PowerShell cannot read spaces in the location of your script. As you can see in the image above, the error stops at C:\Users\lpeder6\Desktop\PowerShell_Scripts\Arrays\Arrays when the full path is C:\Users\lpeder6\Desktop\PowerShell_Scripts\Arrays\Arrays - Clear Method.ps1.
After removing all spaces and extra characters from my path names, running PowerShell scripts with VBScript works with the code below:
Set objShell = CreateObject("Wscript.Shell")
objShell.Run("powershell.exe -noexit -command C:\Users\lpeder6\Desktop\PowerShellScripts\GUIFiles\BasicGUIScript-ComboBox.ps1"),1,True
What I get, when I run it, is this:
I hope this helps someone as this is information I really could have used. :)
Thank you , it worked for me after I removed the .\ from
objShell.Run("powershell.exe -noexit .\C:\Users\503327978\Downloads\Scripts\test\ONLY_popups_messages.ps1")
to
objShell.Run("powershell.exe -noexit C:\Users\503327978\Downloads\Scripts\test\ONLY_popups_messages.ps1")
Therefore my entire script is as followed:
Set objShell = CreateObject("Wscript.Shell") objShell.Run("powershell.exe -noexit C:\Users\503327978\Downloads\Scripts\test\ONLY_popups_messages.ps1")
worked perfectly, plus is shorter version. :-)
Dim objShell Set objShell = WScript.CreateObject ("WScript.shell") objShell.run "C:\WINDOWS\system32\WindowsPowerShell\v1.0\powershell.exe & Restart-Service BranchCache" Set objShell = NothingBut is doesn't work.Dim objShell Set objShell = WScript.CreateObject ("WScript.shell") objShell.run "PowerShell -Command {Start-Service PeerDistSvc}"When i run the vbs it runs through and the cmd window pops up and close and that was it, but the service didn't start what do i wrong? I am administrator on the computer.