Your right it is an issue with the way the forum formats the script. Since its a lot of content I don't time to go through a figure it out. Here is the code in another format
<!--
This script allows you to view services and apps on pre-dertermined Servers.
To start a process use the startProcess.VPN example. To reboot, start, or stop use BATCH scripting.
An Example is given on Network1 Verify
To spawn a process use VBS start Process to create a scheduled task, or to run task as system.
StartProcess.vbs
Usage: <process> <PC>
Set WshShell = WScript.CreateObject ("WScript.Shell")
Set Ag = WScript.Arguments
Dim objWMIService, objProcess
Dim strShell, objProgram, strComputer, strExe, strInput
If Ag.count < 2 Then
WScript.Echo "Command Line Error. Need <process> <PC>" & vbcrlf
WScript.Quit
End If
strExe = Ag.Item(0)
strComputer = Ag.Item(1)
Set objWMIService = getobject("winmgmts://"_
& strComputer & "/root/cimv2")
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_( _
"Create").InParameters.SpawnInstance_
objProgram.CommandLine = strExe
Set strShell = objWMIService.ExecMethods( _
"Win32_Process", "Create", objProgram)
WScript.Echo "Created: " & strExe & " on " & strComputer
WScript.Quit
Create the tasks with schtasks /Create /s
file://computer/ /SC DAILY /TN TaskName /TR C:\taskname.exe
-->
<html>
<head>
<title></title>
<style type="text/css">
.hide {display: none}
.show {display: block;}
A:link {text-decoration: none;}
A:visited {text-decoration: none;}
A:active {text-decoration: none;}
A:hover {text-decoration: none;}
</style>
<HTA:Application
Caption="Yes"
Border="Thick"
ShowInTaskBar="No"
MaximizeButton="No"
MinimizeButton="No"
Scroll="Auto"
>
<script Language = VBScript>
Dim arrComputers
Dim strHTML
Dim CounterA
Dim shell
Dim strComputer
Dim strService
'Check IP
Sub CheckIP
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\Cimv2")
Set ColItems = objWMIService.ExecQuery("Select * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = 'True'")
For Each objItem in ColItems
For Each objAddress in objItem.IPAddress
strOut1 = objAddress
strOut2 = strOut2 & strDelim2 & "IP ADDR: " & strDelim1 & objAddress
strOut2 = strOut2 & strDelim2 & "MAC ADDR: " & strDelim1 & objItem.MACAddress
Next
Next
Error = "<td width='10%'><font color = 'red'><b>Error - Please check Settings</td>"
IP = strOut1
If instr(IP, "137.242.") = 1 Then
Network1
Else
If Instr(IP, "10.1.") = 1 Then
Network2
Else
If Instr(IP, "10.2.") = 1 Then
DataArea.InnerHTML = "Network 3"
Else
DataArea.InnerHTML = Error
End If
End If
End If
End Sub
'Network 1
Sub Network1
On Error Resume Next
strHTML = "<b>Network1"
strHTML = strHTML & "<br>"
strHTML = strHTML & "<table border='1' style='border-collapse: collapse' boardercolor='saddlebrown' id='Table1' >"
strHTML = strHTML & "<tr>"
strHTML = strHTML & "<td width='2%' bgcolor = 'SeaShell'><font color = 'Blue'><b>Server Name</td>"
strHTML = strHTML & "<td width='2%' bgcolor = 'SeaShell'><font color = 'Blue'><b>Service</td>"
strHTML = strHTML & "<td width='2%' bgcolor = 'SeaShell'><font color = 'Blue'><b>State</td>"
strHTML = strHTML & "</tr>"
'Network1 Data Area
arrComputers = Array ("127.0.0.1","127.0.0.1","127.0.0.1","127.0.0.1","127.0.0.1","Offline-Computer")
arrServiceName = Array ("BITS","Server")
For CounterA = x To UBound(arrComputers)
For Counter = i To UBound(arrServiceName)
Set colPing = objWMIService.ExecQuery("Select * FROM Win32_PingStatus WHERE statusCode = 0 and address = '" & arrComputers(CounterA) & "'")
For Each objPing in colPing
Set objWMIService = GetObject("winmgmts:\\" & arrComputers(CounterA) & "\root\Cimv2")
Set colItems = objWMIService.ExecQuery("Select * FROM Win32_Service WHERE Name= '" & arrServiceName(Counter) & "'")
Set colItems2 = objWMIService.ExecQuery("Select * FROM Win32_ComputerSystem",,48)
For Each objItem In colItems
For Each objItem2 In colItems2
strUser = ""
strUserTxt = " Logged OFF"
strUser = objItem2.UserName
If strUser = "Admin" Then strUser = "Admin"
If Len(strUser) > 1 Then strUserTxt = " Logged On"
strHTML = strHTML & "<tr>"
Window.Document.Title = "Network1 Now"
strHTML = strHTML & "<td width='10%'><Font Color='White'>" & arrComputers(CounterA) & "</font>"
strHTML = strHTML & "<dd><a href=# onClick=btn_reboot(""" & arrComputers(CounterA) & """)><img src=restart.jpg alt='Reboot " & arrComputers(CounterA) & "'></a>"
strHTML = strHTML & "    <a href=# onClick=btn_shutdown(""" & arrComputers(CounterA) & """)>"
strHTML = strHTML & "<img src=shutdown.jpg alt='Shutdown " & arrComputers(CounterA) & "'></a><font color=white size=2> " & strUser & strUserTxt & "</font></td>"
strHTML = strHTML & "<td width='10%'><Font Color='white'>"
strHTML = strHTML & objItem.DisplayName & "</font></td>"
'Running
If objItem.State = "Running" Then
strHTML = strHTML & "<td width='10%'><img src=greenshd.gif> <Font Color='white'>"
strHTML = strHTML & objItem.State
strHTML = strHTML & "</Font>      "
strHTML = strHTML & "<a href=# onClick=btn_stopsvc(""" & arrComputers(CounterA) & "@" & objItem.Name & """)>"
strHTML = strHTML & "<img src=shutdown.jpg"
strHTML = strHTML & " alt='stop " & objItem.Name & "'></a>"
strHTML = strHTML & "      "
strHTML = strHTML & "<a href=# onClick=btn_restartsvc(""" & arrComputers(CounterA) & "@" & objItem.Name & """)>"
strHTML = strHTML & "<img src=restart.jpg"
strHTML = strHTML & " alt='Restart " & objItem.Name & "'></a></td>"
'Stopped
ElseIf objItem.State = "Stopped" Then
strHTML = strHTML & "<td width='10%'><img src=redshd.gif> <Font Color='White'>"
strHTML = strHTML & objItem.State
strHTML = strHTML & "</Font>      "
strHTML = strHTML & "<a href=# onClick=btn_startsvc(""" & arrComputers(CounterA) & "@" & objItem.Name & """)>"
strHTML = strHTML & "<img start.jpg"
strHTML = strHTML & " alt='start" & objItem.Name & "'></a></td>"
End If
Next
Next
Next
Set colPingBad = objWMIService.ExecQuery("Select * FROM Win32_PingStatus WHERE statusCode <> 0 and address = '" & arrComputers(CounterA) & "'")
For Each objPingBad in colPingBad
MsgBox "" & arrComputers(CounterA) & " Timed Out",6
Next
Next
Next
strHTML = strHTML & "</tr>"
strHTML = strHTML & "</table>"
DataArea.InnerHTML = strHTML
'Network1 Middle Area
strHTML = ""
strHTML = "<b>Clients"
strHTML = strHTML & "<br>"
strHTML = strHTML & "<table border='1' style='border-collapse: collapse' boardercolor='saddlebrown' id='Table2' >"
strHTML = strHTML & "<tr>"
strHTML = strHTML & "<td width='2%' bgcolor = 'SeaShell'><font color = 'white'><b><Client Name</td>"
strHTML = strHTML & "</tr>"
arrComputers = Array ("127.0.0.1","127.0.0.1","127.0.0.1","127.0.0.1","127.0.0.1")
arrApp = Array ("ccApp.exe")
For CounterA = x To UBound(arrComputers)
For Counter = i To UBound(arrApp)
Set colPing = objWMIService.ExecQuery("Select * FROM Win32_PingStatus WHERE statusCode = 0 and address = '" & arrComputers(CounterA) & "'")
For Each objPing in colPing
Set objWMIService = GetObject("winmgmts:\\" & arrComputers(CounterA) & "\root\Cimv2")
Set colProcess = objWMIService.ExecQuery("Select * FROM Win32_Process WHERE Name= '" & arrApp(Counter) & "'")
Set colItems2 = objWMIService.ExecQuery("Select * FROM Win32_ComputerSystem",,48)
For Each objItem2 In ColItems2
strUser = ""
strUserTxt = " Logged OFF"
strUser = objItem2.UserName
If strUser = "Domain\Admin" Then strUser = "Admin"
If Len(StrUser) > 1 Then strUserTxt = " Logged On"
strHTML = strHTML & "<tr>"
strHTML = strHTML & "<td width='10%'><Font Color='White'>" & arrComputers(CounterA) & "</Font>"
strHTML = strHTML & "<dd><a href=# onClick=btn_reboot(""" & arrComputers(CounterA) & """)><img src=restart.jpg alt='Reboot ' & arrComputers(CounterA) & "'></a>"
strHTML = strHTML & "    <a href=# onClick=btn_Shutdown(""" & arrComputers(CounterA) & """)>"
strHTML = strHTML & "<img src=shutdown.jpg alt='Shutdown " & arrComputers(CounterA) & "'></a><font color=white size=2> " & strUser & strUserTxt & "</font></td>"
For Each objItem in colProcess
strHTML = strHTML & "<td width='10%'><img src=greenshd.gif> <Font Color='white'>"
strHTML = strHTML & "Ops Suite"
strHTML = strHTML & "</Font>      "
strHTML = strHTML & "<a href=# onClick=btn_stopapp(""" & arrComputers(CounterA) & "@" & objItem.Name & """)>"
strHTML = strHTML & "<img src=shutdown.jpg"
strHTML = strHTML & " alt='Stop " & objItem.Name & "'></a>"
strHTML = strHTML & "</td>"
Next
Next
Next
Set colPingBad = objWMIService.ExecQuery("Select * FROM Win32_PingStatus WHERE statusCode <> 0 and address = '" & arrComputers(CounterA) & "'")
For Each objPingBad in colPingBad
MsgBox "" & arrComputers(CounterA) & " Timed Out",6
Next
Next
Next
strHTML = strHTML & "</tr>"
strHTML = strHTML & "</table>"
MiddleArea.InnerHTML = strHTML
'Network1 Lower Area
LowerArea.InnerHTML = "<br><font color=white><br><br><b><img src=C:\Windows\web\printers\images\ipp_0003.gif><b>  Show Options? </font><input type=button value=Options onClick=network1floor_options> <img src=C:\Windows\Web\printers\images\ipp_0003.gif>"
End Sub
Sub network1floor_options
On Error Resume Next
flooroptions = "<br>"
flooroptions = flooroptions & "<b><img src=C:\Windows\Web\printers\images\ipp_003.gif>"
flooroptions = flooroptions & "<b> Floor Options <img src=C:\windows\web\printers\images\ipp_0003.gif>"
flooroptions = flooroptions & "<br/><br/><input type=button onClick='network1_reboot' value=Reboot>"
flooroptions = flooroptions & "<input type=button onClick='network1_shutdown' value=Shutdown>"
flooroptions = flooroptions & "<input type=button onClick='network1_reboot_clients' value='Reboot Workstations'>"
flooroptions = flooroptions & "<input type=button onClick='network1_stop' value='Stop Network1 Services'>"
flooroptions = flooroptions & "<input type=button onClick='network1_start' value='Start Network1 Services'>"
flooroptions = flooroptions & "<input type=button onClick='network1_verify' value='network1_verify'>"
flooroptions = flooroptions & "<br/><font color=white>Only Reboot Works!</font>"
LowerArea.InnerHTML = flooroptions
End Sub
Sub network1_reboot
On Error Resume Next
Set objShell = Createobject("Wscript.Shell")
myCur = objShell.CurrentDirectory & "\"
DataArea.InnerHTML = "The Script has Failed"
command = "@ECHO OFF"
command = command & vbNewLine & "Shutdown -r -m
file://computer1/"
command = command & vbNewLine & "ECHO Rebooting Computer1"
command = command & vbNewLine & "ECHO ."
command = command & vbNewLine & "ECHO ."
command = command & vbNewLine & "ECHO Complete"
Set myFSO = CreateObject("Scripting.FileSystemObject")
Set Writecommand = myFSO.OpenTextFile("temp.bat",8,True)
Writecommand.WriteLine(command)
WriteCommand.Close
DataArea.InnerHTML = ""
MiddleArea.InnerHTML = ""
Set objShell = CreateObject("WScript.Shell")
strOut=""
strComputer = "."
Set objWMIService = Getobject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * FROM Win32_DesktopMonitor")
For Each objItem in colItems
Next
cmdarg = "temp.bat"
Set objExCMD = objShell.Exec(cmdarg)
strOut = objExCmd.stdout.ReadAll
set regEx = New RegExp
regEx.Pattern = "[\f\n\r\v]+"
regEx.Global = True
regEx.Multiline = True
strOut = regex.Replace(strOut, "<br>")
LowerArea.InnerHTML = "<font color=white>" & strOut & "</font>"
myFSO.DeleteFile cmdarg
End Sub
' Common Functions For all networks
Sub BadPing(strComputer)
On Error Resume Next
CreateObject("Shell.Application").MinimizeAll
Set WshShell = CreateObject("WScript.Shell")
Select Case WshSHell.Popup("Debug popup?",3,warning,4+16)
case 6 MsgBox "debug popup 6"
case -1 MsgBox "debug popup -1"
End Select
End Sub
Sub btn_stopapp(strComputerApp)
On Error Resume Next
Dim myArray
myArray = Split(strComputerApp,"@")
Set objWMIService = GetObject("winmgmts:\\" & myArray(0) & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery ("Select * FROM win32_Process WHERE Name = '" & myArray(1) & "'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
CheckIP
End Sub
Sub btn_reboot(strComputer)
On Error Resume Next
MiddleArea.InnerHTML = ""
DataArea.InnerHTML = "<font color=white size=5>Are you sure you want to Reboot " & strComputer & "?</font>"
LowerArea.InnerHTML = "<br><br><input type=button Value=Yes onClick=btn_reboot_now(""" & strComputer & """)>    <input type=button Value=No onClick=CheckIP>"
End Sub
Sub btn_reboot_now(strComputer)
On Error Resume Next
Set OpsysSet = GetObject("winmgmts:{(shutdown)}\\" & strComputer & "\root\cimb2").ExecQuery _
("Select * FROM Win32_OperatingSystem WHERE Primary = True")
For Each OpSys in OpSysSet
OpSys.Reboot()
Next
CheckIP
End Sub
Sub btn_shutdown(strComputer)
On Error Resume Next
MiddleArea.InnerHTML = ""
DataArea.InnerHTML = "<font color=white size=5>Are you sure you want to shutdown " & strComputer & "?</font>"
LowerArea.InnerHTML = "<br><br><input type=button Value=Yes onClick=btn_shutdown_now(""" & strComputer & """)>    <input type=button Value=No onClick=CheckIP>"
End Sub
Sub btn_shutdown_now(strComputer)
On Error Resume Next
Set OpsysSet = GetObject("winmgmts:{(shutdown)}\\" & strComputer & "\root\cimb2").ExecQuery _
("Select * FROM Win32_OperatingSystem WHERE Primary = True")
For Each OpSys in OpSysSet
OpSys.Shutdown()
Next
CheckIP
End Sub
Sub btn_stopsvc(strComputerService)
On Error Resume Next
Dim myArray
myArray = Split(strComputerService,"@")
Set objWMIService = GetObject("winmgmts:\\" & myArray(0) & "\root\cimv2")
Set ColServiceList = objWMIService.ExecQuery ("Select * FROM Win32_Service WHERE Name='" & myArray(1) & "'")
For Each objService in ColServiceList
errReturn = objService.StartService()
Next
CheckIP
End Sub
Sub btn_startsvc(strComputerService)
On Error Resume Next
Dim myArray
myArray = Split(strComputerService,"@")
Set objWMIService = GetObject("winmgmts:\\" & myArray(0) & "\root\cimv2")
Set ColServiceList = objWMIService.ExecQuery ("Select * FROM Win32_Service WHERE Name='" & myArray(1) & "'")
For Each objService in ColServiceList
errReturn = objService.StopService()
Next
CheckIP
End Sub
Sub btn_restartsvc(strComputerService)
On Error Resume Next
Dim myArray
myArray = Split(strComputerService,"@")
Set objWMIService = GetObject("winmgmts:\\" & myArray(0) & "\root\cimv2")
Set ColServiceList = objWMIService.ExecQuery ("Select * FROM Win32_Service WHERE Name='" & myArray(1) & "'")
For Each objService in ColServiceList
errReturn = objService.StopService()
Next
Set objWMIService = GetObject("winmgmts:\\" & myArray(0) & "\root\cimv2")
Set ColServiceList = objWMIService.ExecQuery ("Select * FROM Win32_Service WHERE Name='" & myArray(1) & "'")
For Each objService in ColServiceList
errReturn = objService.StartService()
Next
CheckIP
End Sub
Sub btn_refresh_onClick()
On Error Resume Next
CheckIP
End Sub
Sub btn_exit_onClick()
On Error Resume Next
Window.Close
End Sub
Sub Window_onLoad
On Error Resume Next
window.resizeTo 1024, 768
End Sub
</script>
</head>
<body bgcolor=black background="C:\Windows\System32\oobe\images\newmark1.jpg" bgproperties="fixed" onLoad="CheckIP">
<p><h3 align = center><font color='white'>SysAdmin Tool</font></h3>
<div></div>
<br>
<h3 align = center>
<input type="button" Value="Refresh" name="btn_refresh" id="btn_refresh" title="Refresh">
<input type="button" Value="Exit" name="btn_exit" id="btn_exit" title="Exit">
<hr/>
<p>
<Span Id = "DataArea"></Span>
<Span Id = "MiddleArea"></Span>
<Span Id = "LowerArea"></Span>
<Span Id = "CMDOut"></Span>
</Body><Div Align ="Center">
</html>