So i’ve decided that while I want to be able to share some things from my life on this site, I also want to write some useful content. Maybe even live up to the name blogger some day.

It is safe to say that I am a linux command line junkie. I was raised on DOS and windows 3.1 (i didn’t have a computer that supported windows 95 until windows 98SE was released) and when I got experienced enough to realize that they both sucked i tried linux. The first time I installed linux on my family computer it was slackware version maybe 2 (i dont actually remember what version it was) and came on about 12 floppies that I had to download with my 14.4 modem. Some of the people reading this might not even know what a floppy or a 14.4 modem are but that’s ok. Back in those days the command line was pretty much the only useful way to interact with your computer, so that is what I learned. Now you might say the command line is outdated, but i would disagree. While GUI’s have gotten faster, smarter and better looking then ever before the command line is far more powerful due to the control it gives you and the speed with which you can get things done. Unfortunately, the command-line is a dying art - there are many computer power users out there who have little to no experience with it. I hope those people find this useful.

Now if I were being logical, the first in a series of command line interface (CLI) tutorials that I write should probably cover the essentials: man, cp, mv, rm, etc. But i’m not being logical. I am going to write about ssh because I have been using it an awful lot lately and that is what I want to do. And this is my blog. After that I will go back and write about the essentials and re-order them.
Without further ado here it is,

ShareThis

I haven’t a clue as to how to go about writing vbscripts, but I’ve been able to get quite a bit done by visiting various forums and asking various questions of my peers and such. I however have run into a snag that for the life of my I can’t figure out.

The script below speaks to the creation of a folder, the deletion of any content in that folder (if of course it exists), the creation of a folder within that folder, the dropping of files into the root and sub folders and finally the creation of a shortcut on the user’s desktop. All of these functions work as expected but only when logging onto the system with a user that has administrative privileges i.e.: me.

What I’m needing to do is have the script assign the “domain\domain users” write and delete privileges to the “c:\databases” folder. But again I for the life of me can’t figure this out. Where I think I’m getting confused is 1. where to place the string to allow for this functionality and 2. What statement actually allow for it, (I’ve found so many that that I don’t know what to use). If one of you can modify this script for me to allow for the assignment of these permissions that would be great.

Thank you

Shannon

‘region Script Settings
‘‘
‘ />’
‘ />’
‘ />’ />’ false
‘ true
‘ true
‘ false
‘ true
‘ ‘ 1.0.0.1
‘
‘
‘ />’ />’ />’ />’ false
‘
‘
‘endregion

‘$$$$ Version 2007-10-10 $$$$
‘Compiled/Written by Shannon Harvey, 2007-2008
‘ 11:00 PM 10/09/2007: ADD: WriteLog() function. See Usage below
‘ 12:25 AM 10/10/2007: ADD: Print successfull isMember() functions to the log file.
‘ 12:01 AM 10/10/2007: ADD: isComputerMember function Check group membership for computers
‘ 1:07 AM 10/10/2007: MOD: Cleaned up code a bit, properly empty objects and some other minor changes
‘ 1:20 AM 10/10/2007: ADD: Run Command: Execute external files
‘ 1:31 AM 10/10/2007: ADD: FileCopy Command: Execute external files
‘ 10:17 AM 10/10/2007: FIX: Driveletter remap issue in the DriveMapper sub
‘ 10:40 AM 10/10/2007: FIX: Error handling in isComputerMember function in case group referred does not exist.
‘ 10:44 AM 10/10/2007: ADD: Support for Cross Domain Authentication. Set bolEnableCrossDomain to True below.
‘ I have only tested this on XP and 2003. Vista is an unknown
‘11:00 AM 10/10/2007: FIX: Option Explicit revealed some undefined variables.
‘11:16 AM 10/10/2007: ADD: RemovePrintersFromServer to remove all printers connected to a server
‘11:36 AM 10/10/2007: ADD: isThisIP function to match against active IP addresses on the computer.

Option Explicit
Dim strLogName, bolWriteLog, bolManagePrinters, bolEnableCrossDomain
strLogName = "script.log" ‘ Filename of log to write to in the temp folder.
bolWriteLog = True ‘ Toggles log-writing. I like it on, you may like it off.
bolManagePrinters = True ‘ Windows 9x doesn’t do very well with printer management, set this to false to disable
bolEnableCrossDomain = False ‘ Toggles Cross Domain Authentication. Reads registry to obtain NetBIOS domain for the machine.

‘Script Begins Here
Dim fso
Set fso = />if not Then
End If
if not Then
End If
if not Then
End If
fso.CopyFile ", />fso.DeleteFile True
Dim objNetwork, objDrives, objDict, objComputer, objShell, objFileSystem, objLogFile, objRootDSE, objTrans
Dim strComputerName, strDomain, strUser, strAdsPath, strNetBIOSDomain, strDNSDomain, strTemp, strLogPath, i
Set objNetwork = />Set objDrives = />Set objShell = />strComputerName = objNetwork.ComputerName
strDomain = objNetwork.UserDomain
strUser = objNetwork.UserName
strAdsPath = strDomain & "/" & strUser

If bolEnableCrossDomain Then
On Error Resume Next
strNetBIOSDomain = objShell.RegRead _
If Not err.number = 0 Then
MsgBox "Problem reading the computer’s domain name from the Registry." & Chr(10) & _
"Please set to False", vbCritical, "Logon Script Error"
WScript.quit
End If
On Error goto 0
Else
strNetBIOSDomain = strDomain
End If

‘Set objComputer = GetObject("WinNT://" & strNetBIOSDomain & "/" & strComputerName & ",computer")
strTemp = />strLogPath = strTemp & "\" & strLogName ‘"
Set objFileSystem =
If bolWriteLog Then ‘initialize log file
On Error Resume Next
Set objLogFile = 2, True) ‘"
writelog "############### Start Login Script ##################"
If Not err.number = 0 Then
MsgBox "There was a problem opening the log file for writing." & Chr(10) & _
"Please check whether """ & strLogPath & """ is a valid file and can be openend for writing." & _
Chr(10) & Chr(10) & "If you’re not sure what to do, please contact your support person.",vbCritical, "Logon Script Error"
WScript.quit
End If
On Error goto 0
End If