WinNT egyéni felhasználói tulajdonságok
A WinNT-szolgáltató a következő egyéni tulajdonságokat teszi elérhetővé a Felhasználói osztályhoz. Ezek az IADs.Get és IADs.Put metóduson keresztül érhetők el. További információ: USER_INFO_3 struktúra.
| Ingatlan | Típus | Leírás |
|---|---|---|
| HomeDirDrive | Húr | A felhasználó kezdőlapjának meghajtója. Ez egy Unicode-sztringre mutató mutató, amely megadja a kezdőkönyvtár elérési útját. A sztring lehet null. Lásd a jelen témakör példáját. |
| ObjectSID | Oktett sztring | A felhasználó objektum sid-azonosítója. Az objektum sid-azonosítójának WinNT-szolgáltatóval való lekérésére vonatkozó példa: Objektum sid (WinNT-szolgáltató) |
| paraméterek | Húr | A felhasználó paraméterei. Egy Olyan Unicode-sztringre mutat, amelyet az alkalmazások félretettek. Ez a sztring lehet null értékű, vagy tetszőleges számú karakterből állhat a null karakter megszüntetése előtt. A Microsoft-termékek ezt a tagot használják a felhasználói konfigurációs adatok tárolására. Ezt a tulajdonságot csak egy alkalmazás módosíthatja a telepítés során. |
| PasswordAge | Idő | A használatban lévő jelszó időtartama. Ez a tulajdonság azt jelzi, hogy hány másodperc telt el a jelszó legutóbbi módosítása óta. |
| PasswordExpired | Egész szám | Jelzi, hogy mikor járt le a jelszó. A Get használata esetén nullát ad vissza, ha a jelszó nem járt le, vagy ha lejárt. Lásd a jelen témakör példáját. |
| PrimaryGroupID | Egész szám | A felhasználó elsődleges csoportazonosítója, például tartományi felhasználói csoport azonosítója. Lásd a jelen témakör példáját. |
| UserFlags | Egész szám | A ADS_USER_FLAG_ENUMdefiniált felhasználói jelző. A UserFlags használatára vonatkozó példa: Jelszó soha nem jár le (WinNT-szolgáltató) |
Ez a példa bemutatja, hogyan állíthatja be a felhasználó Otthoni meghajtó könyvtárát.
Dim usr As Object
Set usr = GetObject("WinNT://Fabrikam/jsmith,user")
usr.HomeDirectory = "UserHomeDirHere"
usr.HomeDirDrive = "HomeDirDriveHere"
usr.SetInfo
Ez a példa bemutatja, hogyan kényszerítheti a felhasználót a PasswordExpired használatával a jelszó módosítására a következő bejelentkezéskor.
Dim usr As Object
Set usr = GetObject("WinNT://Fabrikam/jsmith,user")
usr.Put "PasswordExpired", CLng(1)
usr.SetInfo
'--- Clear this flag so that the user does not have to change the password at next logon.
usr.Put "PasswordExpired", CLng(0)
usr.SetInfo
Ez a példa bemutatja, hogyan szerezheti be a felhasználó elsődleges csoportját.
Dim usr As Object
Dim grpPrimaryID As Object
Set usr = GetObject("WinNT://Fabrikam/jsmith,user")
grpPrimaryID = usr.Get("PrimaryGroupID")