Tjekke for admin-rights ved opstart

Skal du tjekke om brugeren er med i en bestemt brugergruppe?

Hvad er platformen?

VH CK

Platformen er Windows 2000/XP/2003

Jeg ved ikke hvilken brugergruppe der er tale om, men generalt hvis brugere ikke har adgang til at skrive til registry!

Jeg aner intet om brugere, da jeg hele mit liv kun har brugt mig selv som bruger. Programmet er et der laver om i windows' indstillinger i registry, så hvis brugere ikke har rettigheder til det, vil jeg hellere lukke programmet på en ordenligt måde i stedet for et eventuelt crash hvis de prøver!

du kan jo altid lave noget error handling

on error goto cancel
  'kode til at rette i registry
Cancel:

Hvis det går galt så springer koden til cancel label, og her kan du lukke programmet.

VH CK

Jeg vil nu gerne kunne meddele det når programmet starter op.

Jeg har omkring 40 registry indstillinger :-)

Du kan da bare når prog. starter op prøve at skrive til registry. Hvis det fejler vha. error handling som vist ovenfor så kan du give brugeren besked. Det er klart den nemmeste mulighed, alternativt så skal du igang med ADSI programmering - det kan lade sig gøre men er ikke nemt.

VH CK

Kan du gi mig et kode eksempel?
-----
Form_Load()

Dim Cancel As String
Cancel = MsgBox("Dette er fejlkoden")
regCreate_Key_Value HKEY_CURRENT_USER, "Software/FWM", "TestValue", "1"
on error goto Cancel

End Sub
-------

Sådan der?

private sub Form_Load()
on error goto Cancel
  regCreate_Key_Value HKEY_CURRENT_USER, "Software/FWM", "TestValue", "1"
cancel:
  'ved fejl springer kode hertil
End Sub

Og hvad hvis error er en MsgBox ?

cancel:
  MsgBox("bla bla")

?

Og hvis du har forstand på at oprette brugere, kan du hjælpe mig med at lave en bruger som ikke har de nødvendige rettigheder? Så kan jeg lige teste engan :)

det du skriver efter cancel det er det kode der bliver udført, hvis der opstår en fejl.

VH CK

Ok tak! Jeg prøver lige engang så!

Hvorfor faen ka jeg ikke logge af? Hmrf!

Nå fandt den! Ved du hvordan man sætter avanceret indstillinger for brugere?

Hvad mener du med advanceret indstillinger?

VH CK

ja, som f.eks indstillinger som rettigheder og således! Jeg har åbnet Users Accounts(XP), men kan ikke finde noget synderligt avanceret, kun lige bruger/pass osv.

rettigheder sætter du på de enkelte fiuler eller mapper. højreklik på objektet og vælg egenskaber herinde kan du sætte sikkerhed på for hvad hver enkelt bruger må og ikke må.

VH CK

Administratorrettighederne er ret tricky at finde, da det dækker over mange område hvorpå rettighederne for bl.a. brugere godt kan ændres af systemadministratoren således at brugere f.eks. har administratorrettigheder til at ændre filer i systemmappe.
Dog kan man tjekke om den aktuelle bruger er en administrator, som selvsagt har fuld kontrol over systemet. Det kan gøres vha. følgende kode:

Private Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved As Long, ByRef lpdwReserved As Long) As Long
Private Sub Form_Load()
  If CBool(IsNTAdmin(ByVal 0&, ByVal 0&)) = True Then
    MsgBox "Du er administratoren!", vbInformation
  Else
    MsgBox "Du er ikke administratoren!", vbExclamation
  End If
End Sub

Jeg ved ikke om dette tjek kan bruges i dit tilfælde, men jeg håber det kan bruges til noget ;)
-Sion