none
Script VBS RRS feed

  • Pergunta

  • Bom dia pessoal, estou tentando executar o script abaixo em alguns servidores, mas estou recebendo da maioria deles a informação "permissão negada", o usuário que estou usando não tem privilégios administrativos, o mais estranho é que consigo realizar o teste sem problemas em alguns servidores.
    Segue abaixo o script:

    On Error Resume Next
    Dim AdCn
    Dim AdRec
    Dim i, SQL
    Const MBCONVERSION= 1048576  

    Computers = Array("rras3")

    For Each Computer In Computers
     Set objWMIService = GetObject ("winmgmts://" & computer & "/root/cimv2")

     If Err.Number <> 0 Then
      SQL = "Insert into FreeSpace_Error (Computer,error,date) values ('" & Computer & "','" & Err.Description & "', getdate())"
      wscript.echo sql
       sql = ""
      Err.Clear
     else

      Set colLogicalDisk = objWMIService.InstancesOf("Win32_LogicalDisk") 
      For Each objLogicalDisk In colLogicalDisk 
       if objLogicalDisk.drivetype=3 then
        SQL = "Insert into FreeSpace (Computer,Drive,DiskSize,FreeSpace,Percentage,date) values('"&Computer&"','" & objLogicalDisk.DeviceID &"',"& clng(objLogicalDisk.size/MBCONVERSION) &"," & clng(objLogicalDisk.freespace/MBCONVERSION) & "," & clng(((objLogicalDisk.freespace/MBCONVERSION)/(objLogicalDisk.size/MBCONVERSION))*100) &", getdate())"
                                    wscript.echo sql
         sql = ""
       end if
      Next 
     end if

    next

    WSCRIPT.echo "Script finalizado"


    Valeu

    sexta-feira, 19 de fevereiro de 2010 12:41