Query AD from file generated by user home directories stored on file server

pedronrivera — Mon, 01 Mar 2010 16:45:21 +0000

New powershell script. Goes to user home directory on remote server and dumps the folder names to a file. Then, goes through each line in that file and queries AD to make sure the user still exists and outputs it to the console. Not finished yet. Previous admins weren’t keeping up with deleting the home diretories as users left the company. Now I have to be able to add the list of file servers with home directories. meh!

Clear-Host

Get-ChildItem -path \\server\path | select-object name | Out-File c:\usernames.txt

$sname = (Get-Content c:\usernames.txt) -replace ‘ {2,}’,'’

Foreach ($name in $sname)
{
$result = Get-QADUser -SamAccountName $name -ov outvar | Out-Null
if ($outvar -ne $null)
{}
else
{Write-Host $name}
}Edit

Powershell Script to delete files older than 2 days

pedronrivera — Wed, 17 Jun 2009 14:35:21 +0000

$DataFolder = “c:\scandocs”
$2Days = (get-Date).adddays(-2)

Get-Childitem $DataFolder -recurse | ?{!$_.PSIsContainer -and ($_.LastWriteTime -lt (get-Date).adddays(-2))} | remove-item -whatif -force

Email VBScript

pedronrivera — Fri, 26 Sep 2008 23:01:12 +0000

I started looking around and found this script to email via vbscript. Later I’ll include different things you can email yourself if you’re an system administrator.

strSender = “sender_email”
strRecipient = “recipiente_email”
strSubject = “Subjet String”
strMessage = “Message String”
strcdoSendUsingPort = “2″
strMailServer = “smtp server”
strMailPort = “25″

