Pessoal, to fazendo um programinha bem util para WIN, mas quero ver se consigo resolver um problema!
Quero obter a lista de CONEXOES DE REDE da maquina! Alguem manja como fazer isso? Tem algum jeito?
Abracosss
(Se eu conseguir terminar o projeto, vou disponibilizar o projeto para todos, quem sabe ateh o fonte!)
http://www.serverwatch.com/tutorials/article.php/1548421
Copie o programa a seguir para um arquivo teste.vbs, altere a string “nome da sua maquina” para o nome de sua máquina, e rode-o em um Prompt de Comando (DOS) com o comando:
cscript teste.vbs
sComputer = "nome da sua maquina"
sNameSpace = "root/CIMV2"
sClass = "Win32_NetworkAdapter"
Set cInstances = GetObject("winmgmts:{impersonationLevel=impersonate}//" & _
sComputer & "/" & sNameSpace & ":" & sClass).Instances_
For Each oInstance In cInstances
WScript.Echo String(60,"=")
For Each oProperty In oInstance.Properties_
WScript.Echo oProperty.Name
If IsArray(oProperty) Then
For iCount = 0 To UBound(oProperty)
WScript.Echo vbTab & oProperty.Value(iCount)
Next
ElseIf IsNull(oProperty) Then
Wscript.Echo vbTab & "Property not set"
Else
WScript.Echo vbTab & oProperty.Value
End If
Next
Next
UOU, fiquei sem entender…
Eh para colocar isso dentro de .bat por exemplo??
Aaaa ta cara… agora entendi, nossa BOLAAAA FORA!!!
ja to estudando o script ae pra melhorar o retorno!!! já estou quaseee lááá!!!
Depois que arrumar o código para otimizar, vou ver como farei pra pegar o retorno com isto:
// Win9x
Runtime.getRuntime().exec("start teste.vbs");
// WinNT
Runtime.getRuntime().exec("cmd /c start teste.vbs");
ou
// Com console visivel
Runtime.getRuntime().exec("cscript teste.vbs");
//sem console visivel
Runtime.getRuntime().exec("wscript teste.vbs");
AGORA SIm!!!
Sabe se JNI da pra usar e fazer algo com VBS?
Abracos Thingol!!!
Eu acho que VBScript permite você escrever a saída em um arquivo. Aí fica bem fácil de trabalhar (redirecionar a saída de um programa é sempre meio chatinho).
Olha o codigo mais aperfeiçoado!!!
[code]
sComputer = “Nome Computador”
sNameSpace = “root/CIMV2”
sClass = “Win32_NetworkAdapter”
Set cInstances = GetObject(“winmgmts:{impersonationLevel=impersonate}//” & _
sComputer & “/” & sNameSpace & “:” & sClass).Instances_
For Each oInstance In cInstances
For Each oProperty In oInstance.Properties_
If oProperty.Name = “NetConnectionID” Then
if Not IsNull(oProperty.Value) Then
WScript.Echo String(30,"=")
WScript.Echo vbTab & oProperty.Value
End If
End If
Next
Next[/code]
Ontem na madruga não achei um código tipo If IsNotNull() Then (algo como isso), mas vou procurar mais no MSDN!
Eh uma saída né, salvar a saída dos dados!! Ontem eu vi que tem uns lances para gravar arquivos…
VALEUUU
Pô, meu, você poderia usar “if Not IsNull(” - VB não é C ou Java e não tem abreviações enigmáticas, como a “!” para indicar negação. (Para mim “!” quer dizer fatorial
)
Not é Not mesmo.
Eu achei que era
IsNotNull, mas dava erro, e procurei na parte de objetos no MSDN e naum tinha achado nada, mas se NOT eh a negacao mesmo!!!
To acostumado com o “!” mesmo!