none
script vbs para alterar descrição do computador RRS feed

  • Pergunta

  • Olá.

    Eu estou com um problema que está me custando muito tempo para entender.

    Eu tenho o codigo .vbs abaixo que basicamente força o usuário a preencher uma txtbox para eu capturar essa informação em um programa de inventário de rede.

    strArquivo = "C:\Locker\nomes.txt"
    
    set FSO = createobject("scripting.filesystemobject")
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    set arq = FSO.opentextfile(strArquivo,1)
    strTexto = arq.readall
    
    arq.close
    
    dim a, lock, unlock
    
    lock="taskkill /f /im explorer.exe"
    unlock="explorer.exe"
    WSHShell.Run lock, 1, true
    
    do while a=""
      a=InputBox("Insira seu nome de usuario")
    		if a="" then
    		MsgBox("Digite algo!")
    		end if
    	Loop
    
    Linhas = Split(strTexto, " ")
    
    For Each strLine in Linhas
    If InStr(strLine, a) Then
       dim cmd
       cmd="net config server /srvcomment:" & a
       WSHShell.Run cmd, 1, true
       WSHShell.Run unlock, 1, true
       wscript.quit
    else
    WSHShell.Run "C:\Locker\teste-vbs.vbs", 1, true
    End If

    O codigo funciona perfeitamente em uma maquina de testes, agora quando fui testar em uma maquina onde esse script seria aplicado, a descrição do computador não é alterada.

    Alguém sabe me dizer se há alguma falha no codigo acima? pois não consigo resolver esse problema de forma alguma

    segunda-feira, 21 de agosto de 2017 14:19