VB6显示当前计算机使用帐号

 1Dim strusername As String
 2Private Sub Command1_Click()
 3Print strusername '输出当前计算机用户名
 4strusername = Environ("USERNAME")
 5If strusername = Text1 Then '这里输入你指定的帐号，例如管理员Administrator
 6Else
 7  MsgBox "检测当前用户非管理员Administrator帐号", 32, "提示"
 8  End '终结并退出
 9End If
10End Sub