File and Print Enable

by

  Set objFirewall = CreateObject("HNetCfg.FwMgr")Set objPolicy = objFirewall.LocalPolicy.CurrentProfile Set colServices = objPolicy.ServicesSet objService = colServices.Item(0)objService.Enabled = True——————-Thanks,https://paddymaddy.blogspot.com/

System Info OS and Service Pack Level

by

' **************************' ServerInfo.vbs' Collects OS and SP info' List of systems must be in same directory as script' Run using cscript' **************************' Name of Input File strInputFile = "Syslist.txt"' Name of Output FilestrOutputFile = "ServerInfo.csv" ' Create file system objectset objFSO = CreateObject("Scripting.FileSystemObject")' Check for Existing Output file, Create output fileIf  objFSO.FileExists(strOutputFile) Then   Wscript.echo "You … Read more

WMI Connectivity Check

by

Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add intRow = 2   objExcel.Cells(1, 1).Value = "Machine Name" objExcel.Cells(1, 2).Value = "Status" objExcel.Cells(1, 3).Value = "Error Number" objExcel.Cells(1, 4).Value = "Hex Error Number" objExcel.Cells(1, 5).Value = "Error Description"   Set Fso = CreateObject("Scripting.FileSystemObject") Set InputFile = fso.OpenTextFile("MachineList.Txt") Do While Not (InputFile.atEndOfStream) strComputer = InputFile.ReadLine   On … Read more

Admin$ check

by

Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add intRow = 2   objExcel.Cells(1, 1).Value = "Machine Name" objExcel.Cells(1, 2).Value = "Admin Share Exists"   Set Fso = CreateObject("Scripting.FileSystemObject") Set InputFile = fso.OpenTextFile("MachineList.Txt") Do While Not (InputFile.atEndOfStream) strComputer = InputFile.ReadLine   On Error Resume Next Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") Set colShares = … Read more

Remote Systems Discovery Data Collection Cycle Client agent initiate

by

On Error Resume NextDim oCPAppletMgrSet oCPAppletMgr = CreateObject("CPApplet.CPAppletMgr")Dim oClientActionsSet oClientActions = oCPAppletMgr.GetClientActions()Dim oClientActionFor Each oClientAction In oClientActions If oClientAction.Name = "Discovery Data Collection Cycle" ThenoClientAction.PerformActionEnd IfIf oClientAction.Name = "Request & Evaluate Machine Policy" Then oClientAction.PerformAction End IfNext ——————-Thanks,https://paddymaddy.blogspot.com/

Philosophy Hero Socrates

by

Ancient Greek philosophy is dominated by three very famous men: Socrates, Plato, and Aristotle. All three of these lived in Athens for most of their lives, and they knew each other. Socrates came first, and Plato was his student, around 400 BC. Socrates was killed in 399 BC, and Plato began his work by writing … Read more