Serial do HD do Servidor - Urgente !!!

Augusto · Mensagem por **Augusto** » 19 Out 2004 16:12

Pessoal... eu sei que esse assunto (serial de HD) já foi mais do que discutido aqui no Fórum... mais o que eu quero saber é se alguem já conseguiu capturar o serial do HD de uma maquina "remota"... ou seja, suponhamos que eu esteja numa estação de rede e queira saber o serial do servidor que está mapeado com a letra "Y:" dando um DIR Y:... Ele não mostra... mostra somente o NOME da maquina mais o serial ele não mostra, diferentemente de quando a gente dá um DIR C: na maquina "local" que aparece o nome da maquina e o serial do HD...
Pergunto... alguém já conseguiu isso ?? Alguém tem uma solução ??

Tal procedimento, será importante para uma rotina que estou desenvolvendo em Clipper para saber se o servidor que estou acessando é o hospedeiro de uma ou mais tabelas DBF de que meu programa necessita entre outros procedimentos de segurança...

Aguardo a colaboração dos amigos...

Mensagem por **Clipper** » 19 Out 2004 16:28

Prezado Augusto

Que eu saiba ninguém conseguiu isso até hoje, sendo assim não tem como.

Acho que a melhor solução para você é criar um outro meio de identificar o computador.

Até logo.

Marcelo

Marcelo Guazi · Mensagem por **Marcelo Guazi** » 21 Out 2004 20:48

Caro Amigo,

Eu fiz tal procedimento da seguinte maneira.

Eu nao sabia que o DIR F: por exemplo nao mostrava e fiz o teste e tem razao...

Procure fazer o passo mais simples de todos que é :

RUN F:
RUN DIR > XXX.ZZZ
RUN MOVE XXX.ZZZ C:
RUN C:

Leia o que te interessa do arquivo...

Irei postar a rotina q utilizo e funciona.

T+, e espero ter ajudado...

Obs : Claro q o RUN acima foi só exemplo, procure usar se for o caso o SWPRUNCMD do Blinker.

Augusto · Mensagem por **Augusto** » 21 Out 2004 21:34

RUN F:
RUN DIR > XXX.ZZZ
RUN MOVE XXX.ZZZ C:
RUN C:

Companheiro agradeço a ajuda mas... sinceramente não entendi o que vc quis dizer... Esses comandos "RUN" é para ser dado dentro do PRG ??
Bem... se puder postar a rotina que vc diz funcionar... eu aceito...

Obrigado.

Marcelo Guazi · Mensagem por **Marcelo Guazi** » 22 Out 2004 09:36

Caro amigo, abaixo esta o programinha que uso e as explicações. Espero ter ajudado.

Qualquer coisa que precisar, estou aqui.

Código: Selecionar todos

/* 
O ARQUIVO VERIFICA.DBF E' APENAS UM CAMPO SENDO CONTEUDO,C,80
*/

RUN VOL C: >VERIFICA.TXT
&& Executa o comando vol na unidade C e joga pra dentro do arquivo VERIFICA.TXT

USE VERIFICA EXCLUSIVE
&& Abre o Arquivo Verifica de forma EXCLUSIVA

APPEND FROM VERIFICA.TXT SDF
&& Importa o conteudo do VERIFICA.TXT para o VERIFICA.DBF

DELETE FILE VERIFICA.TXT
&& Apaga o Arquivo VERIFICA.TXT criado

GOTO 3
&& Vai para o Terceiro registro do VERIFICA.DBF

WNROWINC=RTRIM(CONTEUDO)
&& Tira os espacos a Direita do Registro

WNROWINC=RIGHT(WNROWINC,9)
&& Pega os ultimos 9 caractes do registro, que e' o numero do HD que vc precisa

CLS
&& Limpa Tela

@ 10,10 SAY WNROWINC
&& Mostra o numero do HD

ZAP
&& Apaga o Arquivo, IMPORTANTE, POIS SENAO TODA VEZ ELE SO' VAI ACRESCENTANDO REGISTROS E O HD SERA SEMPRE O PRIMEIRO UTILIZADO

USE
&& Fecha o Arquivo

Mensagem por **Maligno** » 22 Out 2004 10:07

Com a criatividade dos colegas esse tipo de problema pode ser resolvido a contento, mas à custa de uma boa dose de esforço. Felizmente isso não é tão necessário. Tenho uma função que resolve o problema de forma mais simples e rápida. A função GetVolSerN(<drive>), disponível na minha página, só precisa da letra do drive para informar seu número de série de formatação. Sua contra-partida, SetVolSerN(<drive>), modifica esse número. Mas não funciona em Windows com kernel NT, devido às limitações que o DOS emulado tem nesse tipo de sistema operacional.

[]'s
Maligno
http://www.buzinello.com/prg

Mensagem por **Clipper** » 22 Out 2004 10:12

Prezado Xará

O que o Augusto quer é pegar o Serial de uma máquina remota (uma máquina da rede) e não o serial do HD local, o serial da máquina local é muito simples, basta utlizar a função SERNUM() da Fast ou da Clipper Tools ou ainda usar da forma que você postou, mas o problema aqui é outro...

Eu já tentei de tudo e não consegui. Acho que a única solução para o Augusto seria :

