sexta-feira, 29 de novembro de 2013

VBScript Verifica no dominio se é membro do grupo ( VBScript )

Dim MaqName, BtnCode, bKey
Dim strComputerName, strDomain, strUser, strAdsPath
Const OverwriteExisting = True

Set Wshell   = CreateObject("Wscript.Shell")
Set Net      = CreateObject("Wscript.Network")
Set FSODrive = CreateObject("Scripting.FileSystemObject")
CompName     = Wshell.ExpandEnvironmentStrings("%COMPUTERNAME%")
Usuario      = Wshell.ExpandEnvironmentStrings("%USERNAME%")

strComputerName = Net.ComputerName
strDomain = Net.UserDomain
strUser = Net.UserName
strAdsPath = strDomain & "/" & strUser
strComputer1 = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer1 & "\root\cimv2") 
Set colComputer = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")


If isMember("UNI-TI") then
   MensagemTI()
End If

If isMember("UNI-COMPRAS") then
   MensagemC()
End If


Function MensagemTI
strTitulo = "Seção Técnica de Informática"
strMensagem = _
"AVISO IMPORTANTE" & vbcrlf & vbcrlf & _
"Grupos-> TI "  & vbcrlf & _
"Usuarios->" &Usuario & vbcrlf & _
"Ligar para 8819 - Luciano Garcia"
'BtnCode = WshShell.Popup(strMensagem, 5, "Informação:", 64 + 0)
msgbox strMensagem, 0 + 64, strTitulo
End Function

Function MensagemC
strTitulo = "Seção Técnica de Informática"
strMensagem = _
"AVISO IMPORTANTE" & vbcrlf & vbcrlf & _
"Grupos-> COMPRAS "  & vbcrlf & _
"Usuarios->" &Usuario & vbcrlf & _
"Ligar para 8819 - Luciano Garcia"
'BtnCode = WshShell.Popup(strMensagem, 5, "Informação:", 64 + 0)
msgbox strMensagem, 0 + 64, strTitulo
End Function


Function IsMember(sGroup)
Dim oDict, oUser, oGroup

If IsEmpty(oDict) Then
Set oDict = CreateObject("Scripting.Dictionary")
oDict.CompareMode = vbTextCompare
Set oUser = GetObject("WinNT://" & strAdsPath & ",user")
For Each oGroup In oUser.Groups
oDict.Add oGroup.Name, "-"
Next
Set oUser = Nothing 
End If
IsMember = CBool(oDict.Exists(sGroup))
if IsMember and bolWriteLog then objLogFile.WriteLine(Now() & ": Success: User is member of " & sGroup)
End Function

Nenhum comentário:

Postar um comentário