HTA run a exchange ps1 script
in [VbScript]
|
Prev: Right Click FTP
Next: match computers in 2 text files
From: Maw on 8 Sep 2010 10:52 Hi to all, i had wirte a HTA script and that run a exchange ps1 script but that doesn't start. Code below: command = "powershell.exe -PSConsoleFile ""c:\Program Files\Microsoft \Exchange Server\Bin\exshell.psc1"" -command C:\creatembx\" & file & " " & first.value & "." & last.value & "@" & domain.value & " " & first.value & " " & last.value set WSHShell = CreateObject("Wscript.Shell") WSHshell.run command msgBox command The msgbox show the correct command line. If i type the command showed by msgbox that work. Someone can help me??? Thx in advance Maw
From: Al Dunbar on 8 Sep 2010 19:05 "Maw" <maw81maw(a)gmail.com> wrote in message news:6914506a-147c-4177-95b8-537259f089af(a)b34g2000yqm.googlegroups.com... > Hi to all, > i had wirte a HTA script and that run a exchange ps1 script but that > doesn't start. When you say that your ps1 script doesn't start, what is it that actually happens at that point? Hint: is an error message displayed? > Code below: > > command = "powershell.exe -PSConsoleFile ""c:\Program Files\Microsoft > \Exchange Server\Bin\exshell.psc1"" -command C:\creatembx\" & file & > " " & first.value & "." & last.value & "@" & domain.value & " " & > first.value & " " & last.value > set WSHShell = CreateObject("Wscript.Shell") > WSHshell.run command > msgBox command > > The msgbox show the correct command line. > If i type the command showed by msgbox that work. What is the name of your ps1 script file, "excshell.psc1" (as shown in your vbscript above), or "excshell.psc1" (which seems more likely)? Given how fully integrated powershell is in how Exchange is managed, why are you using vbscript at all? /Al
From: Maw on 9 Sep 2010 03:18 On Sep 9, 1:05 am, "Al Dunbar" <aland...(a)hotmail.com> wrote: > "Maw" <maw81...(a)gmail.com> wrote in message > > news:6914506a-147c-4177-95b8-537259f089af(a)b34g2000yqm.googlegroups.com... > > > Hi to all, > > i had wirte a HTA script and that run a exchange ps1 script but that > > doesn't start. > > When you say that your ps1 script doesn't start, what is it that actually > happens at that point? Hint: is an error message displayed? no message is displayed, i can see only the black screnn appear for 1 sec. > > > Code below: > > > command = "powershell.exe -PSConsoleFile ""c:\Program Files\Microsoft > > \Exchange Server\Bin\exshell.psc1"" -command C:\creatembx\" & file & > > " " & first.value & "." & last.value & "@" & domain.value & " " & > > first.value & " " & last.value > > set WSHShell = CreateObject("Wscript.Shell") > > WSHshell.run command > > msgBox command > > > The msgbox show the correct command line. > > If i type the command showed by msgbox that work. > > What is the name of your ps1 script file, "excshell.psc1" (as shown in your > vbscript above), or "excshell.psc1" (which seems more likely)? my ps1 change name. The script select the correct scrit to run. > Given how fully integrated powershell is in how Exchange is managed, why are > you using vbscript at all? > > /Al All script code: <html> <head> <title>HTA Test</title> <HTA:APPLICATION ID="objTest" APPLICATIONNAME="HTATest" SCROLL="yes" SINGLEINSTANCE="yes" > </head> <SCRIPT LANGUAGE="VBScript"> flag = "true" Sub TestSub MsgBox first.Value & vbNewLine & last.Value End Sub Sub composeidmail () loginid=Mid(first.value, 1,1) & Mid(last.value, 1,7) lung=Len(loginid) Do While (lung<8) loginid = loginid & "0" lung=Len(loginid) Loop 'MsgBox first.value idad.value=loginid mail.value=first.value & "." & last.value & "@marsh.com" End Sub Sub check () Select Case (multi.value) Case "false" Case "user" Case "MULTIBOX" End select If multi.value = "false" then MsgBox "Selezionare la tipologia di mailbox da creare." elseif multi.value = "user" then flag1 = multi.value call creatembx elseif multi.value = "MULTIBOX" then flag1 = multi.value call createmultimbx end if End Sub Sub creatembx () Select Case (domain.value) Case "dominio1" Case "dominio2" Case "dominio3" Case "dominio4" Case "dominio5" End select If domain.value = "false" then MsgBox "Selezionare il dominio dell'utenza." flag = "false" elseIf domain.value = "dominio1" then file = "dom1.ps1" elseIf domain.value = "dominio2" then file = "dom2.ps1" elseIf domain.value = "dominio3" then file = "dom3.ps1" elseIf domain.value = "dominio4" then file = "dom4.ps1" elseIf domain.value = "dominio5" then file = "dom5.ps1" end if If flag = "true" then if first.value <> "" and last.value <> "" then command = "powershell.exe -PSConsoleFile ""c:\Program Files\Microsoft \Exchange Server\Bin\exshell.psc1"" -command C:\creatembx\" & file ' & " " & first.value & "." & last.value & "@" & domain.value & " " & first.value & " " & last.value 'command = "powershell.exe Add-PSSnapin Microsoft.Exchange.Management.PowerShell.Admin ; C:\creatembx\" & file & " " & first.value & "." & last.value & "@" & domain.value & " " & first.value & " " & last.value set WSHShell = CreateObject("Wscript.Shell") WSHshell.run command msgBox command else MsgBox "I campi Nome e Cogneme non possono essere Vuoti." end if end if flag = "true" End Sub Sub createmultimbx () Select Case (domain.value) Case "dominio1" Case "dominio2" Case "dominio3" Case "dominio4" Case "dominio5" End select If domain.value = "false" then MsgBox "Selezionare il dominio della MULTIBOX." flag = "false" elseIf domain.value = "dominio1" then file = "dom1multy.ps1" elseIf domain.value = "dominio2" then file = "dom2multy.ps1" elseIf domain.value = "dominio3" then file = "dom3multy.ps1" elseIf domain.value = "dominio4" then file = "dom4multy.ps1" elseIf domain.value = "dominio5" then file = "dom5multy.ps1" end if If flag = "true" then if first.value = "" and last.value <> "" then set WSHShell = CreateObject("Wscript.Shell") WSHshell.run ("C:\WINDOWS\system32\windowspowershell \v1.0\powershell.exe -PSConsoleFile ""C:\Program Files\Microsoft \Exchange Server\bin\exshell.psc1"" -noexit -command "". 'C:\creatembx \" & file & "'" & "" & " " & last.value & "@" & domain.value & " " & last.value) ' msgBox ("C:\tmp\" & file & " " & last.value & "@" & domain.value & " " & last.value) else MsgBox "Solo il campo 'Cognome o Nome della mail Multibox' deve essere compilato." end if end if flag = "true" End Sub Sub quit Window.Close End Sub </SCRIPT> <body> <table border="1"> <tr> <td colspan="2" align="center"> INTERFACCIA PER CREAZIONE MAILBOX PER UTENTI DEI DOMINI: <BR> (adban01; adcal01; adcrc01; adhol01; hphone; monetica) <BR> <BR> </td> </tr> <tr> <td colspan="2"> Selezionare la tipologia di mailbox da creare </td> </tr> <tr> <td align="center" colspan="2"> <SELECT NAME="multi"> <OPTION value="false">SELECT TYPE</OPTION> <OPTION value="user">USER</OPTION> <OPTION value="MULTIBOX">MULTIBOX</OPTION> </SELECT><P> </td> </tr> <tr> <td> Selezionare il Dominio (Es.:adban01) </td> <td> <SELECT NAME="domain"> <OPTION value="false">SELECT DOMAIN</OPTION> <OPTION value="dominio1">dominio1</OPTION> <OPTION value="dominio2">dominio2</OPTION> <OPTION value="dominio3">dominio3</OPTION> <OPTION value="dominio4">dominio4</OPTION> <OPTION value="monetica.res.local">MONETICA</OPTION> </SELECT><P> </td> </tr> <tr> <td> Cognome o Nome della mail Multibox </td> <td> Nome: </td> </tr> <tr> <td> <input type="text" name="last" size="30"><P> </td> <td> <input type="text" name="first" size="30"><P> </td> </tr> <tr> <td> <input id=runbutton type="button" value="Run Script" name="run_button" onClick="check"> </td> <td> <input id=runbutton type="button" value="Quit" name="quit_button" onClick="quit"> </td> </tr> THANKS </table> </body>
From: harrykrishna.nospam on 9 Sep 2010 09:04 Why not add the following line to your code, then copy that text deom C:\creatembx\debug.txt and place it in a command prompt to see if you get the desired results.. That would eliminate any miss-typing since it is exactly the same line that is contained in your command variable: WSHshell.run "CMD /c ECHO " & command & "> C:\creatembx\debug.txt" I am assuming you are running this with the same credentials (elevated or not) as you did with the original script. HTH Maw <maw81maw(a)gmail.com> wrote: >On Sep 9, 1:05�am, "Al Dunbar" <aland...(a)hotmail.com> wrote: >> "Maw" <maw81...(a)gmail.com> wrote in message >> >> news:6914506a-147c-4177-95b8-537259f089af(a)b34g2000yqm.googlegroups.com... >> >> > Hi to all, >> > i had wirte a HTA script and that run a exchange ps1 script but that >> > doesn't start. >> >> When you say that your ps1 script doesn't start, what is it that actually >> happens at that point? Hint: is an error message displayed? > >no message is displayed, i can see only the black screnn appear for 1 >sec. >> >> > Code below: >> >> > command = "powershell.exe -PSConsoleFile ""c:\Program Files\Microsoft >> > \Exchange Server\Bin\exshell.psc1"" -command C:\creatembx\" & file & >> > " �" & first.value & "." & last.value & �"@" & domain.value & " " & >> > first.value & " " & last.value >> > set WSHShell = CreateObject("Wscript.Shell") >> > WSHshell.run command >> > msgBox command >> >> > The msgbox show the correct command line. >> > If i type the command showed by msgbox that work. >> >> What is the name of your ps1 script file, "excshell.psc1" (as shown in your >> vbscript above), or "excshell.psc1" (which seems more likely)? > >my ps1 change name. The script select the correct scrit to run. > >> Given how fully integrated powershell is in how Exchange is managed, why are >> you using vbscript at all? >> >> /Al > >All script code: > ><html> ><head> ><title>HTA Test</title> ><HTA:APPLICATION > ID="objTest" > APPLICATIONNAME="HTATest" > SCROLL="yes" > SINGLEINSTANCE="yes" >> ></head> > ><SCRIPT LANGUAGE="VBScript"> >flag = "true" > Sub TestSub > MsgBox first.Value & vbNewLine & last.Value > End Sub > >Sub composeidmail () >loginid=Mid(first.value, 1,1) & Mid(last.value, 1,7) >lung=Len(loginid) >Do While (lung<8) >loginid = loginid & "0" >lung=Len(loginid) >Loop >'MsgBox first.value >idad.value=loginid >mail.value=first.value & "." & last.value & "@marsh.com" >End Sub > > >Sub check () >Select Case (multi.value) >Case "false" >Case "user" >Case "MULTIBOX" >End select >If multi.value = "false" then > MsgBox "Selezionare la tipologia di mailbox da creare." >elseif multi.value = "user" then > flag1 = multi.value > call creatembx >elseif multi.value = "MULTIBOX" then > flag1 = multi.value > call createmultimbx >end if >End Sub > > >Sub creatembx () >Select Case (domain.value) >Case "dominio1" >Case "dominio2" >Case "dominio3" >Case "dominio4" >Case "dominio5" >End select >If domain.value = "false" then > MsgBox "Selezionare il dominio dell'utenza." > flag = "false" >elseIf domain.value = "dominio1" then > file = "dom1.ps1" >elseIf domain.value = "dominio2" then > file = "dom2.ps1" >elseIf domain.value = "dominio3" then > file = "dom3.ps1" >elseIf domain.value = "dominio4" then > file = "dom4.ps1" >elseIf domain.value = "dominio5" then > file = "dom5.ps1" >end if >If flag = "true" then > if first.value <> "" and last.value <> "" then > command = "powershell.exe -PSConsoleFile ""c:\Program Files\Microsoft >\Exchange Server\Bin\exshell.psc1"" -command C:\creatembx\" & file >' & " " & first.value & "." & last.value & "@" & domain.value & " " >& first.value & " " & last.value > 'command = "powershell.exe Add-PSSnapin >Microsoft.Exchange.Management.PowerShell.Admin ; C:\creatembx\" & file >& " " & first.value & "." & last.value & "@" & domain.value & " " & >first.value & " " & last.value > set WSHShell = CreateObject("Wscript.Shell") > WSHshell.run command > msgBox command > else > MsgBox "I campi Nome e Cogneme non possono essere Vuoti." > end if >end if >flag = "true" >End Sub > >Sub createmultimbx () >Select Case (domain.value) >Case "dominio1" >Case "dominio2" >Case "dominio3" >Case "dominio4" >Case "dominio5" >End select >If domain.value = "false" then > MsgBox "Selezionare il dominio della MULTIBOX." > flag = "false" >elseIf domain.value = "dominio1" then > file = "dom1multy.ps1" >elseIf domain.value = "dominio2" then > file = "dom2multy.ps1" >elseIf domain.value = "dominio3" then > file = "dom3multy.ps1" >elseIf domain.value = "dominio4" then > file = "dom4multy.ps1" >elseIf domain.value = "dominio5" then > file = "dom5multy.ps1" >end if >If flag = "true" then > if first.value = "" and last.value <> "" then > set WSHShell = CreateObject("Wscript.Shell") > WSHshell.run ("C:\WINDOWS\system32\windowspowershell >\v1.0\powershell.exe -PSConsoleFile ""C:\Program Files\Microsoft >\Exchange Server\bin\exshell.psc1"" -noexit -command "". 'C:\creatembx >\" & file & "'" & "" & " " & last.value & "@" & domain.value & " " & >last.value) >' msgBox ("C:\tmp\" & file & " " & last.value & "@" & domain.value & >" " & last.value) > else > MsgBox "Solo il campo 'Cognome o Nome della mail Multibox' deve >essere compilato." > end if >end if >flag = "true" >End Sub > >Sub quit > Window.Close >End Sub > > > ></SCRIPT> > ><body> ><table border="1"> ><tr> ><td colspan="2" align="center"> >INTERFACCIA PER CREAZIONE MAILBOX PER UTENTI DEI DOMINI: <BR> >(adban01; adcal01; adcrc01; adhol01; hphone; monetica) <BR> ><BR> ></td> ></tr> ><tr> > <td colspan="2"> > Selezionare la tipologia di mailbox da creare > </td> ></tr> ><tr> > <td align="center" colspan="2"> > <SELECT NAME="multi"> > <OPTION value="false">SELECT TYPE</OPTION> > <OPTION value="user">USER</OPTION> > <OPTION value="MULTIBOX">MULTIBOX</OPTION> > </SELECT><P> > </td> ></tr> ><tr> > <td> > Selezionare il Dominio (Es.:adban01) > </td> > <td> > <SELECT NAME="domain"> > <OPTION value="false">SELECT DOMAIN</OPTION> > <OPTION value="dominio1">dominio1</OPTION> > <OPTION value="dominio2">dominio2</OPTION> > <OPTION value="dominio3">dominio3</OPTION> > <OPTION value="dominio4">dominio4</OPTION> > <OPTION value="monetica.res.local">MONETICA</OPTION> > </SELECT><P> > </td> ></tr> ><tr> > <td> > Cognome o Nome della mail Multibox > </td> > <td> > Nome: > </td> ></tr> ><tr> > <td> > <input type="text" name="last" size="30"><P> > </td> > <td> > <input type="text" name="first" size="30"><P> > </td> ></tr> ><tr> > <td> > <input id=runbutton type="button" value="Run Script" >name="run_button" onClick="check"> > </td> > <td> > <input id=runbutton type="button" value="Quit" name="quit_button" >onClick="quit"> > </td> ></tr> > > >THANKS ></table> > > ></body>
From: Maw on 9 Sep 2010 09:32
On Sep 9, 3:04 pm, harrykrishna.nos...(a)online.ie wrote: > Why not add the following line to your code, then copy that text deom > C:\creatembx\debug.txt and place it in a command prompt to see if you > get the desired results.. > > That would eliminate any miss-typing since it is exactly the same line > that is contained in your command variable: > > WSHshell.run "CMD /c ECHO " & command & "> C:\creatembx\debug.txt" > > I am assuming you are running this with the same credentials (elevated > or not) as you did with the original script. > > HTH > > Maw <maw81...(a)gmail.com> wrote: > >On Sep 9, 1:05 am, "Al Dunbar" <aland...(a)hotmail.com> wrote: > >> "Maw" <maw81...(a)gmail.com> wrote in message > > >>news:6914506a-147c-4177-95b8-537259f089af(a)b34g2000yqm.googlegroups.com.... > > >> > Hi to all, > >> > i had wirte a HTA script and that run a exchange ps1 script but that > >> > doesn't start. > > >> When you say that your ps1 script doesn't start, what is it that actually > >> happens at that point? Hint: is an error message displayed? > > >no message is displayed, i can see only the black screnn appear for 1 > >sec. > > >> > Code below: > > >> > command = "powershell.exe -PSConsoleFile ""c:\Program Files\Microsoft > >> > \Exchange Server\Bin\exshell.psc1"" -command C:\creatembx\" & file & > >> > " " & first.value & "." & last.value & "@" & domain.value & " " & > >> > first.value & " " & last.value > >> > set WSHShell = CreateObject("Wscript.Shell") > >> > WSHshell.run command > >> > msgBox command > > >> > The msgbox show the correct command line. > >> > If i type the command showed by msgbox that work. > > >> What is the name of your ps1 script file, "excshell.psc1" (as shown in your > >> vbscript above), or "excshell.psc1" (which seems more likely)? > > >my ps1 change name. The script select the correct scrit to run. > > >> Given how fully integrated powershell is in how Exchange is managed, why are > >> you using vbscript at all? > > >> /Al > > >All script code: > > ><html> > ><head> > ><title>HTA Test</title> > ><HTA:APPLICATION > > ID="objTest" > > APPLICATIONNAME="HTATest" > > SCROLL="yes" > > SINGLEINSTANCE="yes" > > ></head> > > ><SCRIPT LANGUAGE="VBScript"> > >flag = "true" > > Sub TestSub > > MsgBox first.Value & vbNewLine & last.Value > > End Sub > > >Sub composeidmail () > >loginid=Mid(first.value, 1,1) & Mid(last.value, 1,7) > >lung=Len(loginid) > >Do While (lung<8) > >loginid = loginid & "0" > >lung=Len(loginid) > >Loop > >'MsgBox first.value > >idad.value=loginid > >mail.value=first.value & "." & last.value & "@marsh.com" > >End Sub > > >Sub check () > >Select Case (multi.value) > >Case "false" > >Case "user" > >Case "MULTIBOX" > >End select > >If multi.value = "false" then > > MsgBox "Selezionare la tipologia di mailbox da creare." > >elseif multi.value = "user" then > > flag1 = multi.value > > call creatembx > >elseif multi.value = "MULTIBOX" then > > flag1 = multi.value > > call createmultimbx > >end if > >End Sub > > >Sub creatembx () > >Select Case (domain.value) > >Case "dominio1" > >Case "dominio2" > >Case "dominio3" > >Case "dominio4" > >Case "dominio5" > >End select > >If domain.value = "false" then > > MsgBox "Selezionare il dominio dell'utenza." > > flag = "false" > >elseIf domain.value = "dominio1" then > > file = "dom1.ps1" > >elseIf domain.value = "dominio2" then > > file = "dom2.ps1" > >elseIf domain.value = "dominio3" then > > file = "dom3.ps1" > >elseIf domain.value = "dominio4" then > > file = "dom4.ps1" > >elseIf domain.value = "dominio5" then > > file = "dom5.ps1" > >end if > >If flag = "true" then > > if first.value <> "" and last.value <> "" then > > command = "powershell.exe -PSConsoleFile ""c:\Program Files\Microsoft > >\Exchange Server\Bin\exshell.psc1"" -command C:\creatembx\" & file > >' & " " & first.value & "." & last.value & "@" & domain.value & " " > >& first.value & " " & last.value > > 'command = "powershell.exe Add-PSSnapin > >Microsoft.Exchange.Management.PowerShell.Admin ; C:\creatembx\" & file > >& " " & first.value & "." & last.value & "@" & domain.value & " " & > >first.value & " " & last.value > > set WSHShell = CreateObject("Wscript.Shell") > > WSHshell.run command > > msgBox command > > else > > MsgBox "I campi Nome e Cogneme non possono essere Vuoti." > > end if > >end if > >flag = "true" > >End Sub > > >Sub createmultimbx () > >Select Case (domain.value) > >Case "dominio1" > >Case "dominio2" > >Case "dominio3" > >Case "dominio4" > >Case "dominio5" > >End select > >If domain.value = "false" then > > MsgBox "Selezionare il dominio della MULTIBOX." > > flag = "false" > >elseIf domain.value = "dominio1" then > > file = "dom1multy.ps1" > >elseIf domain.value = "dominio2" then > > file = "dom2multy.ps1" > >elseIf domain.value = "dominio3" then > > file = "dom3multy.ps1" > >elseIf domain.value = "dominio4" then > > file = "dom4multy.ps1" > >elseIf domain.value = "dominio5" then > > file = "dom5multy.ps1" > >end if > >If flag = "true" then > > if first.value = "" and last.value <> "" then > > set WSHShell = CreateObject("Wscript.Shell") > > WSHshell.run ("C:\WINDOWS\system32\windowspowershell > >\v1.0\powershell.exe -PSConsoleFile ""C:\Program Files\Microsoft > >\Exchange Server\bin\exshell.psc1"" -noexit -command "". 'C:\creatembx > >\" & file & "'" & "" & " " & last.value & "@" & domain.value & " " & > >last.value) > >' msgBox ("C:\tmp\" & file & " " & last.value & "@" & domain.value & > >" " & last.value) > > else > > MsgBox "Solo il campo 'Cognome o Nome della mail Multibox' deve > >essere compilato." > > end if > >end if > >flag = "true" > >End Sub > > >Sub quit > > Window.Close > >End Sub > > ></SCRIPT> > > ><body> > ><table border="1"> > ><tr> > ><td colspan="2" align="center"> > >INTERFACCIA PER CREAZIONE MAILBOX PER UTENTI DEI DOMINI: <BR> > >(adban01; adcal01; adcrc01; adhol01; hphone; monetica) <BR> > ><BR> > ></td> > ></tr> > ><tr> > > <td colspan="2"> > > Selezionare la tipologia di mailbox da creare > > </td> > ></tr> > ><tr> > > <td align="center" colspan="2"> > > <SELECT NAME="multi"> > > <OPTION value="false">SELECT TYPE</OPTION> > > <OPTION value="user">USER</OPTION> > > <OPTION value="MULTIBOX">MULTIBOX</OPTION> > > </SELECT><P> > > </td> > ></tr> > ><tr> > > <td> > > Selezionare il Dominio (Es.:adban01) > > </td> > > <td> > > <SELECT NAME="domain"> > > <OPTION value="false">SELECT DOMAIN</OPTION> > > <OPTION value="dominio1">dominio1</OPTION> > > <OPTION value="dominio2">dominio2</OPTION> > > <OPTION value="dominio3">dominio3</OPTION> > > <OPTION value="dominio4">dominio4</OPTION> > > <OPTION value="monetica.res.local">MONETICA</OPTION> > > </SELECT><P> > > </td> > ></tr> > ><tr> > > <td> > > Cognome o Nome della mail Multibox > > </td> > > <td> > > Nome: > > </td> > ></tr> > ><tr> > > <td> > > <input type="text" name="last" size="30"><P> > > </td> > > <td> > > <input type="text" name="first" size="30"><P> > > </td> > ></tr> > ><tr> > > <td> > > <input id=runbutton type="button" value="Run Script" > >name="run_button" onClick="check"> > > </td> > > <td> > > <input id=runbutton type="button" value="Quit" name="quit_button" > >onClick="quit"> > > </td> > ></tr> > > >THANKS > ></table> > > ></body> Thanks harrykrishna, i have try your suggestion and the command that i find in the txt file it's correct: powershell.exe -PSConsoleFile "c:\Program Files\Microsoft\Exchange Server\Bin\exshell.psc1" -command C:\creatembx\ban.ps1 If i run this command form START-->Run it's work fine. What's happenig???? THX a lot Maw |