simply-coded · July 20, 2024 14:36
diff --git a/ListAvailableCOMs.hta b/ListAvailableCOMs.hta
 <!DOCTYPE html>
 <!--
 	Authors: Jeremy England
 	Company: SimplyCoded
 	Revised: 10/31/2016

 	Description:
 		Gets a list of available COM objects on your computer. 
 		Once populated, clicking on the COM name shows its members, as well as if it is vbscript compatible.
 -->
 <html>
 <head>

 	<title>Available COM Objects</title>	
 	<meta http-equiv="x-ua-compatible" content="IE=09">

 	<hta:application
 		icon = "powershell.exe"
 		innerBorder="no"
 		singleInstance="yes"  
 	/>

 	<!-- STYLE -->
 	<style>

 	html, 
 	body {        
 		margin: 0;
 		padding: 0;
 		height: 100%;
 		width: 100%;
 		font-family: consolas;            
 	}

 	header {
 		background-color: #004C70;
 		box-sizing: border-box;
 		position: absolute;
 		top: 0; left: 0;
 		height: 45px;
 		width: 100%;      		
 		color: white;
 		font-size: 16pt;
 		z-index: 2;
 	}

 	header span {
 		margin-left: 400px;	  
 	}

 	aside {
 		background-color: #006495;
 		box-sizing: border-box;
 		position: absolute;
 		top: 0; left: 0;
 		height: 100%;
 		width: 450px;
 		padding-top: 45px;
 		overflow-y: scroll;
 		color: white;
 		z-index: 1;
 	}

 	main {
 		background-color: #FFFFFF;
 		box-sizing: border-box;
 		padding-top: 75px;
 		padding-left: 500px;
 		position: absolute;
 		left: 0; top: 0;
 		height: 100%;
 		width: 100%;
 		overflow: auto;
 		color: black;
 		z-index: 0;
 	}

 	a {
 		display: block;
 		padding: 10px;
 		cursor: pointer;
 	}
 	
 	a:hover {
 		color: black;
 		font-weight: bold;
 	}
 	
 	</style>

 	<!-- SCRIPT -->
 	<script type="text/vbscript">

 		Sub window_onload()  
 			Call getObjects()
 		End Sub

 		Function getObjects()
 			Dim result, comList
 			result = wps_out("gci HKLM:\Software\Classes -ea 0| ? {$_.PSChildName -match '^\w+\.\w+$' -and (gp ""$($_.PSPath)\CLSID"" -ea 0)} | ft PSChildName")		  
 			comList = Split(result, vbLf)			
 			Dim names		
 			Set names = document.getElementById("objNames")			
 			Dim check : Set check = CreateObject("VBScript.RegExp")		
 			check.Pattern = "^\w+\.\w+$"			
 			Dim i, links			
 			For i = 3 To UBound(comList) - 1
 				If check.Test(comList(i)) Then 
 					links = links & "<a onclick=""getMembers(this)"">" & comList(i) & "</a><br />"
 				End If 
 			Next 
 			names.innerHTML = links 
 		End Function 	

 		Function getMembers(this)		
 			Dim result		
 			result = wps_out("New-Object -ComObject " & Trim(this.innerText) & " | Get-Member")			
 			Dim details
 			Set details = document.getElementById("objDetails")
 			details.innerText = result & "VBScript Compatible: " & isCompatible(Trim(this.innerText))		
 		End Function 

 		Function isCompatible(strTest)
 			On Error Resume Next 
 			Dim testObj
 			Set testObj = CreateObject("" & strTest & "")			
 			If Err.Number = 0 Then 
 				isCompatible = True 
 			Else
 				isCompatible = False
 			End If	
 		End Function 

 		Function wps_out(strCommand)	
 			Dim wsh : Set wsh = CreateObject("WScript.Shell")		
 			Dim wps, ignore, keep, return
 			set wps = wsh.Exec("powershell.exe")		
 			wps.StdIn.WriteLine strcommand
 			wps.StdIn.Close    
 			Do While True
 				ignore = wps.StdOut.ReadLine
 				If InStr(ignore, strCommand) Then
 					Exit Do
 				End If
 			Loop  	
 			Do
 				keep = wps.StdOut.ReadLine
 				If wps.StdOut.AtEndOfStream Then
 					Exit Do
 				Else	
 					return = return & Trim(keep) & vbLf     				     	
 				End If    
 			Loop
 			wps.StdOut.Close
 			wps_out = return
 		End Function

 	</script>

 </head>

 <!-- BODY -->
 <body>

 	<header>
 		NAMES:<span>DETAILS:</span>
 	</header>
 	
 	<aside id="objNames">
 		<!-- vbs: populate COM list -->
 	</aside>
 	
 	<main id="objDetails">
 		<!-- vbs: populate COM members -->
 	</main>

 </body>
 </html>
	<!DOCTYPE html>
	<!--
	Authors: Jeremy England
	Company: SimplyCoded
	Revised: 10/31/2016

	Description:
	Gets a list of available COM objects on your computer.
	Once populated, clicking on the COM name shows its members, as well as if it is vbscript compatible.
	-->
	<html>
	<head>

	<title>Available COM Objects</title>
	<meta http-equiv="x-ua-compatible" content="IE=09">

	<hta:application
	icon = "powershell.exe"
	innerBorder="no"
	singleInstance="yes"
	/>

	<!-- STYLE -->
	<style>

	html,
	body {
	margin: 0;
	padding: 0;
	height: 100%;
	width: 100%;
	font-family: consolas;
	}

	header {
	background-color: #004C70;
	box-sizing: border-box;
	position: absolute;
	top: 0; left: 0;
	height: 45px;
	width: 100%;
	color: white;
	font-size: 16pt;
	z-index: 2;
	}

	header span {
	margin-left: 400px;
	}

	aside {
	background-color: #006495;
	box-sizing: border-box;
	position: absolute;
	top: 0; left: 0;
	height: 100%;
	width: 450px;
	padding-top: 45px;
	overflow-y: scroll;
	color: white;
	z-index: 1;
	}

	main {
	background-color: #FFFFFF;
	box-sizing: border-box;
	padding-top: 75px;
	padding-left: 500px;
	position: absolute;
	left: 0; top: 0;
	height: 100%;
	width: 100%;
	overflow: auto;
	color: black;
	z-index: 0;
	}

	a {
	display: block;
	padding: 10px;
	cursor: pointer;
	}

	a:hover {
	color: black;
	font-weight: bold;
	}

	</style>

	<!-- SCRIPT -->
	<script type="text/vbscript">

	Sub window_onload()
	Call getObjects()
	End Sub

	Function getObjects()
	Dim result, comList
	result = wps_out("gci HKLM:\Software\Classes -ea 0\| ? {$_.PSChildName -match '^\w+\.\w+$' -and (gp ""$($_.PSPath)\CLSID"" -ea 0)} \| ft PSChildName")
	comList = Split(result, vbLf)
	Dim names
	Set names = document.getElementById("objNames")
	Dim check : Set check = CreateObject("VBScript.RegExp")
	check.Pattern = "^\w+\.\w+$"
	Dim i, links
	For i = 3 To UBound(comList) - 1
	If check.Test(comList(i)) Then
	links = links & "<a onclick=""getMembers(this)"">" & comList(i) & "</a><br />"
	End If
	Next
	names.innerHTML = links
	End Function

	Function getMembers(this)
	Dim result
	result = wps_out("New-Object -ComObject " & Trim(this.innerText) & " \| Get-Member")
	Dim details
	Set details = document.getElementById("objDetails")
	details.innerText = result & "VBScript Compatible: " & isCompatible(Trim(this.innerText))
	End Function

	Function isCompatible(strTest)
	On Error Resume Next
	Dim testObj
	Set testObj = CreateObject("" & strTest & "")
	If Err.Number = 0 Then
	isCompatible = True
	Else
	isCompatible = False
	End If
	End Function

	Function wps_out(strCommand)
	Dim wsh : Set wsh = CreateObject("WScript.Shell")
	Dim wps, ignore, keep, return
	set wps = wsh.Exec("powershell.exe")
	wps.StdIn.WriteLine strcommand
	wps.StdIn.Close
	Do While True
	ignore = wps.StdOut.ReadLine
	If InStr(ignore, strCommand) Then
	Exit Do
	End If
	Loop
	Do
	keep = wps.StdOut.ReadLine
	If wps.StdOut.AtEndOfStream Then
	Exit Do
	Else
	return = return & Trim(keep) & vbLf
	End If
	Loop
	wps.StdOut.Close
	wps_out = return
	End Function

	</script>

	</head>

	<!-- BODY -->
	<body>

	<header>
	NAMES:<span>DETAILS:</span>
	</header>

	<aside id="objNames">
	<!-- vbs: populate COM list -->
	</aside>

	<main id="objDetails">
	<!-- vbs: populate COM members -->
	</main>

	</body>
	</html>