VB.NET

Geting XP - Vista with a program

Please support our VB.NET advertiser: Intel Parallel Studio Home

Thread Solved

•

Join Date: Oct 2009

Posts: 47

Reputation: xfrolox is an unknown quantity at this point

Solved Threads: 0

xfrolox

Offline

Light Poster

Geting XP - Vista with a program

-1

Oct 15th, 2009

well hi this is my second thread the first one still unsolved lets see about this one.

how can i do that when my program is open and its run in a Vista computer, it have to show a MsgBox and says Error please run as admin and when it is run as admin it wont appear ?

XP don't need to open as admin

P.S sorry for my English. and I'm sorry that i didn't explain good.(i think)

•

Join Date: Jun 2009

Posts: 271

Reputation: GeekByChoiCe is on a distinguished road

Solved Threads: 55

GeekByChoiCe GeekByChoiCe is offline

Offline

Posting Whiz in Training

Oct 16th, 2009

to require admin privileges add into your app.manifest this line
<requestedExecutionLevel level="requireAdministrator" uiAccess="false"/>

to check for privileges:

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
if not My.User.IsInRole(ApplicationServices.BuiltInRole.Administrator) then
msgbox "Sorry you have to be an administrator"
end if
if not My.User.IsInRole(ApplicationServices.BuiltInRole.Administrator) then
msgbox "Sorry you have to be an administrator"
end if

•

Join Date: Oct 2009

Posts: 47

Reputation: xfrolox is an unknown quantity at this point

Solved Threads: 0

xfrolox

Offline

Light Poster

Thx

Oct 16th, 2009

•

Originally Posted by GeekByChoiCe

to require admin privileges add into your app.manifest this line
<requestedExecutionLevel level="requireAdministrator" uiAccess="false"/>

to check for privileges:
Help with Code Tags

vb Syntax (Toggle Plain Text)
if not My.User.IsInRole(ApplicationServices.BuiltInRole.Administrator) then
msgbox "Sorry you have to be an administrator"
end if
if not My.User.IsInRole(ApplicationServices.BuiltInRole.Administrator) then msgbox "Sorry you have to be an administrator" end if

i didn't put the line

Help with Code Tags

VB.NET Syntax (Toggle Plain Text)

<requestedExecutionLevel level="requireAdministrator" uiAccess="false"/>

i just do this

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim MymessageBox2
From load
If Not My.User.IsInRole(ApplicationServices.BuiltInRole.Administrator) Then
            MymessageBox2 = MsgBox("Please Run as Administrator", MsgBoxStyle.Critical)
            If MymessageBox2 = MsgBoxResult.Ok Then
                Me.Close()
Dim MymessageBox2
From load
If Not My.User.IsInRole(ApplicationServices.BuiltInRole.Administrator) Then
            MymessageBox2 = MsgBox("Please Run as Administrator", MsgBoxStyle.Critical)
            If MymessageBox2 = MsgBoxResult.Ok Then
                Me.Close()