I'm officially a soccer dad. Took Chloe to her first practice. I was the one dad among a dozen moms. Evelyn took Evan to his practice and had the opposite experience. We'll probably trade off kids each practice. Chloe got a very good coach (Kristin). She was great with all the kids. Chloe did great learning her first soccer skills.
We ate out today because Rick started with us and you always have to take the new guy to lunch right? But generally I and most of the guys on the team are pretty good about eating in. I'm the most fanatical about it having foregone lunch out a few times now. I'm trying to limit my lunches out to just Friday. This makes lunch out an enjoyable treat instead of a daily chore. I'm very gradually losing weight because of eating healthier lunches and getting exercise every day. I've lost just about 8 lbs now. I find my weight fluctuates by as much as 4 lbs on a given day. Water weight I guess. Bouncing around 280 - 284 these days. I was a solid 290 when I started my new job.
About the time I started meditating every day I started walking every day. Twice a day if I'm lucky. I've made it part of my daily routine to take a solid 15 minute break in the morning and again in the afternoon. At this time I just head out the door and walk briskly around the office park. It's just exactly a one mile loop. This is good exercise both physically and mentally. It's so nice to take breaks during the day. Something I've never done before in my career. All part of the work-life balance thing. I try to avoid stressful 50 hour work weeks and spend more time doing things that are healthy for me.
When I die, my inbox will NOT be empty. Might as well enjoy life now.
One problem. It's getting hot. I'm not sure how I'm going to pull this lifestyle change off in the heat of NC summer.
One of the key theme's in Spider Robinson/Robert Heinlein's book, Variable Star, is on meditation. I've done some research on the topic and have been practicing sitting meditation just about every day for about 6 weeks now. It's definitely good stuff. I don't fully understand how it all works just yet, but I enjoy it and feel generally happier and healthier on days when I do it. I've ordered up a meditation DVD from Netflix so I hope to learn more about the topic. Right now I'm just sitting zazen for 15 - 20 minutes each morning and performing a controlled breathing exercise. I concentrate very hard on thinking about nothing. This is very difficult. Hard to achieve but I do seem to have these moments of clarity when I am in a "nothingness trance". All the world's problems seem to melt away when I hit this state.
Rick joined us today at work. Now I have some help. Just in time. My boss has been on extended leave of abscence to take care of family matters. This in the middle of a complex mail migration. Work has been a bit stressful. But now Rick is here. First impressions are mostly positive. He's very smart and a capable Windows admin. He seems very easy to work with so far. He's a CompSci grad. And to top it off he's an avid hiker. He mentioned there's a local MeetUp group for hikers and he's going to get me hooked up. That's cool. Only downside so far -- he's a smoker. Go figure.
There's a method called .MoveFile, but you can't pass it the True on the end which means Overwrite if already exists. Why I have no idea. So this logic copies the file and then does a delete.
Note the slash at the end of the copy command. This is needed to let it know to put it into a folder. Otherwise it tries to create it as a file.
Also includes logic for creating the destination folder.
sSource = "c:\test\myfile.txt"
sDestination = "d:\folder1"
set oFSO = CreateObject("Scripting.FileSystemObject")
If Not oFSO.FolderExists(sDestination) Then
Set oFolder = oFSO.CreateFolder(sDestination)
End If
set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(sSource) Then
oFSO.CopyFile sSource, sDestination & "\", True
oFSO.DeleteFile sSource
End If
Reveals the members of a group.
Dim objArguments, strDomainGrp
Set objArguments = Wscript.Arguments
If WScript.Arguments.Count = 0 then Wscript.Quit
strDomainGrp=objArguments(0)
On Error Resume Next
Set objGroup = GetObject("LDAP://cn=" & strDomainGrp & ",ou=distribution lists,dc=company,dc=com")
objGroup.GetInfo
arrMemberOf = objGroup.GetEx("member")
For Each strMember in arrMemberOf
WScript.echo """" & strDomainGrp & """;""" & strMember & """"
Next
