1 设置计算机名称 98-8-11
声明：
Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long
使用：
NewName = "Hello World"
SetComputerName NewName
2 取得计算机名
声明：
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
例子：
Public Function MachineName() As String
Dim sBuffer As String * 255
If GetComputerName(sBuffer, 255&
0 Then
MachineName = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1
Else
MachineName = "(未知)"
End If
End Function
3 获得用户网络登录名
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function NTDomainUserName() As String
Dim strBuffer As String * 255
Dim lngBufferLength As Long
Dim lngRet As Long
Dim strTemp As String
lngBufferLength = 255
lngRet = GetUserName(strBuffer, lngBufferLength)
strTemp = UCase(Trim$(strBuffer))
NTDomainUserName = Left$(strTemp, Len(strTemp) - 1)
End Function
4 自动更新工作站的应用程序
Private Sub Form_Load()
On Error GoTo errorhandler
' Command 函数返回
' 命令行的字符串信息
' 该程序需要两个参数
' 如
thisprog.exe c:\localdir\prgcopied.exe
' k:\servrdir\prgtocopy.exe)
If FileDateTime(Left(Command$, _
InStr(Command$, " "
- 1)) < _
FileDateTime(Mid$(Command$, _
InStr(Command$, " "
+ 1)) Then
Top = (Screen.Height - Height) / 2
Left = (Screen.Width - Width) / 2
label1 = "拷贝 " & Mid$(Command$, InStr_
(Command$, " ") + 1) & _
" 到你的硬盘..."
Visible = True
Refresh
FileCopy Mid$(Command$, _
InStr(Command$, " ") + 1), _
Left(Command$, InStr(Command$, " ") - 1)
End If
'开始程序
x = Shell(Left(Command$, InStr(Command$, " ") - 1), 3)
End
Exit Sub
errorhandler:
If Err = 53 Then '文件没有
Resume Next '还是要拷贝
Else
MsgBox "错误 # " & Err & Chr(10) & Error _
& Chr(10) & "结束"
End
End If
Exit Sub
End Sub