Executar um programinha na inicialização do servidor que gere um arquivo TXT onde será guardado o serial do HD dele (servidor), aí as outras máquinas na inicialização do sistema pegariam o serial neste arquivo TXT no servidor.

Até logo.

Marcelo

Marcelo Guazi · Mensagem por **Marcelo Guazi** » 22 Out 2004 11:06

Vc já tentou mudar a letra C: para a letra do Servidor

?

é o que faço aqui, pego de q maquina quiser, estando mapeada na rede !!!

Augusto · Mensagem por **Augusto** » 22 Out 2004 11:51

Companheiros...
Antes de qq coisa agradeço a colaboração de todos nas soluções apresentadas e nas que possivelmente ainda virão... entretanto acho que a solução do Marcelo (Clipper) é a mais simples e deverá atender as minhas necessidades... Quanto a solução do Maligno, essa tbm é bastante interessante, alíás ele sempre tem uma solução e é um dos grandes colaboradores desse fórum (Valeu !!!) sem desmerecer os demais, é claro... Agora, quanto a última postagem do nosso outro amigo Marcelo Guazi:

Vc já tentou mudar a letra C: para a letra do Servidor ?
é o que faço aqui, pego de q maquina quiser, estando mapeada na rede !!

sinceramente, gostaria de ver isso de perto... Já tentei em redes Novell, Lantastic, NT, Workgroup seja no 98 ou XP e não acontece o que ele diz... repito, somente é fornecido o NOME da máquina... o SERIAL não aparece...

Obrigado a todos...

Marcelo Guazi · Mensagem por **Marcelo Guazi** » 22 Out 2004 12:48

Caro amigo,

aqui funciona, com todas as maquina Win98 e o servidor Windows 2000 Server.

Se quiser me ligar, explico detalhadamente como faço.

Fone : (43) 9911-3131

Nota de Moderação:
por [url=https://pctoledo.org/forum/memberlist.php?mode=viewprofile&u=100899][color=#00AA00]Pablo César[/color][/url]: (de acordo a sua ultima citação)

Enviar por email, resolver através de meios privados são práticas não aceitas aqui no fórum. Desestimulamos este tipo de procedimento, já que o objetivo do fórum é para servir como fonte centralizadora de informações, onde os usuários possam compartilhar de forma pública e não exclusiva. Favor ler a Regra Geral do Fórum (itens 10,11,12 e 13).

Até mais.

Marcelo.

Augusto · Mensagem por **Augusto** » 22 Out 2004 15:08

Maligno escreveu:Tenho uma função que resolve o problema de forma mais simples e rápida. A função GetVolSerN(<drive>), disponível na minha página, só precisa da letra do drive para informar seu número de série de formatação. Sua contra-partida, SetVolSerN(<drive>), modifica esse número.

Companheiro Maligno... poderia me explicar como funciona?? Quero dizer... Quanto ao volsernr.obj acredito que seja para colocar junto aos meus na hora de linkar, mas... o que eu faço com os aqrs volsernr.asm e __asmclp.inc ??
E quanto a letra do <drive>, devo usar com ou sem os dois pontos ?? Entre aspas ou não ??

Aguardo seu retorno...

Mensagem por **Maligno** » 22 Out 2004 15:50

Clipper escreveu:o problema aqui é outro...

Não sei se a função GetVolSerN() pode ser aplicada a drives remotos. Para falar a verdade, eu mesmo nunca usei essa função nesse tipo de drive. É só alguém ter a curiosidade de testar. Se não der, paciência. Pelo menos sobra alguma informação para quem tiver utilidade para ela.

[]'s
Maligno
http://www.buzinello.com/prg

Diderot · Mensagem por **Diderot** » 22 Out 2004 15:54

Por favor não se trata de uma crítica e sim a valorização desse espaço.

Marcelo que tal compartilhar conosco, na medida do possível, a informação que você se propõe a passar por telefone?

Mensagem por **Maligno** » 22 Out 2004 15:57

Augusto escreveu:poderia me explicar como funciona?? Quero dizer... Quanto ao volsernr.obj acredito que seja para colocar junto aos meus na hora de linkar, mas... o que eu faço com os aqrs volsernr.asm e __asmclp.inc ??
E quanto a letra do <drive>, devo usar com ou sem os dois pontos ?? Entre aspas ou não ??

Para utilizar esta função, apenas inclua o objeto no script ou na linha de comando do linker. Os arquivos .ASM e .INC são os fontes, que eu distribuo para o caso de alguém querer alterar alguma coisa.
Quanto a letra do drive, não faz diferença se incluir ou não o dois-pontos. Aliás, aproveitando a mensagem: na minha primeira mensagem esqueci de dizer o óbvio: a função SetVolSerN() necessita, além da letra do drive, do novo número serial, em hexadecimal, sem formatação (o hífen).

[]'s
Maligno
http://www.buzinello.com/prg

Mensagem por **Clipper** » 23 Out 2004 06:06

O curioso aqui testou...

E como já era +/- esperado por mim e pelo Maligno o resultado foi (Null).
Não retornou nada aqui no meu micro, meu micro é Win98 e fiz o teste no micro da minha irmã que usa o XP.

Aproveitando....Ei Maligno ! Vê se tem como meu outro post, já tô doido e até agora não consegui resolver a bronca...veja em "Dbedit - Saber em que campo estou".

Até logo.

Marcelo