script (2) 썸네일형 리스트형 전화 접속 로그인 사용 가능 하게 하는 스크립트 아래 내용과 관련 하여 스크립트를 올립니다. 사용자 na doha라는 사용자가 있습니다. 이 사용자에 VPN 사용 가능 하게 하는 시나리오입니다. 빨간 box안에 있는것을 Enable 시켜 보자는 것이지요 한명일때는 상관이 없습니다만 다중 사용자를 적용때는 스크립이 더 빠르겠죠. 노트 패드를 실행 시켜 다음 내용을 저장 합니다. Set objUser = GetObject("LDAP://cn=na doha (username),ou=test(해당OU),dc=time(해당DC),dc=com(해당 DC") objUser.Put "msNPAllowDialin", true or False objUser.SetInfo objUser.GetInfo Wscript.echo objUser.Get("msNPAllowDial.. 오래된 항목 삭제하기 script Option Explicit Const strRootPath = "C:\Temp\" Const nDays = 10 '초과일수 Dim oFSO Set oFSO = CreateObject("Scripting.FileSystemObject") Dim oFolder, oSubFolder Set oFolder = oFSO.GetFolder(strRootPath) Dim oFile For Each oSubFolder In oFolder.SubFolders For Each oFile In oSubFolder.Files If Int(Now() - oFile.DateLastAccessed) >= nDays Then oFile.Delete End If Next Next 이전 1 다음