Solved

Windows Server Environment Disk Usage monitoring solution?

Posted on 2012-03-29
8
376 Views
Last Modified: 2012-03-29
Hi guys,

I have about 30 Win 2003/2008 servers which need to have Disk Capacity monitored, the snag is, heavy corporate IT policy governance towards third party applications.

Is there any bolt-on services/scripting I can use as a workaround? I basically need to create daily reports and perhaps alerts regarding capacity management, as some of our critical applications require space available across various volumes.

Thanks in advance.

Regards.
0
Comment
Question by:Robokiller
  • 4
  • 4
8 Comments
 
LVL 13

Accepted Solution

by:
stergium earned 500 total points
ID: 37780675
hello.
you can use the above script and feed it a txt file with your server names (1 per row)
<head>
<title>Check Hard Drive and stuff!</title>
<HTA:APPLICATION 
     APPLICATIONNAME="Check Hard Drive Failure Events"
     SCROLL="yes"
     SINGLEINSTANCE="yes"
     WINDOWSTATE="maximize"
>
</head>
 
<script language="VBScript">
  Sub Window_onLoad
        window.resizeTo 400,250
    End Sub 
	
sub CheckFromFile
	dim strComputerList, objFSO, objFile, arrComputers, i
	strComputerList=ComputerListFile.Value
	redim arrComputers(0)
	
	set objFSO=CreateObject("Scripting.FileSystemObject")
	if strComputerList="" then
		ShowStatus.InnerHTML="<p>Please select a file containing a list of computer names, one per line.</p>"
		exit sub
	end if
	if not objFSO.FileExists(strComputerList) then
		ShowStatus.InnerHTML="<p>File not found: " & strComputerList & "</p>"
		exit sub
	end if
	set objFile=objFSO.OpenTextFile(strComputerList, 1)
	i=0
	while not objFile.AtEndOfStream
		redim preserve arrComputers(i)
		arrcomputers(i)=objFile.ReadLine
		i=i+1
	wend
	objFile.Close
	
	strHTML=CheckComputers(arrComputers)
	ShowStatus.InnerHTML=""
	Results.InnerHTML=strHTML
	GetOptions.InnerHTML=""
end sub
 
function CheckComputers(arrList) 
	dim strResults, strComputer
	dim i
	 
	strResults = "<table width='90%' border=1>"
	strResults = strResults & VbCrLf & "<tr><th>Hostname</th><th>Status</th><th>IP Address</th><th>Logged On User</th><th>Total Space</th><th>%free Space</th><th>Total Mem</th></tr>"
	' Read list of computers and get reports
	for i=0 to ubound(arrList)
		strComputer = arrList(i)
		ShowStatus.InnerHTML="<p>Checking computer: " & strComputer & "</p>"
		If strComputer <> "" Then
			strResults = strResults & VbCrLf & "<tr><td>" & strComputer & "</td>"
			If Ping(strComputer) = True Then
				strResults = strResults & "<td><FONT COLOR=RED>" & CheckHardDriveEvents(strComputer) & "</FONT></td>"
				strResults = strResults & "<td>" & GetIPAddress(strComputer) & "</td>"
				strResults = strResults & "<td>" & GetLoggedOnUser(strComputer) & "</td>"
				freespace=GetFreeSpace(strComputer)
				strResults = strResults & "<td>" & GetTotalSpace(strComputer) & "GB"& "</td>"
					if freespace > 5 then
					strResults = strResults & "<td>" & GetFreeSpace(strComputer)& "GB" & "</td>"
					else
					strResults = strResults & "<td><FONT COLOR=RED>" & GetFreeSpace(strComputer)& "GB" & "</font></td>"
					end if
				strResults = strResults & "<td>" & GetTotalMem(strComputer) & "MB"& "</td>"
			Else
				strResults = strResults & "<td align='center' colspan=3>Offline</td>"
			End If
			strResults = strResults & "</tr>"
		End If
	next
	 
	strResults = strResults & VbCrLf & "</table>"
	CheckComputers=strResults
end function
 
