Saber a versão do Windows

[Augusto]

Olá amigos do fórum!! Quanto tempo hein??!! mas... como diz o ditado: Quem é vivo sempre aparece!

Como já faz muito tempo que me afastei do amado Clipper, confesso que estou enferrujado e nesse caso peço a ajuda de vocês e pergunto:
Alguém por aqui sabe se existe alguma função que retorne a versão do Windows?

Vou explicar o porquê da pergunta...

Tenho um cliente que ainda usa um sistema meu em Clipper e migrou para o W7... Até aí tudo certo, o sistema roda sem problemas, acontece que existe uma rotina que pega o NETNAME() e cria arquivos temporários com esse nome.
Essa rotina, já faz um tratamento para evitar que o retorno do NETNAME() seja superior a 8 caracteres, acontece que a maioria dos "nomes de computador" assumidos pelo W7 tem sempre aquele famoso sufixo "-PC" que para a rotina atual não impacta em nada já que ela assume somente os 8 primeiros caracteres como eu disse anteriormente... e como não poderia deixar de ser o cliente não quer que esse "-PC" apareça no nome do arquivo criado... e como fiz para resolver? Alterei o script e usei o STRTRAN() substituindo o "-PC" por "nada" e resolvi o problema.
Feito isso, me veio então a questão: Será que tem como saber qual a versão do Windows instalada?

Fica então a pergunta... Alguém poderia me responder?

Abraços,

[Dudu_XBase]

Boa tarde.

Digite no prompt do ms-dos

wmic os get Caption,CSDVersion /value



Você pode...fazer tipo assim...no clipper não testei...

Run( "cmd.exe /c wmic os get Caption,CSDVersion /value > guto.txt" )

e depois ler esse txt...

[Jairo Maia]

Olá Pessoal,

No Clipper tem a função OS() que retorna o nome e versão do Operating System. Não sei o que retorna no Seven, mas talvez resolva.

[rochinha]

Amiguinho,

Se voce ainda usa o Clipper 4 DOS bastará usar o comando do S.O.: VERsion e capturar a saida.

Código: Selecionar todos

C:>VER

Microsoft Windows [ Versão 5.2.3790 ]

Capturando:

Código: Selecionar todos

C:>VER > versao.txt

C:>TYPE versao.txt
Microsoft Windows [ Versão 5.2.3790 ]

O número acima refere ao Windows Server 2003 Release 2.

5.1.2600 - Microsoft Windows XP Service Pack 3
6.0.6002 - Microsoft Windows Server 2008

[Augusto]

Valeu a ajuda pessoal!!!
Não poderia esperar outra coisa desse fórum!

Até a próxima!

[Clipper]

Prezado Colega

Você pode também usar a função GetWinInfo() da LIB Wapi do nosso colega Maligno.

Até logo.

Marcelo