Giúp tạo danh sách users để import vào Active Directory (1 người xem)

[congtm88]

Bên phòng nhân sự đưa sang một file xls có nội dung như sau:

Mình làm bên phòng IT và có trách nhiệm phải tạo 1 User cho mỗi nhân viên mới:

Cột SamID là sự kết hợp giữa first name, chữ cái đầu của các chữ còn lại và cuối cùng là số 09 (cột employID). Vi du: Nguyen Tien Dung --> dungnt09

Cột UPN là sự kết hợp giũa cột SamID và đuôi @cong.local.
Xin hỏi có cách nào giúp mình làm công việc nhanh chóng bằng các công thức trong excel ko?
Any helps will be appreciated.
Thax you.

 

[ndu96081631]

Bên phòng nhân sự đưa sang một file xls có nội dung như sau:

Mình làm bên phòng IT và có trách nhiệm phải tạo 1 User cho mỗi nhân viên mới:

Cột SamID là sự kết hợp giữa first name, chữ cái đầu của các chữ còn lại và cuối cùng là số 09 (cột employID). Vi du: Nguyen Tien Dung --> dungnt09

Cột UPN là sự kết hợp giũa cột SamID và đuôi @cong.local.
Xin hỏi có cách nào giúp mình làm công việc nhanh chóng bằng các công thức trong excel ko?
Any helps will be appreciated.
Thax you.

Thay vì đưa hình, sao bạn không đưa file Excel lên? Chẳng lẽ mọi người phải giả lập dử liệu giúp bạn sao?

 

[Hoàng Trọng Nghĩa]

Cột SamID là sự kết hợp giữa first name, chữ cái đầu của các chữ còn lại và cuối cùng là số 09 (cột employID). Vi du: Nguyen Tien Dung --> dungnt09

Cột UPN là sự kết hợp giũa cột SamID và đuôi @cong.local.
Xin hỏi có cách nào giúp mình làm công việc nhanh chóng bằng các công thức trong excel ko?
Any helps will be appreciated.
Thax you.

BẠN XEM COI CÓ ĐÁP ỨNG ĐƯỢC NHU CẦU CỦA BẠN KHÔNG NHÉ
Thân.

 

[ndu96081631]

BẠN XEM COI CÓ ĐÁP ỨNG ĐƯỢC NHU CẦU CỦA BẠN KHÔNG NHÉ
Thân.

Dử liệu giả lập này hình như chẳng giống tí nào với hình mà tác giả đưa lên ---> Theo như trong hình thì TÊN nằm 1 cell và phần còn lại của tên (bao gồm họ và chử lót) nằm chung trong 1 cell khác...
Còn file giả lập của bạn, từng word đã được tách ra thành từng cell riêng ---> Đâu có giống với hình (hay bạn định dùng công cụ Text to Columns? )

 

[Hoàng Trọng Nghĩa]

Dử liệu giả lập này hình như chẳng giống tí nào với hình mà tác giả đưa lên ---> Theo như trong hình thì TÊN nằm 1 cell và phần còn lại của tên (bao gồm họ và chử lót) nằm chung trong 1 cell khác...
Còn file giả lập của bạn, từng word đã được tách ra thành từng cell riêng ---> Đâu có giống với hình (hay bạn định dùng công cụ Text to Columns? )

Mình chỉ làm chữa cháy cho bạn ấy thôi, dĩ nhiên là còn nhiều cách làm hợp lý hơn. Bạn ấy có thể chèn những cột mình làm vào mẫu của bạn ấy, sau đó ẩn những cột này và cái chính ở đây là kết quả cho bạn ấy.

 

[Hoàng Trọng Nghĩa]

BẠN CÓ THỂ DÙNG CÔNG CỤ NÀY. CHỌN HELP ĐỂ ĐƯỢC GIÚP ĐỠ CÁCH TÁCH TÊN HỌ.
Split names by using the Convert Text to Columns Wizard

 

[Hoàng Trọng Nghĩa]

Xin xem file đính kèm để biết thêm chi tiết.

Trong File, tôi đã thêm hàm Lower để tránh ghi hoa

 

[ndu96081631]

