Trung Tâm Đào Tạo Mạng Máy Tính Nhất Nghệ   Trung Tâm Đào Tạo Mạng Máy Tính Nhất Nghệ
Trang Chủ Giới Thiệu Chương Trình Học Tài Liệu Lịch Khai Giảng Học Phí Việc Làm Lộ trình học

Go Back   Trung Tâm Đào Tạo Mạng Máy Tính Nhất Nghệ > MICROSOFT AREA > Windows Scripting
Đăng Ký Thành Viên Thành Viên Lịch Ðánh Dấu Ðã Ðọc


Windows Scripting Người Quản Trị : Phan Minh Tuyên

Vui lòng gõ từ khóa liên quan đến vấn đề bạn quan tâm vào khung dưới , trước khi đặt câu hỏi mới.


Trả lời
 
Ðiều Chỉnh
  #1  
Old 10-06-2012, 17:37
pmonamour pmonamour vẫn chưa có mặt trong diễn đàn
Thành Viên Mới
 
Tham gia ngày: Nov 2011
Bài gởi: 11
Thanks: 1
Thanked 0 Times in 0 Posts
Xin Script giấu đường dẫn Home Folder

Chào thầy và các bạn

Xin chỉ giúp Script giấu Path Home Folder.

Cám ơn.
Trả Lời Với Trích Dẫn
  #2  
Old 04-03-2014, 10:33
vmware11022012 vmware11022012 vẫn chưa có mặt trong diễn đàn
Khám Phá
 
Tham gia ngày: Mar 2012
Bài gởi: 277
Thanks: 10
Thanked 129 Times in 88 Posts
Trích:
Nguyên văn bởi pmonamour View Post
Chào thầy và các bạn

Xin chỉ giúp Script giấu Path Home Folder.

Cám ơn.
Chia sẻ bạn đoạn script tạo ổ đĩa mạng cho tất cả user tương ứng theo group, tao ổ đĩa mạng ko theo group và rename ổ đĩa mạng. Mình sưu tầm và gom lại thành 1.

Code:
Set objNetwork = WScript.CreateObject("Wscript.Network") 
Set objSysInfo = CreateObject("ADSystemInfo" ) 
strUserDN = objSysInfo.userName
Set objUser = GetObject("LDAP://" & strUserDN)

'-------------------------------------------------------
'  Map K: if user is a member of the "User1" group
'-------------------------------------------------------
' Tao o dia mang theo group tuong ung cho tat ca user thuoc group
' Dau $ la share an
Dim objShell, strDriveLetter, strNewName
If IsMember("G_HR") Then
   objNetwork.MapNetworkDrive "H:", "\\Tenmaychu\thumuccha$\HR"
	strDriveLetter = "H:" 
	strNewName = "Nhan Su"
	' Section which actually (re)names the Mapped Drive
	Set objShell = CreateObject("Shell.Application")
	objShell.NameSpace(strDriveLetter).Self.Name = strNewName
End If
Dim objShell1, strDriveLetter1, strNewName1
If IsMember("G_FM") Then
   objNetwork.MapNetworkDrive "O:", "\\Tenmaychu\thumuccha$\FM"
	strDriveLetter1 = "O:" 
	strNewName1 = "Ke Toan"
	' Section which actually (re)names the Mapped Drive
	Set objShell1 = CreateObject("Shell.Application")
	objShell1.NameSpace(strDriveLetter1).Self.Name = strNewName1
End If
' Tao o dia mang cho tat ca user
Dim objShell18,strDriveLetter18,strRemotePath,strNewName18
strDriveLetter18 = "P:" 
strRemotePath = "\\Tenmaychu\Public" 
strNewName18 = "Public"

' Section to map the network drive
Set objNetwork = CreateObject("WScript.Network") 
objNetwork.MapNetworkDrive strDriveLetter18, strRemotePath

' Section which actually (re)names the Mapped Drive
Set objShell18 = CreateObject("Shell.Application")
objShell18.NameSpace(strDriveLetter18).Self.Name = strNewName18
' Rename o dia mang homedir.
Dim objShell19,strDriveLetter19,strNewName19
strDriveLetter19 = "W:" 
strNewName19 = "Home Folder"

' Section which actually (re)names the Mapped Drive
Set objShell19 = CreateObject("Shell.Application")
objShell19.NameSpace(strDriveLetter19).Self.Name = strNewName19
'--------------------------------------------------------
' IsMember Function
'--------------------------------------------------------
Function IsMember(strGroup) 
' Function to test one user for group membership. 
' objUser is the user object with global scope. 
' strGroup is the NT Name of the group to test. 
' objGroupList is a dictionary object with global scope. 
' Returns True if the user is a member of the group.

Dim objGroup 
If IsEmpty(objGroupList) Then 
   Set objGroupList = CreateObject("Scripting.Dictionary" ) 
   objGroupList.CompareMode = vbTextCompare 
   For Each objGroup In objUser.Groups 
      objGroupList(objGroup.sAMAccountName) = True 
   Next 
End If 
IsMember = objGroupList.Exists(strGroup) 
End Function
Trả Lời Với Trích Dẫn
Trả lời

Bookmarks

Ðiều Chỉnh

Quyền Sử Dụng Ở Diễn Ðàn
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Mở
Smilies đang Mở
[IMG] đang Mở
HTML đang Tắt

Chuyển đến

Similar Threads
Ðề tài Người Gởi Chuyên mục Trả lời Bài mới gởi
Hướng dẫn tạo trang admin nhập và đỗ dữ liệu động vào hiệu ứng script gallery giống ipro.vn tranvu-nn Lớp Web Doanh Nghiệp 11 30-01-2013 19:22
phân quyền cho user đối với home folder lonelyboy_101 [ LINUX ] Thảo luận chung 3 08-02-2012 08:55
[Help] home folder và deploy software namjumeo Những Vấn Đề Khác 5 13-11-2011 17:10
Xin hướng dẫn tạo script phóng to hình trong ASP.Net tnt1611 ASP/ASP.NET(C#, VB.NET) 3 21-09-2010 17:18



Múi giờ GMT +7. Hiện tại là 12:13
Powered by: vBulletin Version 3.8.7
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Ad Management by RedTyger