Új hozzászólás Aktív témák

• sztanozs veterán

  #2756

  #2755 vilag

  2017-02-09 11:22:44

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sztanozs

  veterán

  #2755 vilag

  #2755 vilag

  Nagyon, nagyon szépen köszönöm!

  Némi küzdés után teszi a dolgát ahogy kell (a küzdés persze az én hibámból volt).

  Teszteltem egy-két gépen és amelyiken nem szükséges rendszergazda jog ott gyönyörűen teszi a dolgát.

  Ahol azonban nincs telepítési jog ott:

  XP esetén: látszólagosan nem történik semmi.
  Win7 esetén: feljön az ablak, hogy adjam meg a rendszergazda felhasználónevét és jelszavát a telepítéshez.

  1. A kérdésem az lenne, hogy meg lehet-e valahogyan esetleg oldani, hogy a felhasználónév és jelszó megadása kódból történjen? (hátha a rendszergazda ideadja az adatait)

  2. Le lehet-e kérdezni, hogy az adott felhasználó rendelkezik-e rendszergazdai (telepítési) joggal? A környezeti változókban (ENVIRON) nem találtam ilyet...
  Utóbbira azért lenne szükség, hogy ha az első verzió valamilyen okból (esetleges jelszócsere pl.) nem működne.

  Ezzel le tudod kérdezni a memberhip-et:
  Function IsMember(userDomain As String, userName As String, groupDomain As String, groupName As String) As Boolean
Dim grp As Object
Dim grpPath As String, userPath As String

grpPath = "WinNT://" & groupDomain & "/" & groupName
Set grp = GetObject(grpPath & ",group")

userPath = "WinNT://" & userDomain & "/" & userName
IsMember = grp.IsMember(userPath)
End Function

  Így hívd meg (angol windows-on - magyaron ugye más az Admin Group neve):
  IsMember(Environ("userdomain"), Environ("username"), ".", "Administrators")

Új hozzászólás Aktív témák