Set objEmail = CreateObject(”CDO.Message”)
objEmail.From = strSender
objEmail.To = strRecipient
objEmail.Subject = strSubject
objEmail.TextBody = strMessage
objEmail.Configuration.Fields.Item _
(”http://schemas.microsoft.com/cdo/configuration/sendusing“) = strcdoSendUsingPort
objEmail.Configuration.Fields.Item _
(”http://schemas.microsoft.com/cdo/configuration/smtpserver“) = strMailServer
objEmail.Configuration.Fields.Item _
(”http://schemas.microsoft.com/cdo/configuration/smptserverport“) = strMailPort
objEmail.Configuration.Fields.Update
objEmail.Send

Inventory Installed MS Updates

pedronrivera — Wed, 24 Sep 2008 15:14:59 +0000

This script will connect to a computer remotely and get the updates installed along with date and domain info. I haven’t formatted the script correctly for display on the web so you might have to do some editing. The script will put the info in a csv file. This script was written with help from others on the net along with MS documentation. I know it needs more commenting but I’m really lazy, Sorry.

const ForReading=1
const ForWriting=2
const ForAppending=8

Dim ObjFso
Set ObjFso = CreateObject(”scripting.filesystemobject”)
Set objTSIn = objFSO.OpenTextFile(”c:\Temp\Computers.txt”)
Set objTSOut = objFSO.CreateTextFile(”c:\temp\Report.csv”,2, True)
objTSOut.Write(”Computer Name” & Vbtab & “Date Installed” & vbTab & “Update Title” & vbTab & “Domain” & vbCr)

Do While Not objTSIn.AtEndOfStream
On Error Resume next
strComputer = objTSIn.ReadLine
Set objSession = CreateObject(”Microsoft.Update.Session”, strComputer)

If Err.Number <> 0 Then
Set objLogOut = objFSO.CreateTextFile(”c:\temp\log.txt”,2, True)
objLogOut.Write(”Connection failed on: ” & strComputer & ” on ” & Now & vbCrLf)

ElseIf Err.Number = 0 Then
Set objSearcher = objSession.CreateUpdateSearcher
intHistoryCount = objSearcher.GetTotalHistoryCount
Set colHistory = objSearcher.QueryHistory(1, intHistoryCount)

For Each objEntry in colHistory
  objTSOut.Write(strComputer & vbTab & objEntry.Date & vbTab & objEntry.Title & vbtab)

Set objWMISvc = GetObject( “winmgmts:\\” & strComputer & “\root\cimv2″ )
Set colItems = objWMISvc.ExecQuery( “Select * from Win32_ComputerSystem”, , 48 )
  For Each objItem in colItems
  objTSOut.Write(objItem.Domain & vbCrLF)
  Next
Next
End If

Loop

WScript.Echo “Script Done!”

objTSOut.Close

Inventory Hardware VBScript

pedronrivera — Tue, 23 Sep 2008 16:14:38 +0000

This script will connect remotely to computers listed in a text file and inventory the computer processor, memory, IP, and Hard drive space. The portion that inventorys the hard drive space was written by some else and the rest I got it from MS website along with other sites. This script will dump the info to a csv file which can then be imported into a database if you want. Being new to scripting I haven’t touched databases yet but see its importance. Again, not much commenting on the script but it works really well.

‘========================================================================
‘Script to inventory server Processor, Memory, IP, and Hard drive space
‘========================================================================

Set ObjFso = CreateObject(”scripting.filesystemobject”)
Set objTSIn = objFSO.OpenTextFile(”C:\Temp\Domain\DomainComputers.txt”)
Set objTSOut = objFSO.CreateTextFile(”c:\temp\Domain\ComputerReport.csv”,2, True)
objTSOut.Write(”Server Name” & Vbtab & “Operating System” & vbTab & “Serial Number” & vbTab & “Manufacturer” & vbtab & “Model” & vbTab & “Memory” & vbTab & “# of Processors” & vbTab & “Processor Type” & vbTab & “IP Address” & vbtab & “Logical Disk” & vbcr)

‘Start Loop
Do While Not objTSIn.AtEndOfStream
On Error Resume next
strComputer = objTSIn.ReadLine

’Connect to remote computer
Set objWMIService = GetObject(”winmgmts:” _
     & “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2″)

    ‘Log failed connections
    If Err.Number <> 0 Then
Set objLogOut = objFSO.CreateTextFile(”C:\Temp\Domain\log.txt”,2, True)
objLogOut.Write(”Connection failed on: ” & strComputer & ” on ” & Now & vbCrLf)

’Continue with script if no error encounters
ElseIf Err.Number = 0 Then

    ‘OS info
   Set colOSes = objWMIService.ExecQuery(”Select * from Win32_OperatingSystem”)
For Each objOS in colOSes
objTSOut.Write(strComputer & vbTab & objOS.Caption & ” SP ” & objOS.ServicePackMajorVersion & “.” & objOS.ServicePackMinorVersion & vbTab)

’Get Serial Number
Set oWMIService = GetObject(”winmgmts:\\” & strComputer & “\root\cimv2″)
Set colItems1 = objWMIService.ExecQuery(”SELECT * FROM Win32_BIOS”,,48)
For Each oItem In colItems1
objTSOut.Write(oItem.SerialNumber & vbTab)

’Get Total Physical memory
Set colSettings = objWMIService.ExecQuery(”Select * from Win32_ComputerSystem”)
For Each objComputer in colSettings
objTSOut.Write(objComputer.Manufacturer & vbTab & objComputer.Model & vbTab & Round((objComputer.TotalPhysicalMemory/1000000000),4) & vbTab & objComputer.NumberOfProcessors & vbTab )

’Get Processor Information
Set colItems = objWMIService.ExecQuery(”Select * from Win32_Processor”,,48)
For Each objItem in colItems
    objTSOut.Write(objItem.Name & vbTab)

    ‘Get NETWORK ADAPTERS information
  Set colIPItems = objWMIService.ExecQuery(”SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True”)
  For Each objIPItem In colIPItems
  strIPAddress = Join(objIPItem.IPAddress, “,”)
  ’WScript.Echo “IPAddress: ” & strIPAddress
  objTSOut.Write(strIPAddress & vbtab)


’Get Logical Disk Size and Partition Information
Set colDisks = objWMIService.ExecQuery(”Select * from Win32_LogicalDisk Where DriveType = 3″)
For Each objDisk in colDisks
  DriveLetter = objDisk.DeviceID
    intFreeSpace = objDisk.FreeSpace
    intTotalSpace = objDisk.Size
    pctFreeSpace = intFreeSpace / intTotalSpace
    objTSOut.Write(”DISK ” & objDisk.DeviceID & ” (” & objDisk.FileSystem & “) ” & Round((objDisk.Size/1000000000),4) & ” GB (”& Round((intFreeSpace/1000000000)*1.024,4) & ” GB Free Space)”) & ” “
  Next
Next
Exit For ‘ Exits Win32_Processer loop
Next
Next

Next
Next
objTSOut.Write(vbCr)
End if
Loop

MsgBox “Script Finished”

Norton Inventory VBScript

pedronrivera — Tue, 23 Sep 2008 15:02:05 +0000

I began scripting a couple of months ago and wrote this script to inventory the version of norton installed on client computers. In my enviroment I simply export the computer accounts to a text file and run this script. As I get better with vbscript I’ll be able to connect directly to AD. It could use some comments which I’ll add later. Hope this helps someone.

const HKEY_LOCAL_MACHINE = &H80000002

Set WshShell = CreateObject(”wscript.Shell”)
Set ObjFso = CreateObject(”scripting.filesystemobject”)

‘Open Text File to read
‘Create Report
Set objTSIn = objFSO.OpenTextFile(”C:\Temp\ListOfComputers.txt”)
Set objTSOut = objFSO.CreateTextFile(”C:\Temp\Inventory.csv”,2, True)

objTSOut.Write(”ComputerName” & vbtab & “Norton Version” & vbTab & “OS” & vbcr)

‘Start Loop

Do While Not objTSIn.AtEndOfStream
On Error Resume next
strComputer = objTSIn.ReadLine

Set objWshScriptExec = WshShell.Exec(”%comspec% /c ping -n 3 -w 1000 ” & strComputer)
Set objStdOut = objWshScriptExec.StdOut
strText = objStdOut.ReadAll

If Instr(strText, “Reply”) > 0 Then

Set objReg=GetObject(”winmgmts:{impersonationLevel=impersonate}!\\”& strComputer & “\root\default:StdRegProv”)
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Uninstall”
objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
Select Case Subkey

Case “{BD12EB47-DBDF-11D3-BEEA-00A0CC272509}” ‘7.6
objTSOut.Write(strComputer & Vbtab & “Nav 7.x” & vbCr)

Case “{0EFC6259-3AD8-4CD2-BC57-D4937AF5CC0E}” ‘8.x
objTSOut.Write(strComputer & vbtab & “Nav 8.x” & vbCr)

Case “{848AC794-8B81-440A-81AE-6474337DB527}” ‘9.x
objTSOut.Write(strComputer & vbtab & “Nav 9.x” & vbCr)

Case “{5A633ED0-E5D7-4D65-AB8D-53ED43510284}” ‘10.0.359.0
objTSOut.Write(strComputer & vbtab & “Nav 10.0.359.0″ & vbCr)

Case “{1BA1A958-4BBB-4AB1-9B66-C86CEC6616CB}” ‘10.0.846.0
objTSOut.Write(strComputer & vbtab & “10.0.846.0″ & vbCr)

Case “{A011A1DC-7F1D-4EA8-BD11-0C5F9718E428}” ‘10.1.0.396
objTSOut.Write(strComputer & vbTab & “10.1.0.396″ & vbCr)

Case “{50E125D1-88E5-48CE-80AE-98EC9698E639}” ‘10.1.6.6000
objTSOut.Write(strComputer & vbtab & “10.1.6.6000″ & vbCr)

Case “{7C9E6E52-EB11-44DB-A761-82D5D873A8D9}” ‘10.2.0.276
objTSOut.Write(strComputer & vbTab & “10.2.0.276″ & vbCr)

Case “{33CFCF98-F8D6-4549-B469-6F4295676D83}” ‘10.1.5000.5
objTSOut.Write(strComputer & vbTab & “10.1.5000.5″ & vbCr)

End Select

Else
Set objLogOut = objFSO.CreateTextFile(”c:\Temp\NavProject\log.txt”,2, True)
objLogOut.Write(”Connection failed on: ” & strComputer & ” on ” & Now & vbCrLf)
End If

Loop ‘End Loop

WScript.Echo “Script Done!”