Página 1 de 1

Usando o VOL com o clipper em win98 / winXP

Enviado: 05 Ago 2005 09:40
por robertocouto
Amigos,

Tenho um aplicativo em clipper 5.2e linkado com o blinker 5.10 e executo o comando VOL do MS-DOS para pegar o numero do volume do HD do servidor. Isto funciona perfeitamente quando estação e servidor são win98 ou quando estação e servidor são winXP/2000. Porém quando a estação é win98 e o servidor winXP/2000 o número do volume retolna em branco. O que posso fazer para solucionar este problema?

Grato,

Roberto

Enviado: 06 Ago 2005 08:46
por kiko
entaum...eu num sei se vai resolver o teu problema, mas eu tenho aki uma rotina q pega o numero de serie do HD, axo q eh isso q vc tah precisando...segue abaixo...
**************************
Function NumeroDeSerie()
**************************
Local cRet := ""
local fTemp := FCreate("TMP")
FClose(fTemp)
! DIR > TMP
cArq := MemoRead("TMP")
cRet := AllTrim(MemoLine(cArq,,3))
Delete File("TMP")
Return Right( cRet, 9 )
em todo caso, se vc naum quiser utilizar a funçao q eu tou colocando aki, verifique se vc tah buscando os caracteres corretos na hora de ler o retorno do VOL, tipo algum left, ritgh ou substr em lugar errado....

Comando Vol

Enviado: 08 Ago 2005 17:33
por robertocouto
Caro Amigo,

Tentei a sua sugestão mas também não funciona. Quando executa o comando DIR em uma estação win98 com servidor win2000 ou XP ocorre o mesmo que o comando VOL, ou seja, não aparece o número do volume.