Excelent artical for SCCM 2007 Maintanence tasks Client is Installed Flag Explained https://myitforum.com/cs2/blogs/jgilbert/archive/2008/10/18/client-is-installed-flag-explained.aspx ——————-Thanks,https://paddymaddy.blogspot.com/
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/
' **************************' 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
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
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
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/
https://rap1dlinks.blogspot.com/ ——————-Thanks,https://paddymaddy.blogspot.com/
To install msxml6.msi Silent installation msxml6.msi /qb——————-Thanks,https://paddymaddy.blogspot.com/
Good Links makes happy when you read them ——————-Thanks,https://paddymaddy.blogspot.com/
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