Archive for category System

Tivoli Storage Manager sometimes triggers frequent reorganization of a collection database

The Tivoli Storage Manager version that is used in Information Archive can sometimes trigger frequent reorganization of the collection database. This situation can degrade the performance of the database.


The frequent attempts to reorganize the database occur because the automatic reorganization does not succeed.

Diagnosing the problem

Log on to the administrative interface with a user ID that has the tsmAdministrator role.

  1. Expand the ‘Tivoli Storage Manager’ menu item, select Manage Servers and select the server to be checked.
  2. On the ‘Server Properties’ page select ‘Activity Log’ and press Update Table.

If the problem exists, the activity log contains frequently logs lines similar to the following example, for example every 10 minutes:

2011-05-06 00:57:21 ANR0293I Reorganization for table AF.Clusters started.
2011-05-06 00:57:26 ANR0294I Reorganization for table AF.Clusters ended.


Resolving the problem

If the problem occurs, you must switch off automatic reorganization temporarily and initiate a manual reorganization. The automatic reorganization is switched on again after the problem is resolved.

Notes about the procedure:

  • The steps require root access to the cluster nodes. If enhanced tamper protection is set, you must install the Emergency Support Access (ESA) patch on the appliance. To obtain the ESA patch, go to the following website:
  • For the purpose of this example, the user is initially logged on to cluster node server ianode1.
  • The collection in the following example is named “FILE02”. Substitute the correct collection name when you run the commands in the instructions.
  • All examples include the command prompt text and the expected results.

Complete the following steps to resolve the problem:
1. From the KVM console, log onto a cluster node server and change to the root user:

iaadmin@ianode1:~> su
2. Change to the /tsm directory for the collection and back up the dsmserv.opt file:

ianode1:~ # cd /tiam/FILE02/tsm/
ianode1:/tiam/FILE02/tsm # cp dsmserv.opt dsmserv.opt.orig
3. Append “ALLOWREORGTABLE NO” to the end of the dsmserv.opt file:

ianode1:/tiam/FILE02/tsm # echo "" >> dsmserv.opt
ianode1:/tiam/FILE02/tsm # echo "ALLOWREORGTABLE NO" >> dsmserv.opt
4. Log on to the Information Archive administrative interface:

    1. Ensure that there is no collection I/O activity and suspend the collection by clickingInformation Archive > System Overview > Collections, and the Suspend collection icon.
    2. Resume the collection. The new “ALLOWREORGTABLE” server setting is now active.

5. Change back to the cluster node and find the DB2 instance user for the collection.

You can complete this action on any of the cluster nodes:

ianode1:/tiam/FILE02/tsm # ls -d /tiam/*/tsm/u*

Sample output:


In the example, the DB2 instance user is “u1”.
6. Locate the cluster node where the Tivoli Storage Manager server is currently running:

ianode1:/tiam/FILE02/tsm # -r -t
7. Locate the line containing “tsm” and the collection name in the output.

In this example, the Tivoli Storage Manager server for collection “FILE02” is running on ianode2.

Sample output:

start of /opt/tivoli/tiam/bin/
GPFS nodeset Node list
————- ——————————————————-
ianode1 ianode1 ianode2

GPFS nodeset Node list
————- ——————————————————-
ianode1 ianode1 ianode2

returned from /opt/tivoli/tiam/bin/|ianode1||||ianode1|ctdb|||ianode2||||ianode2|ctdb|||ianode2|tsm|FILE02|
end of /opt/tivoli/tiam/bin/ (None)

8. If the Tivoli Storage Manager server is running on a different cluster node than where you are currently logged on as root, log on to the cluster node where the Tivoli Storage Manager server is running.

ianode1:/var/opt/tivoli/tiam/log # ssh ianode2
Last login: Fri Apr 29 10:39:26 2011 from ianode1
9. Change the properties of the DB2 database, by completing the following steps:

a. Change to the DB2 instance user and run the following command:

ianode2:~ # su - u1
b. Run the following command to “source” the DB2 profile:

u1@ianode2:~> .  ~/sqllib/db2profile
c. Connect to the Tivoli Storage Manager database:

u1@ianode2:~> db2 connect to TSMDB1
Expected result:

Database Connection Information

Database server        = DB2/LINUXX8664 9.5.5
SQL authorization ID   = U1
Local database alias   = TSMDB1

d. Manually reorganize the database, by running the following command:
u1@ianode2:~> db2 reorg table TSMDB1.AF_CLUSTERS

Expected result:

DB20000I  The REORG command completed successfully.
e. Run the DB2 “RUNSTATS” command:


Expected result:

DB20000I  The RUNSTATS command completed successfully.
f. Exit from the DB2 instance user, by running the following command:

u1@ianode2:~> exit

Expected results:

g. If you changed to a different cluster node server to run the DB2 commands, change back to the cluster node where you were originally logged on, by running the following command:

ianode2:~ # exit
Expected results:

Connection to ianode2 closed.
10. Restore the backup of the dsmserv.opt file:

ianode1:/var/opt/tivoli/tiam/log # cp dsmserv.opt.orig dsmserv.opt
11. Change back to the administrative interface, and complete the following steps:

    1. Suspend the collection.
    2. Resume the collection.

The original Tivoli Storage Manager server setting is now active. The automatic database reorganization is switched on again.

Related information

TSM database considerations



, ,

Leave a comment

IBM released Storage Management Pack 1.1.0 for SCOM

This document contains information related to obtaining the IBM Storage Management Pack for Microsoft System Center Operations Manager v1.1.0. 


Download Description

The package is a set of software modules, or management packs, which allow you to access and monitor IBM storage systems Storwize V7000, SVC, XIV and DS8000, using the host-based Microsoft SCOM interface. Please refer to the release notes and user guide for detailed storage devices’ version support.



IBM Storage Management Pack Release Notes v1.1.0 English 136588
Installation Instructions
IBM Storage Management Pack User Guide v1.1.0 English 1336807
Download package
Platform Windows Not Applicable
Byte Size 42075880
Date 1-5-2011

IBM Storage MP v1.1.0 32 bits FTP
Platform Windows Not Applicable
Byte Size 36438392
Date 1-5-2011

