MY Vbscripts

‘Below script to create number of computers in AD–for testing

by

‘Below script to create number of computers in AD–for testing ‘============================================================================== ‘ ‘ Description: This script creates multiple sequential computer accounts ‘ in an AD OU. It appends a 3 digit number to the base name starting with ‘ the number entered at the prompt. ‘ ============================================================================== Option Explicit ‘Define Constants Const ADS_SCOPE_ONELEVEL = 1 … Read more

You want to stop unwanted things while loading or want to get control of boot load files??

by

Ohh.. my systems dead slow after joins here… they given me T61 with 1 GB..  Where my system taking more than 1 Gb almost every time I am working my Page file….  I checked this utility, which has the most comprehensive knowledge of auto-starting locations of any startup monitor, shows you what programs are configured … Read more

VBSCRIPT FILE VERSION ON LIST OF SYSTEMS TO EXCEL

by

Set Fso = CreateObject("Scripting.FileSystemObject") Set InputFile = fso.OpenTextFile("MachineList.Txt") Do While Not (InputFile.atEndOfStream) strComputer = InputFile.ReadLine Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add intRow = 2objExcel.Cells(1, 1).Value = "System Name" objExcel.Cells(1, 2).Value = "Version" Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") Set colFiles = objWMIService.ExecQuery _    ("Select * from CIM_Datafile Where Name = 'c:windowssystem32mshtml.dll'") … Read more

VBSCRIPT FOR FILE VERSION CHECK

by

  Set Fso = CreateObject("Scripting.FileSystemObject") Set InputFile = fso.OpenTextFile("MachineList.Txt") Do While Not (InputFile.atEndOfStream) strComputer = InputFile.ReadLine   Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") Set colFiles = objWMIService.ExecQuery _    ("Select * from CIM_Datafile Where Name = 'c:windowssystem32driverstdx.sys'")For Each objFile in colFiles    Wscript.Echo objFile.Version &" " & strComputer         'Wscript.Echo "Version: " & strComputer … Read more

Easy way to to make script to accept list of systems from a text file where you have strComputer = "." script

by

Easy way to to make script to accept list of systems from a text file where you have strComputer = "." script   Set Fso = CreateObject("Scripting.FileSystemObject") Set InputFile = fso.OpenTextFile("MachineList.Txt") Do While Not (InputFile.atEndOfStream) strComputer = InputFile.ReadLine loop When you get the strComputer = "." and you want to accept the list from a … Read more

Easy way to to make script to accept list of systems from a text file where you have strComputer = “.” script

by

Easy way to to make script to accept list of systems from a text file where you have strComputer = "." script   Set Fso = CreateObject("Scripting.FileSystemObject") Set InputFile = fso.OpenTextFile("MachineList.Txt") Do While Not (InputFile.atEndOfStream) strComputer = InputFile.ReadLine loop When you get the strComputer = "." and you want to accept the list from a … Read more