vb – Deviousweb

Script to delete files older than x days

22nd March 201819th March 2015 by jimmy

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

VB Script to show user description in BGINFO

22nd March 201819th March 2015 by jimmy

I use BGINFO a LOT, in fact, I probably use it at every site I manage. the following script pulls out the user’s description from AD to allow BGINFO to display this. Obviously, you can edit this to show any AD attribute you want… On Error Resume Next Dim objSysInfo, objUser Set objSysInfo = CreateObject(“ADSystemInfo”) Set … Read more

Displaying Network Adapter Speed with WMI via the Win32 NetworkAdapter class

18th February 202219th March 2015 by jimmy

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