Windows Servers

OpenSSL loading openssl.cnf

Feb 8th

Posted by editor in ASP.Net

since the openssl.cnf path is hardcoded in binaries. to alter it on windows set environmental variable (as written):

OPENSSLDIR=C:\PATH\TO\OpenSSL\bin
OPENSSL_CONF=C:\PATH\TO\OpenSSL\bin\openssl.cnf

OPENSSL_CONF doesn’t work without OPENSSLDIR even if it is set.

settings these options will allow you to use your custom configuration files when creating certificates.

batch file i use to create certificate

GenCERT.bat [save this file to OpenSSL bin directory]

@echo off 

md %1

openssl genrsa -des3 -out %1/%1.key 1024

openssl req -new -key %1/%1.key -out %1/%1.csr

copy %1/%1.key %1/%1.key.org

openssl rsa -in %1/%1.key.org -out %1/%1.key

openssl x509 -req -days 365 -in %1/%1.csr -signkey %1/%1.key -out %1/%1.crt

openssl x509 -outform der -in %1/%1.crt -out %1/%1.der

Sample

:: Start command line and cd to C:\PATH\TO\OpenSSL\bin
::
:: usage: GenCERT.bat domain.com
::

GenCERT.bat teknober.com

Batch file I use to create SSL certificate for Web etc server

GenPEM.bat [save this file to OpenSSL bin directory] 

@echo off

mkdir %1

openssl req -x509 -nodes -days 365 -newkey rsa:1024 -keyout %1/%1.pem -out %1/%1.pem -config "%1/%1.cfg"

Sample

:: Start command line and cd to C:\PATH\TO\OpenSSL\bin
::
:: usage: GenPEM.bat domain.com
::

GenPEM.bat teknober.com

for sample ssl configuration file see the bottom of the page: http://www.openssl.org/docs/apps/ca.html

, , ,

Windows EventLogs Backup

Jan 26th

Posted by editor in Administration

Windows Event Logs Backup Script

strComputer = "."
strLogFolder = "C:\EventLogs"

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate, (Backup, Security)}!\\" _
        & strComputer & "\root\cimv2")

Set colLogFiles = objWMIService.ExecQuery _
    ("Select * from Win32_NTEventLogFile")

FolderExits(strLogFolder)

For Each objLogfile in colLogFiles
    If objLogFile.FileSize > 2048 Then
       strBackupLog = objLogFile.BackupEventLog _
           (strLogFolder & "\" & objLogFile.LogFileName & ".evt")
    End If
Next

WScript.Quit(0)

' verifies that folder exists or creates
Function FolderExits(path)
	Dim objFSO
	Dim tmp

	Set objFSO = CreateObject("Scripting.FileSystemObject")
	'tmp = GetCurrentFolder() & "\" & tmp
	tmp = Split(path, "\")
	path = tmp(0)
	For counter = 1 To UBound(tmp) Step 1
		' set new path
		path = path & "\" & tmp(counter)
		If Not objFSO.FolderExists(path & "\" & tmp(counter)) Then
			objFSO.CreateFolder(path)
		End If
	Next
	' return true
	FolderExits = True
End Function
, , ,

Windows EventLogs Clear

Jan 26th

Posted by editor in Administration

Windows Event Logs Clear Script

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate, (Backup, Security)}!\\" _
        & strComputer & "\root\cimv2")

Set colLogFiles = objWMIService.ExecQuery _
    ("Select * from Win32_NTEventLogFile")

For Each objLogfile in colLogFiles
	objLogFile.ClearEventLog()
Next
, , ,