|
|
可以参考这两个程序：
1。设置计算机名称：
Declare Function SetComputerName Lib"kernel32.dll" Alias"SetComputerNameA"(Byval ipcomputername As String)As Long
ipcomputername="my"
temp=SetComputerName(ipcomputername)
2、利用程序获取计算机名称及登陆用户名：
Declare Function GetComputerName Lib "kernel32.dll" Alias "GetComputerNameA" (Byval lpBuffer As String,nSize As Integer)As Long
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA"(Byval t$,Byval ttt$,Byval siz&)As Long
Dim lpBuffer As String
Dim nSize As Integer
nSize=48
Call GetComputerName(lpBuffer,nSize)
Print tt$
Dim ttt As String
Dim t As String
t=""
Call WNetGetUser(0,ttt,8)
Print ttt
|
|
