Sub userlogon()
Dim suser1,suser2,cuser
GetUserName cuser  'cuser是获取当前登录的用户名
suser1="admin"     'suser1是内置好的用户1名称
suser2="abc"       'suser2是内置好的用户2名称
If CBool(suser1=cuser) Then
 SetTag "vbstag1", 1
ElseIf CBool(suser1<>"") Then
 SetTag "vbstag1", 0
End If

If CBool(suser2=cuser) Then
 SetTag "vbstag2", 1
ElseIf CBool(suser2<>"") Then
 SetTag "vbstag2", 0
End If
End Sub

vbstag1和vbstag2就是你需要设置的变量

计划任务中调用获取用户名函数和脚本