DesktopX UAC SP2 from Microsoft Security HAS CHANGED HELP!

Hi folks;

I don't know if I am the first to run into this, but I thought that I had better let everyone know!!!!

I had a paroblem starting DesktopX and two other programs in the Start Menu and with the StartUP folder of the programs area.

There was a reason I needed to do this and when I talked to a rep. from Microsoft, they mentioned that they are getting rid of the UAC area in Windows  Vista as of SP2 install.

Well the Microsoft Support person explained what I had to do to set a Programs - Properties - Advanced Tab - check "Run as Administrator" settings of the programs I needed to run at Vista's Start up certain things started to go wrong in my DesktopX Theme! See below:

I turned the UAC back on and it worked. So I am going to list my script which errors and doesn't work any longer everytime with the UAC turned off and see if anyone knows a way to get around this...HOPE!!!

Here is the script:

Dim sLogin
Dim sPass
Dim sServer
Dim sType
Dim sLogin2
Dim sPass2
Dim sServer2
Dim sType2
Dim bPrompting
Dim bChecking
Set wsh = CreateObject("WScript.Shell")
'Called when the script is executed
Sub Object_OnScriptEnter
Dim i
Dim PrefName
bPrompting = False
bChecking = False

sLogin = "Me"
sPass = "Automan"
sServer = "pop3.pop3.some where.net"
sType = "POP3"

i = 1
For i = 1 To 2

Prefname = "Account" & i
c242AddTxtPreference(Prefname)
Prefname = "User"& i
c242AddTxtPreference(Prefname)

Prefname = "Password" & i
Widget.AddPreference Prefname
Widget.Preference(Prefname).Type = "Password"
Widget.Preference(Prefname).DefaultValue = ""
Widget.Preference(Prefname).Caption = "Password " & i

Prefname = "Server" & i
c242AddTxtPreference(Prefname)

Next

Prefname = "MailApp"
c242AddTxtPreference(Prefname)

object.settimer 123, 80000
RefreshData
CheckMail

End Sub

Sub c242AddTxtPreference(PrefnameN)

Widget.AddPreference PrefnameN
Widget.Preference(PrefnameN).Type = "text"

Widget.Preference(PrefnameN).DefaultValue = " "
Widget.Preference(PrefnameN).Caption = PrefnameN

End Sub

Sub RefreshData

Dim Accounts

sLogin = "me"
sPass = "Automan"
sServer = "pop3.some where.net"
sType = "POP3"

'Object.Height = 60 + Accounts * 15
End Sub

Sub Widget_OnPreferencesChange
RefreshData
CheckMail

End Sub

Sub object_ontimer123
CheckMail

End Sub

Sub CheckMail
If bPrompting Or sLogin = "" Then Exit Sub
If bChecking Then Exit Sub
bChecking = True
desktopx.Object("acct1-mails").text = ""
DesktopX.Object("animations").SetPicture "email-checking-ani.png" , 12, 240, "&H00000001"
ltype = 0
If stype = "IMAP" Then ltype = 1
Mail.CheckMail "1", sLogin, sPass, sServer, ltype
bChecking = False
End Sub

Sub Object_OnLButtonUpEx(obj, x,y,b)      Note:    <--This Smiley Face should be a Right parenthases!!!
name = obj.name
If b= False Then
 If name = "config-btn-m" Then
  Widget.OpenProperties
 Else
 If name = "check-btn" Then
    CheckMail
   
  Else
     If name = "client-btn" Then
        If Widget.Preference("MailApp").Value = "" Then
           Widget.Preference("MailApp").Value = System.FileOpenDialog("Select your email client","","C:", "executables|*.exe", &H1000)
        End If
        wsh.run Chr(34)&Widget.Preference("MailApp").Value&Chr(34)
     End If  
  End If
 
End If
End If    
End Sub

'method OnMailEvent
Sub Mail_OnMailEvent(requestID, mails)
If mails Then 
  strailing = ""
 If requestID = "1" Then
    If mails = 1 Then
       strailing = ""
    Else
       strailing = ""
     End If
    desktopx.Object("acct1-mails").text = mails & strailing
   Else 
       If requestID = "2" Then
         If mails = 1 Then
            strailing = "@-Mail"
         Else
            strailing = "@-Mail"
          End If
          desktopx.Object("acct2-mails").text = mails & strailing
       End If
   End If
Else      
  If requestID = "1" Then
        desktopx.Object("acct1-mails").text = "0"
  Else  
   End If 
End If
  If desktopx.Object("acct1-mails").text = "0" Then
     DesktopX.Object("animations").SetPicture "email-none.png" , 1, 80, "&H00000010"
  Else
     DesktopX.Object("animations").SetPicture "email-newmail-ani.png" , 12, 240, "&H00000001"
  End If      
End Sub

I may have left too much login info in there but I am not worried.

This script without the UAC enabled errors on line 97 where it checks the email.

Anyone know a way to fix this so it just checks or let me know what I need to change, I really need this script to work, because I use it constantly.. There has to be a way around the UAC from now on with-in DesktopX!

Microsoft has informed the with the Update of SP2 that the UAC no longer is needed. I hope this doesn't kill all email scripts out there.

Stardock Support <-- Take a good look at this because the program that you have called "Tweak Vista", has some serious flaws!!! The program will have to have the security area dealing with UAC will Go Bye Bye!!!

If you want to try this your self just place a program into the StartUP folder in the Start group,right click on the programs properties and click Advanced and tick the run as Administrator. Reboot and watch what happens, there will be awarning pop-up that mentions a program could not be started. Turn off UAC and reboot and the program will start up just with Administrator Rights, which I might add is a good thing to be able to do.

Thanks Folks