none
Remover recurso. RRS feed

  • Pergunta

  • Ba galera..

    Boa noite.

    Como faço para criar um vbs que remova o Compartilhamento de arquivos e impressoras para Redes Microsoft, das propriedades da placa de rede, instalada no Windows.

    Abraço.

    quinta-feira, 13 de agosto de 2009 00:19

Respostas

  • Olá,

    REMOVER COMPARTILHAMENTOS:

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

    Set colShares = objWMIService.ExecQuery _
        ("Select * from Win32_Share")

    For Each objShare in colShares
        objShare.Delete
    Next


    REMOVER COMPARTILHAMENTO DE IMPRESSORAS

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

    Set colInstalledPrinters =  objWMIService.ExecQuery _
        ("Select * from Win32_Printer")

    i = 1

    For Each objPrinter in colInstalledPrinters
       if Left(objPrinter.Name,2) <> "\\" Then
        objPrinter.Shared = FALSE
        objPrinter.Put_
       End if
       i = i + 1
    Next


    É isso que você precisa??? Porque se o usuário não for ADM ele não pode compartilhar...

    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    • Marcado como Resposta Marcelo TI quinta-feira, 13 de agosto de 2009 13:30
    quinta-feira, 13 de agosto de 2009 13:08

Todas as Respostas

  • Procurei por um script especifico para isso, alguma propriedade em wmi mas nao encontrei nada. Uma soluçao seria criando chave no registro. Ai fiz o script abaixo, precisa de restart do Windows
    --------------------------------------------------------------------------------------------
    Const HKEY_LOCAL_MACHINE = &H80000002

    strComputer = "."
     
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
        strComputer & "\root\default:StdRegProv")
     
    strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Policies\Network"
    oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
     
    strValueName = "NoFileSharing"
    dwValue = 1
    oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

    strValueName = "NoPrintSharing"
    dwValue = 1
    oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

    quinta-feira, 13 de agosto de 2009 06:48
  • Angelo.

    Bom dia.

    As chaves não geram efeitos, o usuario ainda tem direito de criar compartilhamento, o que pode estar errado.
    quinta-feira, 13 de agosto de 2009 11:40
  • Olá,

    REMOVER COMPARTILHAMENTOS:

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

    Set colShares = objWMIService.ExecQuery _
        ("Select * from Win32_Share")

    For Each objShare in colShares
        objShare.Delete
    Next


    REMOVER COMPARTILHAMENTO DE IMPRESSORAS

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

    Set colInstalledPrinters =  objWMIService.ExecQuery _
        ("Select * from Win32_Printer")

    i = 1

    For Each objPrinter in colInstalledPrinters
       if Left(objPrinter.Name,2) <> "\\" Then
        objPrinter.Shared = FALSE
        objPrinter.Put_
       End if
       i = i + 1
    Next


    É isso que você precisa??? Porque se o usuário não for ADM ele não pode compartilhar...

    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    • Marcado como Resposta Marcelo TI quinta-feira, 13 de agosto de 2009 13:30
    quinta-feira, 13 de agosto de 2009 13:08
  • Ba Jesiel.

    Show matou.
    quinta-feira, 13 de agosto de 2009 13:29