forum.lissyara.su

Код: Выделить всё

' written by lissyara 2009-04-19 in 02:34 MSK


Dim oNet
Dim WshShell
Dim oShell
Dim QIP

' **** игнорить ошибки
On Error Resume Next

Set oNet = CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")

QIP = WshShell.ExpandEnvironmentStrings("%ProgramFiles%\QIP Infium\infium.exe")

If IsMember("qip_isolated") then
	WshShell.Exec(QIP & " /isolated")
Else
	WshShell.Exec(QIP)
End If


' FUNCTION ============ IsMEmber =====================================================
Function IsMember(sGroup)
' IsMember
' Test to see if user if member of specified group

' sGroup            Name of group
' Returns           True if user is group member

    Dim sAdsPath, oUser, oGroup
    ' ================= Populate dictionary if not yet created =======================
    If IsEmpty(g_oGroupDict) Then
        Set g_oGroupDict = CreateObject("Scripting.Dictionary")
        g_oGroupDict.CompareMode = vbTextCompare
        sAdsPath = oNet.UserDomain & "/" & oNet.UserName
   On Error Resume Next
      Set oUser = GetObject("WinNT://" & sAdsPath & ",user")
         If Err.Number then
            IsMember = FALSE
            Exit Function
         End IF      
   On Error Goto 0
       For Each oGroup In oUser.Groups
            g_oGroupDict.Add oGroup.Name, "-"
        Next
        Set oUser = Nothing
    End If
    IsMember = CBool(g_oGroupDict.Exists(sGroup))
End Function