https://wisedataman.com/tag/hta/SQL Server & SysAdmin, Blog, Tools & Scriptsen-gbSun, 03 Aug 2008 21:00:00 +0000https://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>