https://wisedataman.com/category/hta/SQL Server & SysAdmin, Blog, Tools & Scriptsen-gbThu, 11 Jun 2009 00:00:00 +0000https://wisedataman.com/sql-server-database-restore-utility/Thu, 11 Jun 2009 00:00:00 +0000https://wisedataman.com/sql-server-database-restore-utility/<p>This script is a simple utility to allow users to restore SQL Server databases.  It&rsquo;s easier to use for non-DBAs and it provides a method of restoring databases when the management tools are not installed.  It&rsquo;s a good demonstration of a HTA application, but it&rsquo;s not a intended as a replacement for SQL Server Management Studio. You can only use this utility for simple restore scenarios.A simple utility that allows you to restore SQL Server databases from a backup file.</p> <div class="code-block"><div class="code-title">SQL Database Restore HTA Script</div> <div class="highlight"><pre tabindex="0" class="chroma"><code class="language-text" data-lang="text"><span class="line"><span class="cl">&lt;html&gt;&lt;head&gt; </span></span><span class="line"><span class="cl">&lt;STYLE TYPE=&#34;text/css&#34;&gt; </span></span><span class="line"><span class="cl"> BODY {font-family: &#34;Verdana, Arial, Helvetica, sans-serif&#34;; </span></span><span class="line"><span class="cl"> font-size:x-small; </span></span><span class="line"><span class="cl"> background-color:#dfe0e5; </span></span><span class="line"><span class="cl"> } </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> table {font-family: &#34;Verdana, Arial, Helvetica, sans-serif&#34;; </span></span><span class="line"><span class="cl"> font-size:x-small;} </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> #RestoreCompleted { </span></span><span class="line"><span class="cl"> font-weight:bold; </span></span><span class="line"><span class="cl"> color:green; </span></span><span class="line"><span class="cl"> } </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> #RestoreInProgress { </span></span><span class="line"><span class="cl"> font-weight:bold; </span></span><span class="line"><span class="cl"> color:blue; </span></span><span class="line"><span class="cl"> } </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> #RestoreError { </span></span><span class="line"><span class="cl"> font-weight:bold; </span></span><span class="line"><span class="cl"> color:red; </span></span><span class="line"><span class="cl"> } </span></span><span class="line"><span class="cl"> #Footer { </span></span><span class="line"><span class="cl"> font-weight:bold; </span></span><span class="line"><span class="cl"> font-size:10px; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl">&lt;/STYLE&gt; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl">&lt;script language=&#34;vbscript&#34; OnLoad=&#34;Main()&#34;&gt; </span></span><span class="line"><span class="cl"> option explicit </span></span><span class="line"><span class="cl"> Const HKEY_LOCAL_MACHINE = &amp;H80000002 </span></span><span class="line"><span class="cl"> Const adVarChar = 200 </span></span><span class="line"><span class="cl"> Const adParamInput = 1 </span></span><span class="line"><span class="cl"> Const intAppWidth = 600 </span></span><span class="line"><span class="cl"> Const intAppHeight = 280 &#39; 255 </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Set app size and centre screen on load </span></span><span class="line"><span class="cl"> Sub Window_Onload() </span></span><span class="line"><span class="cl"> Dim objWMIService,objItem,intHorizontal,intVertical </span></span><span class="line"><span class="cl"> Dim intLeft, intTop </span></span><span class="line"><span class="cl"> Set objWMIService = GetObject(&#34;winmgmts:\\.\root\cimv2&#34;) </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> For Each objItem in objWMIService.ExecQuery(&#34;Select * From Win32_DesktopMonitor&#34;) </span></span><span class="line"><span class="cl"> intHorizontal = objItem.ScreenWidth </span></span><span class="line"><span class="cl"> intVertical = objItem.ScreenHeight </span></span><span class="line"><span class="cl"> Next </span></span><span class="line"><span class="cl"> If IsNull(intHorizontal) = False And IsNull(intVertical) = False Then </span></span><span class="line"><span class="cl"> intLeft = (intHorizontal - intAppWidth) / 2 </span></span><span class="line"><span class="cl"> intTop = (intVertical - intAppHeight) / 2 </span></span><span class="line"><span class="cl"> window.moveTo intLeft, intTop </span></span><span class="line"><span class="cl"> End If </span></span><span class="line"><span class="cl"> window.resizeTo intAppWidth,intAppHeight </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> LoadSQLServerInstances() </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Populate list box with local SQL Server instances </span></span><span class="line"><span class="cl"> Sub LoadSQLServerInstances() </span></span><span class="line"><span class="cl"> Dim strComputer,strKeyPath,strValueName,strValue </span></span><span class="line"><span class="cl"> Dim oReg,arrValues, d </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> strComputer = &#34;.&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Set oReg=GetObject(&#34;winmgmts:{impersonationLevel=impersonate}!\\&#34; &amp; _ </span></span><span class="line"><span class="cl"> strComputer &amp; &#34;\root\default:StdRegProv&#34;) </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> strKeyPath = &#34;SOFTWARE\Microsoft\Microsoft SQL Server\&#34; </span></span><span class="line"><span class="cl"> strValueName = &#34;InstalledInstances&#34; </span></span><span class="line"><span class="cl"> oReg.GetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath, _ </span></span><span class="line"><span class="cl"> strValueName,arrValues </span></span><span class="line"><span class="cl"> If ISArray(arrValues) = false then </span></span><span class="line"><span class="cl"> msgbox &#34;No local SQL Server instances found&#34;,vbCritical </span></span><span class="line"><span class="cl"> Close() </span></span><span class="line"><span class="cl"> end If </span></span><span class="line"><span class="cl"> set d = createobject(&#34;Scripting.Dictionary&#34;) </span></span><span class="line"><span class="cl"> For Each strValue In arrValues </span></span><span class="line"><span class="cl"> Dim objOption </span></span><span class="line"><span class="cl"> Set objOption = Document.createElement(&#34;OPTION&#34;) </span></span><span class="line"><span class="cl"> if strValue = &#34;LOCAL&#34; OR strValue=&#34;MSSQLSERVER&#34; then </span></span><span class="line"><span class="cl"> strValue = &#34;(local)&#34; </span></span><span class="line"><span class="cl"> else </span></span><span class="line"><span class="cl"> strValue = &#34;.\&#34; &amp; strValue </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> objOption.Text = strValue </span></span><span class="line"><span class="cl"> objOption.Value = strValue </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> if d.Exists(strValue) = false then </span></span><span class="line"><span class="cl"> if selInstances.Contains(objOption) = false then </span></span><span class="line"><span class="cl"> selInstances.Add(objOption) </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> d.Add strValue,strValue </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> Next </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Prompt user to select backup file </span></span><span class="line"><span class="cl"> Sub SelectBackupFile() </span></span><span class="line"><span class="cl"> Dim oDLG </span></span><span class="line"><span class="cl"> Set oDLG=CreateObject(&#34;MSComDlg.CommonDialog&#34;) </span></span><span class="line"><span class="cl"> With oDLG </span></span><span class="line"><span class="cl"> .DialogTitle=&#34;Open&#34; </span></span><span class="line"><span class="cl"> .Filter=&#34;Backup Files|*.bak|All files|*.*&#34; </span></span><span class="line"><span class="cl"> .MaxFileSize=255 </span></span><span class="line"><span class="cl"> .Flags=.Flags Or &amp;H1000 &#39;FileMustExist (OFN_FILEMUSTEXIST) </span></span><span class="line"><span class="cl"> .ShowOpen </span></span><span class="line"><span class="cl"> If .FileName&lt;&gt;&#34;&#34; Then </span></span><span class="line"><span class="cl"> txtFileName.Value =.FileName </span></span><span class="line"><span class="cl"> End If </span></span><span class="line"><span class="cl"> End With </span></span><span class="line"><span class="cl"> Set oDLG=Nothing </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Prompt user for location of database restore </span></span><span class="line"><span class="cl"> Sub SelectRestoreFolder() </span></span><span class="line"><span class="cl"> Const MY_COMPUTER = &amp;H11&amp; </span></span><span class="line"><span class="cl"> Const WINDOW_HANDLE = 0 </span></span><span class="line"><span class="cl"> Const OPTIONS = 0 </span></span><span class="line"><span class="cl"> Dim objShell,objFolder,objFolderItem,strPath </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Set objShell = CreateObject(&#34;Shell.Application&#34;) </span></span><span class="line"><span class="cl"> Set objFolder = objShell.Namespace(MY_COMPUTER) </span></span><span class="line"><span class="cl"> Set objFolderItem = objFolder.Self </span></span><span class="line"><span class="cl"> strPath = objFolderItem.Path </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Set objShell = CreateObject(&#34;Shell.Application&#34;) </span></span><span class="line"><span class="cl"> Set objFolder = objShell.BrowseForFolder _ </span></span><span class="line"><span class="cl"> (WINDOW_HANDLE, &#34;Select a folder:&#34;, OPTIONS, strPath) </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> If not objFolder Is Nothing Then </span></span><span class="line"><span class="cl"> Set objFolderItem = objFolder.Self </span></span><span class="line"><span class="cl"> txtRestoreFolder.Value = objFolderItem.Path </span></span><span class="line"><span class="cl"> End If </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Show/Hide username/password textbox depending on integrated security option </span></span><span class="line"><span class="cl"> Sub ShowAuth() </span></span><span class="line"><span class="cl"> if chkIntegrated.Checked = true then </span></span><span class="line"><span class="cl"> trUserName.Style.Display = &#34;none&#34; </span></span><span class="line"><span class="cl"> trPassword.Style.Display = &#34;none&#34; </span></span><span class="line"><span class="cl"> window.resizeTo intAppWidth,intAppHeight </span></span><span class="line"><span class="cl"> else </span></span><span class="line"><span class="cl"> trUserName.Style.Display = &#34;block&#34; </span></span><span class="line"><span class="cl"> trPassword.Style.Display = &#34;block&#34; </span></span><span class="line"><span class="cl"> window.resizeTo intAppWidth,intAppHeight + 50 </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Generate connection string for the local database </span></span><span class="line"><span class="cl"> Private Function GetConnectionString </span></span><span class="line"><span class="cl"> Dim strInstance,strUserName,strPassword </span></span><span class="line"><span class="cl"> strInstance = selInstances.Value </span></span><span class="line"><span class="cl"> strUserName = txtUserName.Value </span></span><span class="line"><span class="cl"> strPassword = txtPassword.Value </span></span><span class="line"><span class="cl"> if chkIntegrated.Checked = true then </span></span><span class="line"><span class="cl"> GetConnectionString = &#34;Provider=SQLOLEDB.1;Data Source=&#34; &amp; strInstance &amp; &#34;;Integrated Security=SSPI;&#34; </span></span><span class="line"><span class="cl"> else </span></span><span class="line"><span class="cl"> GetConnectionString = &#34;Provider=SQLOLEDB.1;Data Source=&#34; &amp; strInstance &amp; &#34;;UID=&#34; &amp; strUserName &amp; &#34;;PWD=&#34; &amp; strPassword </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> End Function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Check if the specified database name already exists </span></span><span class="line"><span class="cl"> Function DatabaseExists(byval dbName) </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Dim strSQL,objCn,objCmd,strCn, objRs,pName </span></span><span class="line"><span class="cl"> strCn = GetConnectionString() </span></span><span class="line"><span class="cl"> strSQL = &#34;SELECT COUNT(*) FROM sysdatabases where name = ?&#34; </span></span><span class="line"><span class="cl"> set objCn = CREATEOBJECT(&#34;ADODB.Connection&#34;) </span></span><span class="line"><span class="cl"> set objCmd = CREATEOBJECT(&#34;ADODB.Command&#34;) </span></span><span class="line"><span class="cl"> set pName = objCmd.CreateParameter(&#34;@name&#34;,advarchar,adParamInput,128,dbname) </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> objCmd.Parameters.Append pName </span></span><span class="line"><span class="cl"> objCn.Open strCn </span></span><span class="line"><span class="cl"> objCmd.ActiveConnection = objCn </span></span><span class="line"><span class="cl"> objCmd.CommandText = strSQL </span></span><span class="line"><span class="cl"> set objRs = objCmd.Execute </span></span><span class="line"><span class="cl"> if objRs(0) = 0 then </span></span><span class="line"><span class="cl"> DatabaseExists = false </span></span><span class="line"><span class="cl"> else </span></span><span class="line"><span class="cl"> DatabaseExists = true </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> objRs.Close </span></span><span class="line"><span class="cl"> objCn.Close </span></span><span class="line"><span class="cl"> end function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Perform validations before the restore </span></span><span class="line"><span class="cl"> Private Function Validate() </span></span><span class="line"><span class="cl"> dim objFSO, strCn, objCn,dbName </span></span><span class="line"><span class="cl"> set objFSO=createobject(&#34;Scripting.FileSystemObject&#34;) </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Check backup file exists </span></span><span class="line"><span class="cl"> if NOT objFSO.FileExists(txtFileName.Value) then </span></span><span class="line"><span class="cl"> RestoreError.InnerHTML = &#34;File specified does not exist&#34; </span></span><span class="line"><span class="cl"> Validate = false </span></span><span class="line"><span class="cl"> exit function </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> &#39; Check restore folder exists </span></span><span class="line"><span class="cl"> if not objFSO.FolderExists(txtRestoreFolder.Value) then </span></span><span class="line"><span class="cl"> RestoreError.InnerHTML = &#34;Folder specified does not exist&#34; </span></span><span class="line"><span class="cl"> Validate = false </span></span><span class="line"><span class="cl"> exit function </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> err.clear </span></span><span class="line"><span class="cl"> on error resume next </span></span><span class="line"><span class="cl"> &#39; Check connection to database </span></span><span class="line"><span class="cl"> strCn = GetConnectionString </span></span><span class="line"><span class="cl"> set objCn = CREATEOBJECT(&#34;ADODB.Connection&#34;) </span></span><span class="line"><span class="cl"> objCn.Open strCn </span></span><span class="line"><span class="cl"> objCn.Close </span></span><span class="line"><span class="cl"> if err.number &lt;&gt; 0 then </span></span><span class="line"><span class="cl"> RestoreError.InnerHTML= &#34;Connection error:&#34; &amp; err.number </span></span><span class="line"><span class="cl"> Validate = false </span></span><span class="line"><span class="cl"> exit function </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> &#39; Get database name from backup file. </span></span><span class="line"><span class="cl"> &#39; Just a quick check that backup file is readable </span></span><span class="line"><span class="cl"> GetDatabaseNameFromBackupFile() </span></span><span class="line"><span class="cl"> if err.number &lt;&gt; 0 then </span></span><span class="line"><span class="cl"> RestoreError.InnerHTML = &#34;Error:&#34; &amp; err.number &amp; &#34; - &#34; &amp; err.description </span></span><span class="line"><span class="cl"> Validate = false </span></span><span class="line"><span class="cl"> exit function </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> on error goto 0 </span></span><span class="line"><span class="cl"> &#39; Get database name. </span></span><span class="line"><span class="cl"> dbName = GetDatabaseName() </span></span><span class="line"><span class="cl"> &#39; Check if database with same name already exists </span></span><span class="line"><span class="cl"> if DatabaseExists(dbName) then </span></span><span class="line"><span class="cl"> RestoreError.InnerHTML = &#34;Error: Database &#39;&#34; &amp; dbname &amp; &#34;&#39; already exists&#34; </span></span><span class="line"><span class="cl"> Validate = false </span></span><span class="line"><span class="cl"> exit function </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Validate = True </span></span><span class="line"><span class="cl"> End Function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Return database name for restore (either from backup file or user specified name) </span></span><span class="line"><span class="cl"> Private Function GetDatabaseName </span></span><span class="line"><span class="cl"> if chkDBNameDefault.Checked = True then </span></span><span class="line"><span class="cl"> GetDatabaseName = GetDatabaseNameFromBackupFile() </span></span><span class="line"><span class="cl"> Else </span></span><span class="line"><span class="cl"> GetDatabaseName = txtDBName.Value </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> End Function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Retreive database name from backup file </span></span><span class="line"><span class="cl"> Private Function GetDatabaseNameFromBackupFile </span></span><span class="line"><span class="cl"> Dim strSQL,objCn,objCmd,strCn, objRs,pRestoreFile </span></span><span class="line"><span class="cl"> strCn = GetConnectionString() </span></span><span class="line"><span class="cl"> strSQL = &#34;RESTORE HEADERONLY FROM DISK = ?&#34; </span></span><span class="line"><span class="cl"> set objCn = CREATEOBJECT(&#34;ADODB.Connection&#34;) </span></span><span class="line"><span class="cl"> set objCmd = CREATEOBJECT(&#34;ADODB.Command&#34;) </span></span><span class="line"><span class="cl"> set pRestoreFile = objCmd.CreateParameter(&#34;@RestoreFile&#34;,advarchar,adParamInput,255,txtFileName.Value) </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> objCmd.Parameters.Append pRestoreFile </span></span><span class="line"><span class="cl"> objCn.Open strCn </span></span><span class="line"><span class="cl"> objCmd.ActiveConnection = objCn </span></span><span class="line"><span class="cl"> objCmd.CommandText = strSQL </span></span><span class="line"><span class="cl"> set objRs = objCmd.Execute </span></span><span class="line"><span class="cl"> GetDatabaseNameFromBackupFile = objRs(&#34;DatabaseName&#34;) </span></span><span class="line"><span class="cl"> objCn.Close </span></span><span class="line"><span class="cl"> end function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Similar to SQL Server QUOTENAME function </span></span><span class="line"><span class="cl"> &#39; Wraps quotes around string and performs escapes </span></span><span class="line"><span class="cl"> Private Function QuoteName(byval Value, quoteChar) </span></span><span class="line"><span class="cl"> if quotechar = &#34;[&#34; or quotechar = &#34;]&#34; then </span></span><span class="line"><span class="cl"> QuoteName = &#34;[&#34; &amp; REPLACE(Value,&#34;]&#34;,&#34;]]&#34;) &amp; &#34;]&#34; </span></span><span class="line"><span class="cl"> elseif quoteChar = &#34;&#39;&#34; then </span></span><span class="line"><span class="cl"> QuoteName = &#34;&#39;&#34; &amp; REPLACE(Value,&#34;&#39;&#34;,&#34;&#39;&#39;&#34;) &amp; &#34;&#39;&#34; </span></span><span class="line"><span class="cl"> else </span></span><span class="line"><span class="cl"> QuoteName = &#34;&#34; </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> End Function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Function to get the SQL statement used to perform the DB restore </span></span><span class="line"><span class="cl"> Private Function GetRestoreSQL </span></span><span class="line"><span class="cl"> Dim strSQL,objCn,objCmd,strCn, objRs,pRestoreFile </span></span><span class="line"><span class="cl"> Dim dbName </span></span><span class="line"><span class="cl"> dbName = GetDatabaseName() </span></span><span class="line"><span class="cl"> strCn = GetConnectionString() </span></span><span class="line"><span class="cl"> strSQL = &#34;RESTORE FILELISTONLY FROM DISK = ?&#34; </span></span><span class="line"><span class="cl"> set objCn = CREATEOBJECT(&#34;ADODB.Connection&#34;) </span></span><span class="line"><span class="cl"> set objCmd = CREATEOBJECT(&#34;ADODB.Command&#34;) </span></span><span class="line"><span class="cl"> set pRestoreFile = objCmd.CreateParameter(&#34;@RestoreFile&#34;,advarchar,adParamInput,255,txtFileName.Value) </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> objCmd.Parameters.Append pRestoreFile </span></span><span class="line"><span class="cl"> objCn.Open strCn </span></span><span class="line"><span class="cl"> objCmd.ActiveConnection = objCn </span></span><span class="line"><span class="cl"> objCmd.CommandText = strSQL </span></span><span class="line"><span class="cl"> on error resume next </span></span><span class="line"><span class="cl"> set objRs = objCmd.Execute </span></span><span class="line"><span class="cl"> if err.number &lt;&gt; 0 then </span></span><span class="line"><span class="cl"> msgbox(err.description &amp; err.number) </span></span><span class="line"><span class="cl"> exit function </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Dim strFolder </span></span><span class="line"><span class="cl"> strFolder = txtRestoreFolder.Value </span></span><span class="line"><span class="cl"> if not RIGHT(strFolder,1) = &#34;\&#34; then </span></span><span class="line"><span class="cl"> strFolder = strFolder &amp; &#34;\&#34; </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Dim strRestore,strPath </span></span><span class="line"><span class="cl"> while objRs.EOF &lt;&gt; True AND objRs.BOF &lt;&gt; True </span></span><span class="line"><span class="cl"> strPath = strFolder + dbname &amp; &#34;_&#34; &amp; objRs(&#34;LogicalName&#34;) </span></span><span class="line"><span class="cl"> if objRs(&#34;Type&#34;) = &#34;L&#34; then &#39;LOG </span></span><span class="line"><span class="cl"> strPath = strPath &amp; &#34;.ldf&#34; </span></span><span class="line"><span class="cl"> elseif objRs(&#34;Type&#34;) = &#34;S&#34; then &#39;FILESTREAM </span></span><span class="line"><span class="cl"> &#39; Folder don&#39;t add extension </span></span><span class="line"><span class="cl"> else &#39;DATA </span></span><span class="line"><span class="cl"> if objRs(&#34;FileID&#34;) = &#34;1&#34; then &#39;Primary File </span></span><span class="line"><span class="cl"> strPath = strPath &amp; &#34;.mdf&#34; </span></span><span class="line"><span class="cl"> else </span></span><span class="line"><span class="cl"> strPath = strPath &amp; &#34;.ndf&#34; </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> if LEN(strRestore)&gt; 0 then </span></span><span class="line"><span class="cl"> strRestore = strRestore &amp; &#34;, &#34; </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> strRestore = strRestore &amp; &#34;MOVE N&#34; &amp; QuoteName(objRs(&#34;LogicalName&#34;),&#34;&#39;&#34;) &amp; &#34; TO &#34; &amp; QuoteName(strPath,&#34;&#39;&#34;) </span></span><span class="line"><span class="cl"> objRs.MoveNext </span></span><span class="line"><span class="cl"> wend </span></span><span class="line"><span class="cl"> objCn.Close </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> strRestore = &#34;RESTORE DATABASE &#34; &amp; QuoteName(dbName,&#34;]&#34;) &amp; &#34; FROM DISK=N&#34; &amp; QuoteName(txtFileName.Value,&#34;&#39;&#34;) &amp; &#34; WITH FILE=1,&#34; &amp; strRestore </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> GetRestoreSQL = strRestore </span></span><span class="line"><span class="cl"> End Function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Perform database restore </span></span><span class="line"><span class="cl"> Sub RestoreDatabase() </span></span><span class="line"><span class="cl"> Dim strSQL,strCn, objCn, objCmd </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Clear any existing error/completed notifications </span></span><span class="line"><span class="cl"> RestoreError.InnerHTML = &#34;&#34; </span></span><span class="line"><span class="cl"> RestoreCompleted.Style.Display = &#34;none&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Perform validation checks prior to restore </span></span><span class="line"><span class="cl"> if Validate() = false then </span></span><span class="line"><span class="cl"> exit sub </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> &#39; Set restore notification </span></span><span class="line"><span class="cl"> RestoreInProgress.Style.Display = &#34;block&#34; </span></span><span class="line"><span class="cl"> UpdateScreen </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Get SQL for Restore </span></span><span class="line"><span class="cl"> strSQL = GetRestoreSQL() </span></span><span class="line"><span class="cl"> strCn = GetConnectionString() </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> set objCn = CREATEOBJECT(&#34;ADODB.Connection&#34;) </span></span><span class="line"><span class="cl"> set objCmd = CREATEOBJECT(&#34;ADODB.Command&#34;) </span></span><span class="line"><span class="cl"> objCn.Open strCn </span></span><span class="line"><span class="cl"> objCmd.ActiveConnection = objCn </span></span><span class="line"><span class="cl"> objCmd.CommandText = strSQL </span></span><span class="line"><span class="cl"> objCmd.CommandTimeout = 0 </span></span><span class="line"><span class="cl"> on error resume next </span></span><span class="line"><span class="cl"> objCmd.Execute </span></span><span class="line"><span class="cl"> objCn.Close </span></span><span class="line"><span class="cl"> if err.number &lt;&gt; 0 then </span></span><span class="line"><span class="cl"> RestoreError.InnerHTML = &#34;Error: &#34; &amp; err.Number &amp; &#34; - &#34; &amp; err.description </span></span><span class="line"><span class="cl"> else </span></span><span class="line"><span class="cl"> RestoreCompleted.Style.Display = &#34;block&#34; </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> RestoreInProgress.Style.Display = &#34;none&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Causes a refresh </span></span><span class="line"><span class="cl"> Sub UpdateScreen() </span></span><span class="line"><span class="cl"> &#39; this is used to allow screen updates </span></span><span class="line"><span class="cl"> dim CMD, WSHShell </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Set WSHShell = CreateObject(&#34;WScript.Shell&#34;) </span></span><span class="line"><span class="cl"> CMD = WSHShell.ExpandEnvironmentStrings(&#34;%comspec%&#34;) </span></span><span class="line"><span class="cl"> WSHShell.run CMD + &#34; /c &#34;, 0, true </span></span><span class="line"><span class="cl"> Set WSHShell = Nothing </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Enables/Disables database name textbox </span></span><span class="line"><span class="cl"> Sub DefaultOptionChanged() </span></span><span class="line"><span class="cl"> if chkDBNameDefault.Checked = True then </span></span><span class="line"><span class="cl"> txtDBName.Disabled = &#34;Disabled&#34; </span></span><span class="line"><span class="cl"> txtDBName.style.backgroundcolor = &#34;#dfe0e5&#34; </span></span><span class="line"><span class="cl"> else </span></span><span class="line"><span class="cl"> txtDBName.Disabled = &#34;&#34; </span></span><span class="line"><span class="cl"> txtDBName.style.backgroundcolor = &#34;#ffffff&#34; </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl">&lt;/script&gt; </span></span><span class="line"><span class="cl">&lt;/head&gt; </span></span><span class="line"><span class="cl">&lt;HTA:APPLICATION </span></span><span class="line"><span class="cl"> APPLICATIONNAME=&#34;Restore Database Utility&#34; ID=&#34;RestoreDBHTA&#34; INNERBORDER=&#34;no&#34; &gt; </span></span><span class="line"><span class="cl">&lt;body leftmargin=30 topmargin=20 rightmargin=30&gt; </span></span><span class="line"><span class="cl">&lt;table&gt; </span></span><span class="line"><span class="cl">&lt;tr&gt; </span></span><span class="line"><span class="cl">&lt;td&gt;Backup File:&lt;/td&gt;&lt;td&gt;&lt;input id=&#34;txtFileName&#34; style=&#34;width=300px;&#34; type=&#34;Text&#34; Value=&#34;&#34;/&gt;&lt;input type=&#34;submit&#34; value=&#34;Open&#34; OnClick=&#34;SelectBackupFile()&#34; /&gt;&lt;/td&gt; </span></span><span class="line"><span class="cl">&lt;/tr&gt; </span></span><span class="line"><span class="cl">&lt;tr&gt; </span></span><span class="line"><span class="cl">&lt;td&gt;Restore Folder:&lt;/td&gt;&lt;td&gt;&lt;input id=&#34;txtRestoreFolder&#34; style=&#34;width=300px;&#34; type=&#34;Text&#34; Value=&#34;&#34; /&gt;&lt;input type=&#34;submit&#34; value=&#34;Open&#34; OnClick=&#34;SelectRestoreFolder()&#34; /&gt;&lt;/td&gt; </span></span><span class="line"><span class="cl">&lt;/tr&gt; </span></span><span class="line"><span class="cl">&lt;tr&gt; </span></span><span class="line"><span class="cl">&lt;td&gt;SQL Server Instance:&lt;/td&gt; </span></span><span class="line"><span class="cl">&lt;td&gt; </span></span><span class="line"><span class="cl">&lt;select name=&#34;selInstances&#34;&gt; </span></span><span class="line"><span class="cl">&lt;/select&gt; </span></span><span class="line"><span class="cl">&lt;input id=&#34;chkIntegrated&#34; type=&#34;checkbox&#34; checked=&#34;true&#34; OnClick=&#34;ShowAuth()&#34;&gt;Integrated Security&lt;/input&gt; </span></span><span class="line"><span class="cl">&lt;/td&gt; </span></span><span class="line"><span class="cl">&lt;tr id=&#34;trUserName&#34; style=&#34;display:none&#34;&gt; </span></span><span class="line"><span class="cl">&lt;td&gt;UserName:&lt;/td&gt;&lt;td&gt;&lt;input id=&#34;txtUserName&#34; style=&#34;width=200px;&#34; type=&#34;Text&#34; /&gt;&lt;/td&gt; </span></span><span class="line"><span class="cl">&lt;/tr&gt; </span></span><span class="line"><span class="cl">&lt;tr id=&#34;trPassword&#34; style=&#34;display:none&#34;&gt; </span></span><span class="line"><span class="cl">&lt;td&gt;Password&lt;/td&gt;&lt;td&gt;&lt;input id=&#34;txtPassword&#34; style=&#34;width=200px;&#34; type=&#34;password&#34; /&gt;&lt;/td&gt; </span></span><span class="line"><span class="cl">&lt;/tr&gt; </span></span><span class="line"><span class="cl">&lt;tr&gt; </span></span><span class="line"><span class="cl">&lt;td&gt;Database Name:&lt;/td&gt;&lt;td&gt;&lt;input id=&#34;txtDBName&#34; style=&#34;width=200px;background-color:#dfe0e5&#34; disabled=&#34;disabled&#34; type=&#34;Text&#34; /&gt;&lt;input id=&#34;chkDBNameDefault&#34; type=&#34;checkbox&#34; checked=&#34;true&#34; OnClick=&#34;DefaultOptionChanged&#34;&gt;Use Default&lt;/input&gt;&lt;/td&gt; </span></span><span class="line"><span class="cl">&lt;/tr&gt; </span></span><span class="line"><span class="cl">&lt;/table&gt; </span></span><span class="line"><span class="cl">&lt;br/&gt; </span></span><span class="line"><span class="cl">&lt;input type=&#34;submit&#34; value=&#34;Restore Database&#34; OnClick=&#34;RestoreDatabase()&#34; /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&lt;input type=&#34;submit&#34; value=&#34;Close&#34; OnClick=&#34;Close()&#34; /&gt; </span></span><span class="line"><span class="cl">&lt;br/&gt; </span></span><span class="line"><span class="cl">&lt;span id=&#34;RestoreInProgress&#34; style=&#34;display:none&#34;&gt;Database is been restored - this might take a while depending on the size of the database. Please wait...&lt;/span&gt; </span></span><span class="line"><span class="cl">&lt;span id=&#34;RestoreCompleted&#34; style=&#34;display:none&#34;&gt;Restore Completed.&lt;/span&gt; </span></span><span class="line"><span class="cl">&lt;span id=&#34;RestoreError&#34;&gt;&lt;/span&gt; </span></span><span class="line"><span class="cl">&lt;div id=&#34;Footer&#34;&gt; </span></span><span class="line"><span class="cl">&lt;hr/&gt; </span></span><span class="line"><span class="cl"> &lt;div style=&#34;float:left;&#34;&gt;Version 1.0&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div style=&#34;float:right;&#34;&gt;By David Wiseman&lt;br /&gt; </span></span><span class="line"><span class="cl"> &lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div style=&#34;clear:both;&#34;&gt;&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div style=&#34;text-align:center;font-size:12px;font-weight:bold&#34;&gt;&lt;a href=&#34;http://www.wisesoft.co.uk&#34;&gt;www.wisesoft.co.uk&lt;/a&gt;&lt;/div&gt; </span></span><span class="line"><span class="cl">&lt;/div&gt; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl">&lt;/body&gt;&lt;/html&gt;</span></span></code></pre></div> </div> https://wisedataman.com/computer-information-tool/Sun, 31 Aug 2008 00:00:00 +0000https://wisedataman.com/computer-information-tool/<p>Collects WMI information about a specified computer and displays a formatted HTML report. Also allows you to monitor and terminate running processes, connect to shares on the remote computer and shutdown/reboot the remote computer.</p> <p>Don&rsquo;t be put off by the amount of code - just save the script as a HTA (*.hta) and run. No customization is required, but you are free to modify the script to suite your own purposes. </p> <h3 id="features">Features</h3> <ul> <li>Display information for local or remote computer.  Also, option to connect via alternative credentials.</li> <li>Reboot/Shutdown computer.</li> <li>Shortcuts to remote desktop and the computer management MMC console.</li> <li>Operating System Information</li> <li>Sortable/Searchable list of running processes</li> <li>Ability to kill a running process (remotely)</li> <li>Physical memory information.  See how much memory is installed and in which banks.</li> <li>Logical disk information.  Total/Freespace information, including a graphical representation of freespace.</li> <li>Physical disk information - information on the hard drives installed on the computer. e.g. Manufacturer, Model, Size, Serial etc.</li> <li>Processor information - information about CPUs installed on the computer.</li> <li>Shares - Displays a list of all the available shares.  Allows you to map shares as drives and connect to shared printers.</li> <li>Users - Displays a list of local user accounts.</li> <li>Reset passwords for local users and enable/disable local user accounts.</li> </ul> <figure class="wp-block-image size-large"><img src="https://wisedataman.com/wp-content/uploads/2020/05/computer_information_toolv1.1.png" alt="" class="wp-image-251" loading="lazy"></figure> <h3 id="version-history">Version History</h3> <figure class="wp-block-table"><table><tbody><tr><td><strong>Version</strong></td><td><strong>Date</strong></td><td><strong>Notes</strong></td></tr><tr><td>1.1</td><td>2009-12-21</td><td>Added option to connect with alternative credentials (UserName + Password textboxes added)<br>Added Remote Desktop and Computer Management&nbsp;console&nbsp;shortcut<br>Added menu to shutdown command (additional options now available)<br>Added "Users" section.&nbsp; Displays local user accounts, allows you to reset passwords and enable/disable local user accounts.<br>"Enter" key should now default to "Generate Report" button.<br>Changed report to automatically run for local computer when loaded.</td></tr><tr><td><a href="https://wisedataman.com/wp-content/uploads/2020/05/Computer_Information_Tool_version1.txt">1.0</a></td><td>2008-08-31</td><td>Initial release</td></tr></tbody></table></figure> <div class="code-block"><div class="code-title">Computer Information Tool HTA Script</div> <div class="highlight"><pre tabindex="0" class="chroma"><code class="language-text" data-lang="text"><span class="line"><span class="cl">&lt;!DOCTYPE HTML PUBLIC &#34;-//W3C//DTD HTML 4.01 Transitional//EN&#34;&gt; </span></span><span class="line"><span class="cl">&lt;html xmlns=&#34;http://www.w3.org/1999/xhtml&#34;&gt; </span></span><span class="line"><span class="cl">&lt;head&gt; </span></span><span class="line"><span class="cl">&lt;title&gt;Computer Info Tool (http://www.wisesoft.co.uk)&lt;/title&gt; </span></span><span class="line"><span class="cl">&lt;hta:application applicationname=&#34;WiseSoft Computer Info Tool&#34; scroll=&#34;yes&#34; singleinstance=&#34;no&#34; </span></span><span class="line"><span class="cl"> windowstate=&#34;normal&#34;&gt; </span></span><span class="line"><span class="cl">&lt;style type=&#34;text/css&#34;&gt; </span></span><span class="line"><span class="cl">body { </span></span><span class="line"><span class="cl"> margin:0px; </span></span><span class="line"><span class="cl"> background-color:#CBCBCB; /*#F6F6F6;*/ </span></span><span class="line"><span class="cl"> font-family:Arial, Helvetica, sans-serif; </span></span><span class="line"><span class="cl"> font-size:14px; </span></span><span class="line"><span class="cl"> color:#595959; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl">h1 { </span></span><span class="line"><span class="cl"> font-size:24px; </span></span><span class="line"><span class="cl"> font-weight:bold; </span></span><span class="line"><span class="cl"> color:#FFFFFF; </span></span><span class="line"><span class="cl"> background-color:#2886C8; </span></span><span class="line"><span class="cl"> text-align:center; </span></span><span class="line"><span class="cl"> border-style:solid; </span></span><span class="line"><span class="cl"> border-width:thin; </span></span><span class="line"><span class="cl"> border-color:#C9E0F1; </span></span><span class="line"><span class="cl"> padding:5px; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl">h2 { </span></span><span class="line"><span class="cl"> font-size:18px; </span></span><span class="line"><span class="cl"> font-weight:bold; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl">h3 { </span></span><span class="line"><span class="cl"> font-size:16px; </span></span><span class="line"><span class="cl"> font-weight:bold; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl">a { </span></span><span class="line"><span class="cl"> color:#2886C8; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl">#Main { </span></span><span class="line"><span class="cl"> margin-left:20px; </span></span><span class="line"><span class="cl"> margin-right:20px; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl">#DisplayError { </span></span><span class="line"><span class="cl"> color:red; </span></span><span class="line"><span class="cl"> margin-left:20px; </span></span><span class="line"><span class="cl"> margin-right:20px; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl">#Footer { </span></span><span class="line"><span class="cl"> margin:20px; </span></span><span class="line"><span class="cl"> font-weight:bold; </span></span><span class="line"><span class="cl"> font-size:16px; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl">#Header { </span></span><span class="line"><span class="cl"> margin-left:20px; </span></span><span class="line"><span class="cl"> margin-right:20px; </span></span><span class="line"><span class="cl"> text-align:center; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl">#Tools { </span></span><span class="line"><span class="cl"> text-align:center; </span></span><span class="line"><span class="cl"> border-color:#595959; </span></span><span class="line"><span class="cl"> border-style:dotted; </span></span><span class="line"><span class="cl"> border-width:1px; </span></span><span class="line"><span class="cl"> background-color:#F6F6F6; </span></span><span class="line"><span class="cl"> margin-left:20px; </span></span><span class="line"><span class="cl"> margin-right:20px; </span></span><span class="line"><span class="cl"> margin-top:20px; </span></span><span class="line"><span class="cl"> padding:5px; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl">.Button { </span></span><span class="line"><span class="cl"> color: #444444; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl">.InfoSectionHeader { </span></span><span class="line"><span class="cl"> font-size:20px; </span></span><span class="line"><span class="cl"> font-weight:bold; </span></span><span class="line"><span class="cl"> background-color:#595959; </span></span><span class="line"><span class="cl"> color:#FFFFFF; </span></span><span class="line"><span class="cl"> text-align:center; </span></span><span class="line"><span class="cl"> padding:5px; </span></span><span class="line"><span class="cl"> margin-top:0px; </span></span><span class="line"><span class="cl"> cursor:pointer; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl">.InfoSection { </span></span><span class="line"><span class="cl"> text-align:center; </span></span><span class="line"><span class="cl"> margin-bottom:10px; </span></span><span class="line"><span class="cl"> background-color:#FFFFFF; </span></span><span class="line"><span class="cl"> border-color:#595959; </span></span><span class="line"><span class="cl"> border-style:dotted; </span></span><span class="line"><span class="cl"> border-width:1px; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl">.InfoSectionBody { </span></span><span class="line"><span class="cl"> padding:10px; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl">.Link { </span></span><span class="line"><span class="cl"> text-decoration: underline; </span></span><span class="line"><span class="cl"> cursor:pointer; </span></span><span class="line"><span class="cl"> color:#2886C8; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl">.HeaderLink { </span></span><span class="line"><span class="cl"> text-decoration: underline; </span></span><span class="line"><span class="cl"> cursor:pointer; </span></span><span class="line"><span class="cl"> color:#FFFFFF; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl">.Table { </span></span><span class="line"><span class="cl"> /*width:90%;*/ </span></span><span class="line"><span class="cl"> border: 2px solid; </span></span><span class="line"><span class="cl"> border-collapse: collapse; </span></span><span class="line"><span class="cl"> border-color: #696969; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl">.Table th { </span></span><span class="line"><span class="cl"> border: 1px dotted #111111; </span></span><span class="line"><span class="cl"> border-color: #787878; </span></span><span class="line"><span class="cl"> color: #FFFFFF; </span></span><span class="line"><span class="cl"> font: bold 12pt arial, sans-serif; </span></span><span class="line"><span class="cl"> background-color: #595959; /* #787878;*/ </span></span><span class="line"><span class="cl"> text-align: left; </span></span><span class="line"><span class="cl"> padding=3px; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl">.Table td { </span></span><span class="line"><span class="cl"> border: 1px dotted #111111; </span></span><span class="line"><span class="cl"> border-color: #787878; </span></span><span class="line"><span class="cl"> font: bold 10pt arial, sans-serif; </span></span><span class="line"><span class="cl"> color: #787878; </span></span><span class="line"><span class="cl"> padding=5px; </span></span><span class="line"><span class="cl">} </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl">&lt;/style&gt; </span></span><span class="line"><span class="cl">&lt;script language=&#34;VBScript&#34;&gt; </span></span><span class="line"><span class="cl"> Option Explicit </span></span><span class="line"><span class="cl"> Const bytesToMB = 1048576 </span></span><span class="line"><span class="cl"> Const bytesToGB = 1073741824 </span></span><span class="line"><span class="cl"> Const bytesToTB = 1099511627776 </span></span><span class="line"><span class="cl"> Const adVarChar = 200 </span></span><span class="line"><span class="cl"> Const adDate = 7 </span></span><span class="line"><span class="cl"> Const MaxCharacters = 255 </span></span><span class="line"><span class="cl"> Const adFldIsNullable = 32 </span></span><span class="line"><span class="cl"> Const adInteger = 3 </span></span><span class="line"><span class="cl"> Const adBigInt = 20 </span></span><span class="line"><span class="cl"> Const blnConfirmKillProcess = true </span></span><span class="line"><span class="cl"> Const ADS_SECURE_AUTHENTICATION = 1 </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Private objWMIService </span></span><span class="line"><span class="cl"> Private strComputer </span></span><span class="line"><span class="cl"> private intProcessTimerID </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Open Windows explorer to a given path </span></span><span class="line"><span class="cl"> &#39; Used when clicking a link in the &#34;Shares&#34; section </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Sub OpenUNC(ByVal strPath) </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Dim objShell </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Set objShell = CreateObject(&#34;Wscript.Shell&#34;) </span></span><span class="line"><span class="cl"> strPath = &#34;explorer.exe /e,&#34; &amp; strPath </span></span><span class="line"><span class="cl"> objShell.Run strPath </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Reboot computer </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Sub RebootComputer() </span></span><span class="line"><span class="cl"> Dim objItem, colItems </span></span><span class="line"><span class="cl"> strComputer = CurrentComputer.InnerHTML </span></span><span class="line"><span class="cl"> if MsgBox(&#34;Are you sure you want to reboot &#39;&#34; &amp; strComputer &amp; &#34;&#39;?&#34;,vbYesNo+vbExclamation,&#34;Confirm Reboot&#34;) = vbYes then </span></span><span class="line"><span class="cl"> Set colItems = objWMIService.ExecQuery(&#34;Select * from Win32_OperatingSystem&#34;) </span></span><span class="line"><span class="cl"> For Each objItem in colItems </span></span><span class="line"><span class="cl"> objItem.Reboot() </span></span><span class="line"><span class="cl"> Next </span></span><span class="line"><span class="cl"> msgbox &#34;Computer &#39;&#34; &amp; strComputer &amp; &#34;&#39; has been rebooted&#34;,vbOKOnly+vbInformation </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Shutdown computer </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Sub ShutDownComputer() </span></span><span class="line"><span class="cl"> Dim objItem, colItems </span></span><span class="line"><span class="cl"> strComputer = CurrentComputer.InnerHTML </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> dim intOption </span></span><span class="line"><span class="cl"> intOption = InputBox(&#34;Shutdown computer &#39;&#34; &amp; strComputer &amp; &#34;&#39;&#34; &amp; vbcrlf &amp; _ </span></span><span class="line"><span class="cl"> &#34;Options:&#34; &amp; vbcrlf &amp; vbcrlf &amp; _ </span></span><span class="line"><span class="cl"> &#34;0 = Log Off &#34; &amp; vbcrlf &amp; _ </span></span><span class="line"><span class="cl"> &#34;4 = Forced Log Off&#34; &amp; vbcrlf &amp; _ </span></span><span class="line"><span class="cl"> &#34;1 = Shut Down&#34; &amp; vbcrlf &amp; _ </span></span><span class="line"><span class="cl"> &#34;5 = Forced Shutdown&#34; &amp; vbcrlf &amp; _ </span></span><span class="line"><span class="cl"> &#34;2 = Reboot&#34; &amp; vbcrlf &amp; _ </span></span><span class="line"><span class="cl"> &#34;6 = Forced Reboot&#34; &amp; vbcrlf &amp; _ </span></span><span class="line"><span class="cl"> &#34;8 = Power Off&#34; &amp; vbcrlf &amp; _ </span></span><span class="line"><span class="cl"> &#34;12 = Forced Power Off&#34;,&#34;Shutdown&#34;,1) </span></span><span class="line"><span class="cl"> SELECT CASE intOption </span></span><span class="line"><span class="cl"> CASE &#34;0&#34;,&#34;4&#34;,&#34;1&#34;,&#34;5&#34;,&#34;2&#34;,&#34;6&#34;,&#34;8&#34;,&#34;12&#34; </span></span><span class="line"><span class="cl"> Set colItems = objWMIService.ExecQuery(&#34;Select * from Win32_OperatingSystem&#34;) </span></span><span class="line"><span class="cl"> For Each objItem in colItems </span></span><span class="line"><span class="cl"> objItem.Win32Shutdown(intOption) </span></span><span class="line"><span class="cl"> Next </span></span><span class="line"><span class="cl"> msgbox &#34;Command has been sent to &#39;&#34; &amp; strComputer &amp; &#34;&#39;&#34;,vbOKOnly+vbInformation </span></span><span class="line"><span class="cl"> CASE &#34;&#34; </span></span><span class="line"><span class="cl"> CASE Else </span></span><span class="line"><span class="cl"> msgbox &#34;Invalid option specified:&#34; &amp; intOption,vbOKOnly+vbExclamation </span></span><span class="line"><span class="cl"> END SELECT </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Kills the specified process </span></span><span class="line"><span class="cl"> &#39; Called when &#34;Kill Process&#34; link is clicked in the Running Processes section </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Sub KillProcess(ByVal intProcessID, ByVal strName) </span></span><span class="line"><span class="cl"> Dim objItem, colItems </span></span><span class="line"><span class="cl"> strComputer = CurrentComputer.InnerHTML </span></span><span class="line"><span class="cl"> if blnConfirmKillProcess = True then </span></span><span class="line"><span class="cl"> if msgbox(&#34;Are you sure you want to kill the &#39;&#34; &amp; strName &amp; &#34;&#39; process on &#39;&#34; &amp; strComputer &amp; &#34;&#39;?&#34;,vbYesNo+vbExclamation,&#34;Confirm Kill Process&#34;) = vbNo then </span></span><span class="line"><span class="cl"> exit sub </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> &#39;Set objWMIService = GetObject(&#34;winmgmts:\\&#34; &amp; strComputer &amp; &#34;\root\cimv2&#34;) </span></span><span class="line"><span class="cl"> Set colItems = objWMIService.ExecQuery(&#34;Select * from Win32_Process WHERE ProcessID = &#39;&#34; &amp; _ </span></span><span class="line"><span class="cl"> intProcessID &amp; &#34;&#39; AND Name = &#39;&#34; &amp; strName &amp; &#34;&#39;&#34;) </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> For Each objItem In colItems </span></span><span class="line"><span class="cl"> objItem.Terminate() </span></span><span class="line"><span class="cl"> Next </span></span><span class="line"><span class="cl"> RefreshProcesses </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Refreshes list of processes in the &#34;Running Processes&#34; section </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Sub RefreshProcesses </span></span><span class="line"><span class="cl"> &#39;strComputer = CurrentComputer.InnerHTML </span></span><span class="line"><span class="cl"> &#39;Set objWMIService = GetObject(&#34;winmgmts:\\&#34; &amp; strComputer &amp; &#34;\root\cimv2&#34;) </span></span><span class="line"><span class="cl"> ProcessesData.InnerHTML = RunningProcesses_HTML </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Enables/Disables the auto refresh feature in the &#34;Running Processes&#34; section </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> sub SetProcessAutoRefresh </span></span><span class="line"><span class="cl"> dim intInterval </span></span><span class="line"><span class="cl"> &#39; Get the refresh interval </span></span><span class="line"><span class="cl"> intInterval = ProcessAutoRefresh.Value </span></span><span class="line"><span class="cl"> &#39; Remove the current auto-refresh </span></span><span class="line"><span class="cl"> window.clearInterval(intProcessTimerID) </span></span><span class="line"><span class="cl"> &#39; Add an auto-refresh if specified </span></span><span class="line"><span class="cl"> if intInterval &gt; 0 then </span></span><span class="line"><span class="cl"> intProcessTimerID = window.setInterval(&#34;RefreshProcesses&#34;, intInterval) </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> end sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Stores the sort value for &#34;Running Processes&#34; section in a hidden div </span></span><span class="line"><span class="cl"> &#39; and refreshes the processes list with the new sort value </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Sub SortProcesses(byval strSort) </span></span><span class="line"><span class="cl"> &#39; If sort link is clicked twice on the same column, sort descending </span></span><span class="line"><span class="cl"> if ProcessSort.InnerHTML = strSort then </span></span><span class="line"><span class="cl"> ProcessSort.InnerHTML = strSort &amp; &#34; DESC&#34; </span></span><span class="line"><span class="cl"> else </span></span><span class="line"><span class="cl"> ProcessSort.InnerHTML = strSort </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> RefreshProcesses() </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Map as network drive on this computer to a share on another computer </span></span><span class="line"><span class="cl"> &#39; Called from the &#34;Shares&#34; section. User is prompted for a drive letter </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Sub MapDrive(ByVal strPath) </span></span><span class="line"><span class="cl"> Dim objNetwork </span></span><span class="line"><span class="cl"> Dim strDrive </span></span><span class="line"><span class="cl"> strDrive = InputBox(&#34;Enter drive letter:&#34;,&#34;Drive Letter&#34;,&#34;Z&#34;) </span></span><span class="line"><span class="cl"> If strDrive &lt;&gt; &#34;&#34; Then </span></span><span class="line"><span class="cl"> strDrive = Left(strDrive,1) &amp; &#34;:&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Set objNetwork = CreateObject(&#34;WScript.Network&#34;) </span></span><span class="line"><span class="cl"> objNetwork.MapNetworkDrive strDrive,strPath </span></span><span class="line"><span class="cl"> End If </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Stores the sort value for &#34;Running Processes&#34; section in a hidden div </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Sub MapPrinter(ByVal strPath) </span></span><span class="line"><span class="cl"> Dim objNetwork </span></span><span class="line"><span class="cl"> Set objNetwork = createobject(&#34;Wscript.Network&#34;) </span></span><span class="line"><span class="cl"> objNetwork.AddWindowsPrinterConnection(strPath) </span></span><span class="line"><span class="cl"> If MsgBox(&#34;Make Printer Default?&#34;,vbYesNo+vbQuestion,&#34;Default Printer&#34;) = vbYes Then </span></span><span class="line"><span class="cl"> objNetwork.SetDefaultPrinter strPath </span></span><span class="line"><span class="cl"> End If </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Replace special HTML characters </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Function HTMLEncode(strValue) </span></span><span class="line"><span class="cl"> HTMLEncode= REplace(Replace(strValue,&#34;&lt;&#34;,&#34;&amp;lt;&#34;),&#34;&gt;&#34;,&#34;&amp;gt;&#34;) </span></span><span class="line"><span class="cl"> End Function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Convert Bytes to MB,GB or TB as appropriate </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Function ConvertToDiskUnit(ByVal value) </span></span><span class="line"><span class="cl"> IF (value/bytesToTb) &gt; 1 Then </span></span><span class="line"><span class="cl"> ConvertToDiskUnit = round(value / bytesToTB,1) &amp; &#34; TB&#34; </span></span><span class="line"><span class="cl"> ELSEIF (value/bytesToGb) &gt; 1 Then </span></span><span class="line"><span class="cl"> ConvertToDiskUnit = round(value / bytesToGB,1) &amp; &#34; GB&#34; </span></span><span class="line"><span class="cl"> Else </span></span><span class="line"><span class="cl"> ConvertToDiskUnit = round(value / bytesToMB,1) &amp; &#34; MB&#34; </span></span><span class="line"><span class="cl"> END If </span></span><span class="line"><span class="cl"> End Function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Convert integer value to string </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Function GetMemoryType(ByVal intType) </span></span><span class="line"><span class="cl"> Dim strType </span></span><span class="line"><span class="cl"> Select case intType </span></span><span class="line"><span class="cl"> Case 0 </span></span><span class="line"><span class="cl"> strType = &#34;Unknown&#34; </span></span><span class="line"><span class="cl"> Case 1 </span></span><span class="line"><span class="cl"> strType = &#34;Other&#34; </span></span><span class="line"><span class="cl"> Case 2 </span></span><span class="line"><span class="cl"> strType = &#34;DRAM&#34; </span></span><span class="line"><span class="cl"> Case 3 </span></span><span class="line"><span class="cl"> strType = &#34;Synchronous DRAM&#34; </span></span><span class="line"><span class="cl"> Case 4 </span></span><span class="line"><span class="cl"> strType = &#34;Cache DRAM&#34; </span></span><span class="line"><span class="cl"> Case 5 </span></span><span class="line"><span class="cl"> strType = &#34;EDO&#34; </span></span><span class="line"><span class="cl"> Case 6 </span></span><span class="line"><span class="cl"> strType = &#34;EDRAM&#34; </span></span><span class="line"><span class="cl"> Case 7 </span></span><span class="line"><span class="cl"> strType = &#34;VRAM&#34; </span></span><span class="line"><span class="cl"> Case 8 </span></span><span class="line"><span class="cl"> strType = &#34;SRAM&#34; </span></span><span class="line"><span class="cl"> Case 9 </span></span><span class="line"><span class="cl"> strType = &#34;RAM&#34; </span></span><span class="line"><span class="cl"> Case 10 </span></span><span class="line"><span class="cl"> strType = &#34;ROM&#34; </span></span><span class="line"><span class="cl"> Case 11 </span></span><span class="line"><span class="cl"> strType = &#34; Flash&#34; </span></span><span class="line"><span class="cl"> Case 12 </span></span><span class="line"><span class="cl"> strType = &#34;EEPROM&#34; </span></span><span class="line"><span class="cl"> Case 13 </span></span><span class="line"><span class="cl"> strType = &#34;FEPROM&#34; </span></span><span class="line"><span class="cl"> Case 14 </span></span><span class="line"><span class="cl"> strType = &#34; EPROM&#34; </span></span><span class="line"><span class="cl"> Case 15 </span></span><span class="line"><span class="cl"> strType = &#34; CDRAM&#34; </span></span><span class="line"><span class="cl"> Case 16 </span></span><span class="line"><span class="cl"> strType = &#34;3DRAM&#34; </span></span><span class="line"><span class="cl"> Case 17 </span></span><span class="line"><span class="cl"> strType = &#34; SDRAM&#34; </span></span><span class="line"><span class="cl"> Case 18 </span></span><span class="line"><span class="cl"> strType = &#34; SGRAM&#34; </span></span><span class="line"><span class="cl"> Case 19 </span></span><span class="line"><span class="cl"> strType = &#34; RDRAM&#34; </span></span><span class="line"><span class="cl"> Case 20 </span></span><span class="line"><span class="cl"> strType = &#34; DDR&#34; </span></span><span class="line"><span class="cl"> Case 21 </span></span><span class="line"><span class="cl"> strType = &#34; DDR-2&#34; </span></span><span class="line"><span class="cl"> Case Else </span></span><span class="line"><span class="cl"> strType = &#34;Unknown&#34; </span></span><span class="line"><span class="cl"> End Select </span></span><span class="line"><span class="cl"> GetMemoryType=strType </span></span><span class="line"><span class="cl"> End Function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Convert Integer value to string </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Function GetMemoryFormFactor(ByVal intFormFactor) </span></span><span class="line"><span class="cl"> Dim strFormFactor </span></span><span class="line"><span class="cl"> Select Case intFormFactor </span></span><span class="line"><span class="cl"> Case 0 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;Unknown&#34; </span></span><span class="line"><span class="cl"> Case 1 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;Other&#34; </span></span><span class="line"><span class="cl"> Case 2 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;SIP&#34; </span></span><span class="line"><span class="cl"> Case 3 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;DIP&#34; </span></span><span class="line"><span class="cl"> Case 4 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;ZIP&#34; </span></span><span class="line"><span class="cl"> Case 5 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;SOJ&#34; </span></span><span class="line"><span class="cl"> Case 6 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;Proprietary&#34; </span></span><span class="line"><span class="cl"> Case 7 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;SIMM&#34; </span></span><span class="line"><span class="cl"> Case 8 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;DIMM&#34; </span></span><span class="line"><span class="cl"> Case 9 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;TSOP&#34; </span></span><span class="line"><span class="cl"> Case 10 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;PGA&#34; </span></span><span class="line"><span class="cl"> Case 11 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;RIMM&#34; </span></span><span class="line"><span class="cl"> Case 12 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;SODIMM&#34; </span></span><span class="line"><span class="cl"> Case 13 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;SRIMM&#34; </span></span><span class="line"><span class="cl"> Case 14 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;SMD&#34; </span></span><span class="line"><span class="cl"> Case 15 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;SSMP&#34; </span></span><span class="line"><span class="cl"> Case 16 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;QFP&#34; </span></span><span class="line"><span class="cl"> Case 17 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;TQFP&#34; </span></span><span class="line"><span class="cl"> Case 18 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;SOIC&#34; </span></span><span class="line"><span class="cl"> Case 19 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;LCC&#34; </span></span><span class="line"><span class="cl"> Case 20 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;PLCC&#34; </span></span><span class="line"><span class="cl"> Case 21 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;BGA&#34; </span></span><span class="line"><span class="cl"> Case 22 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;FPBGA&#34; </span></span><span class="line"><span class="cl"> Case 23 </span></span><span class="line"><span class="cl"> strFormFactor = &#34;LGA&#34; </span></span><span class="line"><span class="cl"> case Else </span></span><span class="line"><span class="cl"> strFormFactor = &#34;Unknown&#34; </span></span><span class="line"><span class="cl"> End Select </span></span><span class="line"><span class="cl"> GetMemoryFormFactor=strFormFactor </span></span><span class="line"><span class="cl"> End Function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Convert date string to a more readable format </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Function FormatDate(ByVal strValue) </span></span><span class="line"><span class="cl"> Dim strDate </span></span><span class="line"><span class="cl"> If ISNULL(strValue) Or strValue = &#34;&#34; Then </span></span><span class="line"><span class="cl"> strDate = &#34;&#34; </span></span><span class="line"><span class="cl"> Else </span></span><span class="line"><span class="cl"> strDate = Left(strValue,4) &amp; &#34;-&#34; &amp; MID(strValue,5,2) &amp; &#34;-&#34; &amp; MID(strValue,7,2) &amp; &#34; &#34; &amp; _ </span></span><span class="line"><span class="cl"> Mid(strValue,9,2) &amp; &#34;:&#34; &amp; Mid(strValue,11,2) </span></span><span class="line"><span class="cl"> End If </span></span><span class="line"><span class="cl"> FormatDate = strDate </span></span><span class="line"><span class="cl"> End Function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Clear existing report data </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Sub Reset </span></span><span class="line"><span class="cl"> ProcessAutoRefresh.Value=&#34;0&#34; </span></span><span class="line"><span class="cl"> window.clearInterval(intProcessTimerID) </span></span><span class="line"><span class="cl"> Main.Style.Display = &#34;none&#34; </span></span><span class="line"><span class="cl"> Tools.Style.Display = &#34;none&#34; </span></span><span class="line"><span class="cl"> LogicalDisk.InnerHTML=&#34;&#34; </span></span><span class="line"><span class="cl"> PhysicalDisk.InnerHTML=&#34;&#34; </span></span><span class="line"><span class="cl"> Processor.InnerHTML =&#34;&#34; </span></span><span class="line"><span class="cl"> Memory.InnerHTML = &#34;&#34; </span></span><span class="line"><span class="cl"> OS.InnerHTML =&#34;&#34; </span></span><span class="line"><span class="cl"> Shares.InnerHTML=&#34;&#34; </span></span><span class="line"><span class="cl"> DisplayError.InnerHTML=&#34;&#34; </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Main procedure used to generate report </span></span><span class="line"><span class="cl"> &#39; Calls other procedures that generate the HTML for each section </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Sub GenerateReport </span></span><span class="line"><span class="cl"> Reset() </span></span><span class="line"><span class="cl"> strComputer = txtComputer.Value </span></span><span class="line"><span class="cl"> if strComputer = &#34;&#34; Then </span></span><span class="line"><span class="cl"> Dim objNetwork </span></span><span class="line"><span class="cl"> set objNetwork = createobject(&#34;wscript.network&#34;) </span></span><span class="line"><span class="cl"> strComputer = objNetwork.ComputerName </span></span><span class="line"><span class="cl"> txtComputer.Value = strComputer </span></span><span class="line"><span class="cl"> End If </span></span><span class="line"><span class="cl"> CurrentComputer.InnerHTML = strComputer </span></span><span class="line"><span class="cl"> Dim objSWbemLocator </span></span><span class="line"><span class="cl"> On Error Resume Next </span></span><span class="line"><span class="cl"> If txtUserName.Value &lt;&gt; &#34;&#34; Then </span></span><span class="line"><span class="cl"> Set objSWbemLocator = CreateObject(&#34;WbemScripting.SWbemLocator&#34;) </span></span><span class="line"><span class="cl"> Set objWMIService = objSWbemLocator.ConnectServer _ </span></span><span class="line"><span class="cl"> (strComputer, &#34;root\cimv2&#34;, txtUserName.Value, txtPassword.Value) </span></span><span class="line"><span class="cl"> objWMIService.Security_.ImpersonationLevel = 3 </span></span><span class="line"><span class="cl"> Else </span></span><span class="line"><span class="cl"> Set objWMIService = GetObject(&#34;winmgmts:\\&#34; &amp; strComputer &amp; &#34;\root\cimv2&#34;) </span></span><span class="line"><span class="cl"> End If </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> If Err.Number &lt;&gt; 0 Then </span></span><span class="line"><span class="cl"> On Error GoTo 0 </span></span><span class="line"><span class="cl"> DisplayError.InnerHTML = &#34;Error connecting to &#39;&#34; &amp; strComputer &amp; &#34;&#39;&#34; </span></span><span class="line"><span class="cl"> Err.Clear </span></span><span class="line"><span class="cl"> Exit Sub </span></span><span class="line"><span class="cl"> End If </span></span><span class="line"><span class="cl"> On Error GoTo 0 </span></span><span class="line"><span class="cl"> Main.Style.Display = &#34;&#34; </span></span><span class="line"><span class="cl"> Tools.Style.Display = &#34;&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> ProcessesData.InnerHTML = RunningProcesses_HTML </span></span><span class="line"><span class="cl"> LogicalDisk.InnerHTML = LogicalDisk_HTML </span></span><span class="line"><span class="cl"> PhysicalDisk.InnerHTML = PhysicalDisk_HTML </span></span><span class="line"><span class="cl"> Processor.InnerHTML = Processor_HTML </span></span><span class="line"><span class="cl"> Memory.InnerHTML = Memory_HTML </span></span><span class="line"><span class="cl"> OS.InnerHTML = OS_HTML </span></span><span class="line"><span class="cl"> Shares.InnerHTML = Shares_HTML </span></span><span class="line"><span class="cl"> Users.InnerHTML = Users_HTML </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Gets a list of running processes and returns HTML for the &#34;Running Processes&#34; section </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Function RunningProcesses_HTML </span></span><span class="line"><span class="cl"> Dim row,strHTML,strFilter </span></span><span class="line"><span class="cl"> Dim DataList,colItems,objItem,strUser,strDomain </span></span><span class="line"><span class="cl"> Dim strWMIQuery </span></span><span class="line"><span class="cl"> strFilter = txtProcessFilter.Value </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Recordset is used to sort data from WMI </span></span><span class="line"><span class="cl"> Set DataList = CreateObject(&#34;ADOR.Recordset&#34;) </span></span><span class="line"><span class="cl"> DataList.Fields.Append &#34;Name&#34;, adVarChar, MaxCharacters, adFldIsNullable </span></span><span class="line"><span class="cl"> DataList.Fields.Append &#34;WorkingSet&#34;, adInteger, adFldIsNullable </span></span><span class="line"><span class="cl"> DataList.Fields.Append &#34;CreationDate&#34;,adVarChar, MaxCharacters, adFldIsNullable </span></span><span class="line"><span class="cl"> DataList.Fields.Append &#34;Description&#34;,adVarChar,MaxCharacters, adFldIsNullable </span></span><span class="line"><span class="cl"> DataList.Fields.Append &#34;ProcessID&#34;,adInteger, adFldIsNullable </span></span><span class="line"><span class="cl"> DataList.Fields.Append &#34;CPUTime&#34;,adInteger, adFldIsNullable </span></span><span class="line"><span class="cl"> DataList.Fields.Append &#34;Caption&#34;,adVarChar,MaxCharacters, adFldIsNullable </span></span><span class="line"><span class="cl"> DataList.Fields.Append &#34;Owner&#34;,adVarChar,MaxCharacters, adFldIsNullable </span></span><span class="line"><span class="cl"> DataList.Fields.Append &#34;Path&#34;,adVarChar,MaxCharacters, adFldIsNullable </span></span><span class="line"><span class="cl"> DataList.Open </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> strWMIQuery = &#34;Select * From Win32_Process&#34; </span></span><span class="line"><span class="cl"> &#39; Add filter if required </span></span><span class="line"><span class="cl"> if strFilter &lt;&gt; &#34;&#34; then </span></span><span class="line"><span class="cl"> strWMIQuery = strWMIQuery &amp; &#34; WHERE Name LIKE &#39;%&#34; &amp; strFilter &amp; &#34;%&#39;&#34; </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Set colItems = objWMIService.ExecQuery(strWMIQuery) </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Load WMI data into recordset </span></span><span class="line"><span class="cl"> For Each objItem in colItems </span></span><span class="line"><span class="cl"> Dim strOwner </span></span><span class="line"><span class="cl"> DataList.AddNew </span></span><span class="line"><span class="cl"> on error resume next </span></span><span class="line"><span class="cl"> DataList(&#34;Name&#34;) = HTMLEncode(objItem.Name) </span></span><span class="line"><span class="cl"> DataList(&#34;WorkingSet&#34;) = objItem.WorkingSetSize </span></span><span class="line"><span class="cl"> DataList(&#34;CreationDate&#34;) = objItem.CreationDate </span></span><span class="line"><span class="cl"> DataList(&#34;Description&#34;) = HTMLEncode(objItem.Description) </span></span><span class="line"><span class="cl"> DataList(&#34;ProcessID&#34;) = objItem.ProcessID </span></span><span class="line"><span class="cl"> DataList(&#34;Caption&#34;) = objItem.Caption </span></span><span class="line"><span class="cl"> DataList(&#34;CPUTime&#34;) = (CSng(objItem.KernelModeTime) + CSng(objItem.UserModeTime)) / 10000000 </span></span><span class="line"><span class="cl"> If objItem.GetOwner (strUser, strDomain) = 0 Then </span></span><span class="line"><span class="cl"> strOwner = strDomain &amp; &#34;\&#34; &amp; strUser </span></span><span class="line"><span class="cl"> End If </span></span><span class="line"><span class="cl"> DataList(&#34;Owner&#34;) = strOwner </span></span><span class="line"><span class="cl"> on error goto 0 </span></span><span class="line"><span class="cl"> DataList.Update </span></span><span class="line"><span class="cl"> Next </span></span><span class="line"><span class="cl"> &#39; Sort recordset </span></span><span class="line"><span class="cl"> DataList.Sort = ProcessSort.InnerHTML </span></span><span class="line"><span class="cl"> &#39; Check if recordset is not empty </span></span><span class="line"><span class="cl"> If DataList.BOF = FALSE then </span></span><span class="line"><span class="cl"> DataList.MoveFirst </span></span><span class="line"><span class="cl"> &#39; Generate HTML table report with running processes </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;table class=&#34;&#34;Table&#34;&#34;&gt;&#34; </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;tr&gt;&lt;th&gt;&lt;span onclick=&#34;&#34;SortProcesses(&#39;Name&#39;)&#34;&#34; class=&#34;&#34;HeaderLink&#34;&#34;&gt;Name&lt;/span&gt;&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;&lt;span onclick=&#34;&#34;SortProcesses(&#39;CreationDate&#39;)&#34;&#34; class=&#34;&#34;HeaderLink&#34;&#34;&gt;Creation Date&lt;/span&gt;&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;&lt;span onclick=&#34;&#34;SortProcesses(&#39;Owner&#39;)&#34;&#34; class=&#34;&#34;HeaderLink&#34;&#34;&gt;Owner&lt;/span&gt;&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;&lt;span onclick=&#34;&#34;SortProcesses(&#39;WorkingSet&#39;)&#34;&#34; class=&#34;&#34;HeaderLink&#34;&#34;&gt;Working Set&lt;/span&gt;&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;&lt;span onclick=&#34;&#34;SortProcesses(&#39;CPUTime&#39;)&#34;&#34; class=&#34;&#34;HeaderLink&#34;&#34;&gt;Total CPU Time(s)&lt;/span&gt;&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;&amp;nbsp;&lt;/th&gt;&lt;/tr&gt;&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Do Until DataList.EOF </span></span><span class="line"><span class="cl"> Dim strCaption,strCreationDate,strPath,intProcessID,strDescription </span></span><span class="line"><span class="cl"> Dim strWorkingSet </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;tr&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&lt;div title=&#34;&#34;&#34; &amp; DataList(&#34;Path&#34;) &amp; &#34;&#34;&#34;&gt;&#34; &amp; DataList(&#34;Name&#34;) &amp; &#34;&lt;/div&gt;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; FormatDate(DataList(&#34;CreationDate&#34;)) &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; DataList(&#34;Owner&#34;) &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; ConvertToDiskUnit(DataList(&#34;WorkingSet&#34;)) &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; DataList(&#34;CPUTime&#34;) &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&lt;span onclick=&#34;&#34;KillProcess &#39;&#34; &amp; DataList(&#34;ProcessID&#34;) &amp; &#34;&#39;,&#39;&#34; &amp; DataList(&#34;Name&#34;) &amp; &#34;&#39;&#34;&#34; class=&#34;&#34;Link&#34;&#34;&gt;Kill Process&lt;/span&gt;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;/tr&gt;&#34; </span></span><span class="line"><span class="cl"> DataList.MoveNext </span></span><span class="line"><span class="cl"> Loop </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;/table&gt;&#34; </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> DataList.Close </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;br&gt;Last Refresh:&#34; &amp; Now() </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> RunningProcesses_HTML=strHTML </span></span><span class="line"><span class="cl"> End Function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Gets a list of shared folders and shared printers and </span></span><span class="line"><span class="cl"> &#39; returns HTML for the &#34;Shares&#34; section </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Function Shares_HTML </span></span><span class="line"><span class="cl"> Dim objItem, colItems </span></span><span class="line"><span class="cl"> Dim strHTML </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Query to return shared folders </span></span><span class="line"><span class="cl"> Set colItems = objWMIService.ExecQuery(&#34;Select * from Win32_Share WHERE Type = 2147483648 OR Type = 0&#34;) </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;table&gt;&lt;tr&gt;&lt;td style=&#34;&#34;vertical-align:top&#34;&#34;&gt;&#34; </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;table class=&#34;&#34;Table&#34;&#34;&gt;&lt;tr&gt;&lt;th colspan=&#34;&#34;2&#34;&#34;&gt;Folder Shares&lt;/th&gt;&lt;/tr&gt;&#34; </span></span><span class="line"><span class="cl"> For Each objItem In colItems </span></span><span class="line"><span class="cl"> Dim strShare </span></span><span class="line"><span class="cl"> strShare = HTMLEncode(objItem.Name) </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;tr&gt;&lt;td&gt;&lt;span class=&#34;&#34;Link&#34;&#34; onclick=&#34;&#34;OpenUNC(&#39;\\&#34; &amp; strComputer &amp; &#34;\&#34; &amp; strShare &amp; &#34;&#39;)&#34;&#34;&gt;&#34; &amp; strShare &amp; &#34;&lt;/span&gt;&lt;/td&gt;&#34; </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;td&gt;&lt;input class=&#34;&#34;Button&#34;&#34; type=&#34;&#34;button&#34;&#34; onclick=&#34;&#34;MapDrive(&#39;\\&#34; &amp; strComputer &amp; &#34;\&#34; &amp; strShare &amp; &#34;&#39;)&#34;&#34; value=&#34;&#34;Map Drive&#34;&#34;&gt;&lt;/input&gt;&lt;/td&gt;&lt;/tr&gt;&#34; </span></span><span class="line"><span class="cl"> Next </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;/table&gt;&lt;/td&gt;&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; Query to return shared printers </span></span><span class="line"><span class="cl"> Set colItems = objWMIService.ExecQuery(&#34;Select * from Win32_Share WHERE Type = 2147483649 OR Type = 1&#34;) </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;td style=&#34;&#34;vertical-align:top&#34;&#34;&gt;&#34; </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;table class=&#34;&#34;Table&#34;&#34;&gt;&lt;tr&gt;&lt;th colspan=&#34;&#34;2&#34;&#34;&gt;Printer Shares&lt;/th&gt;&lt;/tr&gt;&#34; </span></span><span class="line"><span class="cl"> For Each objItem In colItems </span></span><span class="line"><span class="cl"> Dim strPrinterShare </span></span><span class="line"><span class="cl"> strPrinterShare = HTMLEncode(objItem.Name) </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;tr&gt;&lt;td&gt;&lt;span class=&#34;&#34;Link&#34;&#34; onclick=&#34;&#34;OpenUNC(&#39;\\&#34; &amp; strComputer &amp; &#34;\&#34; &amp; strPrinterShare &amp; &#34;&#39;)&#34;&#34;&gt;&#34; &amp; strPrinterShare &amp; &#34;&lt;/span&gt;&lt;/td&gt;&#34; </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;td&gt;&lt;input class=&#34;&#34;Button&#34;&#34; type=&#34;&#34;button&#34;&#34; onclick=&#34;&#34;MapPrinter(&#39;\\&#34; &amp; strComputer &amp; &#34;\&#34; &amp; strPrinterShare &amp; &#34;&#39;)&#34;&#34; value=&#34;&#34;Connect Printer&#34;&#34;&gt;&lt;/input&gt;&lt;/td&gt;&lt;/tr&gt;&#34; </span></span><span class="line"><span class="cl"> Next </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;/table&gt;&lt;/td&gt;&lt;/table&gt;&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Shares_HTML = strHTML </span></span><span class="line"><span class="cl"> End Function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Gets computer system info to be included in the &#34;OS / General&#34; section </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Sub GetComputerSystemInfo(BYRef strDNSHostName,ByRef strDomain,ByRef strDomainRole, _ </span></span><span class="line"><span class="cl"> ByRef strManufacturer,ByRef strModel,ByRef strUserName) </span></span><span class="line"><span class="cl"> Dim objItem, colItems </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Set colItems = objWMIService.ExecQuery(&#34;Select * from Win32_ComputerSystem&#34;) </span></span><span class="line"><span class="cl"> For Each objItem In colItems </span></span><span class="line"><span class="cl"> On Error Resume Next </span></span><span class="line"><span class="cl"> strDNSHostName = HTMLEncode(objItem.DNSHostName) </span></span><span class="line"><span class="cl"> strDomain = HTMLEncode(objItem.Domain) </span></span><span class="line"><span class="cl"> strManufacturer = HTMLEncode(objItem.Manufacturer) </span></span><span class="line"><span class="cl"> strModel = HTMLEncode(objItem.Model) </span></span><span class="line"><span class="cl"> strUserName = HTMLEncode(objItem.UserName) </span></span><span class="line"><span class="cl"> On Error GoTo 0 </span></span><span class="line"><span class="cl"> If strUserName = &#34;&#34; Then </span></span><span class="line"><span class="cl"> strUserName = &#34;{not logged in}&#34; </span></span><span class="line"><span class="cl"> End If </span></span><span class="line"><span class="cl"> Select Case objItem.DomainRole </span></span><span class="line"><span class="cl"> Case 0 </span></span><span class="line"><span class="cl"> strDomainRole=&#34;Standalone Workstation&#34; </span></span><span class="line"><span class="cl"> Case 1 </span></span><span class="line"><span class="cl"> strDomainRole=&#34;Member Workstation&#34; </span></span><span class="line"><span class="cl"> Case 2 </span></span><span class="line"><span class="cl"> strDomainRole=&#34;Standalone Server&#34; </span></span><span class="line"><span class="cl"> Case 3 </span></span><span class="line"><span class="cl"> strDomainRole=&#34;Member Server&#34; </span></span><span class="line"><span class="cl"> Case 4 </span></span><span class="line"><span class="cl"> strDomainRole=&#34;Backup Domain Controller&#34; </span></span><span class="line"><span class="cl"> Case 5 </span></span><span class="line"><span class="cl"> strDomainRole=&#34;Primary Domain Controller&#34; </span></span><span class="line"><span class="cl"> Case Else </span></span><span class="line"><span class="cl"> strDomainRole = &#34;Unknown (&#34; &amp; strDomainRole &amp; &#34;)&#34; </span></span><span class="line"><span class="cl"> End Select </span></span><span class="line"><span class="cl"> Next </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Returns a HTML report for the &#34;Operating System/General&#34; section </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Function OS_HTML() </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Dim objItem, colItems </span></span><span class="line"><span class="cl"> Dim strHTML </span></span><span class="line"><span class="cl"> Dim strDNSHostName,strDomain,strDomainRole,strManufacturer,strModel,strUserName </span></span><span class="line"><span class="cl"> GetComputerSystemInfo strDNSHostName,strDomain,strDomainRole,strManufacturer,strModel,strUserName </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Set colItems = objWMIService.ExecQuery(&#34;Select * from Win32_OperatingSystem&#34;) </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> strHTML = &#34;&lt;h3&gt;Current User: &#34; &amp; strUserName &amp; &#34;&lt;/h3&gt;&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> For Each objItem In colItems </span></span><span class="line"><span class="cl"> Dim strComputerRole </span></span><span class="line"><span class="cl"> Dim strCaption,strBuildNumber,strInstallDate,strBootDate </span></span><span class="line"><span class="cl"> Dim intServicePackMajor,intServicePackMinor,intTotalVisibleMemorySize </span></span><span class="line"><span class="cl"> Dim intFreePhysicalMemory,intTotalVirtualMemorySize,intFreeVirtualMemory </span></span><span class="line"><span class="cl"> On Error Resume Next </span></span><span class="line"><span class="cl"> strCaption = HTMLEncode(objItem.Caption) </span></span><span class="line"><span class="cl"> strBuildNumber = HTMLEncode(objItem.BuildNumber) </span></span><span class="line"><span class="cl"> intServicePackMajor = objItem.ServicePackMajorVersion </span></span><span class="line"><span class="cl"> intServicePackMinor = objItem.ServicePackMinorVersion </span></span><span class="line"><span class="cl"> intTotalVisibleMemorySize = objItem.TotalVisibleMemorySize </span></span><span class="line"><span class="cl"> intFreePhysicalMemory = objItem.FreePhysicalMemory </span></span><span class="line"><span class="cl"> intFreeVirtualMemory = objItem.FreeVirtualMemory </span></span><span class="line"><span class="cl"> intTotalVirtualMemorySize = objItem.TotalVirtualMemorySize </span></span><span class="line"><span class="cl"> strInstallDate = FormatDate(objItem.InstallDate) </span></span><span class="line"><span class="cl"> strBootDate = FormatDate(objItem.LastBootUpTime) </span></span><span class="line"><span class="cl"> On Error GoTo 0 </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;table class=&#34;&#34;Table&#34;&#34;&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;tr&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Operating System:&lt;/th&gt;&lt;td&gt;&#34; &amp; strCaption &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Build Number:&lt;/th&gt;&lt;td&gt;&#34; &amp; strBuildNumber &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;/tr&gt;&lt;tr&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Service Pack:&lt;/th&gt;&lt;td&gt;&#34; &amp; intServicePackMajor &amp; &#34;.&#34; &amp; intServicePackMinor &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Role:&lt;/th&gt;&lt;td&gt;&#34; &amp; strDomainRole &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;/tr&gt;&lt;tr&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;DNS Host Name:&lt;/th&gt;&lt;td&gt;&#34; &amp; strDNSHostName &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Domain:&lt;/th&gt;&lt;td&gt;&#34; &amp; strDomain &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;/tr&gt;&lt;tr&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Manufacturer:&lt;/th&gt;&lt;td&gt;&#34; &amp; strManufacturer &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Model:&lt;/th&gt;&lt;td&gt;&#34; &amp; strModel &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;/tr&gt;&lt;tr&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Total Physical Memory:&lt;/th&gt;&lt;td&gt;&#34; &amp; intTotalVisibleMemorySize &amp; &#34;KB&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Free Physical Memory:&lt;/th&gt;&lt;td&gt;&#34; &amp; intFreePhysicalMemory &amp; &#34;KB&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;/tr&gt;&lt;tr&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Total Virtual Memory:&lt;/th&gt;&lt;td&gt;&#34; &amp; intTotalVirtualMemorySize &amp; &#34;KB&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Free Virtual Memory:&lt;/th&gt;&lt;td&gt;&#34; &amp; intFreeVirtualMemory &amp; &#34;KB&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;/tr&gt;&lt;tr&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Install Date:&lt;/th&gt;&lt;td&gt;&#34; &amp; strInstallDate &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Last BootUp Time:&lt;/th&gt;&lt;td&gt;&#34; &amp; strBootDate &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;/tr&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;/table&gt;&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Exit For </span></span><span class="line"><span class="cl"> Next </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> OS_HTML = strHTML </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> End Function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Get the number of memory slots and memory arrays </span></span><span class="line"><span class="cl"> &#39; for the memory section </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Function GetMemoryArrayInfo(ByRef intSlots,ByRef intArrays) </span></span><span class="line"><span class="cl"> Dim objItem, colItems </span></span><span class="line"><span class="cl"> intSlots = 0 </span></span><span class="line"><span class="cl"> intArrays = 0 </span></span><span class="line"><span class="cl"> Set colItems = objWMIService.ExecQuery(&#34;Select * from Win32_PhysicalMemoryArray WHERE Use=3&#34;) </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> For Each objItem In colItems </span></span><span class="line"><span class="cl"> intSlots = intSlots + objItem.MemoryDevices </span></span><span class="line"><span class="cl"> intArrays = intArrays + 1 </span></span><span class="line"><span class="cl"> Next </span></span><span class="line"><span class="cl"> End Function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Returns a HTML report for the &#34;Memory&#34; section </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Function Memory_HTML() </span></span><span class="line"><span class="cl"> Dim objItem, colItems </span></span><span class="line"><span class="cl"> Dim strHTML </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Set colItems = objWMIService.ExecQuery(&#34;Select * from Win32_PhysicalMemory&#34;) </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> strHTML = &#34;&lt;table class=&#34;&#34;Table&#34;&#34;&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;tr&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;BankLabel&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Capacity&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Caption&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Description&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;DeviceLocator &lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Manufacturer&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Memory Type&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Form Factor&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Model&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Speed&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;/tr&gt;&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> For Each objItem In colItems </span></span><span class="line"><span class="cl"> Dim strBankLabel,strCaption,strDescription,strDeviceLocator </span></span><span class="line"><span class="cl"> Dim strManufacturer,strMemoryType,strFormFactor,strModel </span></span><span class="line"><span class="cl"> Dim strCapacity,intSpeed </span></span><span class="line"><span class="cl"> On Error Resume Next </span></span><span class="line"><span class="cl"> strBankLabel = HTMLEncode(objItem.BankLabel) </span></span><span class="line"><span class="cl"> strCapacity = ConvertToDiskUnit(objItem.Capacity) </span></span><span class="line"><span class="cl"> strCaption = HTMLEncode(objItem.Caption) </span></span><span class="line"><span class="cl"> strDescription = HTMLEncode(objItem.Description) </span></span><span class="line"><span class="cl"> strDeviceLocator = HTMLEncode(objItem.DeviceLocator) </span></span><span class="line"><span class="cl"> strManufacturer = HTMLEncode(objItem.Manufacturer) </span></span><span class="line"><span class="cl"> strMemoryType = GetMemoryType(objItem.MemoryType) </span></span><span class="line"><span class="cl"> strFormFactor = GetMemoryFormFactor(objItem.FormFactor) </span></span><span class="line"><span class="cl"> strModel = HTMLEncode(objItem.Model) </span></span><span class="line"><span class="cl"> intSpeed = objItem.Speed </span></span><span class="line"><span class="cl"> On Error GoTo 0 </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;tr&gt;&lt;td&gt;&#34; &amp; strBankLabel &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; strCapacity &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; strCaption &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; strDescription &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; strDeviceLocator &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; strManufacturer &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; strMemoryType &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; strFormFactor &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; strModel &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; intSpeed &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;/tr&gt;&#34; </span></span><span class="line"><span class="cl"> Next </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;/table&gt;&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Dim intSlots,intArrays </span></span><span class="line"><span class="cl"> GetMemoryArrayInfo intSlots,intArrays </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;Total Memory Slots:&#34; &amp; intSlots &amp; &#34;, Memory Arrays:&#34; &amp; intArrays </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Memory_HTML=strHTML </span></span><span class="line"><span class="cl"> End Function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Returns a HTML report for the &#34;Processor&#34; section </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Function Processor_HTML() </span></span><span class="line"><span class="cl"> Dim objItem, colItems </span></span><span class="line"><span class="cl"> Dim strHTML </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Set colItems = objWMIService.ExecQuery(&#34;Select * from Win32_Processor&#34;) </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> strHTML = &#34;&lt;table class=&#34;&#34;Table&#34;&#34;&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;tr&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Name&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Manufacturer&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Description&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Address Width&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Current Clock Speed&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Data Width&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Device ID&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Ext Clock&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;L2 Cache&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Max Clock Speed&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;#Cores&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;#Logical Processors&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;/tr&gt;&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> For Each objItem in colItems </span></span><span class="line"><span class="cl"> Dim strName,strManufacturer,strDescription,strDeviceID </span></span><span class="line"><span class="cl"> Dim intAddressWidth,intCurrentClockSpeed,intDataWidth,intExtClock </span></span><span class="line"><span class="cl"> Dim intL2CacheSize,intMaxClockSpeed, intNumberOfCores,intNumberOfLogicalProcessors </span></span><span class="line"><span class="cl"> On Error Resume Next </span></span><span class="line"><span class="cl"> strName = HTMLEncode(objItem.Name) </span></span><span class="line"><span class="cl"> strManufacturer = HTMLEncode(objItem.Manufacturer) </span></span><span class="line"><span class="cl"> strDescription = HTMLEncode(objItem.Description) </span></span><span class="line"><span class="cl"> intAddressWidth = objItem.AddressWidth </span></span><span class="line"><span class="cl"> intCurrentClockSpeed = objItem.CurrentClockSpeed </span></span><span class="line"><span class="cl"> intDataWidth = objItem.DataWidth </span></span><span class="line"><span class="cl"> strDeviceID = HTMLEncode(objItem.DeviceID) </span></span><span class="line"><span class="cl"> intExtClock = objItem.ExtClock </span></span><span class="line"><span class="cl"> intL2CacheSize = objItem.L2CacheSize </span></span><span class="line"><span class="cl"> intMaxClockSpeed = objItem.MaxClockSpeed </span></span><span class="line"><span class="cl"> intNumberOfCores = objItem.NumberOfCores </span></span><span class="line"><span class="cl"> intNumberOfLogicalProcessors= objItem.NumberOfLogicalProcessors </span></span><span class="line"><span class="cl"> On Error GoTo 0 </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;tr&gt;&lt;td&gt;&#34; &amp; strName &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; strManufacturer &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; strDescription &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; intAddressWidth &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; intCurrentClockSpeed &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; intDataWidth &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; strDeviceID &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; intExtClock &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; intL2CacheSize &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; intMaxClockSpeed &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; intNumberOfCores &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; intNumberOfLogicalProcessors &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;/tr&gt;&#34; </span></span><span class="line"><span class="cl"> Next </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;/table&gt;&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Processor_HTML=strHTML </span></span><span class="line"><span class="cl"> End Function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Returns a HTML report for the &#34;Physical Disk&#34; section </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Function PhysicalDisk_HTML() </span></span><span class="line"><span class="cl"> Dim objItem, colItems </span></span><span class="line"><span class="cl"> Dim strHTML </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Set colItems = objWMIService.ExecQuery(&#34;Select * from Win32_DiskDrive&#34;) </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> strHTML = &#34;&lt;table class=&#34;&#34;Table&#34;&#34;&gt;&lt;tr&gt;&lt;th&gt;Caption&lt;/th&gt;&lt;th&gt;Manufacturer&lt;/th&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;th&gt;Model&lt;/th&gt;&lt;th&gt;Size&lt;/th&gt;&lt;th&gt;Serial&lt;/th&gt;&lt;th&gt;Media Type&lt;/th&gt;&lt;th&gt;#Partitions&lt;/th&gt;&lt;th&gt;DeviceID&lt;/th&gt;&lt;th&gt;Firmware&lt;/th&gt;&lt;th&gt;Interface&lt;/th&gt;&lt;/tr&gt;&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> For Each objItem in colItems </span></span><span class="line"><span class="cl"> Dim intSize,intPartitions </span></span><span class="line"><span class="cl"> Dim strSize,strCaption,strManufacturer,strModel,strMediaType </span></span><span class="line"><span class="cl"> Dim strDeviceID,strFirmwareRevision,strInterfaceType, strSerialNumber </span></span><span class="line"><span class="cl"> intSize = objItem.Size </span></span><span class="line"><span class="cl"> If IsNumeric(intSize) = False Then </span></span><span class="line"><span class="cl"> intSize = 0 </span></span><span class="line"><span class="cl"> End If </span></span><span class="line"><span class="cl"> On Error Resume Next </span></span><span class="line"><span class="cl"> strCaption= HTMLEncode(objItem.Caption) </span></span><span class="line"><span class="cl"> strSize = ConvertToDiskUnit(intSize) </span></span><span class="line"><span class="cl"> strSerialNumber = HTMLEncode(objItem.SerialNumber) </span></span><span class="line"><span class="cl"> strMediaType = HTMLEncode(objItem.MediaType) </span></span><span class="line"><span class="cl"> intPartitions = HTMLEncode(objItem.Partitions) </span></span><span class="line"><span class="cl"> strDeviceID = HTMLEncode(objItem.DeviceID) </span></span><span class="line"><span class="cl"> strFirmwareRevision = HTMLEncode(objItem.FirmwareRevision) </span></span><span class="line"><span class="cl"> strInterfaceType = HTMLEncode(objItem.InterfaceType) </span></span><span class="line"><span class="cl"> strModel = HTMLEncode(objItem.Model) </span></span><span class="line"><span class="cl"> strManufacturer = HTMLEncode(objItem.Manufacturer) </span></span><span class="line"><span class="cl"> On Error GoTo 0 </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;tr&gt;&lt;td&gt;&#34; &amp; strCaption &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; strManufacturer &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; strModel &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; strSize &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; strSerialNumber &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; strMediaType &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; intPartitions &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; strDeviceID &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; strFirmwareRevision &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;td&gt;&#34; &amp; strInterfaceType &amp; &#34;&lt;/td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;/tr&gt;&#34; </span></span><span class="line"><span class="cl"> Next </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;/table&gt;&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> PhysicalDisk_HTML=strHTML </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> End Function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Returns a HTML report for the &#34;Logical Disk&#34; section </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Function LogicalDisk_HTML() </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Dim objItem, colItems </span></span><span class="line"><span class="cl"> Dim strDriveType, strDiskSize, strHTML </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Set colItems = objWMIService.ExecQuery(&#34;Select * from Win32_LogicalDisk WHERE DriveType = 3&#34;) </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> strHTML = &#34;&lt;table class=&#34;&#34;Table&#34;&#34;&gt;&lt;tr&gt;&lt;th&gt;Drive&lt;/th&gt;&lt;th&gt;Name&lt;/th&gt;&lt;th&gt;File System&lt;/th&gt;&lt;th&gt;Size&lt;/th&gt;&lt;th&gt;Used&lt;/th&gt;&lt;th&gt;Free&lt;/th&gt;&lt;th&gt;Free(%)&lt;/th&gt;&lt;/tr&gt;&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> For Each objItem in colItems </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Dim pctFreeSpace,strFreeSpace,strusedSpace,strName,strFileSystem,strVolumeName </span></span><span class="line"><span class="cl"> Dim intFreeSpace, intSize </span></span><span class="line"><span class="cl"> On Error Resume Next </span></span><span class="line"><span class="cl"> intFreeSpace = objItem.FreeSpace </span></span><span class="line"><span class="cl"> intSize = objItem.Size </span></span><span class="line"><span class="cl"> If ISNUMERIC(intFreeSpace) = False Then </span></span><span class="line"><span class="cl"> intFreeSpace=0 </span></span><span class="line"><span class="cl"> End If </span></span><span class="line"><span class="cl"> If IsNumeric(intSize) = False Then </span></span><span class="line"><span class="cl"> intSize = 0 </span></span><span class="line"><span class="cl"> End If </span></span><span class="line"><span class="cl"> If objItem.FreeSpace &gt; 0 Then </span></span><span class="line"><span class="cl"> pctFreeSpace = round(((intFreeSpace / intSize) * 100),0) </span></span><span class="line"><span class="cl"> Else </span></span><span class="line"><span class="cl"> pctFreeSpace=0 </span></span><span class="line"><span class="cl"> End If </span></span><span class="line"><span class="cl"> strDiskSize = ConvertToDiskUnit(intSize) </span></span><span class="line"><span class="cl"> strFreeSpace = ConvertToDiskUnit(intFreeSpace) </span></span><span class="line"><span class="cl"> strUsedSpace = ConvertToDiskUnit(intSize-intFreeSpace) </span></span><span class="line"><span class="cl"> strName = HTMLEncode(objItem.Name) </span></span><span class="line"><span class="cl"> strVolumeName = HTMLEncode(objItem.VolumeName) </span></span><span class="line"><span class="cl"> strFileSystem = HTMLEncode(objItem.FileSystem) </span></span><span class="line"><span class="cl"> On Error GoTo 0 </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> dim strChart </span></span><span class="line"><span class="cl"> strChart = &#34;&lt;div width=100%;&#34;&#34;&gt;&lt;span style=&#34;&#34;padding:0px;margin:0px;width=&#34; &amp; 100-pctFreeSpace &amp; _ </span></span><span class="line"><span class="cl"> &#34;%;background-color:blue;&#34;&#34;&gt;&amp;nbsp;&lt;/span&gt;&lt;span style=&#34;&#34;padding:0px;margin:0px;width=&#34; &amp; pctFreeSpace &amp; _ </span></span><span class="line"><span class="cl"> &#34;%;background-color:#FF00FF;&#34;&#34;&gt;&amp;nbsp;&lt;/span&gt;&lt;/div&gt;&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;tr&gt;&lt;td&gt;&#34; &amp; strName &amp; &#34;&lt;/td&gt;&lt;td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> strVolumeName &amp; &#34;&lt;/td&gt;&lt;td&gt;&#34; &amp; strFileSystem &amp; &#34;&lt;/td&gt;&lt;td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> strDiskSize &amp; &#34;&lt;/td&gt;&lt;td&gt;&#34; &amp; strUsedSpace &amp; &#34;&lt;/td&gt;&lt;td&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> strFreeSpace &amp; &#34;&lt;/td&gt;&lt;td&gt;&#34; &amp; pctFreeSpace &amp; &#34;%&lt;/td&gt;&lt;/tr&gt;&#34; &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;tr&gt;&lt;td colspan=&#34;&#34;7&#34;&#34;&gt;&#34; &amp; strChart &amp; &#34;&lt;/td&gt;&lt;/tr&gt;&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> Next </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> strHTML = strHTML + &#34;&lt;/table&gt;&lt;/br&gt;&#34; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> LogicalDisk_HTML = strHTML </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> End Function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Returns a HTML report for the &#34;Users&#34; section </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Function Users_HTML </span></span><span class="line"><span class="cl"> Dim strHTML,colItems,objItem, i, strAccountControl </span></span><span class="line"><span class="cl"> Set colItems = objWMIService.ExecQuery(&#34;Select * from Win32_UserAccount WHERE LocalAccount=True&#34;) </span></span><span class="line"><span class="cl"> strHTML = &#34;&lt;table class=&#34;&#34;Table&#34;&#34;&gt;&lt;tr&gt;&lt;th&gt;Account Name&lt;/th&gt;&lt;th&gt;Full Name&lt;/th&gt;&lt;th&gt;Description&lt;/th&gt;&lt;th&gt;&lt;/th&gt;&lt;th&gt;&lt;/th&gt;&lt;/tr&gt;&#34; </span></span><span class="line"><span class="cl"> i = 1 </span></span><span class="line"><span class="cl"> For Each objItem In colItems </span></span><span class="line"><span class="cl"> if objItem.Disabled then </span></span><span class="line"><span class="cl"> strAccountControl = &#34;&lt;span id=&#34;&#34;AccountControl&#34; &amp; i &amp; &#34;&#34;&#34; class=&#34;&#34;Link&#34;&#34; OnClick=&#34;&#34;ToggleEnableDisable &#39;&#34; &amp; objItem.Name &amp; &#34;&#39;,&#39;&#34; &amp; strComputer &amp; &#34;&#39;,&#39;AccountControl&#34; &amp; i &amp; &#34;&#39;&#34;&#34;&gt;Enable&lt;/span&gt;&#34; </span></span><span class="line"><span class="cl"> else </span></span><span class="line"><span class="cl"> strAccountControl = &#34;&lt;span id=&#34;&#34;AccountControl&#34; &amp; i &amp; &#34;&#34;&#34; class=&#34;&#34;Link&#34;&#34; OnClick=&#34;&#34;ToggleEnableDisable &#39;&#34; &amp; objItem.Name &amp; &#34;&#39;,&#39;&#34; &amp; strComputer &amp; &#34;&#39;,&#39;AccountControl&#34; &amp; i &amp; &#34;&#39;&#34;&#34;&gt;Disable&lt;/span&gt;&#34; </span></span><span class="line"><span class="cl"> end if </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;tr&gt;&lt;td&gt;&#34; &amp; objItem.Name &amp; &#34;&lt;/td&gt;&lt;td&gt;&#34; &amp; objItem.FullName &amp; &#34;&lt;/td&gt;&lt;td&gt;&#34; &amp; objItem.Description &amp; _ </span></span><span class="line"><span class="cl"> &#34;&lt;/td&gt;&lt;td&gt;&lt;input id=&#34;&#34;PWD&#34; &amp; i &amp; &#34;&#34;&#34; type=&#34;&#34;password&#34;&#34;&gt;&lt;/input&gt;&lt;span onclick=&#34;&#34;ResetPassword &#39;&#34; &amp; objItem.Name &amp; &#34;&#39;,&#39;&#34; &amp; _ </span></span><span class="line"><span class="cl"> strComputer &amp; &#34;&#39;,&#39;PWD&#34; &amp; i &amp; &#34;&#39;&#34;&#34; class=&#34;&#34;Link&#34;&#34;&gt;Reset Password&lt;/span&gt;&lt;/td&gt;&lt;td&gt;&#34; &amp; strAccountControl &amp; &#34;&lt;/td&gt;&lt;/tr&gt;&#34; </span></span><span class="line"><span class="cl"> i = i + 1 </span></span><span class="line"><span class="cl"> next </span></span><span class="line"><span class="cl"> strHTML = strHTML &amp; &#34;&lt;/table&gt;&#34; </span></span><span class="line"><span class="cl"> Users_HTML = strHTML </span></span><span class="line"><span class="cl"> End Function </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Disables/Enables a user account </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Sub ToggleEnableDisable(strUserName,strComputerName,strID) </span></span><span class="line"><span class="cl"> Dim objUser, objNT </span></span><span class="line"><span class="cl"> If txtUserName.Value &lt;&gt; &#34;&#34; then </span></span><span class="line"><span class="cl"> Set objNT = GetObject(&#34;WinNT:&#34;) </span></span><span class="line"><span class="cl"> Set objUser = objNT.OpenDSObject(&#34;WinNT://&#34; &amp; strComputerName &amp; &#34;/&#34; &amp; strUserName &amp; &#34;, user&#34;, txtUserName.Value, txtPassword.Value, ADS_SECURE_AUTHENTICATION) </span></span><span class="line"><span class="cl"> Else </span></span><span class="line"><span class="cl"> Set objUser = GetObject(&#34;WinNT://&#34; &amp; strComputerName &amp; &#34;/&#34; &amp; strUserName &amp; &#34;, user&#34;) </span></span><span class="line"><span class="cl"> End If </span></span><span class="line"><span class="cl"> If objUser.AccountDisabled = True Then </span></span><span class="line"><span class="cl"> objUser.AccountDisabled = False </span></span><span class="line"><span class="cl"> objUser.SetInfo </span></span><span class="line"><span class="cl"> document.getElementById(strID).InnerHTML=&#34;Disable&#34; </span></span><span class="line"><span class="cl"> Else </span></span><span class="line"><span class="cl"> objUser.AccountDisabled = True </span></span><span class="line"><span class="cl"> objUser.SetInfo </span></span><span class="line"><span class="cl"> document.getElementById(strID).InnerHTML=&#34;Enable&#34; </span></span><span class="line"><span class="cl"> End If </span></span><span class="line"><span class="cl"> set objUser = nothing </span></span><span class="line"><span class="cl"> set objNT = nothing </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Resets a users password </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Sub ResetPassword(strUserName,strComputerName,strPasswordID) </span></span><span class="line"><span class="cl"> Dim strPassword, objUser, objNT </span></span><span class="line"><span class="cl"> strPassword = document.getElementById(strPasswordID).Value </span></span><span class="line"><span class="cl"> If txtUserName.Value &lt;&gt; &#34;&#34; then </span></span><span class="line"><span class="cl"> Set objNT = GetObject(&#34;WinNT:&#34;) </span></span><span class="line"><span class="cl"> Set objUser = objNT.OpenDSObject(&#34;WinNT://&#34; &amp; strComputerName &amp; &#34;/&#34; &amp; strUserName &amp; &#34;, user&#34;, txtUserName.Value, txtPassword.Value, ADS_SECURE_AUTHENTICATION) </span></span><span class="line"><span class="cl"> Else </span></span><span class="line"><span class="cl"> Set objUser = GetObject(&#34;WinNT://&#34; &amp; strComputerName &amp; &#34;/&#34; &amp; strUserName &amp; &#34;, user&#34;) </span></span><span class="line"><span class="cl"> End If </span></span><span class="line"><span class="cl"> objUser.SetPassword strPassword </span></span><span class="line"><span class="cl"> set objUser = nothing </span></span><span class="line"><span class="cl"> set objNT = nothing </span></span><span class="line"><span class="cl"> msgbox &#34;Password Changed&#34;,vbOKOnly+vbInformation,&#34;Computer Info&#34; </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Opens Computer Management Console </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Sub ManageComputer </span></span><span class="line"><span class="cl"> dim objSh </span></span><span class="line"><span class="cl"> set objSh = createobject(&#34;wscript.shell&#34;) </span></span><span class="line"><span class="cl"> objSh.run &#34;compmgmt.msc /computer:&#34; &amp; strComputer </span></span><span class="line"><span class="cl"> set objSh = nothing </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> &#39; Opens a Remote Desktop Connection </span></span><span class="line"><span class="cl"> &#39; *************************************** </span></span><span class="line"><span class="cl"> Sub ConnectRDP </span></span><span class="line"><span class="cl"> dim objSh </span></span><span class="line"><span class="cl"> set objSh = createobject(&#34;wscript.shell&#34;) </span></span><span class="line"><span class="cl"> objSh.run &#34;mstsc.exe /v:&#34; &amp; strComputer </span></span><span class="line"><span class="cl"> set objSh = nothing </span></span><span class="line"><span class="cl"> End Sub </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl">&lt;/script&gt; </span></span><span class="line"><span class="cl">&lt;script type=&#34;text/javascript&#34;&gt; </span></span><span class="line"><span class="cl"> /* Toggle expand/collapse state for specified section */ </span></span><span class="line"><span class="cl"> function toggleDisplay(obj) { </span></span><span class="line"><span class="cl"> var el = document.getElementById(obj); </span></span><span class="line"><span class="cl"> if ( el.style.display != &#39;none&#39; ) { </span></span><span class="line"><span class="cl"> el.style.display = &#39;none&#39;; </span></span><span class="line"><span class="cl"> } </span></span><span class="line"><span class="cl"> else { </span></span><span class="line"><span class="cl"> el.style.display = &#39;&#39;; </span></span><span class="line"><span class="cl"> } </span></span><span class="line"><span class="cl"> } </span></span><span class="line"><span class="cl"> /* Toggle expand/collapse state for all sections */ </span></span><span class="line"><span class="cl"> function toggleAll() { </span></span><span class="line"><span class="cl"> var el = document.getElementById(&#34;OS&#34;); </span></span><span class="line"><span class="cl"> var display = &#39;&#39; </span></span><span class="line"><span class="cl"> if ( el.style.display != &#39;none&#39; ) { </span></span><span class="line"><span class="cl"> display = &#39;none&#39;; </span></span><span class="line"><span class="cl"> } </span></span><span class="line"><span class="cl"> el.style.display = display; </span></span><span class="line"><span class="cl"> el = document.getElementById(&#34;Memory&#34;); </span></span><span class="line"><span class="cl"> el.style.display = display; </span></span><span class="line"><span class="cl"> el = document.getElementById(&#34;LogicalDisk&#34;); </span></span><span class="line"><span class="cl"> el.style.display = display; </span></span><span class="line"><span class="cl"> el = document.getElementById(&#34;PhysicalDisk&#34;); </span></span><span class="line"><span class="cl"> el.style.display = display; </span></span><span class="line"><span class="cl"> el = document.getElementById(&#34;Processor&#34;); </span></span><span class="line"><span class="cl"> el.style.display = display; </span></span><span class="line"><span class="cl"> el = document.getElementById(&#34;Shares&#34;); </span></span><span class="line"><span class="cl"> el.style.display = display; </span></span><span class="line"><span class="cl"> el = document.getElementById(&#34;Processes&#34;); </span></span><span class="line"><span class="cl"> el.style.display = display; </span></span><span class="line"><span class="cl"> el = document.getElementById(&#34;Users&#34;); </span></span><span class="line"><span class="cl"> el.style.display = display; </span></span><span class="line"><span class="cl"> } </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl">&lt;/script&gt; </span></span><span class="line"><span class="cl">&lt;/head&gt; </span></span><span class="line"><span class="cl">&lt;body OnLoad=&#34;GenerateReport&#34;&gt; </span></span><span class="line"><span class="cl">&lt;h1&gt;Computer Info Tool&lt;/h1&gt; </span></span><span class="line"><span class="cl">&lt;div id=&#34;Header&#34; style=&#34;padding-bottom:0px;margin-bottom:0px;&#34;&gt; </span></span><span class="line"><span class="cl"> &lt;table style=&#34;font-weight:bold;&#34;&gt;&lt;tr&gt;&lt;td&gt;UserName:&lt;/td&gt;&lt;td&gt;&lt;input id=&#34;txtUserName&#34;&gt;&lt;/input&gt;&lt;/td&gt;&lt;td style=&#34;font-size:8px;&#34;&gt;(Optional)&lt;/td&gt;&lt;tr&gt; </span></span><span class="line"><span class="cl"> &lt;tr&gt;&lt;td&gt;Password:&lt;/td&gt;&lt;td&gt;&lt;input type=&#34;password&#34; id=&#34;txtPassword&#34;&gt;&lt;/input&gt;&lt;/td&gt;&lt;td style=&#34;font-size:8px;&#34;&gt;(Optional)&lt;/td&gt;&lt;/tr&gt; </span></span><span class="line"><span class="cl"> &lt;tr&gt;&lt;td&gt;Computer:&lt;/td&gt;&lt;td&gt;&lt;input id=&#34;txtComputer&#34;&gt;&lt;/input&gt;&lt;/td&gt; </span></span><span class="line"><span class="cl"> &lt;td colspan=&#34;2&#34;&gt; &lt;input class=&#34;Button&#34; style=&#34;font-weight:bold;&#34; onClick=&#34;GenerateReport()&#34; type=&#34;submit&#34; value=&#34;Generate Report&#34;&gt; </span></span><span class="line"><span class="cl"> &lt;/input&gt; </span></span><span class="line"><span class="cl"> &lt;/td&gt;&lt;/tr&gt; </span></span><span class="line"><span class="cl"> &lt;/table&gt; </span></span><span class="line"><span class="cl"> &lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div id=&#34;Tools&#34; style=&#34;display:none;margin-bottom:0px;&#34;&gt; </span></span><span class="line"><span class="cl"> &lt;span class=&#34;Link&#34; onClick=&#34;RebootComputer&#34;&gt;Reboot Computer&lt;/span&gt;&amp;nbsp;|&amp;nbsp; </span></span><span class="line"><span class="cl"> &lt;span class=&#34;Link&#34; onClick=&#34;ShutDownComputer&#34;&gt;Shutdown Computer&lt;/span&gt;&amp;nbsp;|&amp;nbsp; </span></span><span class="line"><span class="cl"> &lt;span class=&#34;Link&#34; onClick=&#34;ConnectRDP&#34;&gt;Remote Desktop&lt;/span&gt;&amp;nbsp;|&amp;nbsp; </span></span><span class="line"><span class="cl"> &lt;span class=&#34;Link&#34; onClick=&#34;ManageComputer&#34;&gt;Manage&lt;/span&gt; </span></span><span class="line"><span class="cl"> &lt;/div&gt; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl">&lt;div id=&#34;Main&#34; style=&#34;display:none;&#34;&gt; </span></span><span class="line"><span class="cl"> &lt;div id=&#34;CurrentComputer&#34; style=&#34;display:none&#34;&gt;&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div style=&#34;text-align:right;&#34;&gt; </span></span><span class="line"><span class="cl"> &lt;span class=&#34;Link&#34; style=&#34;font-weight:bold;&#34; onclick=&#34;javascript:toggleAll();&#34;&gt;Expand/Collapse All&lt;/span&gt; </span></span><span class="line"><span class="cl"> &lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div class=&#34;InfoSection&#34;&gt; </span></span><span class="line"><span class="cl"> &lt;div onClick=&#34;javascript:toggleDisplay(&#39;OS&#39;);&#34; class=&#34;InfoSectionHeader&#34;&gt;Operating System / General&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div id=&#34;OS&#34; class=&#34;InfoSectionBody&#34; &gt;&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div class=&#34;InfoSection&#34;&gt; </span></span><span class="line"><span class="cl"> &lt;div onClick=&#34;javascript:toggleDisplay(&#39;Processes&#39;);&#34; class=&#34;InfoSectionHeader&#34;&gt;Running Processes&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div id=&#34;Processes&#34; class=&#34;InfoSectionBody&#34;&gt; </span></span><span class="line"><span class="cl"> Auto Refresh Interval:&lt;select id=&#34;ProcessAutoRefresh&#34; onchange=&#34;SetProcessAutoRefresh&#34;&gt; </span></span><span class="line"><span class="cl"> &lt;option value =&#34;0&#34;&gt;None&lt;/option&gt; </span></span><span class="line"><span class="cl"> &lt;option value =&#34;1000&#34;&gt;1 second&lt;/option&gt; </span></span><span class="line"><span class="cl"> &lt;option value =&#34;2000&#34;&gt;2 seconds&lt;/option&gt; </span></span><span class="line"><span class="cl"> &lt;option value =&#34;3000&#34;&gt;3 seconds&lt;/option&gt; </span></span><span class="line"><span class="cl"> &lt;option value =&#34;5000&#34;&gt;5 seconds&lt;/option&gt; </span></span><span class="line"><span class="cl"> &lt;option value =&#34;10000&#34;&gt;10 seconds&lt;/option&gt; </span></span><span class="line"><span class="cl"> &lt;option value =&#34;20000&#34;&gt;20 seconds&lt;/option&gt; </span></span><span class="line"><span class="cl"> &lt;option value =&#34;30000&#34;&gt;30 seconds&lt;/option&gt; </span></span><span class="line"><span class="cl"> &lt;option value =&#34;60000&#34;&gt;1 minute&lt;/option&gt; </span></span><span class="line"><span class="cl"> &lt;/select&gt; </span></span><span class="line"><span class="cl"> Filter (Optional):&lt;input id=&#34;txtProcessFilter&#34;&gt;&lt;/input&gt; </span></span><span class="line"><span class="cl"> &lt;br/&gt;&lt;br/&gt; </span></span><span class="line"><span class="cl"> &lt;span onclick=&#34;RefreshProcesses()&#34; style=&#34;&#34;font-weight:bold&#34;&#34; class=&#34;Link&#34;&gt;Refresh Processes&lt;/span&gt; </span></span><span class="line"><span class="cl"> &lt;br/&gt;&lt;br/&gt; </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> &lt;div id=&#34;ProcessesData&#34;&gt;&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div id=&#34;ProcessSort&#34; style=&#34;display:none&#34;&gt;Name&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div class=&#34;InfoSection&#34;&gt; </span></span><span class="line"><span class="cl"> &lt;div onClick=&#34;javascript:toggleDisplay(&#39;Memory&#39;);&#34; class=&#34;InfoSectionHeader&#34;&gt;Memory&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div id=&#34;Memory&#34; class=&#34;InfoSectionBody&#34;&gt;&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div class=&#34;InfoSection&#34;&gt; </span></span><span class="line"><span class="cl"> &lt;div onClick=&#34;javascript:toggleDisplay(&#39;LogicalDisk&#39;);&#34; class=&#34;InfoSectionHeader&#34;&gt;Logical Disk&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div id=&#34;LogicalDisk&#34; class=&#34;InfoSectionBody&#34;&gt;&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div class=&#34;InfoSection&#34;&gt; </span></span><span class="line"><span class="cl"> &lt;div onClick=&#34;javascript:toggleDisplay(&#39;PhysicalDisk&#39;);&#34; class=&#34;InfoSectionHeader&#34;&gt;Physical Disk&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div id=&#34;PhysicalDisk&#34; class=&#34;InfoSectionBody&#34;&gt;&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div class=&#34;InfoSection&#34;&gt; </span></span><span class="line"><span class="cl"> &lt;div onClick=&#34;javascript:toggleDisplay(&#39;Processor&#39;);&#34; class=&#34;InfoSectionHeader&#34;&gt;Processor&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div id=&#34;Processor&#34; class=&#34;InfoSectionBody&#34;&gt;&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div class=&#34;InfoSection&#34;&gt; </span></span><span class="line"><span class="cl"> &lt;div onClick=&#34;javascript:toggleDisplay(&#39;Shares&#39;);&#34; class=&#34;InfoSectionHeader&#34;&gt;Shares&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div id=&#34;Shares&#34; class=&#34;InfoSectionBody&#34;&gt;&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div class=&#34;InfoSection&#34;&gt; </span></span><span class="line"><span class="cl"> &lt;div onClick=&#34;javascript:toggleDisplay(&#39;Users&#39;);&#34; class=&#34;InfoSectionHeader&#34;&gt;Users&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div id=&#34;Users&#34; class=&#34;InfoSectionBody&#34;&gt;&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;/div&gt; </span></span><span class="line"><span class="cl">&lt;/div&gt; </span></span><span class="line"><span class="cl">&lt;div id=&#34;DisplayError&#34;&gt;&lt;/div&gt; </span></span><span class="line"><span class="cl">&lt;div id=&#34;Footer&#34;&gt; </span></span><span class="line"><span class="cl">&lt;hr/&gt; </span></span><span class="line"><span class="cl"> &lt;div style=&#34;float:left;&#34;&gt;Version 1.1&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div style=&#34;float:right;&#34;&gt;By David Wiseman&lt;br /&gt; </span></span><span class="line"><span class="cl"> &lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div style=&#34;clear:both;&#34;&gt;&lt;/div&gt; </span></span><span class="line"><span class="cl"> &lt;div style=&#34;text-align:center;font-size:20px;font-weight:bold&#34;&gt;&lt;a href=&#34;http://www.wisesoft.co.uk&#34;&gt;www.wisesoft.co.uk&lt;/a&gt;&lt;/div&gt; </span></span><span class="line"><span class="cl">&lt;/div&gt; </span></span><span class="line"><span class="cl">&lt;/body&gt; </span></span><span class="line"><span class="cl">&lt;/html&gt;</span></span></code></pre></div> </div> https://wisedataman.com/drive-space-report/Sun, 03 Aug 2008 21:00:00 +0000https://wisedataman.com/drive-space-report/<p>Display a drive space report for multiple computers. This HTA can check the drives of multiple computers and produce a HTML report that will highlight any drives that are low on free space. The HTA also generates a CSV version of the report.</p> <p>The Drive Space Report is a GUI script that allows you to view the disk drives and free space on several computers.  Just enter the computer name or IP Address, one per line and click the &ldquo;Generate Report&rdquo; button to display the report.  Click the &ldquo;Download Report (CSV)&rdquo; button to save the report in CSV (comma separated) format.</p> <figure class="wp-block-image size-large"><img src="https://wisedataman.com/wp-content/uploads/2020/05/drive_space_report.png" alt="" class="wp-image-41" loading="lazy"></figure> <div class="code-block"><div class="code-title">Drive Space Report</div> <div class="highlight"><div class="chroma"> <table class="lntable"><tr><td class="lntd"> <pre tabindex="0" class="chroma"><code><span class="lnt"> 1 </span><span class="lnt"> 2 </span><span class="lnt"> 3 </span><span class="lnt"> 4 </span><span class="lnt"> 5 </span><span class="lnt"> 6 </span><span class="lnt"> 7 </span><span class="lnt"> 8 </span><span class="lnt"> 9 </span><span class="lnt"> 10 </span><span class="lnt"> 11 </span><span class="lnt"> 12 </span><span class="lnt"> 13 </span><span class="lnt"> 14 </span><span class="lnt"> 15 </span><span class="lnt"> 16 </span><span class="lnt"> 17 </span><span class="lnt"> 18 </span><span class="lnt"> 19 </span><span class="lnt"> 20 </span><span class="lnt"> 21 </span><span class="lnt"> 22 </span><span class="lnt"> 23 </span><span class="lnt"> 24 </span><span class="lnt"> 25 </span><span class="lnt"> 26 </span><span class="lnt"> 27 </span><span class="lnt"> 28 </span><span class="lnt"> 29 </span><span class="lnt"> 30 </span><span class="lnt"> 31 </span><span class="lnt"> 32 </span><span class="lnt"> 33 </span><span class="lnt"> 34 </span><span class="lnt"> 35 </span><span class="lnt"> 36 </span><span class="lnt"> 37 </span><span class="lnt"> 38 </span><span class="lnt"> 39 </span><span class="lnt"> 40 </span><span class="lnt"> 41 </span><span class="lnt"> 42 </span><span class="lnt"> 43 </span><span class="lnt"> 44 </span><span class="lnt"> 45 </span><span class="lnt"> 46 </span><span class="lnt"> 47 </span><span class="lnt"> 48 </span><span class="lnt"> 49 </span><span class="lnt"> 50 </span><span class="lnt"> 51 </span><span class="lnt"> 52 </span><span class="lnt"> 53 </span><span class="lnt"> 54 </span><span class="lnt"> 55 </span><span class="lnt"> 56 </span><span class="lnt"> 57 </span><span class="lnt"> 58 </span><span class="lnt"> 59 </span><span class="lnt"> 60 </span><span class="lnt"> 61 </span><span class="lnt"> 62 </span><span class="lnt"> 63 </span><span class="lnt"> 64 </span><span class="lnt"> 65 </span><span class="lnt"> 66 </span><span class="lnt"> 67 </span><span class="lnt"> 68 </span><span class="lnt"> 69 </span><span class="lnt"> 70 </span><span class="lnt"> 71 </span><span class="lnt"> 72 </span><span class="lnt"> 73 </span><span class="lnt"> 74 </span><span class="lnt"> 75 </span><span class="lnt"> 76 </span><span class="lnt"> 77 </span><span class="lnt"> 78 </span><span class="lnt"> 79 </span><span class="lnt"> 80 </span><span class="lnt"> 81 </span><span class="lnt"> 82 </span><span class="lnt"> 83 </span><span class="lnt"> 84 </span><span class="lnt"> 85 </span><span class="lnt"> 86 </span><span class="lnt"> 87 </span><span class="lnt"> 88 </span><span class="lnt"> 89 </span><span class="lnt"> 90 </span><span class="lnt"> 91 </span><span class="lnt"> 92 </span><span class="lnt"> 93 </span><span class="lnt"> 94 </span><span class="lnt"> 95 </span><span class="lnt"> 96 </span><span class="lnt"> 97 </span><span class="lnt"> 98 </span><span class="lnt"> 99 </span><span class="lnt">100 </span><span class="lnt">101 </span><span class="lnt">102 </span><span class="lnt">103 </span><span class="lnt">104 </span><span class="lnt">105 </span><span class="lnt">106 </span><span class="lnt">107 </span><span class="lnt">108 </span><span class="lnt">109 </span><span class="lnt">110 </span><span class="lnt">111 </span><span class="lnt">112 </span><span class="lnt">113 </span><span class="lnt">114 </span><span class="lnt">115 </span><span class="lnt">116 </span><span class="lnt">117 </span><span class="lnt">118 </span><span class="lnt">119 </span><span class="lnt">120 </span><span class="lnt">121 </span><span class="lnt">122 </span><span class="lnt">123 </span><span class="lnt">124 </span><span class="lnt">125 </span><span class="lnt">126 </span><span class="lnt">127 </span><span class="lnt">128 </span><span class="lnt">129 </span><span class="lnt">130 </span><span class="lnt">131 </span><span class="lnt">132 </span><span class="lnt">133 </span><span class="lnt">134 </span><span class="lnt">135 </span><span class="lnt">136 </span><span class="lnt">137 </span><span class="lnt">138 </span><span class="lnt">139 </span><span class="lnt">140 </span><span class="lnt">141 </span><span class="lnt">142 </span><span class="lnt">143 </span><span class="lnt">144 </span><span class="lnt">145 </span><span class="lnt">146 </span><span class="lnt">147 </span><span class="lnt">148 </span><span class="lnt">149 </span><span class="lnt">150 </span><span class="lnt">151 </span><span class="lnt">152 </span><span class="lnt">153 </span><span class="lnt">154 </span><span class="lnt">155 </span><span class="lnt">156 </span><span class="lnt">157 </span><span class="lnt">158 </span><span class="lnt">159 </span><span class="lnt">160 </span><span class="lnt">161 </span><span class="lnt">162 </span><span class="lnt">163 </span><span class="lnt">164 </span><span class="lnt">165 </span><span class="lnt">166 </span><span class="lnt">167 </span><span class="lnt">168 </span><span class="lnt">169 </span><span class="lnt">170 </span><span class="lnt">171 </span><span class="lnt">172 </span><span class="lnt">173 </span><span class="lnt">174 </span><span class="lnt">175 </span><span class="lnt">176 </span><span class="lnt">177 </span><span class="lnt">178 </span><span class="lnt">179 </span><span class="lnt">180 </span><span class="lnt">181 </span><span class="lnt">182 </span><span class="lnt">183 </span><span class="lnt">184 </span><span class="lnt">185 </span><span class="lnt">186 </span><span class="lnt">187 </span><span class="lnt">188 </span><span class="lnt">189 </span><span class="lnt">190 </span><span class="lnt">191 </span><span class="lnt">192 </span><span class="lnt">193 </span><span class="lnt">194 </span><span class="lnt">195 </span><span class="lnt">196 </span><span class="lnt">197 </span><span class="lnt">198 </span><span class="lnt">199 </span><span class="lnt">200 </span><span class="lnt">201 </span><span class="lnt">202 </span><span class="lnt">203 </span><span class="lnt">204 </span><span class="lnt">205 </span><span class="lnt">206 </span><span class="lnt">207 </span><span class="lnt">208 </span><span class="lnt">209 </span><span class="lnt">210 </span><span class="lnt">211 </span><span class="lnt">212 </span><span class="lnt">213 </span><span class="lnt">214 </span><span class="lnt">215 </span><span class="lnt">216 </span><span class="lnt">217 </span><span class="lnt">218 </span><span class="lnt">219 </span><span class="lnt">220 </span><span class="lnt">221 </span><span class="lnt">222 </span><span class="lnt">223 </span><span class="lnt">224 </span><span class="lnt">225 </span><span class="lnt">226 </span><span class="lnt">227 </span><span class="lnt">228 </span><span class="lnt">229 </span><span class="lnt">230 </span><span class="lnt">231 </span><span class="lnt">232 </span><span class="lnt">233 </span><span class="lnt">234 </span><span class="lnt">235 </span><span class="lnt">236 </span><span class="lnt">237 </span><span class="lnt">238 </span><span class="lnt">239 </span><span class="lnt">240 </span><span class="lnt">241 </span><span class="lnt">242 </span><span class="lnt">243 </span><span class="lnt">244 </span><span class="lnt">245 </span><span class="lnt">246 </span><span class="lnt">247 </span><span class="lnt">248 </span><span class="lnt">249 </span><span class="lnt">250 </span><span class="lnt">251 </span><span class="lnt">252 </span><span class="lnt">253 </span><span class="lnt">254 </span><span class="lnt">255 </span><span class="lnt">256 </span><span class="lnt">257 </span><span class="lnt">258 </span><span class="lnt">259 </span><span class="lnt">260 </span><span class="lnt">261 </span><span class="lnt">262 </span><span class="lnt">263 </span><span class="lnt">264 </span><span class="lnt">265 </span><span class="lnt">266 </span><span class="lnt">267 </span><span class="lnt">268 </span><span class="lnt">269 </span><span class="lnt">270 </span><span class="lnt">271 </span><span class="lnt">272 </span><span class="lnt">273 </span><span class="lnt">274 </span><span class="lnt">275 </span><span class="lnt">276 </span><span class="lnt">277 </span><span class="lnt">278 </span><span class="lnt">279 </span><span class="lnt">280 </span></code></pre></td> <td class="lntd"> <pre tabindex="0" class="chroma"><code class="language-html" data-lang="html"><span class="line"><span class="cl"><span class="cp">&lt;!DOCTYPE HTML PUBLIC &#34;-//W3C//DTD HTML 4.01 Transitional//EN&#34;&gt;</span> </span></span><span class="line"><span class="cl"><span class="p">&lt;</span><span class="nt">head</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl"> <span class="p">&lt;</span><span class="nt">title</span><span class="p">&gt;</span>WiseSoft Drive Space Report<span class="p">&lt;/</span><span class="nt">title</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl"> <span class="p">&lt;</span><span class="nt">hta:application</span> <span class="na">applicationname</span><span class="o">=</span><span class="s">&#34;WiseSoft Drive Space Report&#34;</span> <span class="na">scroll</span><span class="o">=</span><span class="s">&#34;yes&#34;</span> <span class="na">singleinstance</span><span class="o">=</span><span class="s">&#34;yes&#34;</span> </span></span><span class="line"><span class="cl"> <span class="na">windowstate</span><span class="o">=</span><span class="s">&#34;normal&#34;</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl"><span class="p">&lt;</span><span class="nt">style</span> <span class="na">type</span><span class="o">=</span><span class="s">&#34;text/css&#34;</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl"> <span class="nt">body</span> </span></span><span class="line"><span class="cl"> <span class="p">{</span> </span></span><span class="line"><span class="cl"> <span class="k">background-color</span><span class="p">:</span> <span class="mh">#F2F2F2</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">font</span><span class="p">:</span> <span class="kc">bold</span> <span class="mi">10</span><span class="kt">pt</span> <span class="n">arial</span><span class="p">,</span><span class="kc">sans-serif</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">color</span><span class="p">:</span><span class="mh">#787878</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">margin</span><span class="p">:</span><span class="mi">0</span><span class="kt">px</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="p">}</span> </span></span><span class="line"><span class="cl"> <span class="nt">table</span> </span></span><span class="line"><span class="cl"> <span class="p">{</span> </span></span><span class="line"><span class="cl"> <span class="k">width</span><span class="p">:</span> <span class="mi">400</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">border</span><span class="p">:</span> <span class="mi">2</span><span class="kt">px</span> <span class="kc">solid</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">border-collapse</span><span class="p">:</span> <span class="kc">collapse</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">border-color</span><span class="p">:</span> <span class="mh">#696969</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="p">}</span> </span></span><span class="line"><span class="cl"> <span class="nt">th</span> </span></span><span class="line"><span class="cl"> <span class="p">{</span> </span></span><span class="line"><span class="cl"> <span class="k">border</span><span class="p">:</span> <span class="mi">1</span><span class="kt">px</span> <span class="kc">dotted</span> <span class="mh">#111111</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">border-color</span><span class="p">:</span> <span class="mh">#787878</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">color</span><span class="p">:</span> <span class="mh">#FFFFFF</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">font</span><span class="p">:</span> <span class="kc">bold</span> <span class="mi">12</span><span class="kt">pt</span> <span class="n">arial</span><span class="p">,</span><span class="kc">sans-serif</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">background-color</span><span class="p">:</span> <span class="mh">#787878</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">text-align</span><span class="p">:</span> <span class="kc">left</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="p">}</span> </span></span><span class="line"><span class="cl"> <span class="nt">td</span> </span></span><span class="line"><span class="cl"> <span class="p">{</span> </span></span><span class="line"><span class="cl"> <span class="k">border</span><span class="p">:</span> <span class="mi">1</span><span class="kt">px</span> <span class="kc">dotted</span> <span class="mh">#111111</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">border-color</span><span class="p">:</span> <span class="mh">#787878</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">font</span><span class="p">:</span> <span class="kc">bold</span> <span class="mi">10</span><span class="kt">pt</span> <span class="n">arial</span><span class="p">,</span><span class="kc">sans-serif</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">color</span><span class="p">:</span> <span class="mh">#787878</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="p">}</span> </span></span><span class="line"><span class="cl"> <span class="p">.</span><span class="nc">neutral</span> </span></span><span class="line"><span class="cl"> <span class="p">{</span> </span></span><span class="line"><span class="cl"> <span class="k">background-color</span><span class="p">:</span> <span class="mh">#FFFFE0</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">color</span><span class="p">:</span> <span class="mh">#787878</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="p">}</span> </span></span><span class="line"><span class="cl"> <span class="p">.</span><span class="nc">good</span> </span></span><span class="line"><span class="cl"> <span class="p">{</span> </span></span><span class="line"><span class="cl"> <span class="k">background-color</span><span class="p">:</span> <span class="kc">green</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">color</span><span class="p">:</span> <span class="kc">white</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="p">}</span> </span></span><span class="line"><span class="cl"> <span class="p">.</span><span class="nc">warning</span> </span></span><span class="line"><span class="cl"> <span class="p">{</span> </span></span><span class="line"><span class="cl"> <span class="k">background-color</span><span class="p">:</span> <span class="kc">yellow</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">color</span><span class="p">:</span> <span class="kc">black</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="p">}</span> </span></span><span class="line"><span class="cl"> <span class="p">.</span><span class="nc">critical</span> </span></span><span class="line"><span class="cl"> <span class="p">{</span> </span></span><span class="line"><span class="cl"> <span class="k">background-color</span><span class="p">:</span> <span class="kc">red</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">color</span><span class="p">:</span> <span class="kc">black</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="p">}</span> </span></span><span class="line"><span class="cl"> <span class="p">.</span><span class="nc">tableHead</span> <span class="nt">td</span> </span></span><span class="line"><span class="cl"> <span class="p">{</span> </span></span><span class="line"><span class="cl"> <span class="k">padding</span><span class="p">:</span> <span class="mi">5</span><span class="kt">px</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">font</span><span class="p">:</span> <span class="kc">bold</span> <span class="mi">14</span><span class="kt">pt</span> <span class="n">arial</span><span class="p">,</span><span class="kc">sans-serif</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">background-color</span><span class="p">:</span> <span class="mh">#787878</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">text-align</span><span class="p">:</span> <span class="kc">center</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">color</span><span class="p">:</span> <span class="kc">white</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="p">}</span> </span></span><span class="line"><span class="cl"> <span class="nt">h1</span> </span></span><span class="line"><span class="cl"> <span class="p">{</span> </span></span><span class="line"><span class="cl"> <span class="k">background-color</span><span class="p">:</span> <span class="mh">#787878</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">color</span><span class="p">:</span> <span class="kc">white</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">font</span><span class="p">:</span> <span class="kc">bold</span> <span class="mi">20</span><span class="kt">pt</span> <span class="n">arial</span><span class="p">,</span><span class="kc">sans-serif</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="k">text-align</span><span class="p">:</span> <span class="kc">center</span><span class="p">;</span> </span></span><span class="line"><span class="cl"> <span class="p">}</span> </span></span><span class="line"><span class="cl"><span class="p">&lt;/</span><span class="nt">style</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl"><span class="p">&lt;/</span><span class="nt">head</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"><span class="p">&lt;</span><span class="nt">script</span> <span class="na">language</span><span class="o">=</span><span class="s">&#34;VBScript&#34;</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> <span class="nx">OPTION</span> <span class="nx">EXPLICIT</span> </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"> <span class="s1">&#39; ********** Constants ********** </span></span></span><span class="line"><span class="cl"><span class="s1"> CONST bytesToMB = 1048576 </span></span></span><span class="line"><span class="cl"><span class="s1"> CONST bytesToGB = 1073741824 </span></span></span><span class="line"><span class="cl"><span class="s1"> CONST bytesToTB = 1099511627776 </span></span></span><span class="line"><span class="cl"><span class="s1"> CONST warningLevel = 20 &#39;</span> <span class="o">&lt;</span> <span class="mi">20</span><span class="o">%</span> <span class="o">=</span> <span class="nx">warning</span> <span class="p">(</span><span class="nx">yellow</span><span class="p">)</span> </span></span><span class="line"><span class="cl"> <span class="nx">CONST</span> <span class="nx">criticalLevel</span> <span class="o">=</span> <span class="mi">10</span> <span class="s1">&#39; &lt; 10% = critical (red) </span></span></span><span class="line"><span class="cl"><span class="s1"> CONST goodLevel = 50 &#39;</span> <span class="o">&gt;</span> <span class="mi">50</span><span class="o">%</span> <span class="o">=</span> <span class="nx">good</span> <span class="p">(</span><span class="nx">green</span><span class="p">)</span> </span></span><span class="line"><span class="cl"> <span class="s1">&#39; ********************************** </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> SUB GetDriveReportsHTML </span></span></span><span class="line"><span class="cl"><span class="s1"> DIM html, strComputer,strComputers </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> strComputers = txtComputers.value </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> FOR EACH strComputer in SPLIT(strComputers,CHR(13)) </span></span></span><span class="line"><span class="cl"><span class="s1"> strComputer = TRIM(REPLACE(strComputer,CHR(10),&#34;&#34;)) </span></span></span><span class="line"><span class="cl"><span class="s1"> IF strComputer &lt;&gt; &#34;&#34; THEN </span></span></span><span class="line"><span class="cl"><span class="s1"> html = html &amp; GetDriveReportHTML(strComputer) </span></span></span><span class="line"><span class="cl"><span class="s1"> END IF </span></span></span><span class="line"><span class="cl"><span class="s1"> NEXT </span></span></span><span class="line"><span class="cl"><span class="s1"> report.InnerHTML = html </span></span></span><span class="line"><span class="cl"><span class="s1"> END SUB </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> FUNCTION ConvertToDiskUnit(BYVAL value) </span></span></span><span class="line"><span class="cl"><span class="s1"> IF (value/bytesToTb) &gt; 1 THEN </span></span></span><span class="line"><span class="cl"><span class="s1"> ConvertToDiskUnit = ROUND(value / bytesToTB,1) &amp; &#34; TB&#34; </span></span></span><span class="line"><span class="cl"><span class="s1"> ELSEIF (value/bytesToGb) &gt; 1 THEN </span></span></span><span class="line"><span class="cl"><span class="s1"> ConvertToDiskUnit = ROUND(value / bytesToGB,1) &amp; &#34; GB&#34; </span></span></span><span class="line"><span class="cl"><span class="s1"> ELSE </span></span></span><span class="line"><span class="cl"><span class="s1"> ConvertToDiskUnit = ROUND(value / bytesToMB,1) &amp; &#34; MB&#34; </span></span></span><span class="line"><span class="cl"><span class="s1"> END IF </span></span></span><span class="line"><span class="cl"><span class="s1"> END FUNCTION </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> FUNCTION GetDriveReportHTML(BYVAL strComputer) </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> DIM objWMIService, objItem, colItems </span></span></span><span class="line"><span class="cl"><span class="s1"> DIM strDriveType, strDiskSize, htmlDriveReport </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> ON ERROR RESUME NEXT </span></span></span><span class="line"><span class="cl"><span class="s1"> SET objWMIService = GETOBJECT(&#34;winmgmts:\\&#34; &amp; strComputer &amp; &#34;\root\cimv2&#34;) </span></span></span><span class="line"><span class="cl"><span class="s1"> IF Err.Number &lt;&gt; 0 THEN </span></span></span><span class="line"><span class="cl"><span class="s1"> GetDriveReportHTML = &#34;&lt;span class=&#34;&#34;critical&#34;&#34;&gt;Error connecting to &#39;</span><span class="s2">&#34; &amp; strComputer &amp; &#34;</span><span class="s1">&#39;&lt;/span&gt;&lt;br/&gt;&lt;br/&gt;&#34; </span></span></span><span class="line"><span class="cl"><span class="s1"> Err.Clear </span></span></span><span class="line"><span class="cl"><span class="s1"> ON ERROR GOTO 0 </span></span></span><span class="line"><span class="cl"><span class="s1"> EXIT FUNCTION </span></span></span><span class="line"><span class="cl"><span class="s1"> END IF </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> ON ERROR GOTO 0 </span></span></span><span class="line"><span class="cl"><span class="s1"> SET colItems = objWMIService.ExecQuery(&#34;Select * from Win32_LogicalDisk WHERE DriveType=3&#34;) </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> htmlDriveReport = &#34;&lt;table&gt;&lt;tr class=&#34;&#34;tableHead&#34;&#34;&gt;&lt;td colspan=&#34;&#34;5&#34;&#34;&gt;&#34; &amp; strComputer &amp; _ </span></span></span><span class="line"><span class="cl"><span class="s1"> &#34;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;th&gt;Drive&lt;/th&gt;&lt;th&gt;Size&lt;/th&gt;&lt;th&gt;Used&lt;/th&gt;&lt;th&gt;Free&lt;/th&gt;&lt;th&gt;Free(%)&lt;/th&gt;&lt;/tr&gt;&#34; </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> FOR EACH objItem in colItems </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> DIM pctFreeSpace,strFreeSpace,strusedSpace, cssClass </span></span></span><span class="line"><span class="cl"><span class="s1"> pctFreeSpace = ROUND(((objItem.FreeSpace / objItem.Size) * 100),1) </span></span></span><span class="line"><span class="cl"><span class="s1"> strDiskSize = ConvertToDiskUnit(objItem.Size) </span></span></span><span class="line"><span class="cl"><span class="s1"> strFreeSpace = ConvertToDiskUnit(objItem.FreeSpace) </span></span></span><span class="line"><span class="cl"><span class="s1"> strUsedSpace = ConvertToDiskUnit(objItem.Size-objItem.FreeSpace) </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> IF pctFreeSpace &lt; criticalLevel THEN </span></span></span><span class="line"><span class="cl"><span class="s1"> cssClass = &#34;critical&#34; </span></span></span><span class="line"><span class="cl"><span class="s1"> ELSEIF pctFreeSpace &lt; warningLevel THEN </span></span></span><span class="line"><span class="cl"><span class="s1"> cssClass = &#34;warning&#34; </span></span></span><span class="line"><span class="cl"><span class="s1"> ELSEIF pctFreeSpace &gt; goodLevel THEN </span></span></span><span class="line"><span class="cl"><span class="s1"> cssClass = &#34;good&#34; </span></span></span><span class="line"><span class="cl"><span class="s1"> ELSE </span></span></span><span class="line"><span class="cl"><span class="s1"> cssClass = &#34;neutral&#34; </span></span></span><span class="line"><span class="cl"><span class="s1"> END IF </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> DIM strChart </span></span></span><span class="line"><span class="cl"><span class="s1"> strChart = &#34;&lt;div style=&#34;&#34;width=100%;&#34;&#34;&gt;&lt;span style=&#34;&#34;width=&#34; &amp; 100-pctFreeSpace &amp; _ </span></span></span><span class="line"><span class="cl"><span class="s1"> &#34;%;background-color:blue;&#34;&#34;&gt;&lt;/span&gt;&lt;span style=&#34;&#34;width=&#34; &amp; pctFreeSpace &amp; _ </span></span></span><span class="line"><span class="cl"><span class="s1"> &#34;%;background-color:#FF00FF;&#34;&#34;&gt;&lt;/span&gt;&lt;/div&gt;&#34; </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> htmlDriveReport = htmlDriveReport &amp; &#34;&lt;tr&gt;&lt;td&gt;&#34; &amp; objItem.Name &amp; strChart &amp; &#34;&lt;/td&gt;&lt;td&gt;&#34; &amp; _ </span></span></span><span class="line"><span class="cl"><span class="s1"> strDiskSize &amp; &#34;&lt;/td&gt;&lt;td&gt;&#34; &amp; strUsedSpace &amp; &#34;&lt;/td&gt;&lt;td&gt;&#34; &amp; _ </span></span></span><span class="line"><span class="cl"><span class="s1"> strFreeSpace &amp; &#34;&lt;/td&gt;&lt;td class=&#34;&#34;&#34; &amp; cssClass &amp; &#34;&#34;&#34;&gt;&#34; &amp; pctFreeSpace &amp; &#34;%&lt;/td&gt;&lt;/tr&gt;&#34; </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> NEXT </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> htmlDriveReport = htmlDriveReport + &#34;&lt;/table&gt;&lt;/br&gt;&#34; </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> GetDriveReportHTML = htmlDriveReport </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> END FUNCTION </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> SUB GetDriveReportsCSV </span></span></span><span class="line"><span class="cl"><span class="s1"> DIM csv, strComputer,strComputers, path </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> strComputers = txtComputers.value </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> csv = &#34;Computer,Drive,Size,Used,Free,Free(%)&#34; </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> FOR EACH strComputer in SPLIT(strComputers,CHR(13)) </span></span></span><span class="line"><span class="cl"><span class="s1"> strComputer = TRIM(REPLACE(strComputer,CHR(10),&#34;&#34;)) </span></span></span><span class="line"><span class="cl"><span class="s1"> IF strComputer &lt;&gt; &#34;&#34; THEN </span></span></span><span class="line"><span class="cl"><span class="s1"> IF csv &lt;&gt; &#34;&#34; THEN </span></span></span><span class="line"><span class="cl"><span class="s1"> csv = csv &amp; VbCrLf </span></span></span><span class="line"><span class="cl"><span class="s1"> END IF </span></span></span><span class="line"><span class="cl"><span class="s1"> csv = csv &amp; GetDriveReportCSV(strComputer) </span></span></span><span class="line"><span class="cl"><span class="s1"> END IF </span></span></span><span class="line"><span class="cl"><span class="s1"> NEXT </span></span></span><span class="line"><span class="cl"><span class="s1"> path = INPUTBOX(&#34;Enter FileName:&#34;,&#34;Enter FileName&#34;,&#34;MyDriveReport.csv&#34;) </span></span></span><span class="line"><span class="cl"><span class="s1"> IF path = &#34;&#34; THEN </span></span></span><span class="line"><span class="cl"><span class="s1"> EXIT SUB </span></span></span><span class="line"><span class="cl"><span class="s1"> END IF </span></span></span><span class="line"><span class="cl"><span class="s1"> WriteTextFile csv, path </span></span></span><span class="line"><span class="cl"><span class="s1"> END SUB </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> FUNCTION GetDriveReportCSV(BYVAL strComputer) </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> DIM objWMIService, objItem, colItems </span></span></span><span class="line"><span class="cl"><span class="s1"> DIM strDriveType, strDiskSize, csvDriveReport </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> ON ERROR RESUME NEXT </span></span></span><span class="line"><span class="cl"><span class="s1"> SET objWMIService = GETOBJECT(&#34;winmgmts:\\&#34; &amp; strComputer &amp; &#34;\root\cimv2&#34;) </span></span></span><span class="line"><span class="cl"><span class="s1"> IF Err.Number &lt;&gt; 0 THEN </span></span></span><span class="line"><span class="cl"><span class="s1"> GetDriveReportCSV = strComputer &amp; &#34;,Error,Error,Error,Error,Error&#34; </span></span></span><span class="line"><span class="cl"><span class="s1"> Err.Clear </span></span></span><span class="line"><span class="cl"><span class="s1"> ON ERROR GOTO 0 </span></span></span><span class="line"><span class="cl"><span class="s1"> EXIT FUNCTION </span></span></span><span class="line"><span class="cl"><span class="s1"> END IF </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> ON ERROR GOTO 0 </span></span></span><span class="line"><span class="cl"><span class="s1"> SET colItems = objWMIService.ExecQuery(&#34;Select * from Win32_LogicalDisk WHERE DriveType=3&#34;) </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> FOR EACH objItem in colItems </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> DIM pctFreeSpace,strFreeSpace,strusedSpace, cssClass </span></span></span><span class="line"><span class="cl"><span class="s1"> pctFreeSpace = ROUND(((objItem.FreeSpace / objItem.Size) * 100),1) </span></span></span><span class="line"><span class="cl"><span class="s1"> strDiskSize = ConvertToDiskUnit(objItem.Size) </span></span></span><span class="line"><span class="cl"><span class="s1"> strFreeSpace = ConvertToDiskUnit(objItem.FreeSpace) </span></span></span><span class="line"><span class="cl"><span class="s1"> strUsedSpace = ConvertToDiskUnit(objItem.Size-objItem.FreeSpace) </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> IF pctFreeSpace &lt; criticalLevel THEN </span></span></span><span class="line"><span class="cl"><span class="s1"> cssClass = &#34;critical&#34; </span></span></span><span class="line"><span class="cl"><span class="s1"> ELSEIF pctFreeSpace &lt; warningLevel THEN </span></span></span><span class="line"><span class="cl"><span class="s1"> cssClass = &#34;warning&#34; </span></span></span><span class="line"><span class="cl"><span class="s1"> ELSEIF pctFreeSpace &gt; goodLevel THEN </span></span></span><span class="line"><span class="cl"><span class="s1"> cssClass = &#34;good&#34; </span></span></span><span class="line"><span class="cl"><span class="s1"> ELSE </span></span></span><span class="line"><span class="cl"><span class="s1"> cssClass = &#34;neutral&#34; </span></span></span><span class="line"><span class="cl"><span class="s1"> END IF </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> IF csvDriveReport &lt;&gt; &#34;&#34; THEN </span></span></span><span class="line"><span class="cl"><span class="s1"> csvDriveReport = csvDriveReport &amp; VbCrLf </span></span></span><span class="line"><span class="cl"><span class="s1"> END IF </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> csvDriveReport = csvDriveReport &amp; strComputer &amp; &#34;,&#34; &amp; objItem.Name &amp; &#34;,&#34; &amp; _ </span></span></span><span class="line"><span class="cl"><span class="s1"> strDiskSize &amp; &#34;,&#34; &amp; strUsedSpace &amp; &#34;,&#34; &amp; _ </span></span></span><span class="line"><span class="cl"><span class="s1"> strFreeSpace &amp; &#34;,&#34; &amp; pctFreeSpace &amp; &#34;%&#34; </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> NEXT </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> GetDriveReportCSV = csvDriveReport </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> END FUNCTION </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> SUB WriteTextFile(BYVAL txt,BYVAL path) </span></span></span><span class="line"><span class="cl"><span class="s1"> DIM objFSO, objTextFile </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> SET objFSO = CREATEOBJECT(&#34;Scripting.FileSystemObject&#34;) </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> IF objFSO.FileExists(path) THEN </span></span></span><span class="line"><span class="cl"><span class="s1"> IF MSGBOX(&#34;Warning: file already exists! Overwrite file?&#34;,vbYesNo+vbQuestion,&#34;Overwrite File?&#34;) = vbNo THEN </span></span></span><span class="line"><span class="cl"><span class="s1"> EXIT SUB </span></span></span><span class="line"><span class="cl"><span class="s1"> END IF </span></span></span><span class="line"><span class="cl"><span class="s1"> END IF </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> SET objTextFile = objFSO.CreateTextFile(path) </span></span></span><span class="line"><span class="cl"><span class="s1"> </span></span></span><span class="line"><span class="cl"><span class="s1"> objTextFile.Write(txt) </span></span></span><span class="line"><span class="cl"><span class="s1"> objTextFile.Close </span></span></span><span class="line"><span class="cl"><span class="s1"> MSGBOX &#34;Created &#39;</span><span class="s2">&#34; &amp; path &amp; &#34;</span><span class="err">&#39;</span> <span class="nx">Report</span><span class="err">&#34;</span><span class="p">,</span><span class="nx">vbOKOnly</span><span class="o">+</span><span class="nx">vbInformation</span> </span></span><span class="line"><span class="cl"> <span class="nx">END</span> <span class="nx">SUB</span> </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"><span class="p">&lt;/</span><span class="nt">script</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl"> </span></span><span class="line"><span class="cl"><span class="p">&lt;</span><span class="nt">body</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl"> <span class="p">&lt;</span><span class="nt">h1</span> <span class="na">style</span><span class="o">=</span><span class="s">&#34;margin-bottom: 0px;&#34;</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl"> Drive Space Report<span class="p">&lt;/</span><span class="nt">h1</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl"> <span class="p">&lt;</span><span class="nt">div</span> <span class="na">style</span><span class="o">=</span><span class="s">&#34;text-align: right; font: bold 8pt arial,sans-serif; color: #787878;&#34;</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl"> By David Wiseman, <span class="p">&lt;</span><span class="nt">a</span> <span class="na">target</span><span class="o">=</span><span class="s">&#34;_blank&#34;</span> <span class="na">href</span><span class="o">=</span><span class="s">&#34;http://www.wisesoft.co.uk&#34;</span><span class="p">&gt;</span>www.wisesoft.co.uk<span class="p">&lt;/</span><span class="nt">a</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl"> <span class="p">&lt;/</span><span class="nt">div</span><span class="p">&gt;&lt;</span><span class="nt">br</span> <span class="p">/&gt;</span> </span></span><span class="line"><span class="cl"> <span class="p">&lt;</span><span class="nt">div</span> <span class="na">style</span><span class="o">=</span><span class="s">&#34;text-align: center;&#34;</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl">Enter names of computers (one line per computer):<span class="p">&lt;</span><span class="nt">br</span> <span class="p">/&gt;</span> </span></span><span class="line"><span class="cl"> <span class="p">&lt;</span><span class="nt">textarea</span> <span class="na">name</span><span class="o">=</span><span class="s">&#34;txtComputers&#34;</span> <span class="na">rows</span><span class="o">=</span><span class="s">&#34;4&#34;</span> <span class="na">cols</span><span class="o">=</span><span class="s">&#34;50&#34;</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl">localhost </span></span><span class="line"><span class="cl">. </span></span><span class="line"><span class="cl">127.0.0.1 </span></span><span class="line"><span class="cl"> <span class="p">&lt;/</span><span class="nt">textarea</span><span class="p">&gt;&lt;</span><span class="nt">br</span> <span class="p">/&gt;</span> </span></span><span class="line"><span class="cl"> <span class="p">&lt;</span><span class="nt">input</span> <span class="na">style</span><span class="o">=</span><span class="s">&#34;font-weight:bold;&#34;</span> <span class="na">onclick</span><span class="o">=</span><span class="s">&#34;GetDriveReportsHTML&#34;</span> <span class="na">type</span><span class="o">=</span><span class="s">&#34;submit&#34;</span> <span class="na">value</span><span class="o">=</span><span class="s">&#34;Generate Report&#34;</span><span class="p">&gt;&lt;/</span><span class="nt">input</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl"> <span class="p">&lt;</span><span class="nt">input</span> <span class="na">onclick</span><span class="o">=</span><span class="s">&#34;GetDriveReportsCSV&#34;</span> <span class="na">type</span><span class="o">=</span><span class="s">&#34;submit&#34;</span> <span class="na">value</span><span class="o">=</span><span class="s">&#34;Download Report (CSV)&#34;</span><span class="p">&gt;&lt;/</span><span class="nt">input</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl"> <span class="p">&lt;</span><span class="nt">br</span> <span class="p">/&gt;</span> </span></span><span class="line"><span class="cl"> <span class="p">&lt;</span><span class="nt">br</span> <span class="p">/&gt;</span> </span></span><span class="line"><span class="cl"> <span class="p">&lt;/</span><span class="nt">div</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl"> <span class="p">&lt;</span><span class="nt">div</span> <span class="na">style</span><span class="o">=</span><span class="s">&#34;text-align: center;&#34;</span> <span class="na">id</span><span class="o">=</span><span class="s">&#34;report&#34;</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl"> <span class="p">&lt;/</span><span class="nt">div</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl"><span class="p">&lt;/</span><span class="nt">body</span><span class="p">&gt;</span> </span></span><span class="line"><span class="cl"><span class="p">&lt;/</span><span class="nt">html</span><span class="p">&gt;</span> </span></span></code></pre></td></tr></table> </div> </div> </div>