重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
前台UI自己搞定,但是你说用域账号来登录,也就是Windows账号的话,那个东西,你还要看一下Windows API,调用相关的Windows 组件才能达到你的要求,我知道vmware server那个就是用Windows账号登录的。
在光明等地区,都构建了全面的区域性战略布局,加强发展的系统性、市场前瞻性、产品创新能力,以专注、极致的服务理念,为客户提供网站建设、网站制作 网站设计制作按需定制设计,公司网站建设,企业网站建设,品牌网站设计,成都营销网站建设,成都外贸网站建设,光明网站建设费用合理。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim UserID As String = Environment.GetEnvironmentVariable("USERNAME") '获取用户名
MsgBox(UserID)
End Sub
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub GetName()
Dim sJM As String
Dim sMC As String
Dim sIP As String
Dim s As String
s = String(128, Chr(0))
GetComputerName s, Len(s)
s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))
sJM = s'计算机名称
s = String(128, Chr(0))
GetUserName s, Len(s)
s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))
sMC = s‘当前用户名称
End Sub
'用这种方法在远程获得再发回本机就可以吧
'取计算机型号暂时不会
如果你有该永动机的登陆用户名和密码.那简单了.
Shell("c:\windows\system32\cmd.exe /c net use \\192.168.0.199 """"" " /user:" """guest""")
里面冒号太多了.你可以通过CHR去转换里面中的一些冒号.
这句话可以不要人为去输入用户名和密码.
另外如果你可以使用
My.Computer.Network.DownloadFile()
函数去进行文件下载.这个比较方便 .
用Environment类中的GetEnvironmentVariable方法。
保存用户名的环境变量是USERNAME。
比如
string username=Environment.GetEnvironmentVariable("USERNAME")