function CheckHardDriveEvents(Computer)
	dim objWMIService, colLoggedEvents, strResult
	
	'strResult="Event log check for computer: " & Computer
	'strResult=strResult & vbcrlf & string(Len(strResult), "-") & vbCrLf
 	
	On Error Resume Next
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2")
	If Err.Number = 0 Then
		Set colLoggedEvents = objWMIService.ExecQuery("Select * from Win32_NTLogEvent Where Logfile = 'System' and EventCode = 7")
		strResult=strResult & ReturnEventDetails(colLoggedEvents, "Disk")
	Else
		strResult=strResult & "WMI Error"
	End If
	Err.Clear
	
	CheckHardDriveEvents = strResult
end function
 
function ReturnEventDetails(colLoggedEvents, RequiredSource)
	dim objEvent, objSWbemDateTime, dicDupCount, dicEventDetails, k
	dim strHTML, strEvent, strResult, intCount, i
	
	set dicDupCount=CreateObject("Scripting.Dictionary")
	set dicEventDetails=CreateObject("Scripting.Dictionary")
	Set objSWbemDateTime = CreateObject("WbemScripting.SWbemDateTime")
	
	For Each objEvent in colLoggedEvents
		if objEvent.SourceName=RequiredSource then
			if not dicDupCount.Exists(objEvent.EventCode & objEvent.SourceName) then
				strEvent = vbCrLf & "Event Code: " & objEvent.EventCode
				strEvent = strEvent & VbCrLf & "Source: " & objEvent.SourceName    
				strEvent = strEvent & VbCrLf & "Message: " & objEvent.Message
				objSWbemDateTime.Value=objEvent.TimeWritten
				strEvent = strEvent &  "Time of first event: " & objSWbemDateTime.GetVarDate
				strEvent = strEvent & VbCrLf & "Type: " & objEvent.Type
				dicDupCount.Add objEvent.EventCode & objEvent.SourceName, "1"
				dicEventDetails.Add objEvent.EventCode & objEvent.SourceName, strEvent
			else
				intCount=dicDupCount(objEvent.EventCode & objEvent.SourceName)+1
				dicDupCount(objEvent.EventCode & objEvent.SourceName)=intCount
			end if
		end if
	Next    
 
	' Now loop through dictionary and add to output
	k=dicDupCount.Keys
	for i=0 to dicDupCount.Count-1
		strResult=strResult & dicEventDetails(k(i))
		strResult=strResult & VbCrLf & "Event count: " & dicDupCount(k(i)) & vbCrLf  & vbCrLf & vbCrLf
	next
	If strResult <> "" Then
		ReturnEventDetails=strResult
	Else
		ReturnEventDetails= "OK" & VbCrLf & VbCrLf
	End If
	set dicDupCount=Nothing
	set dicEventDetails=Nothing
end Function
 
Function Ping(strComputer)
	Dim objShell, boolCode
	Set objShell = CreateObject("WScript.Shell")
	boolCode = objShell.Run("Ping -n 1 -w 300 " & strComputer, 0, True)
	If boolCode = 0 Then
		Ping = True
	Else
		Ping = False
	End If
End Function
 