IBM Storage MP v1.1.0 64 bits FTP
Cross Reference information
Segment Product Component Platform Version Edition
Disk Storage Systems System Storage DS8700



Leave a comment

Search,Enable or Disable user/computer accounts in Active Directory over Web page (LDAP ASP)

through this code/ASP in below/file, you can search users,computers, printers and other objects in Active directory over web page, as a result of this search, you can get object’s location in AD. You can enable and disable the user/computer accounts of this page in Active Directory. Also You’ll able to move accounts into a Organization Unit when disable or enable accounts. (you can set different Organization Unit for Enable and Disable process). I mean you can collect disabled user/computer accounts into one Organization Unit or separated OUs.


To publish this ASP page over web site in IIS 6 or 7,ASP page need administrative privilege for working but for search just need authorized users. So at least ISS default authentication method should be change to basic authentication. For prevent unauthorized user to disable/enable accounts in Active Directory.


You can download ASP file here

source :



‘    10 / 05 /2011 — Emrullah Tahir Ekmekçi
‘    Search, Enable or Disable Users and Computer account in Active Directory over Web browser
‘    1.0

Response.CacheControl = “no-cache”

<title>Search/Enable/Disable Users/Computers Accounts</title>

<center><form id=”form1″ name=”form1″ method=”post” action=”ADAramaAcmaKapama.asp”>
<label>User/Computer name
<input name=”is” type=”hidden” value=”is” /><input type=”text” name=”uname” id=”uname” />



Dim strCN, objRootDSE, strDNSDomain, adoCommand, adoConnection
Dim strBase, strFilter, strAttributes, strQuery, adoRecordset
Dim strDN, strDisplay, strObjectCategory, intIndex

‘ Kullanici ve Bilgisayar hesabi acma ve kapatma

if request(“hesap”)  <> “” and request(“y”)  <> “” and request(“t”) <> “” then

strCN = request(“hesap”)
ka = request(“y”)

