Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
crazylife Profile
 | Femeie
25 ani
Bucuresti
cauta Barbat
25 - 47 ani |
|
|
TRaP
Moderator
Inregistrat: acum 6 ani
Postari: 795
|
|
Save as VBS and run:
On Error Resume Next
Dim objUser
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
msgbox "UserName: " & objSysInfo.UserName & vbcrlf & _
"FullName: " & objUser.FullName & vbcrlf & _
"Title: " & objUser.Title & vbcrlf & _
"Department: " & objUser.Department & vbcrlf & _
"Company: " & objUser.Company & vbcrlf & _
"Phone: " & objUser.telephoneNumber & vbcrlf & _
"E-mail: " & objUser.Mail |
|
|
| pus acum 6 luni |
|