DETECTAR LEITOR VIA CODIGO
Tenta assim:
Não esqueça de adicionar as referencias
Imports System.Management
Dim args(4) As String
Dim retVal As Long
Dim comp As System.Management.ManagementObject
Dim comps As System.Management.ManagementObjectCollection
Dim clsComps As New System.Management.ManagementClass([Ô]Win32_ComputerSystem[Ô])
comps = clsComps.GetInstances()
For Each comp In comps
args(0) = [Ô]WORKGROUP[Ô]
args(1) = [Ô]SENHA[Ô]
args(2) = [Ô]WORKGROUP[Ô]
args(3) = [Ô]USUARIO[Ô]
args(4) = 1
retVal = comp.InvokeMethod([Ô]JoinDomainOrWorkgroup[Ô], args)
Next
Se não funcionar dê uma lida de como executar WMI dentro do VB.NET.
No site da Microsoft está a documentação referente a classe WMI utilizada.
http://msdn.microsoft.com/en-us/library/windows/desktop/aa392154(v=vs.85).aspx
Não esqueça de adicionar as referencias
Imports System.Management
Dim args(4) As String
Dim retVal As Long
Dim comp As System.Management.ManagementObject
Dim comps As System.Management.ManagementObjectCollection
Dim clsComps As New System.Management.ManagementClass([Ô]Win32_ComputerSystem[Ô])
comps = clsComps.GetInstances()
For Each comp In comps
args(0) = [Ô]WORKGROUP[Ô]
args(1) = [Ô]SENHA[Ô]
args(2) = [Ô]WORKGROUP[Ô]
args(3) = [Ô]USUARIO[Ô]
args(4) = 1
retVal = comp.InvokeMethod([Ô]JoinDomainOrWorkgroup[Ô], args)
Next
Se não funcionar dê uma lida de como executar WMI dentro do VB.NET.
No site da Microsoft está a documentação referente a classe WMI utilizada.
http://msdn.microsoft.com/en-us/library/windows/desktop/aa392154(v=vs.85).aspx
Caso não funcione tente o link abaixo e se der erro [Ô]encerre[Ô] o tópico pois foi aberto como [Ô]Detectar leitor via código[Ô] e agora já estamos tomando outro rumo.
Abra outro tópico caso a duvida não seja resolvida.
http://www.daniweb.com/software-development/vbnet/threads/336400/workground-name
Abra outro tópico caso a duvida não seja resolvida.
http://www.daniweb.com/software-development/vbnet/threads/336400/workground-name
Verdade AleVale,
Mudou completamente. Encerrando e muito obrigado.
Mudou completamente. Encerrando e muito obrigado.
Tópico encerrado , respostas não são mais permitidas