+ Post New Thread
Results 1 to 4 of 4
Scripts Thread, Banned internet user group. in Coding and Web Development; We have a group in AD where all the users go where there internet has been disabled. a script i ...
  1. #1

    Join Date
    Nov 2009
    Posts
    79
    Thank Post
    3
    Thanked 4 Times in 4 Posts
    Rep Power
    11

    Banned internet user group.

    We have a group in AD where all the users go where there internet has been disabled. a script i use to make a html page so anyone can see the users in the group. Set on a task on the server that polls it every 15 mins and recreates the html document.

    Dim objGroup, objUser, objFSO, objFile, strDomain, strGroup, Domain, Group
    strDomain = "DOMAIN NAME"
    strGroup = "Ban Internet"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.CreateTextFile("\\192.168.16.28\c$\inetpub\ Internet Ban
    \index.html")
    Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroup & ",group")

    objFile.WriteLine "<html>"
    objFile.WriteLine "<head>"
    objFile.WriteLine "<title>"
    objFile.WriteLine "</title>"
    objFile.WriteLine "</head>"
    objFile.WriteLine "<body>"
    objFile.Write"<h1>Internet Ban List</h1>"
    objFile.WriteLine "<p>If you have any issues with this email
    helpdesk@helpdesk.com<br> The ban is for a week unless stated
    otherwise. </p>"
    For Each objuser In objGroup.Members
    objFile.WriteLine objuser.Name & " - " & objuser.Fullname & " - " &
    objUser.description & "<br>"

    Next
    objFile.WriteLine "<br>Created on"
    objfile.writeline (FormatDateTime(date(),vblongdate))
    objfile.write (time())
    objfile.writeLine "<br>This is refreshed every 15mins"
    objfile.writeline ""

    objFile.WriteLine "</body>"

    objFile.WriteLine "</html>"
    objFile.Close
    Set objFile = Nothing
    Set objFSO = Nothing
    Set objUser = Nothing
    Set objGroup = Nothing
    Last edited by Danlewis3; 31st March 2010 at 01:19 PM. Reason: email

  2. #2
    ricki's Avatar
    Join Date
    Jul 2005
    Location
    uk
    Posts
    1,475
    Thank Post
    20
    Thanked 164 Times in 157 Posts
    Rep Power
    52
    Hi

    If you have a dansguardian box you can place the usernames in the blocked list and that works well.

    Richard

  3. #3

    Join Date
    Nov 2009
    Posts
    79
    Thank Post
    3
    Thanked 4 Times in 4 Posts
    Rep Power
    11
    We use an ISA server, all the script does is makes a html page so all members of staff can see whom is banned from the internet

  4. #4
    ricki's Avatar
    Join Date
    Jul 2005
    Location
    uk
    Posts
    1,475
    Thank Post
    20
    Thanked 164 Times in 157 Posts
    Rep Power
    52
    Hi

    Thats a good idea. I just post it in the daily bulletin

    Richard



SHARE:
+ Post New Thread

Similar Threads

  1. XP Kiosk mode for one user group
    By Jon in forum Windows
    Replies: 1
    Last Post: 26th June 2009, 08:19 AM
  2. Setting up a 'User Group'
    By meastaugh1 in forum How do you do....it?
    Replies: 3
    Last Post: 8th June 2009, 01:12 PM
  3. O’Reilly User Group Newsletter
    By russdev in forum General Chat
    Replies: 0
    Last Post: 17th February 2009, 08:19 AM
  4. Disable Internet for a group of PCs
    By Michael in forum Windows
    Replies: 12
    Last Post: 15th July 2008, 12:32 PM
  5. ISA 2006 + blocking internet for AD group
    By Paid_Peanuts in forum Windows
    Replies: 8
    Last Post: 7th December 2007, 07:46 PM

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •