VBScript with 2 arguments - converting to a HTA

Hi guys,
I have the following vbscript which takes currently takes 2 arguments at the command line to run:
cscript <script>.vbs /srv:<computers>.txt /svc:<servicename>

The output is:

Computer Name    Service     Status
<serverA>            browser    running
<serverB>             browser   stopped
etc etc

What id like to do is:
1) Convert this to a hta
2) In the hta,
a) Have a text box that allows you to input the service name you require a status on
b) Have a Browse button that enables you to browse for the text file that has a list of computers you wish to read and run this script against
c) Have a "Run" button to execute the script

Any help greatly appreciated.

'Usage:   cscript me.vbs /srv:<servername> /svc:<servicename>
'----------------------------------------------------------------------------------------------------- cscript me.vbs /srv:<server> /svc:browser
'-- namedCmdLineArgs.vbs - example of how to pass named
'-- arguments to a script
'----------------------------------------------------------
option explicit
'----------------------------------------------------------
'-- declare the local variables to be used
'----------------------------------------------------------
dim unamedArgs, namedArgs, scriptName, serverName, serviceName
dim objWMIService, colServiceList, objService
 
'----------------------------------------------------------
'-- get the name of the running script
'----------------------------------------------------------
scriptName = wscript.scriptname
 
'----------------------------------------------------------
'-- get the named arguments
'----------------------------------------------------------
set namedArgs = wscript.arguments.named
 
'----------------------------------------------------------
'-- check to see if all the required arguments were passed
'----------------------------------------------------------
if not namedArgs.exists("srv") then
   wscript.echo "Usage: " & scriptName & " /srv:<server name> is required"
   wscript.quit
else
   serverName = namedArgs.item("srv")
end if
 
if not namedArgs.exists("svc") then
   wscript.echo "Usage: " & scriptName & " /svc:<service name> is required"
   wscript.quit
else
   serviceName = namedArgs.item("svc")
end if
 
 
 
'----------------------------------------------------------
'-- echo out the arguments
'----------------------------------------------------------
'wscript.echo "Checking server: " & serverName & vbcrlf & "Service: " & serviceName
 
'--------------------------------------------------------------------------------------------------
 
Dim objFSO, objFile
WScript.Echo "Computer Name" & vbTab & vbTab & "Service" & vbTab & vbTab & "Status"
If Right(LCase(serverName), 4) = ".txt" Then
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Const intForReading = 1
 Set objFile = objFSO.OpenTextFile(serverName, intForReading, False)
 While Not objFile.AtEndOfStream
  Output objFile.ReadLine
 Wend
 objFile.Close
Else
 Output serverName
End If
 
Sub Output(serverName)
 If Ping(serverName) = True Then
  On Error Resume Next
  Set objWMIService = GetObject("winmgmts:\\" & serverName & "\root\cimv2")
  Set colServiceList = objWMIService.ExecQuery ("Select * from Win32_Service where Name = '" & serviceName & "'")
  If Err.Number = 0 Then
   For Each objService in colServiceList
     WScript.Echo serverName & vbTab & vbTab & serviceName & vbTab & vbTab & objService.State
   Next
  Else
   WScript.Echo serverName & vbTab & vbTab & "WMI Error"
  End If
 Else
  WScript.Echo serverName & vbTab & vbTab & "Unreachable"
 End If
End Sub
 
Function Ping(strComputer)
 Dim objShell, boolCode
 Set objShell = CreateObject("WScript.Shell")
 boolCode = objShell.Run("Ping -n 1 -w 300 " & strComputer, 0, True)
 If boolCode = 0 Then
  Ping = True
 Else
  Ping = False
 End If
End Function

Select allOpen in new window