Vraag : Pager van de uitvoer gebied van actieve folder

Kon iemand me in het schrijven van een manuscript VB, om het pager gebied van actieve folder het in een registratiesleutel op te nemen uit te voeren en helpen?

Antwoord : Pager van de uitvoer gebied van actieve folder

De onderstaande code zou moeten werken.  Verander strRegKey en strValueName om de plaats en waardenaam aan te passen die u het Pager aantal wilt zetten.

Achting,

Rob.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Vastgestelde objADSysInfo = CreateObject („ADSystemInfo“)
strUser = objADSysInfo.UserName
Reeks objUser = GetObject („LDAP: /“ & strUser)
strPager = objUser.Pager
strRegKey = „HKCU \ Software \ MyKey \“
strValueName = „MyPager“
Als Juiste (strRegKey, 1) <> „\“ toen strRegKey = strRegKey & „\“
Reeks objShell = CreateObject („WScript.Shell“)
Op Fout hervat daarna
strRegKey objShell.RegWrite & strValueName, strPager, „REG_SZ“
Als Err.Number = 0 toen
	MsgBox is „Uw Pager opgeslagen in de registratie.“
Anders
	MsgBox „slaagde er niet in om uw Pager in de registratie op te slaan. Fout“ & Err.Number & „: “ & Err.Description
Eind als
Andere oplossingen  
 
programming4us programming4us