brentp.net

Recently i’ve been playing with WS2003 in a Virtual Machine, and i’ve had to create some stuff to automatically setup a user with a roaming profile, and a home directory (and set the appropriate permissions).  Enjoy.  Save it as createUser.vbs, double click on it and you’re ready to go.  NOTE: You might want to remove some domain specific stuff (and if you have special OU’s, edit the script accordingly.  The script assigns permissions to the users profile/home dir folders, in this script it gives Administrator full control, and the user themselves full control.

   1:  Option Explicit

   2:  Dim wshShell

   3:  Dim strUser

   4:  Dim objRootLDAP, objContainer, objNewUser

   5:  Dim fso

   6:  Dim profilePath

   7:  Dim strFullName

   8:  dim strPassword

   9:  Dim homePath

  10:  Set fso = CreateObject(“Scripting.FileSystemObject”)

  11:   

  12:  Set wshShell = WScript.CreateObject(“WScript.Shell”)

  13:   

  14:  strUser = InputBox(“User Name?”, “Prompt”, “”, 100, 100)

  15:  strFullName = InputBox(“Full Name?”, “Prompt”, “”, 100, 100)

  16:  strPassword = InputBox(“Password?”, “Prompt”, “”, 100, 100)

  17:   

  18:  ‘ Bind to Active Directory, Users container.

  19:  Set objRootLDAP = GetObject(“LDAP://rootDSE”)

  20:  Set objContainer = GetObject(“LDAP://cn=Users,” & _

  21:  objRootLDAP.Get(“defaultNamingContext”))

  22:   

  23:  homePath = “\\HURRICANE\Homes\”+strUser

  24:  profilePath = “\\HURRICANE\Profiles\”+strUser

  25:   

  26:  Dim objFSO

  27:  Set objFSO = CreateObject(“Scripting.FileSystemObject”)

  28:   

  29:   

  30:  If fso.FolderExists(homePath) = False Then

  31:  fso.CreateFolder(homePath)

  32:  End If

  33:   

  34:  If fso.FolderExists(profilePath) = False Then

  35:  fso.CreateFolder(profilePath)

  36:  End If

  37:   

  38:  ‘ Build the actual User.

  39:  Set objNewUser = objContainer.Create(“User”, “cn=” & strUser)

  40:  objNewUser.Put “sAMAccountName”, strUser

  41:  objNewUser.Put “userPrincipalName”, strUser + “@homegroup.int”

  42:  objNewUser.Put “displayName”, strFullName

  43:  objNewUser.Put “HomeDirectory”, “\\HURRICANE\Homes\”+strUser

  44:  objNewUser.Put “profilePath”, “\\HURRICANE\Profiles\”+strUser

  45:  objNewUser.SetInfo

  46:  objNewUser.SetPassword strPassword

  47:  objNewUser.Put “userAccountControl”, 512

  48:  objNewUser.SetInfo

  49:   

  50:  Dim intRunError

  51:  Dim strHomeFolder

  52:  strHomeFolder = “\\HURRICANE\Homes\”+strUser

  53:  If strHomeFolder <> “” Then

  54:  If Not objFSO.FolderExists(strHomeFolder) Then

  55:  On Error Resume Next

  56:  objFSO.CreateFolder strHomeFolder

  57:       If Err.Number <> 0 Then

  58:       On Error GoTo 0

  59:       Wscript.Echo “Cannot create: “ & strHomeFolder

  60:       End If

  61:  On Error GoTo 0

  62:  End If

  63:       If objFSO.FolderExists(strHomeFolder) Then

  64:       ‘ Assign user permission to home folder.

  65:       intRunError = wshShell.Run(“%COMSPEC% /c Echo Y| cacls “_

  66:       & strHomeFolder & ” /t /c /g Administrators:f “_

  67:       & strUser & “:F”, 2, True)

  68:          If intRunError <> 0 Then

  69:          Wscript.Echo “Error assigning permissions for user “ _

  70:          & strUser & ” to home folder “ & strHomeFolder

  71:          End If

  72:      End If

  73:  End If

  74:   

  75:  Dim strProfileFolder

  76:  strProfileFolder = “\\HURRICANE\Profiles\”+strUser

  77:  If strProfileFolder <> “” Then

  78:  If Not objFSO.FolderExists(strProfileFolder) Then

  79:  On Error Resume Next

  80:  objFSO.CreateFolder strProfileFolder

  81:       If Err.Number <> 0 Then

  82:       On Error GoTo 0

  83:       Wscript.Echo “Cannot create: “ & strProfileFolder

  84:       End If

  85:  On Error GoTo 0

  86:  End If

  87:       If objFSO.FolderExists(strProfileFolder) Then

  88:       ‘ Assign user permission to home folder.

  89:       intRunError = wshShell.Run(“%COMSPEC% /c Echo Y| cacls “_

  90:       & strProfileFolder & ” /t /c /g Administrators:f “_

  91:       & strUser & “:F”, 2, True)

  92:          If intRunError <> 0 Then

  93:          Wscript.Echo “Error assigning permissions for user “ _

  94:          & strUser & ” to profile folder “ & strProfileFolder

  95:          End If

  96:      End If

  97:  End If

  98:  WScript.Echo(“Done.”)

  99:  WScript.Quit

Lately I’ve been getting a LOT of emails from those retarded myspace clone sites & ‘Movie Quiz Websites’. The other day I received a few emails from a site called ‘tagged’, saying that someone had tagged me to be on their friends list. From what I understand (without signing up to the site), people export their WHOLE msn contact lists, and upload them to an unknown site for them to do god-knows-what with them. The worst thing about this tagged site was the fact that they KEPT sending email after email if you did not reply (aka: clicking on a yes/no link). The REALLY ironic thing was that both the yes & no link go to the same page (their signup page). Without further ado, is an email you can send if you get any more of those loser emails.

Attn: idiot,

Lately, I’ve been getting pissed by a lot of emails sent from so-called ’social networking’ websites, and ‘movie quiz’ websites. Google defines ’socialising’ as “The act of meeting for social purposes”, I therefore submit to you the following question: How do you ’socialize’ with people that YOU DO NOT KNOW OVER A WEBSITE. There have been numerous cases of people being sexually assaulted (and in one case, a guy even got his car stolen from a crazy-ass teenage chick) from interaction on myspace. Below are my grudges about the websites I have got emails from in the last few days:

First and foremost, tagged.com:

Okay, go do a google search for the word ‘tagged’. The first result will most likely be for tagged.com. Read the blurb. It says that apparently tagged is the PREMIER teen socializing website on the internet. That’s a big claim. I did a quick look around their website and found no page listing the amount of members they have (so, how can they call themselves the premier teen socializing site). My second grudge against them is the obvious fact is that they are a MYSPACE clone. MySpace was the first website that started the phenomenon, and lots of other loser sites started to pop up over the place over time. I’ve been tagged,sliced,diced and zebo’ed(?).

MySpace.com

The site that started it all. Correction: The crappiest site that started it all. Whenever I get a myspace link now, I turn down my volume and make sure my door is shut. That’s because I’m afraid of some retard having lemonparty/tubgirl as their background and having some emo music on their page. Then theres the fact that 52 million out of their 72 million members are probably pedophiles. Theres probably some page on the internet that lists all the rapes caused by myspace, incredible isn’t it? I had NOTHING against the good ol’ msn chat style of service. There was a simple profile page, a fairly comprehensive list of chatrooms and no retarded sounds allowed in the profiles. People bitch about how chatrooms are full of pedophiles and so on, but if they are on IRC, you are able to get their ip address and do something about it, whereas, if there was one looking at your profile on myspace, what can you do? Jack shit. I really doubt myspace would start trying to filter through their 1 million hits a day (probably more) to find one guy. Besides, the laws about this crap aren’t even good enough to prosecute people now-a-days.

Then theres the people that are subscribed to like fucking 12 social networking websites. WHY WOULD YOU NEED TO KNOW ONE HUNDRED THOUSAND FUCKING RANDOM PEOPLE ON TWELVE SITES? That is what infuriates me. This one person that I knew like 3 years ago (the person that triggered this post) ‘tagged’ me for a ‘friend’. A few months prior to that, she sent an email asking me to sign up for ‘zebo’ and theres probably a multitude of other things that one particular person has asked me to sign up for. I really wish gmail had an option to filter out movie quiz’s and social networking site crap.

Just so you know, I DO have a myspace profile (but, I never ever changed it from the defaults, because I only needed to look at someone elses myspace).

I hope this post/email has changed your opinion about those retarded social networking websites.

Regards,

Brent

Okay, some of you out there probably download certain files that are split over many archives (ie: r01, r02 etc) and need to combine them.  This is meant for files that ARE NOT rar files.  Trying to combine rar files with copy /B will fuck up the headers and so on.  You can also use this to generate links for flashget, as flashget does not have a ‘Generate Links’ option, like GetRight does (that i know of yet).  You can make the links in this application, and then copy and paste them, and they can be added to flashget, or you can copy the text and then drag it into the flashget ‘dropzone’.  The program is self explanitory, and i’ll probably upload the code for it at a later date if the demand arises.

Without further ado:

http://brentp.net/CSharp/LinkGenReplace.exe

Yes, i know this post could have been written better.

If anyone doesn’t know, its pissing down rain here atm.  Attached are some photos of Giru’s insanely high water level (and Townsville Airports flooded runways).  Enjoy.

Edit:

Radar image for townsville area:

http://mirror.bom.gov.au/products/IDR213.loop.shtml