none
List Disk Quota Entries RRS feed

  • Pergunta

  • Hello , everyone!
    
    How to change this script in PowerShell , so that the output be organized in column format ? That is, it is shown a title and just below the corresponding content. Currently, when I run this script output is only online, do not want that way. Must be column.
    
    ex .:

    Title

    Title

    Title

    Title

    Exemple1

    Exemple1

    Exemple1

    Exemple1

    Exemple1

    Exemple1

    Exemple1

    Exemple1

    strComputer = "ntb-cja" 

    Set objWMIService = GetObject("winmgmts:" _ 
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
     
    Set colDiskQuotas = objWMIService.ExecQuery("Select * from Win32_DiskQuota") 
     
    For each objQuota in colDiskQuotas 
        Wscript.Echo "Disk Space Used: " & vbTab &  objQuota.DiskSpaceUsed  
        Wscript.Echo "Limit: " & vbTab &  objQuota.Limit    
        Wscript.Echo "Quota Volume: " & vbTab &  objQuota.QuotaVolume      
        Wscript.Echo "Status: " & vbTab &  objQuota.Status   
        Wscript.Echo "User: " & vbTab &  objQuota.User      
        Wscript.Echo "Warning Limit: " & vbTab &  objQuota.WarningLimit 
    Next 

    quinta-feira, 29 de janeiro de 2015 01:15

Respostas

  • Não me lembro de alguma função pronta para o VBScript.

    Eu desenvolvi uma função que formata o tamanho de uma coluna, então dá pra ajustar ao seu caso.

    Basta você adaptar ao seu propósito.

    strComputer="."
    
    'Imprime Cabeçalho
    wscript.echo formata_coluna("Caption",20) & vbtab & _
    				formata_coluna("Name",20) & vbtab & _
    				formata_coluna("Status",20) 
    
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_Service",,48)
    For Each objItem in colItems
    	wscript.echo formata_coluna(objItem.Caption,20) & vbtab & _
    				formata_coluna(objItem.Name,20) & vbtab & _
    				formata_coluna(objItem.Status,20) 
    	
    	'Wscript.Echo "Caption: " & objItem.Caption
    	'Wscript.Echo "Name: " & objItem.Name
    	'Wscript.Echo "Status: " & objItem.Status
    
    Next
    
    
    Function Formata_Coluna(sValor, iTamanho)
    
    	formata_coluna = left(sValor & string(iTamanho, " "), iTamanho)
    
    end function


    Fábio de Paula Junior


    sexta-feira, 30 de janeiro de 2015 17:07
    Moderador

Todas as Respostas

  • Não me lembro de alguma função pronta para o VBScript.

    Eu desenvolvi uma função que formata o tamanho de uma coluna, então dá pra ajustar ao seu caso.

    Basta você adaptar ao seu propósito.

    strComputer="."
    
    'Imprime Cabeçalho
    wscript.echo formata_coluna("Caption",20) & vbtab & _
    				formata_coluna("Name",20) & vbtab & _
    				formata_coluna("Status",20) 
    
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_Service",,48)
    For Each objItem in colItems
    	wscript.echo formata_coluna(objItem.Caption,20) & vbtab & _
    				formata_coluna(objItem.Name,20) & vbtab & _
    				formata_coluna(objItem.Status,20) 
    	
    	'Wscript.Echo "Caption: " & objItem.Caption
    	'Wscript.Echo "Name: " & objItem.Name
    	'Wscript.Echo "Status: " & objItem.Status
    
    Next
    
    
    Function Formata_Coluna(sValor, iTamanho)
    
    	formata_coluna = left(sValor & string(iTamanho, " "), iTamanho)
    
    end function


    Fábio de Paula Junior


    sexta-feira, 30 de janeiro de 2015 17:07
    Moderador
  • Fábio,

    Muito obrigado, ficou perfeito o meu script, era exatamente o que eu estava precisando.

    Como ficou:

      

    strComputer = "ntb-cja" 

    'Imprime Cabeçalho
    wscript.echo formata_coluna("Disk Space Used",60) & vbtab & _
    formata_coluna("User",60) & vbtab & _
    formata_coluna("Limit",40) & vbtab & _
    formata_coluna("Quota Volume",30) & vbtab & _
    formata_coluna("Warning Limit",50) & vbtab & _
    formata_coluna("Status",20) 

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

    Set colDiskQuotas = objWMIService.ExecQuery("Select * from Win32_DiskQuota") 

    For each objQuota in colDiskQuotas 

    wscript.echo formata_coluna(objQuota.DiskSpaceUsed,60) & vbtab & _
    formata_coluna(objQuota.User,60) & vbtab & _
    formata_coluna(objQuota.Limit,40) & vbtab & _
    formata_coluna(objQuota.QuotaVolume,30) & vbtab & _
    formata_coluna(objQuota.WarningLimit,50) & vbtab & _
    formata_coluna(objQuota.Status,20) 

        'Wscript.Echo "Disk Space Used: " & vbTab &  objQuota.DiskSpaceUsed 
        'Wscript.Echo "User: " & vbTab &  objQuota.User
        'Wscript.Echo "Limit: " & vbTab &  objQuota.Limit    
        'Wscript.Echo "Quota Volume: " & vbTab &  objQuota.QuotaVolume      
        'Wscript.Echo "Status: " & vbTab &  objQuota.Status   
        'Wscript.Echo "Warning Limit: " & vbTab &  objQuota.WarningLimit


    Next 

    Function Formata_Coluna(sValor, iTamanho)

    formata_coluna = left(sValor & string(iTamanho, " "), iTamanho)

    end function

     Carlos Amorim

    sábado, 31 de janeiro de 2015 01:13