none
Problema ao Executar script RRS feed

  • Pergunta

  • Fala galeara,

      Estou desenvolvendo um script para executar um comando no Windows server 2008 porém ao compilar o código é gerado um erro. Segue abaixo o script:

    ======================================


    'Script para desabilitar WFP do Windows Server 2008


    strComputer = "."
        Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
        
            
        If objOperatingSystem.Caption = "Microsoft Windows Server 2008 R2" Then
              Execute "auditpol /set /subcategory:Filtering Platform Connection /success:disable /failure:disable"
        End If

     

    ======================================

     

    o erro informado é que Object Required: objOperationSystem

     

     

     

     

     

     

     

     

     

     

     

    quarta-feira, 23 de novembro de 2011 14:26

Respostas

  • Leonardo,

    Falta um pouco de código aí. Tente este

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    
    Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
    
    For Each objOperatingSystem in colOperatingSystems
        strSO = objOperatingSystem.Caption
    Next
    
    
    If strSO = "Microsoft Windows Server 2008 R2" Then 
              Execute "auditpol /set /subcategory:Filtering Platform Connection /success:disable /failure:disable"
    End If
    

     

     


    Fábio de Paula Junior
    quarta-feira, 23 de novembro de 2011 14:50
    Moderador