Set objRootDSE = GetObject(“LDAP://RootDSE”)

strDNSDomain = objRootDSE.Get(“defaultNamingContext”)

Set adoCommand = CreateObject(“ADODB.Command”)
Set adoConnection = CreateObject(“ADODB.Connection”)

adoConnection.Provider = “ADsDSOObject”
adoConnection.Open “Active Directory Provider”
adoCommand.ActiveConnection = adoConnection

strBase = “<LDAP://” & strDNSDomain & “>”

strFilter = “(cn=” & strCN & “*)”

strAttributes = “cn,distinguishedName,sAMAccountName,name,userAccountControl”

strQuery = strBase & “;” & strFilter & “;” & strAttributes & “;subtree”
adoCommand.CommandText = strQuery
adoCommand.Properties(“Page Size”) = 100
adoCommand.Properties(“Timeout”) = 30
adoCommand.Properties(“Cache Results”) = False

Set adoRecordset = adoCommand.Execute


Set objUser = GetObject (“LDAP://” & adoRecordset.Fields(“distinguishedName”))

strOUDN = “OU=DisabledComputers,DC=fabrikam,DC=com”    ‘ Disabled computers account will be moved this ou
strOUDNE = “CN=Computers,DC=fabrikam,DC=com” ‘ Enabled computers account will be moved this ou

strOUDNU = “OU=DisabledComputers,DC=fabrikam,DC=com”     ‘Disabled users account will be moved this ou
strOUDNEU = “CN=Users,DC=fabrikami,DC=com” ‘ Enabled users account will be moved this ou

intUAC = objUser.Get(“userAccountControl”)

if ka = “k” then

if request(“t”) = “u” then
Set objOU = GetObject(“LDAP://” & strOUDNU)
objUser.Put “userAccountControl”, intUAC OR ADS_UF_ACCOUNTDISABLE ‘ User account is closed.
objOU.movehere objUser.ADsPath, ‘ User account is moving.
end if

if request(“t”) = “b” then

Set objOU = GetObject(“LDAP://” & strOUDN)
objUser.accountdisabled = true ‘ Computer account is closed.
objOU.movehere objUser.ADsPath, ‘ Computer account is moving.
end if

response.write “Account has been closed”
elseif ka = “a” then

if request(“t”) = “u” then
Set objOU = GetObject(“LDAP://” & strOUDNEU)
objUser.Put “userAccountControl”, intUAC XOR ADS_UF_ACCOUNTDISABLE ‘ User account is open.
objOU.movehere objUser.ADsPath, ‘ User account is moving.
end if

if request(“t”) = “b” then

Set objOU = GetObject(“LDAP://” & strOUDNE)
objUser.accountdisabled = false ‘ Computer account is open.
objOU.movehere objUser.ADsPath, ‘Computer account is moving.
end if

response.write “Account has been opened”
end if

response.Redirect “ADAramaAcmaKapama.asp?uname=”&request(“hesap”)&”&is=1″


end if

‘ object search
if request(“uname”) = “” and request(“is”) <> “” then

%><p><b><center>User/Computer name can not be empty.</center></b></font></p><%
elseif request(“uname”) <> “” and request(“is”) <> “” then

strCN = request(“uname”) & “*”

if len(strCN) <4 then
Response.Write(“Please enter least 3 char.”)
end if

Set objRootDSE = GetObject(“LDAP://RootDSE”)

strDNSDomain = objRootDSE.Get(“defaultNamingContext”)

Set adoCommand = CreateObject(“ADODB.Command”)
Set adoConnection = CreateObject(“ADODB.Connection”)

adoConnection.Provider = “ADsDSOObject”
adoConnection.Open “Active Directory Provider”
adoCommand.ActiveConnection = adoConnection

strBase = “<LDAP://” & strDNSDomain & “>”

strFilter = “(cn=” & strCN & “)”

strAttributes = “cn,distinguishedName,sAMAccountName,name,userAccountControl”

strQuery = strBase & “;” & strFilter & “;” & strAttributes & “;subtree”
adoCommand.CommandText = strQuery
adoCommand.Properties(“Page Size”) = 100
adoCommand.Properties(“Timeout”) = 30
adoCommand.Properties(“Cache Results”) = False

Set adoRecordset = adoCommand.Execute

If (adoRecordset.EOF = True) Then
Response.Write(“<center>No record found</center>”)
End If

‘ Table has been created what is object will be show.
Response.Write(“<table width=100% height=100% ><tr width=100% height=100% ><td width=100% height=100% align=center valign=center><table border=’1′>”)
Response.Write(“<tr><th> Account Name </th><th> Computer/User name </th><th> Status</th><th> Type </th><th> DN </th></tr>”)
Response.Write(“<font size=-2>”)

Do Until adoRecordset.EOF

vSAMAccountName= adoRecordset.Fields(“sAMAccountName”).Value
vName = adoRecordset.Fields(“name”).Value
vUserAccountControl= adoRecordset.Fields(“userAccountControl”).Value
vDistinguishedName= adoRecordset.Fields(“distinguishedName”).Value
AKR = 0
if vUserAccountControl = 512 then
AKR = 1
vUserAccountControlDesc = “<a href=’./ADAramaAcmaKapama.asp?hesap=”&vSAMAccountName&”&y=k&t=u’ title=’Kapatmak için tiklayin’><center> Close</center> </a>”
elseif vUserAccountControl = 514  then
AKR = 0
vUserAccountControlDesc = “<a href=’./ADAramaAcmaKapama.asp?hesap=”&vSAMAccountName&”&y=a&t=u’ title=’Açmak için tiklayin’><center> Open </center></a>”
elseif vUserAccountControl = 544  then
AKR = 1
vUserAccountControlDesc =  “<a href=’./ADAramaAcmaKapama.asp?hesap=”&vSAMAccountName&”&y=k&t=u’ title=’Kapatmak için tiklayin’><center> Close/ilsd </center></a>”
elseif vUserAccountControl = 66048  then
AKR = 1
vUserAccountControlDesc = “<a href=’./ADAramaAcmaKapama.asp?hesap=”&vSAMAccountName&”&y=k&t=u’ title=’Kapatmak için tiklayin’><center> Close/s </center></a>”
elseif vUserAccountControl = 66050  then
AKR = 0
vUserAccountControlDesc = “<a href=’./ADAramaAcmaKapama.asp?hesap=”&vSAMAccountName&”&y=a&t=u’ title=’Açmak için tiklayin’><center> Open/s </center></a>”
elseif vUserAccountControl = 4096  then
AKR = 1
vUserAccountControlDesc = “<a href=’./ADAramaAcmaKapama.asp?hesap=”&vName&”&y=k&t=b’ title=’Kapatmak için tiklayin’><center> Close </center></a>”
elseif vUserAccountControl = 4128  then
AKR = 1
vUserAccountControlDesc = “<a href=’./ADAramaAcmaKapama.asp?hesap=”&vName&”&y=k&t=b’ title=’Kapatmak için tiklayin’><center> Close </center></a>”
elseif vUserAccountControl = 4098  then
AKR = 0
vUserAccountControlDesc = “<a href=’./ADAramaAcmaKapama.asp?hesap=”&vName&”&y=a&t=b’ title=’Açmak için tiklayin’><center> Open </center></a>”

vUserAccountControlDesc = vUserAccountControl
end if

cuc = instr (vSAMAccountName,”$”)
if vUserAccountControl <> “” then

if cuc = 0 then Response.Write(“<tr><td> ” & vSAMAccountName & ” </td>”) else  Response.Write(“<tr><td></td>”)

if AKR = 0 then
response.write (“<td style=’background-color: #FF0000′> “&vName&” </td>”)
response.write (“<td style=’background-color: #00FF00′> “&vName&” </td>”)
end if

if cuc = 0 then

Response.Write(“<td style=’background-color: #667C26′>” & ” User ” & “</td>”)

Response.Write(“<td style=’background-color: #4863A0′>”& ” Computer ” & “</td>”)
end if

Response.Write(“<td>” & vUserAccountControlDesc & ” </td>”)

Response.Write(“<td align=right > ” & vDistinguishedName & ” </td>”)

end if


strDisplay = 1



if strDisplay = “” then Response.Write(“Can not be search       —” & strDisplay & “—“)


Response.Write(“<br><align=left>P.S. :<br>Open/ilsd = Password will change first logon<br>Open/s = Password never expire<br>Close/s= Password never expire<br><br><br><br>”)

end if%>



Leave a comment

Gathering PCs info during logon progress

Whole data about your PC in Active Directory will automatically coming from PCs to wherevery you want. You should run this script via Login progress, I ment, use GPO, If you have any Question How/What/Where … , Just ask !

P.S. : Some codes have been obtained from the Internet.


link :

' 20 / 04 /2011 -- Emrullah Tahir Ekmekçi
' user and computer data collection with Text file
' 1.1

On Error Resume Next ' If we do not get any or portion info from computer, will try again copy file for determine computer

' Gathered data will be copying this network path.
Targetpath = ""

'Temp Dir
Set objShell = CreateObject("Wscript.Shell")
TempDir = objShell.ExpandEnvironmentStrings("%temp%")
Set objShell = nothing


' Computer Name
set wshnetwork=createobject("")
set wshnetwork=nothing

filename = TempDir & "" & strComputer & ".txt"

SET objWMIDateTime = CREATEOBJECT("WbemScripting.SWbemDateTime")
SET objWMI = GETOBJECT("winmgmts:" & strComputer & "rootcimv2")
SET colOS = objWMI.InstancesOf("Win32_OperatingSystem")

' System Last Boot and Up date
FOR EACH objOS in colOS
objWMIDateTime.Value = objOS.LastBootUpTime
LBUT = objWMIDateTime.GetVarDate & vbcrlf & TimeSpan(objWMIDateTime.GetVarDate,NOW)

' System Type // Systemtype options will be narrow after gather whole types
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colChassis = objWMIService.ExecQuery _
("Select * from Win32_SystemEnclosure")
For Each objChassis in colChassis
For Each strChassisType in objChassis.ChassisTypes
Select Case strChassisType
Case 1 SystemType = "Other"
Case 2 SystemType = "Unknown"
Case 3 SystemType = "Desktop"
Case 4 SystemType = "Low Profile Desktop"
Case 5 SystemType = "Pizza Box"
Case 6 SystemType = "Mini Tower"
Case 7 SystemType = "Tower"
Case 8 SystemType = "Portable"
Case 9 SystemType = "Laptop"
Case 10 SystemType = "Notebook"
Case 11 SystemType = "Handheld"
Case 12 SystemType = "Docking Station"
Case 13 SystemType = "All-in-One"
Case 14 SystemType = "Sub-Notebook"
Case 15 SystemType = "Space Saving"
Case 16 SystemType = "Lunch Box"
Case 17 SystemType = "Main System Chassis"
Case 18 SystemType = "Expansion Chassis"
Case 19 SystemType = "Sub-Chassis"
Case 20 SystemType = "Bus Expansion Chassis"
Case 21 SystemType = "Peripheral Chassis"
Case 22 SystemType = "Storage Chassis"
Case 23 SystemType = "Rack Mount Chassis"
Case 24 SystemType = "Sealed-Case PC"
Case Else SystemType = "Unknown"
End Select
' very rare but sometimes Select Case could not get any data from strChassisType even "Case Else"
if SystemType = "" or SystemType = " " then
SystemType = "Unknown"
end if

' Windows installed date
Set dtmInstallDate = CreateObject("WbemScripting.SWbemDateTime")
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
dtmInstallDate.Value = objOperatingSystem.InstallDate
installd = dtmInstallDate.GetVarDate

' Collect Computer Info
ComputerInfo = "[ComputerInfo]" & vbCrLf
ComputerInfo = ComputerInfo & strComputer & vbCrLf
ComputerInfo = ComputerInfo & TempDir & vbCrLf
ComputerInfo = ComputerInfo & LBUT & vbCrLf
ComputerInfo = ComputerInfo & SystemType & vbCrLf
ComputerInfo = ComputerInfo & installd & vbCrLf

' Username

Set colSoftware = objWMIService.ExecQuery ("SELECT * FROM Win32_Product")
Set objNetwork = CreateObject("WScript.Network")

Username = objNetwork.UserName
ComputerInfo = ComputerInfo & Username & vbCrLf

' Collect Members of Local Admin Groups

LocalAdminGroup = LocalAdminGroup & vbCrLf & "[LocalAdminGroup]" & vbCrLf

Set objComp = GetObject("WinNT://" & strComputer)

If objComp.PropertyCount > 0 Then
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")
If objGroup.PropertyCount > 0 Then
For Each mem In objGroup.Members
LocalAdminGroup = LocalAdminGroup & Right(mem.adsPath,Len(mem.adsPath) - 8) & vbCrLf
End If
End If

'Collect Operation System and CPU info

OsInfo = OsInfo & vbCrLf & "[OsInfo]" & vbCrLf

Set colSettings = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colSettings
OsInfo = OsInfo & objOperatingSystem.Caption & vbCrLf
OsInfo = OsInfo & objOperatingSystem.RegisteredUser & vbCrLf
OsInfo = OsInfo & objOperatingSystem.ServicePackMajorVersion & vbCrLf
OsInfo = OsInfo & objOperatingSystem.ServicePackMinorVersion & vbCrLf
OsInfo = OsInfo & objOperatingSystem.Version & vbCrLf

Set colSettings = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")

For Each objComputer in colSettings
OsInfo = OsInfo & objComputer.Manufacturer & vbCrLf
OsInfo = OsInfo & objComputer.Model & vbCrLf
OsInfo = OsInfo & objComputer.TotalPhysicalMemory /10241024+1 & vbCrLf

Cpu = Cpu & vbCrLf & "[Cpu]" & vbCrLf

Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem in colItems
Cpu = Cpu & objItem.Description & vbCrLf
Cpu = Cpu & objItem.Manufacturer & vbCrLf
Cpu = Cpu & objItem.MaxClockSpeed & vbCrLf
Cpu = Cpu & objItem.Name & vbCrLf

' Collect Bios Info

bios = bios & vbCrLf & "[Bios]" & vbCrLf

Set colBIOS = objWMIService.ExecQuery ("Select * from Win32_BIOS")
For each objBIOS in colBIOS
bios =bios & objBIOS.Manufacturer & vbcrlf
bios =bios & objBIOS.Name & vbcrlf
bios =bios & objBIOS.ReleaseDate & vbcrlf
bios =bios & objBIOS.SerialNumber & vbcrlf
bios =bios & objBIOS.SMBIOSBIOSVersion & vbcrlf
bios =bios & objBIOS.SMBIOSMajorVersion & vbcrlf
bios =bios & objBIOS.SMBIOSMinorVersion & vbcrlf
bios =bios & objBIOS.Version & vbcrlf

Basebord = Basebord & vbCrLf & "[Basebord]" & vbCrLf

Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard")

For Each objItem in colItems
Basebord = Basebord & objItem.Manufacturer & vbcrlf
if objItem.Model = "" then
Basebord = Basebord & objItem.Model & vbcrlf
Basebord = Basebord & "Veri Yok" & vbcrlf
end if
Basebord = Basebord & objItem.Product & vbcrlf
Basebord = Basebord & objItem.SerialNumber & vbcrlf

' Collect Drivers info

disk = disk & vbCrLf & "[Disk]" & vbCrLf

Set colItems = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk")

For Each objItem in colItems
if objItem.Name <> "" then disk = disk & objItem.Name & vbCrlf
if objItem.Description <> "" then disk = disk & objItem.Description & vbCrlf
disk = disk & objItem.VolumeName & vbCrlf

if objItem.VolumeSerialNumber <> "" then disk = disk & objItem.VolumeSerialNumber & vbCrlf
if objItem.Size <> "" then disk = disk & Int(objItem.Size /1073741824) & vbCrlf
if objItem.FreeSpace <> "" then disk = disk & Int(objItem.FreeSpace /1073741824) & vbCrlf & vbCrlf else disk = disk & vbCrlf

' Collect Modems info

modem = modem & vbCrLf & "[Modem]" & vbCrLf

Set colItems = objWMIService.ExecQuery("Select * from Win32_POTSModem")

For Each objItem in colItems
modem = modem & objItem.AttachedTo & vbcrlf
modem = modem & objItem.DeviceType & vbcrlf
modem = modem & objItem.Model & vbcrlf & vbcrlf

' Collect Network Cards info

Networkb = Networkb & vbCrLf & "[Network]" & vbCrLf

Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")

For Each objItem In colItems
For Each objValue In objItem.IPAddress
If objValue <> "" Then
Networkb = Networkb & objItem.Description & vbcrlf & objValue & vbcrlf & objItem.MACAddress & vbcrlf
End If

' Collect Installed Apps

Apps = Apps & vbCrLf & "[Apps]" & vbCrLf

If colSoftware.Count > 0 Then
For Each objSoftware in colSoftware
Apps = Apps & objSoftware.Caption & vbtab & objSoftware.Version & vbCrLf
End If

' Collect Services info

Set cInstances = GetObject("winmgmts:{impersonationLevel=impersonate}//" &_
strComputer & "/root/cimv2:Win32_Service").Instances_

svrc = svrc & vbCrLf & "[Services]" & vbCrLf

For Each oInstance In cInstances
svrc= svrc & oInstance.Properties_("DisplayName").Value & vbTab & oInstance.Properties_("StartMode").Value & vbTab & oInstance.Properties_("State").Value & vbCrLf

' Collect Installed Microsft Updates

Updates = Updates & vbCrLf & "[Updates]" & vbCrLf

Set objSession = CreateObject("Microsoft.Update.Session", strComputer)

If Err.Number <> 0 Then
Set objSearcher = objSession.CreateUpdateSearcher
intHistoryCount = objSearcher.GetTotalHistoryCount
Set colHistory = objSearcher.QueryHistory(1, intHistoryCount)
For Each objEntry in colHistory
Set objIdentity = objEntry.UpdateIdentity
Updates = Updates & objEntry.Date & vbtab & objEntry.Title & vbcrlf
End If

Report = ComputerInfo & LocalAdminGroup & OsInfo & Cpu & Bios & Basebord & Disk & Modem & Networkb & Apps & svrc & Updates

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile( filename , True)

objTextFile.WriteLine Report

Set FSO =CreateObject("scripting.FileSystemObject")

if FSO.FileExists (filename) then
FSO.CopyFile filename ,Targetpath , True
end if

SET objWMIDateTime = Nothing
SET objWMI = Nothing
SET colOS = Nothing
Set objWMIService = Nothing
Set colChassis = Nothing
Set dtmInstallDate = Nothing
Set colOperatingSystems = Nothing
Set colSoftware = Nothing
Set objNetwork = Nothing
Set objComp = Nothing
Set colSettings = Nothing
Set colItems = Nothing
Set colBIOS = Nothing
Set objFSO = Nothing
Set objTextFile = Nothing
Set FSO = Nothing
Set objSearcher = Nothing
Set colHistory = Nothing
Set objIdentity = Nothing

FUNCTION TimeSpan(dt1, dt2)
TimeSpan = "00:00:00"

seconds = ABS(DATEDIFF("S", dt1, dt2))
minutes = seconds 60
hours = minutes 60
minutes = minutes MOD 60
seconds = seconds MOD 60

IF LEN(hours) = 1 THEN hours = "0" & hours





TimeSpan = hours & ":" & _
RIGHT("00" & minutes, 2) & ":" & _
RIGHT("00" & seconds, 2)





Leave a comment

To avoid potential loss of access, customers must be on "IBM XIV Host Attachment Kit for Windows, Version 1.5.3" or above

To avoid potential loss of access that might happen during XIV operation or hot upgrade customers must be on “IBM XIV Host Attachment Kit for Windows, Version 1.5.3” or above and before the upgrade


Servers disconnect from XIV


  1. During some cases of module failure (e.g. SMI timeout) Windows 2003 server might disconnect from XIV
  2. During XIV hot upgrade Windows 2003 server might disconnect from XIV
  3. Extreme steady state situations



Windows 2003 or Windows 2003 R2 in a cluster environment connected to XIV


Resolving the problem

In a Windows 2003 or Windows 2003 R2 in a cluster environment, customers must be on “IBM XIV Host Attachment Kit for Windows, Version 1.5.3” or above.

This release of “IBM XIV Host Attachment Kit for Windows, Version 1.5.3” contains a fix to avoid potential loss of access.
Here is the link to download “IBM XIV Host Attachment Kit for Windows, Version 1.5.3” :



, ,


Storwize V7000 Node Canisters May Shut Down or Reboot Unexpectedly During Normal Operation

Storwize V7000 node canisters may shut down or reboot during normal operation, leading to a loss of host I/O access.


Stowize V7000 node canisters running V6.1.0.0 – V6.1.0.4 code levels may shut down without warning during normal I/O operations.

These shut down events will typically occur on both node canisters in the Storwize V7000 system, with the second node canister shutting down a number of hours after the first. Once the second node canister has shut down, this will cause a loss of host access to disks presented by the Storwize V7000, until at least one of the node canisters has been manually brought back online.


If this issue is encountered on V6.1.0.0 – V6.1.0.4, the recovery action is to reseat each offline node canister in order to bring it back online.

Partial Fix Introduced in V6.1.0.5

A partial fix was introduced in V6.1.0.5, which caused node canisters that experienced this condition to reboot and automatically resume I/O operations, rather than shut down and remain offline. Customers running V6.1.0.5 code are however still exposed to the risk of both node canisters rebooting at the same time, which could lead to a short, temporary outage to host I/O.

Complete Fix:

This issue has been fully resolved by APAR IC74088 in the V6.1.0.6 release. Please visit the following URL to download the latest V6.1.0.x code:

, , ,

Leave a comment

IBM released new XIV software for Vmware Vcenter v.2.0.0

The IBM XIV Management Console for VMware vCenter integrates IBM XIV Storage System with VMware vSphere management. It runs as a service on the vCenter Server, and enables storage provisioning, storage management, and monitoring of VMware-attached XIV storage pools and volumes (LUNs), from any VMware vSphere Client.

, , , ,

Leave a comment

Putty ile SSH tünel yaparak Internet erişimi


Neden SSH tünel üzerinden Internet erişimine ihtiyacımız olabilir ? Aslında bu makale genel kullanıcılardan ziyade  müşterilerde hizmet veren Sistem Yöneticilerine daha çok hitap ediyor. Çünkü Sistem Yöneticileri zaman zaman buna ihtiyaçları oluyor.


Söyleki; müşteridesiniz ve haliyle internet’e ihtiyacınız var, şüphesiz ki size internet erişimi sağlanmakta. Bazı işletmelerde bu erişim işletmenin internet erişim politikası yüzünden kısıtlı olmakta, işletme URL filitreleme veya içerik filitreleme yazılımları kullanıyor ise istediğiniz web adreslerine erişmekte sıkıntı olabiliyor.

Putty’i kullanarak SSH tünel ile internete eriştiğinizde ise işletmenin uyguladığı bu kısıtlamara takılmıyorsunuz  ayrıca SSH ile bağlandığınız için bağlantı bilgileriniz loglansa bile şifreli olduğu için çok anlam ifade edetmiyor.

Örnekleri çoğaltabiliriz.

putty ile ssh tünel nasıl yapıyor ?

Nelere ihtiyaçımız var ?

1. İlk olarak, internet’te bulunan SSH sunucumuza erişmemiz gerektiği için, bulunduğunuz ağdan SSH sunucusunun dinlediği port’a erişebiliyor olmalıyız. Bu işlem için müşterideki ağ yöneticisinden yardım isteyebiliriz çünkü genelde internet erşim hiç yoktur veya kullanıcılar HTTP proxy sunucusu üzerinden internet’e erişiyorlardır.

2. putty .

3. SSH modülünün yüklü olduğu ve internetten erişilebilen Unix veya Linux sunucusu.


Putty yi indirmek için arama motorlarına “putty” yazıp çıkan sonuçlardan indirebilirsiniz veyahut bu linkten direk indirebilirsiniz.

Putty’ makinanıza yüklenmez direk çalışan bir programdır.

Internet’teki SSH sunucunuzun dinlediği port “22” olduğunu varsayrak aşağıda anlatıyor olacağım, eğer farklı ise “22” yerine SSH sunucunuzun portunu kullanın


putty‘i çalıştırın.



Host Name or IP addres kısmına SSH sunucusnuzun adresini aşağıdaki gibi yazın.


ve   Connection — SSH — Tunnels on Category gidin. Burada Source port ve Dynamic seçeneklerini kullanacağız.



Putty SSH Tunnel üzerinden internet’e eriştirmek için bilgisayarımızda SOCKS sunucusu gibi çalışacağı için dinleyeceği port u Source Port kısmında belirliyoruz ben port olarak “7979” kullandım.  Destination kısmını boş bırakıp aşağıdaki seçeneklerden Dynamic i seçiyoruz.

Add’ı tıklayın.



Putty aşağıdaki gibi görünmeli.


Session kımına geri dönüp, Saved Session kısmına vermek istediğiniz session ismini girin ve Save’ i tıklayarak kaydedin.


Putty üzerindeki gerekli ayarlamaları yaptık, şimdi Internet Explorer üzerindekilere sıra geldi.

Internet Explorer’da “Internet Seçenek” ‘lerinden “Bağlantı” tabını seçiyoruz.


Click “Yerel Ağ ayarları” ‘nı tıkılıyoruz .


Proxy sunucusu kullan … “ kutuçuğunu işaretleyip, Gelişmiş’i tıklıyoruz.

Burada birazda dikkat etmemiz gerekmekte, HTTP / Secure /FTP sunucusu ve“Tüm protokoller için aynu proxy sunucusunu kullan” kutucuklarını temizlememiz gerekmekte çünkü biz SOCKS sunucusu kullancağız. SOCKS sunucusuna’da IP adresi port kısmına da “7979”giriyoruz, Bu port’u putty’i ayarlarken vermiştik, isterseniz farklı kullanabiliriniz. (putty üzerinden de değiştirmeyi unutmayın)

Putty sistemimizde socks server gibi davrandığı için SOCKS server kısmına “” yazıyoruz.


Şimdi putty penceresinden Open ’a basın


SSH’a login olun ve Internet Explorer ile internet’e bağlanmayı deneyin.


Eğer internet erişimi sağlayamıyorsanız, bağlantınızı koparıp tekrar bağlanın .



Kaynak :

Leave a comment

What is mean Burst RAM ?

What is mean Burst RAM ?
Basicly, You bought 128 MB guarantee RAM and 384 Burst RAM. that’s mean, you had 128 MB RAM all the time. Suddenly your web site or your apps is getting unexpected hit from internet and you need more RAM, at this time you can use your Burst RAM for while if your hosting provider had available RAM your present your VPS as Burst RAM.


resource :


Leave a comment

Bulutta İş Uygulamaları

– İş sürekliliği açısından bakıldığında kritik iş uygulamalarının bulut üzerinde yer almasını nasıl değerlendiriyorsunuz?

Kritik iş uygulamaları aslında uzun süredir bulut üzerinde yer alıyor. İş sürekliliği açısından uygulamaların “bulut” üzerinde olması erişilebilirliği arttırıyor. Burada güvenlik konusunun ciddi olarak ele alınması gerektiğini de belirtmek te fayda var. BimSA olarak “” ve “Hrweb” olmak üzere tamamen kendi geliştirdiğimiz hali hazırda 2 tane “bulut” uygulamamız var.

– İş uygulamalarının veri merkezlerinde yer almasıyla birlikte ne tür yeni iş modelleri (kullandığın kadar öde vs) ortaya çıkmaktadır?

‘Kullandığın kadar öde’, ‘SaaS’ gibi yeni iş modelleri ortaya çıkıyor. Bu iş modelleri ile daha esnek ve sonuç odaklı çözümler bulmak mümkün oluyor.

  • ‘Kullandığın kadar öde’ modeli; kapasite olarak değişkenlik gösterek kurumlar için çok avantajlı bir model.
  • ‘SaaS’ modeli ise; kurumun ihtiyacı olan hizmeti direk olarak sağlıyor. Bu hizmetin sağlanmasında kullanılan donanım ve yazılımlar müşteriyi ilgilendirmiyor. Sonuçta müşteri kesintisiz olarak hizmetini alıyor.

İnternet üzerinden doğrudan bir yazılımı kullanabilmenin avantajları nelerdir?

Bir yazılımın internet üzerinden kullanılabilmesi öncelikle internet e erişilebilen heryerden kullanılabileceği anlamına geliyor. Kullanıların hangi lokasyonda olduklarının bir önemi kalmıyor. Dolayısı ile bu yazılımın erişilebilirlik değeri çok yüksek seviyelere çıkıyor. Bu da iş sürekliliği açısından büyük avantajlar getiriyor.

– Bir yazılım yüklemeye gerek kalmadan kullanılabilen uygulamaların klasik uygulamalardan farkı nedir?

Herhangi bir yazılım gereksinimi yoksa kullanıcı farklı türde cihazlardan internet üzerinden gelerek uygulamaya erişebilir demektir. Bu da günümüzde populer olan pda, smart phone, cep telefonu, tabletpc, handheld vb. cihazların kullanılabilmesi demektir. Dolayısı ile kullanıcılar klasik uygulamalara erişmek için bir çalışma ortamına ihtiyaç duyarken, bu şekilde her yerden erişebilmeleri mümkün kılınmış oluyor.

– Son dönemde kurumlar bulut üzerindeki uygulamalarla neler kazanabileceğinin farkında mı?

Türkiye de kurumlar malesef bu teknolojiler ile neler kazanabileceğinin farkında değil. Teknolojiyi bu kadar yakından takip etmek kolay değil ancak kurumlar karar noktasında görev alan kimselerin vizyon ve misyon olarak bu teknolojilerin farkına varması şart. Bu aynı zaman Türkiye de BT nin ne kadar geliştiğinin göstergelerinden de biridir.

– Türkiye’deki bulut üzerinden kullanılan iş uygulamaları dünya standartlarını yakalayabildi mi?

Türkiye kullanılan BT teknolojileri olarak iyi bir konumda ve daha da iyi olabilicek niteliklere sahip. Türkiye bazı konularda dünyanın geri kalanından daha iyi olduğu gibi, eksiklerimiz de yok değil. Türkiye de bulut üzerinden kullanılan iş uygulamaları                      konusunda; BimSA olarak kendi geliştirdiğimiz ‘ ( )’ ve                     ‘HRweb ( )’ yazılımlarımız ile bulut çözümü sağlayabiliyoruz.

Bulutta Son Eğilimler ve Gelecek Soruları:

– Bulut bilişim aslında 1960’larda ortaya atılan bir kavram olmasına rağmen bugünlerde oldukça revaçta; bunun başlıca sebebi nedir?

Öncelikle, tüm dünyada artık internete erişimin ne kadar kolay ve ne kadar hızlı yapıldığı ile ilgili bir durum bu. Ayrıca günümüzde kurumların daha fazla teknoloji kullanması ve verilerine her yerden, her zaman erişim ihtiyacı duymaları öncelikli nedenler arasındadır.

– Bulut bilişimin seyri hangi yöne doğru olacak?

Bulut bilişim her kurumun teknoloji ile ilgili en temel ihtiyacının çözümlerini sunduğu için yakın ve orta vadeli gelecekte de teknolojik gelişmeler bu yönde olacaktır. Her kurum kendi BT ihtiyaçlarını bulut bilişim çözümleri ile karşılamaya başlayacak ve bulut bilişim konusunda daha farklı iş modelleri ortaya çıkacak diye öngörüyorum.

– Kevin Kelly’nin ortaya attığı bulutlar arası bağlantıyı ifade eden “Intercloud” kavramı için neler düşünüyorsunuz?

Bulutlarası kaynak paylaşımını ifade eden “intercloud” terimi son yıllarda çok populer olmasına rağmen günümüzdeki iş modelleri ile yakın ve orta gelecekte pek mümkün görünmüyor. Teknolojik gelişmelere bağlı olarak uzun vadede mümkün olabilir. Ancak kavramsal olarak ele alırsak bulut bilişimin ne kadar önemli bir konsept olduğunu ve sağlayabileceği faydaları görmek açısından önemli.

– Her yerden ulaşım ve kullanımı ön gören bulut bilişim kavramı için nasıl yasal düzenlemeler gerekir? Sınırlar üstü kavram için karar verici kim olacak?

Şu andaki yasalar hali hazırdaki internet yapısı için yeterli değil bu kesin. Bu durumda bulut bilişim için tabiki yeni yasal düzenlemeler gerekli olacak. Burada her devlet için en temel sorun sınırlarının (yetki alanının) ötesinde gerçekleşecek durumlar. Bütün devletlerin ortak katıldığı denetçi bir kurum benzeri bir yapı çözüm olarak düşünülebilir. Sınırlar üstü konularda da bu kurum yetkili kılınabilir.

– Bulut bilişim bireysel ya da kurumsal kullanıcılara ne gibi yenilikler getirmeye devam edecek?

Bulut bilişim ile bireysel yada kurumsal olarak gelecek yenilikler; verilerin ve uygulamaların  bulut üzerinde barındırılıp her yerden erişim imkanı, daha ucuza farklı hizmet seçenekleri, lisanslı kullanımın artması sayesinde lisans maliyetlerinin düşmesi gibi yenilikler ilk etapta düşündüklerim.

Bulutta Altyapı Soruları

– Bulut bilişim altyapısının gerçek fiziksel altyapılara nazaran ne gibi farklıları bulunuyor?

Genel yada özel bulut yapıları aslında bazı açılardan hali hazırdaki fiziksel altyapılarımız ile örtüşüyor. Bulut yapılarına daha fazla rağbet edilmesi genel ve özel bulutlara daha hızlı bağlanılabilmesinin sağlanabildiği ölçüde gerçekleşebilecek düye düşünüyorum. Teknolojik açıdan tek fark kaynakların yönetiminin mantıksal olarak yapılması. Türkiye de şu anda bazı kurumların kendilerine ait bazı kurumların ise genel kullanıma açık bulut yapıları var.

– Bulut altyapısı ne gibi kullanıcılara ne gibi faydalar sağlıyor?

Kullanıcı için en büyük yarar belirli bir makineden belli bir lokasyondan ziyade her yerden her makine ile işini yapabilmesidir. Kullanıcının makinesinde bir problem olduğunda herhangi bir makineden işini yapmaya devam edebilir. (Burada makineden kastım masaüstü, notebook, netbook, tablet, pda, cep telefonu vb. cihazlar)

– “Private cloud” kurumlara daha güvenilir gelse de maliyetleri artırabiliyor. “Public cloud” ise kurumlara maliyet avantajı sağlarken veri güvenliği konusunda endişeler getiriyor. Bulut bilişim sizce nasıl kullanılmalıdır?

Kurumlar bulut bilişim çözümlerini kullanırken, kendi BT yapılarını, zurunluluklarını gözününe almalı ve birtakım verilerini, uygulamalarını özel bulutlarda barındırırken birtakım verilerini, uygulamalarını genel bulutlarda barındırmalılar. Ayrıca özel ve genel bulut hizmetini alırken veri güvenliği konusunda profesyonel çözümler kullanarak bu problemleri aşmalıdırlar. Güvenlik ile alakalı en önemli unsurlardan biri aktif güvenlik yönetimi yapabilmek yani bir olay gerçekleşirken buna tepki verebiliyor olmak yoksa olay sonrasında tepki verebiliyor olmak matah değil.

– Bu kavramının gelişiminde veri merkezlerinin oynadığı rol nedir? Veri merkezleri altyapıları oluşturulurken sizce hangi unsurlar göz önünde bulundurulmalı ki bulut bilişim kavramına uyum sağlayabilsin?

Veri merkezleri konusu Türkiye için çok önemli bir konu, konumumuz itibari ile bölgenin veri merkezi olma yönünde ilerliyoruz. Bu konuya daha fazla hassasiyet ve önem verilmesi gerekiyor, Türkiye olarak elimizde olan önceliği kaybetmeden daha fazla veri merkezi yatırımı yapılarak bölgedeki diğer ülkeler için de veri merkezi olmalıyız. Veri merkezleri hakkında bir diğer kritik konu yasal düzenlemeler; bu konuda da sürekli olarak gelişiyoruz. İnternet hat taşıyıcı kurumların yurt dışından karasal hat ile Türkiye ye gelibilmesi için gerekli yasal düzenlemelerin bir an önce tamamlanması çok önemli. Bahsettiğim gibi bulut bilişim çözümleri temelde internet hattı kapasitesi ve burada sağlanacak rekabet politikaları ile geliştirilebilir. Bunların dışında teknolojik olarak veri merkezleri alt yapısal olarak bulut bilişime zaten ayak uydurabiliyorlar.

Bulutta Güvenlik Soruları

– Bulutta karşılaşılan en büyük güvenlik sorunları nelerdir?

Bence bulut bilişimdeki ile alakalı en büyük güvenlik problemi uygulama ile alakalı. Kurumlar bulut içerisindeki verilerini koruyabiliyorlar ancak bulut üzerinde barındırdıkları uygulamaların güvenlik kontrolü olması gerekenden daha düşük seviyede yada hiç yok. Uygulamadan kaynaklanan bir güvenlik problemi arka tarafta korunan veriyi de tehlikeli durumlarda bırakabiliyor.

– Kullanıcıların aklına neler takılıyor? Hiç bilmedikleri bir yerde kendilerini güvende hissetmeleri için neler yapılıyor?

Bence kullanıcılar açısından değşen hiç bir şey yok. Zira kullanıcı kullandığı uygulamanın yada verinin nerede, nasıl barındırıldığı ile hiç bir zaman ilgilenmedi. Şu anda da kullanıcılar internet üzerinde hali hazırda kullandıkları uygulamaların, verilerin nasıl, nerede barındırıldığını bilmiyor ve ilgilenmiyorlar. Bu da gayet normal internet altyapısı, bulut bilişim altyapısı doğrudan onların problemi değil.

– Bulut üzerinde sunulan güvenlik çözümleriyle fiziksel alanda sunulan güvenlik çözümleri arasındaki farklar nelerdir?

En büyük problemlerde biri de bu, kurumlar fiziksel alanda sunulan güvenlik ile bulut üzerindeki güvenliği aynı seviyede görüyor. Özellikle gelen bulutlar üzerinde barındırılacak uygulama ve verilerin türüne, tipine, önemliliğine bağlı olarak farklı güvenlik çözümleri, hizmetleri kullanmak zorunda olduklarını anlatmak gerekiyor.

– Bulut üzerindeki veriler için “daha fazla ya da az risk altında” diyebilir miyiz?

Bulut üzerindeki veriler için risk tanımlaması daha fazla yada daha az diye tanımlama yapmak doğru değil. Risk tanımlaması kurumun ve kaynaklarının içeriği ile orantılı olarak belirlenmelidir.

– Buluttaki siber suçlarla ilgili yasal düzenlemeler hakkında ne düşünüyorsunuz? Ülke bağımsız bir ortamda nasıl yasal düzenlemeler gerekiyor?

Bulut üzerinde gerçekleşecek şuçlar BT ile alakalı yasal düzenlemelerin en büyük problemi. Öncelikle internet üzerinde gerçekleşen suçlar ile ilgili yasal düzenlemeler tamamiyle bitirilmeli ve bulut bilişim için bütün devletlerin kabul ettiği bir kontrol ve denetleme mekanizması oluşturulmalıdır.

– Buluta yerleştirilen verilerin güvenliğinin yanında; kavramdan kaynaklanan “her yerden erişim olanağı” güvenlik tehdidini artırıyor mu?

Günümüzde her yerden erişim zaten var olan bir kavram, burada önemli olan erişilebilecek kaynakların içeriği, bu kaynakların kontrolünün, denetiminin nasıl yapıldığıdır. Tabi ki her yerden erişim güvenlik tehtidini arttıran bir etmendir ancak bence içerik ve denetim, kontrol mekanizmaları daha önemli konulardır.

– Bulut üzerindeki veri kaybı nasıl engellenir? Ya da takip edilebilir mi?

Bulut üzerindeki veri kaybının hali hazırdaki fiziksel sistemler üzerindeki veri kaybından bir farkı yoktur. Oluşabilecek veri kayıplarının engellenmesi ile ilgili çözümler tabiki var. Veri kaybını yada sebebini takip süreci bulut bilişim için yasal çerçeveler içerisinde incelenmesi, gerekiyorsa standartının oluşturulması gereken bir durumdur.

Leave a comment