用vb写的程序在windows下特定用户的使用权限

自己用vb6写了个exe的程序。
要怎么才能实现在windows下只有特定用户才能使用这个程序呢？
比如说只能在administer（管理员）和aaa（普通用户）下使用这个程序
谢谢大家先！！！！！！！

---

感觉这不应该是程序解决的问题，应该是WINDOWS组策略的问题

---

使用GetUserName判断系统当前登录用户，如果不是administrator或aaa则退出运行。

---

引用

VB code

Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub main()
Dim strBuffer As String
……

引用

引用 2 楼 lyserver 的回复:
使用GetUserName判断系统当前登录用户，如果不是administrator或aaa则退出运行。

给个更简单的,
msgbox Environ("USERNAME")

同意这2种方法，都很简单！

---

刚上来就看到这么多的回复
大家都这么热心
谢谢了！！！！！！！！！！！！

---

引用

引用 2 楼 lyserver 的回复:
使用GetUserName判断系统当前登录用户，如果不是administrator或aaa则退出运行。

给个更简单的,
msgbox Environ("USERNAME")

能具体说说用法吗？

---

谢谢了

Environ("USERNAME")

这个很好用。