talatham

@ECHO OFF 
for /f "tokens=*" %%G IN ('dir /ad /b /s') DO ( 
echo. > "%%G\%~n0.txt" 
)

talatham

Function ToDDMM(dDate)

      Dim dTemp
      dTemp=Split(dDate, "/")
      ToDDMM=dTemp(1) & "/" & dTemp(0) & "/" &dTemp(2)
End Function

talatham

' ------------------------------------------------------------
' Convert IP Address - convert IP Address to integer format
' ------------------------------------------------------------
Function ConvertIP(IPAddress)
	
  Dim IPnumber, IPArray, counter
		
	IPArray = Split(IPAddress,".")
	IPNumber = CDbl(0)
	For counter = 0 To UBound(IPArray)

talatham

$Session = New-Object -ComObject Microsoft.Update.Session
$Searcher = $Session.CreateUpdateSearcher()
$HistoryCount = $Searcher.GetTotalHistoryCount()
$Searcher.QueryHistory(1,$HistoryCount) | 
  Select-Object Date, Title, Description

talatham

'Create folder path recursively
Function GeneratePath(pFolderPath)
  GeneratePath = False
	If Not wFile.FolderExists(pFolderPath) Then
		If GeneratePath(wFile.GetParentFolderName(pFolderPath)) Then
			GeneratePath = True
			Call wFile.CreateFolder(pFolderPath)
		End If
	Else
		GeneratePath = True

talatham

Variety of methods for pinging machines.

talatham

# ------ FUNCTION --------------

Function Set-Filename
# Set file name for saving export
{
    [void][System.Reflection.Assembly]::LoadWithPartialName("System.windows.forms")
    $SaveFileDialog = New-Object System.Windows.Forms.SaveFileDialog
    $SaveFileDialog.Filter = "Text files (*.txt)|*.txt"
   
    $SaveFileDialog.initialDirectory = "c:\"

talatham

# ---------- FUNCTION -------------

Function Get-FileName
# Open file dialog box and select a file to import
{   
    [void][System.Reflection.Assembly]::LoadWithPartialName("System.windows.forms")

    $OpenFileDialog = New-Object System.Windows.Forms.OpenFileDialog
    $OpenFileDialog.filter = "Text Files (*.txt)| *.txt" # Set the file types visible to dialog

talatham

# ====================================================================
# Retrieve current or last user logon details for a list of machines
# Tom Latham (13/05/2010)
# ====================================================================

Function Get-FileName
# Open file dialog box and select a file to import
{   
    [void][System.Reflection.Assembly]::LoadWithPartialName("System.windows.forms")

talatham

# Initialise machine name
$server = "<>"
 
# Get fixed drive info
$disks = Get-WmiObject -ComputerName $server -Class Win32_LogicalDisk -Filter "DriveType = 3";
 
foreach($disk in $disks)
{
  $deviceID = $disk.DeviceID;
	[float]$size = $disk.Size;