스크립트 파일을 작용 하려 하니 잘 되지 않습니다.
이부분 어떻게 적용 하면 되는지요?
wshNetwork.MapNetworkDrive "h:", "\\amdnp\Users\" & wshNetwork.UserName
\\FileServer\Users\
1. Users --> 로그온 계정을 적어 줘야 하나요?
2. Users --> 홈폴더 위치를 적어 줘야 하나요 ( \\amdnp\총무부\201283 or \\amdnp\총무부\Users )
3. 계정에 따라 OU를 구분하여 자동으로 공유 폴더를 찾는 것 인지? strGroups = LCase(Join(CurrentUser.MemberOf))
Set wshNetwork = CreateObject("WScript.Network")
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
wshNetwork.MapNetworkDrive "h:", "\\amdnp\users\" & wshNetwork.UserName
strGroups = LCase(Join(CurrentUser.MemberOf))
Set wshNetwork = CreateObject("WScript.Network") wshNetwork.MapNetworkDrive "h:", "\\FileServer\Users\" & wshNetwork.UserName
http://technet.microsoft.com/ko-kr/library/cc758918.aspx
로그온 스크립트 예제에는 ADSI(Active Directory 서비스 인터페이스)를 사용하여 사용자의 그룹 구성원에 따라 세 가지 일반 작업을 수행하는 VBScript 명령이 들어 있습니다.
1. WSH 네트워크 개체의 MapNetworkDrive 메서드를 WSH 네트워크 개체의 UserName 속성과 함께 호출하여 H: 드라이브를 사용자의 홈 디렉터리에 매핑합니다.
2. ADSI IADsADSystemInfo 개체를 사용하여 현재 사용자의 고유 이름을 가져옵니다. 이 이름은 Active Directory의 해당 사용자 개체에 연결하는 데 사용됩니다. 일단 연결되면 사용자의 memberOf 특성을 사용하여 사용자가 구성원으로 속해 있는 그룹 목록이 검색됩니다. 그룹 이름의 다중값 목록은 VBScript의 Join 함수를 사용하여 단일 문자열로 결합되므로 대상 그룹 이름을 쉽게 검색할 수 있습니다.
3. 현재 사용자가 스크립트의 위쪽에 정의된 세 그룹 중 하나의 구성원이면 스크립트는 사용자의 G: 드라이브를 그룹 공유 드라이브에 매핑하고 사용자의 기본 프린터를 그룹 프린터로 설정합니다.
Const FINANCE_GROUP ="cn=재무부"
Const SAFETY_GROUP = "cn=안전환경부"
Const HUMAN_RESOURCES_GROUP = "cn=총무부"
Set wshNetwork = CreateObject("WScript.Network")
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
wshNetwork.MapNetworkDrive "h:", "\\amdnp\users\" & wshNetwork.UserName
strGroups = LCase(Join(CurrentUser.MemberOf))
If InStr(strGroups, FINANCE_GROUP) Then
wshNetwork.MapNetworkDrive "g:", "\\amdnp\재무부\"
wshNetwork.AddWindowsPrinterConnection "\\dc2\재무부-HP5200TN"
wshNetwork.AddWindowsPrinterConnection "\\dc2\Plotter"
wshNetWork.SetDefaultPrinter "\\dc2\재무부-HP5200TN"
ElseIf InStr(strGroups, SAFETY_GROUP) Then
wshNetwork.MapNetworkDrive "g:", "\\amdnp\안전환경부\"
wshNetwork.AddWindowsPrinterConnection "\\dc2\안전환경-HP5200TN"
wshNetWork.SetDefaultPrinter "\\dc2\안전환경-HP5200TN"
ElseIf InStr(strGroups, HUMAN_RESOURCES_GROUP) Then
wshNetwork.MapNetworkDrive "g:", "\\amdnp\총무부\"
wshNetwork.AddWindowsPrinterConnection "\\dc2\총무부-HP5000LE"
wshNetWork.SetDefaultPrinter "\\dc2\총무부-HP5000LE"
End If
