PwExpChk.vbs can I add a company logo?
<p>The script I want to use in my environment is stated below, it is a .vbs script. I was wondering if it is possible to add a company logo to the pop-up box? If it is possible how would I do it? Also added is a picture (screen shot) of the results of the script as is... The script works great, I just need to know about the logo part. Due note that the logo will be a simple .jpg file and I am hoping I can add the company logo above the popup box instead of imbedded, something like:</p>

<p>Company logo</p>

<p>msgbox </p>

<p><a href="http://i.stack.imgur.com/NMArw.png" rel="nofollow">Results of the script</a></p>

<pre><code>    '==========================================
 ' Check for password expiring notification
 '==========================================
 ' First, get the domain policy.
 '==========================================
 Dim oDomain
 Dim oUser
 Dim maxPwdAge
 Dim numDays
 Dim warningDays

warningDays = 14

 Set LoginInfo = CreateObject("ADSystemInfo")  
 Set objUser = GetObject("LDAP://" &amp; LoginInfo.UserName &amp; "")  
 strDomainDN = UCase(LoginInfo.DomainDNSName) 
 strUserDN = LoginInfo.UserName

'========================================
 ' Check if password is non-expiring.
 '========================================
 Const ADS_UF_DONT_EXPIRE_PASSWD = &amp;h10000
 intUserAccountControl = objUser.Get("userAccountControl")
 If intUserAccountControl And ADS_UF_DONT_EXPIRE_PASSWD Then
     'WScript.Echo "The password does not expire."
 Else

     Set oDomain = GetObject("LDAP://" &amp; strDomainDN)
     Set maxPwdAge = oDomain.Get("maxPwdAge")

    '========================================
     ' Calculate the number of days that are
     ' held in this value.
     '========================================
     numDays = CCur((maxPwdAge.HighPart * 2 ^ 32) + _
                     maxPwdAge.LowPart) / CCur(-864000000000)
     'WScript.Echo "Maximum Password Age: " &amp; numDays

     '========================================
     ' Determine the last time that the user
     ' changed his or her password.
     '========================================
     Set oUser = GetObject("LDAP://" &amp; strUserDN)

    '========================================
     ' Add the number of days to the last time
     ' the password was set.
     '========================================
     whenPasswordExpires = DateAdd("d", numDays, oUser.PasswordLastChanged)
     fromDate = Date
     daysLeft = DateDiff("d",fromDate,whenPasswordExpires)

     'WScript.Echo "Password Last Changed: " &amp; oUser.PasswordLastChanged

    if (daysLeft &lt; warningDays) and (daysLeft &gt; -1) then
         Msgbox "Password Expires in " &amp; daysLeft &amp; " day(s)" &amp; " at " &amp; whenPasswordExpires &amp; chr(13) &amp; chr(13) &amp; "Once logged in, press CTRL-ALT-DEL and" &amp; chr(13) &amp; "select the 'Change a password' option", 0, " PASSWORD EXPIRATION WARNING!"
     End if

End if

'========================================
 ' Clean up.
 '========================================
 Set oUser = Nothing
 Set maxPwdAge = Nothing
 Set oDomain = Nothing   
</code></pre>