Use this topic to post useful scripts for others, in PowerShell, VBS, .bat, PHP ... whatever has worked well for you in making IT administration easier for you! Please be sure to include information about how to run the script, if special command-line parameters are needed, etc.

Pamela McLeod wrote:

Use this topic to post useful scripts for others...

Here is a script which I use every day. We have a current issue where something in Windows 7 is deleting students' home folders on login. I run this script every hour or two and it tells me which of the students no longer have home folders on the server. I then restore their home folder manually with Previous Versions (Volume Shadow Services) and re-set security on their folder. Prior to this script, I was comparing entire lists of classes to the home folder share to see what was missing.

This script relies on the ActiveDirectory module, and I have pre-mapped the student home folder share to a mapped drive (S:). I have highlighted the areas which are specific to my environment. I keep this script in a folder on my Win 7 workstation and I run it from within PowerShell ISE.

Import-Module ActiveDirectory
#list students who don't have home folders

$timestamp = Get-Date

# 1. get users from AD Students container, loop through them
$theUsers = Get-ADUser -Filter {(Enabled -eq "True")} -SearchBase "OU=StudentAccounts,OU=Students,OU=Accounts,DC=alton,DC=school,DC=com"
write-host $timestamp $theUsers.count enabled users found
$folders = Get-ChildItem S:\

# 2. for each user, does the home folder exist?
foreach ($user in $theUsers)
{
    #write-host $user.Name , $user.sAMAccountName
    $userHome = $user.sAMAccountName
    #does the home folder exist?
    $userFolderExists = Test-Path S:\$userHome
    if ($userFolderExists -eq "True") {
        #skip
    } else {
        write-host No home folder for user $userHome , $user.Name -fore darkblue
    }
       
}

I use this script in Windows to log all logins in my environment. It is applied as a login script for all users. A hidden share needs to be set up on a server with write access by everyone. My share has sharing permissions set to Full Control by Everyone, then NTFS permissions set to Modify for Authenticated Users.

The output of the script looks like this (one line per login):

Logon ; 8/23/2009 12:20:38 PM ; COMPUTERNAME ; USERNAME ;

The script:

' Logs.vbs
' VBScript Logon script.
' This program demonstrates how to log information to a log file.
' Modified by Pam McLeod, Alton School District. Originally from:
' ----------------------------------------------------------------------
' Copyright (c) 2003 Richard L. Mueller
' Hilltop Lab web site - http://www.rlmueller.net
' Version 1 - March 26, 2003
' Version 1.1 - January 25, 2004 - Modify error trapping.
'
' You have a royalty-free right to use, modify, reproduce, and
' distribute this script file in any way you find useful, provided that
' you agree that the copyright owner above has no warranty, obligations,
' or liability for such use.

Option Explicit

Dim objFSO, objLogFile, objNetwork, objShell, strText, intAns
Dim intConstants, intTimeout, strTitle, intCount, blnLog
Dim strUserName, strComputerName, strIP, strShare, strLogFile

strShare = "\\servername\logshare$"
strLogFile = "login_history1.log"
intTimeout = 20

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objNetwork = CreateObject("Wscript.Network")
Set objShell = CreateObject("Wscript.Shell")

strUserName = objNetwork.UserName
strComputerName = objNetwork.ComputerName
strIP = Join(GetIPAddresses())

' Log date/time, user name, computer name, and IP address.
If objFSO.FolderExists(strShare) Then
  On Error Resume Next
  Set objLogFile = objFSO.OpenTextFile(strShare & "\" _
    & strLogFile, 8, True, 0)
  If Err.Number = 0 Then
    ' Make three attempts to write to log file.
    intCount = 1
    blnLog = False
    Do Until intCount = 3
      objLogFile.WriteLine "Logon ; "  & Now & " ; " _
        & strComputerName & " ; " & strUserName & " ; " & strIP
      If Err.Number = 0 Then
        intCount = 3
        blnLog = True
      Else
        Err.Clear
        intCount = intCount + 1
        If Wscript.Version > 5 Then
          Wscript.Sleep 200
        End If
      End If
    Loop
    On Error GoTo 0
    If blnLog = False Then
      strTitle = "Logon Error"
      strText = "Log cannot be written."
      strText = strText & vbCrlf _
        & "Another process may have log file open."
      intConstants = vbOKOnly + vbExclamation
      intAns = objShell.Popup(strText, intTimeout, strTitle, _
        intConstants)
    End If
    objLogFile.Close
  Else
    On Error GoTo 0
    strTitle = "Logon Error"
    strText = "Log cannot be written."
    strText = strText & vbCrLf & "User may not have permissions,"
    strText = strText & vbCrLf & "or log folder may not be shared."
    intConstants = vbOKOnly + vbExclamation
    intAns = objShell.Popup(strText, intTimeout, strTitle, intConstants)
  End If
  Set objLogFile = Nothing
End If

' Clean up and exit.
Set objFSO = Nothing
Set objNetwork = Nothing
Set objShell = Nothing

Wscript.Quit

Function GetIPAddresses()
'=====
' Based on a Michael Harris script, modified by Torgeir Bakken
'
' Returns array of IP Addresses as output
' by ipconfig or winipcfg...
'
' Win98/WinNT have ipconfig (Win95 doesn't)
' Win98/Win95 have winipcfg (WinNt doesn't)
'
' Note: The PPP Adapter (Dial Up Adapter) is
' excluded if not connected (IP address will be 0.0.0.0)
' and included if it is connected.
'=====
  Dim sh, fso, env, workfile, ts, data, index, n, arIPAddress, parts

  set sh = createobject("wscript.shell")
  set fso = createobject("scripting.filesystemobject")
  Set Env = sh.Environment("PROCESS")
  if Env("OS") = "Windows_NT" then
    workfile = Env("TEMP") & "\" & fso.gettempname
    sh.run "%comspec% /c ipconfig >" & Chr(34) _
      & workfile & Chr(34),0,true
  else
    'winipcfg in batch mode sends output to
    'filename winipcfg.out
    workfile = "winipcfg.out"
    sh.run "winipcfg /batch" ,0,true
  end if
  set sh = nothing
  set ts = fso.opentextfile(workfile)
  data = split(ts.readall,vbcrlf)
  ts.close
  set ts = nothing
  fso.deletefile workfile
  set fso = nothing
  arIPAddress = array()
  index = -1
  for n = 0 to ubound(data)
    if instr(data(n),"IP Address") then
      parts = split(data(n),":")
      'if trim(parts(1)) <> "0.0.0.0" then
      if instr(trim(parts(1)), "0.0.0.0") = 0 then
        index = index + 1
        ReDim Preserve arIPAddress(index)
        arIPAddress(index)= trim(cstr(parts(1)))
      end if
    end if
  next
  GetIPAddresses = arIPAddress
End Function