Arcath

' Assign Favorites Based on OU
' Written by Adam "Arcath" Laycock
' December 2011

' Variables

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objShell=CreateObject("Wscript.Shell" ) 'Create the Shell Object

favUnc = "\\hpml350\School Folders\Pupil Favorites\" ' Set This to the UNC path for your favorits folder

Arcath

' Very Basic Seasonal greeter for BGInfo
' Add a case for each month, and then a sub select for the day (if needed)

Select Case (DatePart("m", now))
	case 1 ' January
		Select Case (DatePart("d", now))
			case 1, 2, 3, 4, 5, 6, 7, 8, 9
				Echo("Happy New Year!")
		End Select

Arcath

' Printer Script based on AD OU
' Written by Adam Laycock (Arcath)
' July 2009
' Updated December 2011

' Variables

Set WshNetwork = WScript.CreateObject("WScript.Network") ' Network Object
Set oPrinters = WshNetwork.EnumPrinterConnections ' Printers Sub Object
printServer = "printserver" ' Hostname of your Print Server (add more if you have multiple print servers

Arcath

SERVER = '10.0.0.1'   # Active Directory server name or IP
PORT = 389                    # Active Directory server port (default 389)
BASE = 'DC=arcath,DC=local'    # Base to search from
DOMAIN = 'arcath.local'        # For simplified user@domain format login

Arcath

def create
	ldap_user = ActiveDirectoryUser.authenticate(params[:username], params[:password])
	user = User.find_by_provider_and_uid("ldap",params[:username]) || User.create_with_omniauth("ldap",params[:username])
	user.name = ldap_user.name
	user.groups = ldap_user.groups.join(",")
	user.save
	if LDAP_AllowedGroups != (LDAP_AllowedGroups - user.groups.split(",")) then
		session[:user_id] = user.id
		redirect_to "/pages/splash"
	else

Arcath

def create
		user = User.find_by_provider_and_uid("ldap",params[:username]) || User.create_with_omniauth("ldap",params[:username])
		session[:user_id] = user.id
		redirect_to "/pages/splash"
end

Arcath

HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Internet Explorer\Desktop\SafeMode\Components"
strValue = "0"
ValueName = "DeskHtmlVersion"
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue

Arcath

def up_handler(input)
    input.upcase
end

>> "[up]HeLlo WorLd[/up]".tbbc(:custom_tags => [[/\[up\](.*?)\[\/up\]/,"Callback: up_handler",true]])
=> "HELLO WORLD"

Arcath

  def create
	@post = Post.find(params[:post_id]) if params[:post_id]
	@post = Post.find(params[:comment][:post_id]) if params[:comment][:post_id]
	@comment = @post.comments.new(params[:comment])
	@comment.user_id = current_user.id if current_user
	if @comment.body.spam? then
		unless params[:recaptcha_challenge_field] then
			flash[:error] = "Comment looks like Spam"
			render :action => 'new'
		else

Arcath

[/\[gist\](.*?)\[\/gist\]/,'<script src="http://gist.github.com/\1.js"> </script>',:code_enabled],
[/\[gist=(.*?)\](.*?)\[\/gist\]/,'<script src="http://gist.github.com/\2.js?file=\1"> </script>',:code_enabled]