Thật ra bài này nếu đúng y chang như hình mà tác giả đưa lên, ta có thể dể dàng xây dựng 1 hàm tự tạo phục vụ cho nhu cầu riêng
Tuy nhiên, ai bàn gì cứ mặc, chả thấy tác giả nói gì (nên cũng mất hứng)

 

[congtm88]

Hì xin lỗi đã làm mất hứng các bạn, mình post xong ra khỏi nhà luôn tới h mới ngồi lại vào cái máy tính.
Mình ko thường xuyên post bài trên này nên sorry lần 2 vì đã ko bik cách post bài.
@minhthien: nhờ file của bạn mà tui bik làm cái cột UPN thế nào rồi
Đấy là file excel

 

[ndu96081631]

Hì xin lỗi đã làm mất hứng các bạn, mình post xong ra khỏi nhà luôn tới h mới ngồi lại vào cái máy tính.
Mình ko thường xuyên post bài trên này nên sorry lần 2 vì đã ko bik cách post bài.
@minhthien: nhờ file của bạn mà tui bik làm cái cột UPN thế nào rồi
Đấy là file excel

Bài này dùng code VBA cho nó gọn
Kết quả của UDF là: Lấy nguyên phần TÊN + phần còn lại của tên đã được viết tắt

Function TenTat(Text As String) As String
  Dim Temp, i As Long
  Temp = Split(WorksheetFunction.Trim(Text), " ")
  If UBound(Temp) < 1 Then
    TenTat = LCase(Text): Exit Function
  End If
  For i = 0 To UBound(Temp) - 1
    Temp(i) = LCase(Left(Temp(i), 1))
  Next
  TenTat = LCase(Temp(UBound(Temp))) & Replace(Join(Temp, ""), Temp(UBound(Temp)), "")
End Function

 

[congtm88]

ndu có thể hưỡng dẫn từng bước add cái code của bạn vào đâu, để có cái formula TenTat kia không?
Hồi trc học Excel học mấy cái cơ bản thôi à.
Hướng dẫn mình cụ thể 1 chút nha
Thax

 

[Hoàng Trọng Nghĩa]

Hihihi,
Nếu còn hạn chế về VBA thì xài tạm của mình được rồi, sau này cứ tham gia GPE càng nhiều thì dần dần bạn cũng biết thôi.

Đó là một hàm tự tạo viết trên VBA, hãy mở một worksheet, ấn phím Alt+F11, sẽ thấy "hậu trường của worksheet". Tại đây bạn có thể tạo User Form, Module, ..., và nhiều thứ khác. Hãy tải bài của THẦY ndu96081631 về rồi chọn ấn phím Alt+F11 sẽ thấy Code của ndu96081631 viết trên Module. Tạm thời bạn biết vậy đi nhé!
Thân ái.

 

[viettrieu]

A nào biết cách import file excel vào AD không, chỉ e với. Thanks !

 

[TranThanhPhong]

A nào biết cách import file excel vào AD không, chỉ e với. Thanks !

Chào bạn,

Bạn đọc bài này:
http://www.computerperformance.co.uk/Logon/Logon_CSVDE_Bulk.htm

Theo kinh nghiệm của tôi thì bạn nên tham khảo http://ss64.com và học cách sử dụng lênh dsadd user/ dsmod user --> rất hay.

Ví dụ: Cú pháp thêm user vào AD có khởi tạo mật mã, qui định ổ đĩa mạng, kịch bản khi đăng nhập và yêu cầu user thay đổi mật mã ở lần đăng nhập đầu tiên:

dsadd user "CN=Tran Thanh Phong,OU=FETPFaculty,DC=fetp,DC=edu,DC=vn" -samid ttphong -display "Tran Thanh Phong" -pwd 123456 -hmdir \\ServerName\ttphong -hmdrv Y: -loscr Faculty.bat -mustchpwd yes

Ngoài ra để share/ unshare các thư mục thì học thêm lệnh Net share. Để gán quyền cho các thư mục thì nghiên cứu xcacls.vbs

Khi có thời gian tôi sẽ viết hướng dẫn cho tiết về chủ đề này.

Chúc bạn thành công,

Thanh Phong

 

[lochocmai]

xin cám ơn nhiều!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!