Function GetIPAddress(sComputer)
	Dim colComputerIP, objWMIService, IPConfig, strIPAddress, intIPCount
	On Error Resume Next
	Set objWMIService = GetObject("winmgmts:" _
	    & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
	If Err.Number = 0 Then
		Set colComputerIP = objWMIService.ExecQuery _
		    ("Select IPAddress from Win32_NetworkAdapterConfiguration")
		strIPAddress = ""
		For Each IPConfig in colComputerIP
			If Not IsNull(IPConfig.IPAddress) Then 
				'strIPAddress = strIPAddress & IPConfig.Description & ": "
		        For intIPCount = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
					'strIPAddress = strIPAddress & "IP Address: " & IPConfig.IPAddress(intIPCount) & "~"
					If IPConfig.IPAddress(intIPCount) <> "0.0.0.0" Then
						If strIPAddress = "" Then
							strIPAddress = IPConfig.IPAddress(intIPCount)
						Else
							strIPAddress = strIPAddress & VbCrLf & IPConfig.IPAddress(intIPCount)
						End If
					End If
				Next
			End If
		Next
	Else
		strIPAddress = "WMI Error"
	End If
	Err.Clear
	GetIPAddress = strIPAddress
End Function
 
Function GetLoggedOnUser(sComputer)
	Dim colComputer, objWMIService, objComputer, strUsername
	On Error Resume Next
	Set objWMIService = GetObject("winmgmts:" _
	    & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
	If Err.Number = 0 Then
		Set colComputer = objWMIService.ExecQuery _
		    ("Select * from Win32_ComputerSystem")
		strUsername = ""
		For Each objComputer in colComputer
		    strUserName = objComputer.UserName
		Next
	Else
		strUsername = "WMI Error"
	End If
	Err.Clear
	GetLoggedOnUser = strUsername
End Function



Function GetFreeSpace(sComputer)
Dim colComputer, objWMIService, objLogicalDisk, strspace
On Error Resume Next
Set objWMIService = GetObject("winmgmts:"_
	    & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")

If Err.Number = 0 Then
'    SET objLogicalDisk = objWMIService.ExecQuery("Select * from Win32_LogicalDisk WHERE DriveType=3")
'		Set colComputer = objWMIService.ExecQuery _
'		    ("Select * from Win32_LogicalDisk")
 		Set objLogicalDisk = objWMIService.Get("Win32_LogicalDisk.DeviceID='c:'")	
		strspace = ""
		For Each objLogicalDisk in colComputer
		    strspace = objLogicalDisk.FreeSpace
			strtotspace=objLogicalDisk.Size
		Next
	Else
		strspace = "WMI Error"
	End If
	Err.Clear
	GetFreeSpace = int(strspace/1073741824)
End Function

Function GetTotalSpace(sComputer)
Dim colComputer, objWMIService, objLogicalDisk, strspace
On Error Resume Next
Set objWMIService = GetObject("winmgmts:"_
	    & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
If Err.Number = 0 Then
 		Set objLogicalDisk = objWMIService.Get("Win32_LogicalDisk.DeviceID='c:'")	
		strtotspace = ""
		For Each objLogicalDisk in colComputer
		    
			strtotspace=objLogicalDisk.Size
		Next
	Else
		strtotspace = "WMI Error"
	End If
	Err.Clear
GetTotalSpace= int(strtotspace/1073741824)
End Function

Function GetTotalMem(sComputer)
Dim colComputer, objWMIService, objmem, totmem
On Error Resume Next
Set objWMIService = GetObject("winmgmts:"_
	    & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
 If Err.Number = 0 Then
            Set colComputer = objWMIService.ExecQuery _
		    ("Select * from Win32_ComputerSystem")
 		Set objmem = objWMIService.Get("Win32_ComputerSystem")	
		totmem = ""
	For Each objmem in colComputer
			totmem=objmem.TotalPhysicalMemory
		Next
	Else
		totmem = "WMI Error"
	End If
	Err.Clear
GetTotalMem=int((totmem/1024)/1024)' /1073741824)
End Function




</script>
 
<body>
<span id = "GetOptions">
<input type="file" name="ComputerListFile"> 
<input type="button" value="Check computers" name="run_button" onClick="CheckFromFile">
</span>
<span id = "ShowStatus"></span>
<span id = "Results"></span>
</body>
</html>

Open in new window


I use the above script to check on memory , hard disk space etc. . you , of course can remove whatever you do not need.
hope that helps
0
 
LVL 13

Expert Comment

by:stergium
ID: 37780679
i failed to mention that you should copy the code and save it on a file with an .hta extention using a notepad editor.
0
 

Author Closing Comment

by:Robokiller
ID: 37780695
Thank you very much for taking the time to help.
0
 

Author Comment

by:Robokiller
ID: 37780736
@stergium How would I add more volumes?  Currently it only scans "C" drive.

Thanks in advance, again.

Regards.
0
How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

 
LVL 13

Expert Comment

by:stergium
ID: 37780845
Hello again.
A not so smart solution would be to create functions like GetFreeSpace, GetTotalSpace with the corresponding driver letter.
i'm trying to create a loop though local logical drives.
0
 

Author Comment

by:Robokiller
ID: 37780989
@stergium, thanks, let me know if you make any progress with that, I'm fooling around iwth the script at the moment.  Will give feedback.
0
 
LVL 13

Expert Comment

by:stergium
ID: 37781218
from what i've tested (and actually had the chance to readjust the script for me also) this should give you all of the local hard disks.
<!--stergium Expert-Exchange 2012-->
<head>
<title>stergium Expert-Exchange 2012</title>
<HTA:APPLICATION 
     APPLICATIONNAME="Check Hard Drive Failure Events"
     SCROLL="yes"
     SINGLEINSTANCE="yes"
     WINDOWSTATE="maximize"
>
</head>
 
<script language="VBScript">
  Sub Window_onLoad
        window.resizeTo 400,250
    End Sub 
	
sub CheckFromFile
	dim strComputerList, objFSO, objFile, arrComputers, i
	strComputerList=ComputerListFile.Value
	redim arrComputers(0)
	
	set objFSO=CreateObject("Scripting.FileSystemObject")
	if strComputerList="" then
		ShowStatus.InnerHTML="<p>Please select a file containing a list of computer names, one per line.</p>"
		exit sub
	end if
	if not objFSO.FileExists(strComputerList) then
		ShowStatus.InnerHTML="<p>File not found: " & strComputerList & "</p>"
		exit sub
	end if
	set objFile=objFSO.OpenTextFile(strComputerList, 1)
	i=0
	while not objFile.AtEndOfStream
		redim preserve arrComputers(i)
		arrcomputers(i)=objFile.ReadLine
		i=i+1
	wend
	objFile.Close
	
	strHTML=CheckComputers(arrComputers)
	ShowStatus.InnerHTML=""
	Results.InnerHTML=strHTML
	GetOptions.InnerHTML=""
end sub
 
function CheckComputers(arrList) 
	dim strResults, strComputer
	dim i
	 
	strResults = "<table width='90%' border=1>"
	strResults = strResults & VbCrLf & "<tr><th>Hostname</th><th>Status</th><th>IP Address</th><th>Logged On User</th><th>Total Space</th><th>%free Space</th><th>Total Mem</th></tr>"
	' Read list of computers and get reports
	for i=0 to ubound(arrList)
		strComputer = arrList(i)
		ShowStatus.InnerHTML="<p>Checking computer: " & strComputer & "</p>"
		If strComputer <> "" Then
			strResults = strResults & VbCrLf & "<tr><td>" & strComputer & "</td>"
			If Ping(strComputer) = True Then
				strResults = strResults & "<td><FONT COLOR=RED>" & CheckHardDriveEvents(strComputer) & "</FONT></td>"
				strResults = strResults & "<td>" & GetIPAddress(strComputer) & "</td>"
				strResults = strResults & "<td>" & GetLoggedOnUser(strComputer) & "</td>"
				freespace=GetFreeSpace(strComputer)
				strResults = strResults & "<td>" & GetTotalSpace(strComputer) & "GB"& "</td>"
				
					strResults = strResults & "<td>" & GetFreeSpace(strComputer)& "GB" & "</td>"
					
				strResults = strResults & "<td>" & GetTotalMem(strComputer) & "MB"& "</td>"
			Else
				strResults = strResults & "<td align='center' colspan=3>Offline</td>"
			End If
			strResults = strResults & "</tr>"
		End If
	next
	 
	strResults = strResults & VbCrLf & "</table>"
	CheckComputers=strResults
end function
 
function CheckHardDriveEvents(Computer)
	dim objWMIService, colLoggedEvents, strResult
	
	'strResult="Event log check for computer: " & Computer
	'strResult=strResult & vbcrlf & string(Len(strResult), "-") & vbCrLf
 	
	On Error Resume Next
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2")
	If Err.Number = 0 Then
		Set colLoggedEvents = objWMIService.ExecQuery("Select * from Win32_NTLogEvent Where Logfile = 'System' and EventCode = 7")
		strResult=strResult & ReturnEventDetails(colLoggedEvents, "Disk")
	Else
		strResult=strResult & "WMI Error"
	End If
	Err.Clear
	
	CheckHardDriveEvents = strResult
end function
 
function ReturnEventDetails(colLoggedEvents, RequiredSource)
	dim objEvent, objSWbemDateTime, dicDupCount, dicEventDetails, k
	dim strHTML, strEvent, strResult, intCount, i
	
	set dicDupCount=CreateObject("Scripting.Dictionary")
	set dicEventDetails=CreateObject("Scripting.Dictionary")
	Set objSWbemDateTime = CreateObject("WbemScripting.SWbemDateTime")
	
	For Each objEvent in colLoggedEvents
		if objEvent.SourceName=RequiredSource then
			if not dicDupCount.Exists(objEvent.EventCode & objEvent.SourceName) then
				strEvent = vbCrLf & "Event Code: " & objEvent.EventCode
				strEvent = strEvent & VbCrLf & "Source: " & objEvent.SourceName    
				strEvent = strEvent & VbCrLf & "Message: " & objEvent.Message
				objSWbemDateTime.Value=objEvent.TimeWritten
				strEvent = strEvent &  "Time of first event: " & objSWbemDateTime.GetVarDate
				strEvent = strEvent & VbCrLf & "Type: " & objEvent.Type
				dicDupCount.Add objEvent.EventCode & objEvent.SourceName, "1"
				dicEventDetails.Add objEvent.EventCode & objEvent.SourceName, strEvent
			else
				intCount=dicDupCount(objEvent.EventCode & objEvent.SourceName)+1
				dicDupCount(objEvent.EventCode & objEvent.SourceName)=intCount
			end if
		end if
	Next    
 
	' Now loop through dictionary and add to output
	k=dicDupCount.Keys
	for i=0 to dicDupCount.Count-1
		strResult=strResult & dicEventDetails(k(i))
		strResult=strResult & VbCrLf & "Event count: " & dicDupCount(k(i)) & vbCrLf  & vbCrLf & vbCrLf
	next
	If strResult <> "" Then
		ReturnEventDetails=strResult
	Else
		ReturnEventDetails= "OK" & VbCrLf & VbCrLf
	End If
	set dicDupCount=Nothing
	set dicEventDetails=Nothing
end Function
 
Function Ping(strComputer)
	Dim objShell, boolCode
	Set objShell = CreateObject("WScript.Shell")
	boolCode = objShell.Run("Ping -n 1 -w 300 " & strComputer, 0, True)
	If boolCode = 0 Then
		Ping = True
	Else
		Ping = False
	End If
End Function
 
Function GetIPAddress(sComputer)
	Dim colComputerIP, objWMIService, IPConfig, strIPAddress, intIPCount
	On Error Resume Next
	Set objWMIService = GetObject("winmgmts:" _
	    & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
	If Err.Number = 0 Then
		Set colComputerIP = objWMIService.ExecQuery _
		    ("Select IPAddress from Win32_NetworkAdapterConfiguration")
		strIPAddress = ""
		For Each IPConfig in colComputerIP
			If Not IsNull(IPConfig.IPAddress) Then 
				'strIPAddress = strIPAddress & IPConfig.Description & ": "
		        For intIPCount = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
					'strIPAddress = strIPAddress & "IP Address: " & IPConfig.IPAddress(intIPCount) & "~"
					If IPConfig.IPAddress(intIPCount) <> "0.0.0.0" Then
						If strIPAddress = "" Then
							strIPAddress = IPConfig.IPAddress(intIPCount)
						Else
							strIPAddress = strIPAddress & VbCrLf & IPConfig.IPAddress(intIPCount)
						End If
					End If
				Next
			End If
		Next
	Else
		strIPAddress = "WMI Error"
	End If
	Err.Clear
	GetIPAddress = strIPAddress
End Function
 
Function GetLoggedOnUser(sComputer)
	Dim colComputer, objWMIService, objComputer, strUsername
	On Error Resume Next
	Set objWMIService = GetObject("winmgmts:" _
	    & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
	If Err.Number = 0 Then
		Set colComputer = objWMIService.ExecQuery _
		    ("Select * from Win32_ComputerSystem")
		strUsername = ""
		For Each objComputer in colComputer
		    strUserName = objComputer.UserName
		Next
	Else
		strUsername = "WMI Error"
	End If
	Err.Clear
	GetLoggedOnUser = strUsername
End Function



Function GetFreeSpace(sComputer)
Dim colComputer, objWMIService, objLogicalDisk, strspace , strcaption , temp
On Error Resume Next
Set objWMIService = GetObject("winmgmts:"_
	    & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")

If Err.Number = 0 Then
		Set colComputer = objWMIService.ExecQuery _
		    ("Select * from Win32_LogicalDisk", "WQL", _
            wbemFlagReturnImmediately + wbemFlagForwardOnly)
		strspace = ""
		For Each objLogicalDisk in colComputer
		 if objLogicalDisk.DriveType = 3  then
		    strcaption= " " & objLogicalDisk.Caption
			strspace = objLogicalDisk.FreeSpace
			strtotspace=objLogicalDisk.Size
			temp = temp & strcaption & "=>" & int(strspace/1073741824)
		end if
		Next
	Else
		strspace = "WMI Error"
	End If
	Err.Clear
	GetFreeSpace = temp 
'	GetFreeSpace = int(strspace/1073741824)
End Function

Function GetTotalSpace(sComputer)
Dim colComputer, objWMIService, objLogicalDisk, strspace , temp
On Error Resume Next
Set objWMIService = GetObject("winmgmts:"_
	    & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
If Err.Number = 0 Then
Set colComputer = objWMIService.ExecQuery _
		    ("Select * from Win32_LogicalDisk", "WQL", _
            wbemFlagReturnImmediately + wbemFlagForwardOnly)
		strspace = ""
		For Each objLogicalDisk in colComputer
		     if objLogicalDisk.DriveType = 3  then
			 strtotspace=objLogicalDisk.Size
			 strcaption= " " & objLogicalDisk.Caption
			 temp = temp & strcaption & "=>" & int(strtotspace/1073741824)
			 end if
			 Next
	Else
		strtotspace = "WMI Error"
	End If
	Err.Clear
GetTotalSpace= temp 
'GetTotalSpace= temp int(strtotspace/1073741824)
End Function

Function GetTotalMem(sComputer)
Dim colComputer, objWMIService, objmem, totmem , temp
On Error Resume Next
Set objWMIService = GetObject("winmgmts:"_
	    & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
 If Err.Number = 0 Then
            Set colComputer = objWMIService.ExecQuery _
		    ("Select * from Win32_ComputerSystem")
 		Set objmem = objWMIService.Get("Win32_ComputerSystem")	
		totmem = ""
	For Each objmem in colComputer
			totmem=objmem.TotalPhysicalMemory
		Next
	Else
		totmem = "WMI Error"
	End If
	Err.Clear
GetTotalMem=int((totmem/1024)/1024)' /1073741824)
End Function




</script>
 
<body>
<span id = "GetOptions">
<input type="file" name="ComputerListFile"> 
<input type="button" value="Check computers" name="run_button" onClick="CheckFromFile">
</span>
<span id = "ShowStatus"></span>
<span id = "Results"></span>
</body>
</html>

Open in new window

i hope that is what you need.
please feedback.
0
 

Author Comment

by:Robokiller
ID: 37781244
@stergium, absolutely perfect, thank you very much stergium, also, extra thanks for helping me out after I have resolved the issue! Five stars.
0

Featured Post

What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

Solid State Drive Performance Tips: Solid state storage technology is now a standard.  After testing and using several different brands and revisions of SSD's over the years I have put together a collection of tips,tools and suggestions that I ha…
Create your own, high-performance VM backup appliance by installing NAKIVO Backup & Replication directly onto a Synology NAS!
Windows 8 comes with a dramatically different user interface known as Metro. Notably missing from the new interface is a Start button and Start Menu. Many users do not like it, much preferring the interface of earlier versions — Windows 7, Windows X…
This video teaches viewers how to encrypt an external drive that requires a password to read and edit the drive. All tasks are done in Disk Utility. Plug in the external drive you wish to encrypt: Make sure all previous data on the drive has been …

707 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now