Frage : Export Pagerfeld vom aktiven Verzeichnis

Könnte jemand mir helfen, wenn er einen VB Index schrieb, um das Pagerfeld vom aktiven Verzeichnis zu exportieren und es in einen Registerschlüssel einzusetzen?

Antwort : Export Pagerfeld vom aktiven Verzeichnis

Der below Code sollte arbeiten.  strRegKey und strValueName ändern, um dem Positions- und Wertnamen zu entsprechen, dass Sie die Pagerzahl setzen möchten.

Respekt,

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

objADSysInfo = CreateObject („ADSystemInfo“) einstellen
strUser = objADSysInfo.UserName
objUser = GetObject einstellen („LDAP: /“ u. strUser)
strPager = objUser.Pager
strRegKey = „HKCU \ Software \ MyKey \“
strValueName = „MyPager“
Wenn recht (strRegKey, 1) <> „\“ dann strRegKey = strRegKey u. „\“
objShell = CreateObject („WScript.Shell“) einstellen
Auf Störung zunächst wieder.aufnehmen
objShell.RegWrite strRegKey u. strValueName, strPager, „REG_SZ“
Wenn Err.Number = 0 dann
	MsgBox „Ihr Pager gespeichert worden im Register.“
Sonst
	MsgBox „Ihren Pager in das Register speichern nicht gekonnt. Störung“ u. Err.Number u. „: “ U. Err.Description
Beenden wenn
Weitere Lösungen  
 
programming4us programming4us