Visual Basic Archives

This Visual Basic script can be used to check for Active Directory group membership so drivemappings can be made to certain shares.

'--------------------------------------------------------
' This is a login script for Active Directory users
'--------------------------------------------------------
Dim objnet, objSysInfo, strUserDN, objUser, strUser

Set objnet = CreateObject("Wscript.Network")

Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.userName
strUser = objNet.UserName
Set objUser = GetObject("LDAP://" & strUserDN)

'--------------------------------------------------------
' Every office will get their own drive mappings,
' so we will have to find out in which office the
' user is located, by looking at the Active Directory
' group membership
dim location
If IsMember("Main Office Staff") Then
   location="MO"
End If
If IsMember("Branch Office Staff") Then
   location="BO"
End If

'--------------------------------------------------------
' Create the network drives
Private Sub MapNetworkDrives()
On Error Resume Next

' Just to make sure their will be no existing driveletters
objnet.RemoveNetworkDrive "F:", True, True
objnet.RemoveNetworkDrive "G:", True, True
objnet.RemoveNetworkDrive "I:", True, True
objnet.RemoveNetworkDrive "J:", True, True

End Sub

MapNetworkDrives

On Error Resume Next
objnet.MapNetworkDrive "F:", "\\data" & location &"-share.mo.company.com\data" & location
objnet.MapNetworkDrive "G:", "\\data" & location &"-share.mo.company.com\data" & location & "\data"
objnet.MapNetworkDrive "I:", "\\data-share.mo.company.com\data"

' If the user is a member of the IT Staff
If IsMember("IT") Then
  objnet.MapNetworkDrive "J:", "\\it-share.mo.company.com\service"
End If

'--------------------------------------------------------
' This function is used to check if the user is
' a member of a certain group
Function IsMember(strGroup)

Dim objGroup
If IsEmpty(objGroupList) Then
Set objGroupList = CreateObject("Scripting.Dictionary")
objGroupList.CompareMode = vbTextCompare
For Each objGroup In objUser.Groups
objGroupList(objGroup.sAMAccountName) = True
Next
End If
IsMember = objGroupList.Exists(strGroup)
End Function
'----------------------------------------------------------

'--------------------------------------------------------

' This is a login script for Active Directory users

'--------------------------------------------------------

Dim objnet, objSysInfo, strUserDN, objUser, strUser

Set objnet = CreateObject("Wscript.Network")

Set objSysInfo = CreateObject("ADSystemInfo")

strUserDN = objSysInfo.userName

strUser = objNet.UserName

Set objUser = GetObject("LDAP://" & strUserDN)

'--------------------------------------------------------

' Every office will get their own drive mappings,

' so we will have to find out in which office the

' user is located, by looking at the Active Directory

' group membership

dim location

If IsMember("Main Office Staff") Then

location="MO"

End If

If IsMember("Branch Office Staff") Then

location="BO"

End If

'--------------------------------------------------------

' Create the network drives

Private Sub MapNetworkDrives()

On Error Resume Next

' Just to make sure their will be no existing driveletters

objnet.RemoveNetworkDrive "F:", True, True

objnet.RemoveNetworkDrive "G:", True, True

objnet.RemoveNetworkDrive "I:", True, True

objnet.RemoveNetworkDrive "J:", True, True

End Sub

MapNetworkDrives

On Error Resume Next

objnet.MapNetworkDrive "F:", "\\data" & location &"-share.mo.company.com\data" & location

objnet.MapNetworkDrive "G:", "\\data" & location &"-share.mo.company.com\data" & location & "\data"

objnet.MapNetworkDrive "I:", "\\data-share.mo.company.com\data"

' If the user is a member of the IT Staff

If IsMember("IT") Then

objnet.MapNetworkDrive "J:", "\\it-share.mo.company.com\service"

End If

'--------------------------------------------------------

' This function is used to check if the user is

' a member of a certain group

Function IsMember(strGroup)

Dim objGroup

If IsEmpty(objGroupList) Then

Set objGroupList = CreateObject("Scripting.Dictionary")

objGroupList.CompareMode = vbTextCompare

For Each objGroup In objUser.Groups

objGroupList(objGroup.sAMAccountName) = True

End If

IsMember = objGroupList.Exists(strGroup)

End Function

'----------------------------------------------------------

This Visual Basic script can be used to check the local computer for active TCP and UDP connections. The default timeout before the next check is set to 2 seconds.

option explicit
dim sleepTime
dim objShell
dim strCommand
dim objExec
dim x

' sleepTime 2000 = 2 seconds
sleepTime = 2000
Set objShell = WScript.CreateObject ("WScript.Shell")

Do While (true)
    Set objExec = objShell.Exec ("C:\windows\system32\Cmd.exe /c c:\windows\system32\netstat.exe -nao | c:\windows\system32\findstr ""127.0.0.1""")
    x = objExec.StdOut.ReadAll
    Wscript.Echo x
    WScript.Sleep sleepTime 
Loop

option explicit

dim sleepTime

dim objShell

dim strCommand

dim objExec

dim x

' sleepTime 2000 = 2 seconds

sleepTime = 2000

Set objShell = WScript.CreateObject ("WScript.Shell")

Do While (true)

Set objExec = objShell.Exec ("C:\windows\system32\Cmd.exe /c c:\windows\system32\netstat.exe -nao | c:\windows\system32\findstr ""127.0.0.1""")

x = objExec.StdOut.ReadAll

Wscript.Echo x

WScript.Sleep sleepTime

Loop

Category: Visual Basic

Active Directory login script

Check for active TCP and UDP connections

Execute an external program