Script to delete files older than x days

A quick script to delete files older than a certain number of days, be careful if you run this against a root dir!   ‘* Script Name: DeleteOldFiles.vbs ‘* Created On: 08/08/2013 ‘* Author: Jimmy White ‘* Version: 1.0 ‘NOTE! The Account used to run script needs delete permissions to folder & files. Const sSource … Read more

KMS in a multi-tree forest

If you wish to create a multi-tree forest domain setup, and the root authority pays for the licenses, you only need 1 KMS server for the forest.  But the DNS service entry for KMS doesn’t replicate through the forest DSN tables by default.  To change this, make a registry change as follows (this assumes you … Read more

Displaying Network Adapter Speed with WMI via the Win32 NetworkAdapter class

Quick little script to do the above.. Function GetNetworkSpeed(strComputer) Dim colItems, objItem, address Dim StrQuery Dim objWMIService StrQuery = “SELECT * FROM Win32_NetworkAdapter” Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\CIMV2″) Set colItems = objWMIService.ExecQuery(strQuery,,48) For Each objItem in colItems GetNetworkSpeed = GetNetworkSpeed & vbTab & objItem.ProductName & vbCr Next End Function   Or do … Read more