Labels
Connect the SSP image like below or copy the SSP pakage on the Server
Click Apply
Run the Setup from the %drive%hp/swpakages/Setup.exe
Click on Start inventory
Build inventory from the location of %drive%hp/swpakages
Select local host for checking installation check list
A similar screen will appear when you have software inventory 
Uncheck the option listed below
Then click on install
Once after the installation – Reboot the server and monitor the reboot process from ILO
create a TXT file by Name Servers with the list of Servers you wanted to check. It will automatically created a Output
SCRIPT STARTS FROM BELOW
'==========================================================================
Option Explicit
On Error Resume Next
Dim strComputer, objWMIService, colOperatingSystems, objOS, intSystemUptime, Question
Question = ""
Do Until Question = vbNo
strComputer = InputBox("Please enter servername")
If strComputer <> "" Then
GetTime
Else
Question = MsgBox ("Please try again and enter a valid server name" & vbCrLf & "Try again?", vbYesNo)
If Question = vbNo Then
WScript.Quit
End If
End If
Loop
'===========================================================================
' Sub Procedures
'===========================================================================
Sub GetTime
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * From Win32_PerfFormattedData_PerfOS_System")
For Each objOS in colOperatingSystems
intSystemUptime = SplitSec(objOS.SystemUpTime)
'intSystemUptime = Int(objOS.SystemUpTime / 60)
MsgBox "The server has been up for " & intSystemUptime
Question = vbNo
Next
End Sub
Function SplitSec(pNumSec)
Dim d, h, m, s
Dim h1, m1
d = int(pNumSec/86400)
h1 = pNumSec - (d * 86400)
h = int(h1/3600)
m1 = h1 - (h * 3600)
m = int(m1/60)
s = m1 - (m * 60)
SplitSec = cStr(d) & " Days, " & cStr(h) & " Hours, " & cStr(m) & " Minutes, " & cStr(s) & " Seconds."
End Function
Applies for 2003,2008
Few things to Note :
* this script query’s to registry (marked in Blue)of the patch so you need add the Registry key to which it need to query( you can get that details in the download site
*You need to Very particular about the location,Best Classification would be Like this
**location : D drive
**Patch Location : Better if you can save it with MS article number
ex : MS06-017
so the location classification can be \\Server\d$\Ms06-017 this can locate your patches easily
************************************************************************
set inst= Location
echo ***** Hotfix MS06-017 Vulnerability in Microsoft FrontPage Server Extensions Could Allow Cross-Site Scripting (917627) *****
REM ***** Date of added*****
%windir%\reg.exe query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Updates\Windows Server 2003\SP2\KB908981\File list"
IF ERRORLEVEL 1 GOTO INSTALLMS06-017
IF ERRORLEVEL 0 GOTO PASSMS06-017
:INSTALLMS06-017
echo Installing Hotfix MS06-017 Vulnerability in Microsoft FrontPage Server Extensions...
%inst%\MS06-017\WindowsServer2003-KB908981-x86-ENU.exe /passive /norestart /log:%inst%\MS06-017\
ECHO Install Complete.
goto ENDMS06-017
:PASSMS06-017
echo Hotfix MS06-017 Vulnerability in Microsoft FrontPage Server Extensions is already installed.
goto ENDMS06-017
:ENDMS06-017
echo.
REM ***** End of Hotfix MS06-017 Vulnerability in Microsoft FrontPage Server Extensions Could Allow Cross-Site Scripting (917627) *****
You can run below script in IIS for cleaning the logs
***************************************************************************
Dim fso, folder, file, filecollection, dir, days_in, days_dif, filesplit
'Dim WshShell
'Set WshShell = WScript.CreateObject("WScript.Shell")
'WScript.Echo WshShell.CurrentDirectory
If ((Wscript.Arguments.Count < 3) or (Wscript.Arguments.Count > 3)) then
Wscript.echo "Script requires 3 parameters"
Wscript.echo "cscript log_clean (directory) (days) (extension)"
Wscript.echo "cscript log_clean c:\ 30 log"
Wscript.echo "(directory) is folder to delete logs out of"
Wscript.echo "(days) sets the age for a file delete, if file older then (days), it is deleted"
Wscript.echo "(extension) sets which files the tool will look at)"
Wscript.Quit 3
end if
dir = Wscript.Arguments.Item(0)
days_in = Wscript.Arguments.Item(1)
ext = Wscript.Arguments.Item(2)
set fso = CreateObject("Scripting.FileSystemObject")
set folder = fso.GetFolder(dir)
set filecollection = folder.files
For Each file in filecollection
filesplit = Split(file.name, ".")
If (Ucase(filesplit(UBound(filesplit))) = Ucase(ext)) then
days_dif = DateDiff("d", file.DateLastModified, date)
if ((cint(days_dif)) > (cint(days_in))) then
wscript.echo file.name&" is "&DateDiff("d", file.DateLastModified, date)&" days old"
wscript.echo "Will delete "&file.name
file.Delete[(force)]
else
wscript.echo file.name&" is "&DateDiff("d", file.DateLastModified, date)&" days old"
wscript.echo "Will keep "&file.name
end if
end if
Next
strComputer = "." ' use "." for local computer
Const HKLM = &H80000002
'On Error Resume Next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
' get general info about the OS
' Caption value for different OS:
' Microsoft Windows 2000 ...
' Microsoft Windows XP ...
' Microsoft(R) Windows(R) Server 2003, ..... Edition
For Each objOperatingSystem in colSettings
strOSCaption = objOperatingSystem.Caption
Select Case True
Case InStr(1, strOSCaption, "windows 2000", vbTextCompare) > 0
strOS = "Windows 2000"
Case InStr(1, strOSCaption, "windows xp", vbTextCompare) > 0
strOS = "Windows XP"
Case InStr(1, strOSCaption, "windows(r) server 2003", vbTextCompare) > 0
strOS = "Windows Server 2003"
End Select
intOSLang = objOperatingSystem.OSLanguage
strOSLangHex = Right("000" & Hex(intOSLang), 4)
strOSServicePack = objOperatingSystem.CSDVersion
Next
Set objReg = GetObject("WinMgmts:{impersonationLevel=impersonate}!//" _
& strComputer & "/root/default:StdRegProv")
strOSLanguage = "Unknown" ' Init value
strKeyPath = "SOFTWARE\Classes\MIME\Database\Rfc1766"
strValueName = strOSLangHex
objReg.GetStringValue HKLM, strKeyPath, strValueName, strOSLanguage
' remove unnecessary stuff
arrOSLanguage = Split(strOSLanguage, ";")
strOSLanguage = arrOSLanguage(UBound(arrOSLanguage))
If Instr(strOSLanguage, "(") > 0 Then
arrOSLanguage = Split(strOSLanguage, "(")
strOSLanguage = Trim(arrOSLanguage(0))
End If
Wscript.Echo "OS version: " & strOSCaption
Wscript.Echo "SP version: " & strOSServicePack
Wscript.Echo "OS language: " & strOSLanguage
' start enumeration of hotfixes
Wscript.Echo vbCrLf & "Hotfixes Identified:"
strRegBaseUpdate = "SOFTWARE\Microsoft\Updates\" & strOS
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_QuickFixEngineering",,48)
For Each objItem in colItems
If objItem.HotFixID <> "File 1" Then
Wscript.Echo "HotFixID: " & objItem.HotFixID
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "InstalledBy: " & objItem.InstalledBy
strInstallDate = Null ' init value
If objItem.ServicePackInEffect <> "" Then
strRegKey = strRegBaseUpdate & "\" & objItem.ServicePackInEffect _
& "\" & objItem.HotFixID
objReg.GetStringValue HKLM, strRegKey, _
"InstalledDate", strInstallDate
End If
If IsNull(strInstallDate) Then
strInstallDate = "(none found)"
End If
Wscript.Echo "InstallDate: " & strInstallDate
Wscript.Echo ' blank line
End If
Next
* for checking the update
Go to start > CMD > run the following command " wmic qfe list"** gives you the complete list of installed update on the servers
*******************************************************************************
If you need a script then find it below
*******************************************************************************
@echo on
wmic /node: Server name qfe GET description,FixComments,hotfixid,installedby,installedon > %temp%\UpdateList.txt
notepad %temp%\UpdateList.txt
*******************************************************************************
note if you need any other output format then replace the blue marked files to the HTML|CSV
'--------------------8<----------------------
' Script that reports installed updates that are
' installed with Windows Update v5 technology
'
' Result will be written to %temp%\UpdateHistory.txt
' and then launched in Notepad
'
' Author: Aslam Latheef Shaik
' Date 2012-08-11
'
Option Explicit
Const OverwriteIfExist = -1
Const OpenAsASCII = 0
Dim oWU, iTHCount, colUpdate, oUpdate, sStatus, iTotal
Dim iSuccess, iFailed, iAborted, iUnknown, sErrorCode
Dim oFSO, oShell, sFile, f
On Error Resume Next
Set oWU = CreateObject("Microsoft.Update.Searcher")
If Err.Number <> 0 Then
MsgBox "WU5 programming interface does not exist.", _
vbInformation + vbSystemModal, "Update history"
WScript.Quit
End If
On Error Goto 0
iTHCount = oWU.GetTotalHistoryCount
If iTHCount > 0 Then
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Wscript.Shell")
sFile = oShell.ExpandEnvironmentStrings("%TEMP%") & "\UpdateHistory.txt"
Set f = oFSO.CreateTextFile(sFile, _
OverwriteIfExist, OpenAsASCII)
iTotal = 0
iSuccess = 0
iFailed = 0
iAborted = 0
iUnknown = 0
f.WriteLine "Report run at " & Now
f.WriteLine "---------------------------------" _
& "---------------------------------"
Set colUpdate = oWU.QueryHistory(0, iTHCount)
For Each oUpdate In colUpdate
f.WriteLine "Title:" & vbTab & vbTab & vbTab & oUpdate.Title
f.WriteLine "Description:" & vbTab & vbTab & oUpdate.Description
f.WriteLine "Date/Time in GMT:" & vbTab & oUpdate.Date
f.WriteLine "Install mechanism:" & vbTab & oUpdate.ClientApplicationID
sErrorCode = ""
Select Case oUpdate.ResultCode
Case 2
sStatus = "Succeeded"
iSuccess = iSuccess + 1
Case 4
sStatus = "Failed"
iFailed = iFailed + 1
sErrorCode = oUpdate.UnmappedResultCode
Case 5
sStatus = "Aborted"
iAborted = iAborted + 1
Case Else
sStatus = "Unknown"
iUnknown = iUnknown + 1
End Select
If sStatus = "Failed" Then
f.WriteLine "Install error:" & vbTab & vbTab & sErrorCode
End If
f.WriteLine "Install status:" & vbTab & vbTab & sStatus
f.WriteLine "---------------------------------" _
& "---------------------------------"
iTotal = iTotal + 1
Next
f.WriteLine
f.WriteLine "Total number of updates found: " & iTotal
f.WriteLine "Number of updates succeeded: " & iSuccess
f.WriteLine "Number of updates failed: " & iFailed
f.WriteLine "Number of updates aborted: " & iAborted
f.Close
oShell.Run "notepad.exe " & """" & sFile & """", 1, False
Else
MsgBox "No entries found in Update History.", _
vbInformation + vbSystemModal, "Update history"
End If
Applicable for windows 2003 and 2008 server cluster
Microsoft Windows [Ver
Copyright (c) 2009 Mic
C:\Users\usename cd\
C:\ cd windows
C:\Windows diskpart
C
Typically, account lockout's occur when you enter in a bad username/password combination that Active Directory is not expecting or enter in the incorrect information X number of times within the given threshold used for Active Directory. However, there are other instances where you may locked out. The most common situations encountered here are noted below for reference:
- Changing the password as directed or as needed and not letting the background replication via Active Directory to complete
- Using one's credentials for a service account and not updating the same when one changes their password
- Leaving their sessions logged in at the console or in a remote session and not logging them out in a timely fashion before, during or after a password change
For anyone experiencing issues, you may submit a ticket into RNT for assistance and assigning it directly to the appropriate contact. However, most problem's with account lockouts end up falling into the previously named categories above and can be resolved by ensuring one does not fall into any of the aforementioned categories.