LDIFDE – Export Users

Posted by on May 26, 2010 in Scripting | 0 comments

ldifde -f Users.txt -s adserver -d “OU=Misc Users, dc=crimsonshift, dc=com” -r “(& (objectCategory=person)(objectClass=User)(givenname=*))” -o “dn, changetype” -l “sn, givenName, title, telephoneNumber, mail”

read more

SCVDE – Export Users

Posted by on May 26, 2010 in Scripting | 0 comments

csvde -f Users.txt -s adserver -d “OU=Misc Users, dc=crimsonshift, dc=com” -r “(& (objectCategory=person)(objectClass=User)(givenname=*))” -o “dn, changetype” -l “sn, givenName, title, telephoneNumber, mail”

read more

Scripting – Disabled Active Directory (AD) users

Posted by on May 26, 2010 in Scripting | 0 comments

On Error Resume Next Dim objTextFile, Path Path = InputBox(“Enter your DC name or the DN for your domain”&_ ” dc=crimsonshift,dc=com’:”,”Enter path”) Set objConnection = CreateObject(“ADODB.Connection”) Set objCommand =   CreateObject(“ADODB.Command”) objConnection.Provider = “ADsDSOObject” objConnection.Open “Active Directory Provider” Set objCommand.ActiveConnection = objConnection Set objFSO =...

read more

Scripting – Exchange DB maximum size monitoring and reporting

Posted by on May 26, 2010 in Scripting | 0 comments

‘ drozumovich ‘ ———————————————————–’ Option Explicit Dim objFSO, objFolder, objFile, objWMI, objItem, objEmail ‘ Objects Dim strComputer, strFileName, strFileOpen, strFolder, strPath Dim intEvent, intNumberID, intRecordNum, colLoggedEvents, dteCutOffDate dteCutOffDate = FormatDateTime(DateAdd(“d”, -1, Now()), 2) ‘...

read more

Scripting – Server reboot monitoring

Posted by on May 26, 2010 in Scripting | 0 comments

‘ drozumovich ‘ ———————————————————–’ Option Explicit Dim objFSO, objFolder, objFile, objWMI, objItem, objEmail ‘ Objects Dim strComputer, strFileName, strFileOpen, strFolder, strPath Dim intEvent, intNumberID, intRecordNum, colLoggedEvents, dteCutOffDate dteCutOffDate = FormatDateTime(DateAdd(“d”, -1, Now()), 2) ‘...

read more

Scripting – Disk size monitoring

Posted by on May 26, 2010 in Scripting | 0 comments

‘drozumovich ‘————————————————- Option Explicit ‘***declarations*** Dim objWMIService, objItem, colItems, strComputer Dim strDriveType, strDiskSize, strDisk, objFSO, objTextFile Dim objEmail, intFreeSpace, strFreePer, boolIsGreater, boolUnder10 On Error Resume Next strComputer = “.” ‘***connect to logical disk manager via WMI*** Set objWMIService = GetObject _ (“winmgmts:\\” & strComputer &...

read more