Skip to main content

VB script to find the Disk Space

Option Explicit


const strReport="c:\output.txt"
const sFile ="c:\input.txt"


Dim objWMIService, objItem, colItems
Dim strDriveType, strDiskSize, txt


Dim oFSO, oFile, sText,strComputer
Set oFSO = CreateObject(“Scripting.FileSystemObject”)


Dim objFSO,objTextFile
Set objFSO = createobject(“Scripting.FileSystemobject”)
Set objTextFile = objFSO.CreateTextFile(strReport)



If oFSO.FileExists(sFile) Then
Set oFile = oFSO.OpenTextFile(sFile, 1)
 Do While Not oFile.AtEndOfStream
  sText = oFile.ReadLine
   If Trim(sText) <> “” Then
          strComputer=sText
              Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\cimv2”)
              Set colItems = objWMIService.ExecQuery(“Select * from Win32_LogicalDisk WHERE DriveType=3”)
             txt = sText & vbtab & “Drive” & vbtab & “Size” & vbtab & “Used” & vbtab & “Free” & vbtab & “Free(%)” & vbcrlf
        For Each objItem in colItems

             DIM pctFreeSpace,strFreeSpace,strusedSpace

             pctFreeSpace = INT((objItem.FreeSpace / objItem.Size) * 1000)/10
       strDiskSize = Int(objItem.Size /1073741824) & “Gb”
       strFreeSpace = Int(objItem.FreeSpace /1073741824) & “Gb”
       strUsedSpace = Int((objItem.Size-objItem.FreeSpace)/1073741824) & “Gb”
       txt = txt & vbtab & vbtab & objItem.Name & vbtab & strDiskSize & vbtab & strUsedSpace & vbTab & strFreeSpace & vbtab & pctFreeSpace & vbcrlf


        Next


*for getting Updates / if you are liking the posts and if this is useful Please follow the blog*
   
     

Comments

Post a Comment

Popular posts from this blog

restart services remotely using power-shell script( restart.ps1)

FUNCTION Restart-Service { PARAM([STRING]$SERVERNAME=$env:COMPUTERNAME,[STRING]$SERVICENAME) #MSSQLSERVER FOR DEFAULT INSTANCE FOR NAMED INSTANCE MSSQL`$KAT $SERVICE = GET-SERVICE -COMPUTERNAME $SERVERNAME -NAME $SERVICENAME -ERRORACTION SILENTLYCONTINUE IF( $SERVICE.STATUS -EQ "RUNNING" ) { $DEPSERVICES = GET-SERVICE -COMPUTERNAME $SERVERNAME -Name $SERVICE.SERVICENAME -DEPENDENTSERVICES | WHERE-OBJECT {$_.STATUS -EQ "RUNNING"} IF( $DEPSERVICES -NE $NULL ) { FOREACH($DEPSERVICE IN $DEPSERVICES) { Stop-Service -InputObject (Get-Service -ComputerName $SERVERNAME -Name $DEPSERVICES.ServiceName) } }   Stop-Service -InputObject (Get-Service -ComputerName $SERVERNAME -Name $SERVICE.SERVICENAME) -Force    if($?)    {    Start-Service -InputObject (Get-Service -ComputerName $SERVERNAME -Name $SERVICE.SERVICENAME) $DEPSERVICES = GET-SERVICE -COMPUTERNAME $SERVERNAME -NAME $SERVICE.SERVICENAME -DEPENDENTSERVICES | WHERE-OBJECT ...
Post a Comment
Read more

Java functions to run SSH commands from java

     public static void SSH(String Host,String username,String passwor,String cmd,String cmd1) {   byte[] tmp = new byte[1024]; String host =Host; String user =username; String password =passwor; String  command = cmd;                 String ou=null; try { Properties config = new Properties(); config.put("StrictHostKeyChecking", "no"); JSch jsch = new JSch(); // Create a JSch session to connect to the server Session session = jsch.getSession(user, host, 22); session.setPassword(password); session.setConfig(config); // Establish the connection session.connect(); System.out.println("Connected..."); ChannelExec channel = (ChannelExec) session.openChannel("exec"); channel.setCommand(command); channel.setErrStream(System.err);                         channel.connect();       ...
Post a Comment
Read more

Disabling and enabling TLS

1.Press win+R 2.Type regedit 3.go to  Computer\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SecurityProviders\SCHANNEL\Protocols\TLS (version)\Client  Computer\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SecurityProviders\SCHANNEL\Protocols\TLS (version)\Server set the Dword value to 1 for enabling TLS client and 0 to disable enable TLS will make systems vulnerable 
Post a Comment
Read more