{"id":45,"date":"2007-07-14T01:11:46","date_gmt":"2007-07-14T01:11:46","guid":{"rendered":"https:\/\/www.wapshere.com\/missmiis\/?page_id=45"},"modified":"2008-01-18T16:29:43","modified_gmt":"2008-01-18T16:29:43","slug":"sub-queueapproveddisables","status":"publish","type":"page","link":"https:\/\/www.wapshere.com\/missmiis\/code-snippets\/sub-queueapproveddisables","title":{"rendered":"jobRunner.vbs: Sub QueueApprovedDisables"},"content":{"rendered":"

Sub QueueApprovedDisables
\n\u00c2\u00a0 Dim objDB, sqlQuery
\n\u00c2\u00a0 num = 0<\/p>\n

\u00c2\u00a0 Set objDB = CreateObject(“ADODB.Connection”)
\n\u00c2\u00a0 Set recordset = CreateObject(“ADODB.Recordset”)
\n\u00c2\u00a0 objDB.Open DB_CONNECT_STRING
\n\u00c2\u00a0 sqlQuery = “select uid from ” & DB_TABLE_DISABLES & ” where status = ‘Approved’ and archive_status = ‘pending'”
\n\u00c2\u00a0 recordset.Open sqlQuery, objDB<\/p>\n

\u00c2\u00a0 objFS.CreateTextFile ExmergeFolder & server1List, TRUE
\n\u00c2\u00a0 objFS.CreateTextFile ExmergeFolder & server2List, TRUE<\/p>\n

\u00c2\u00a0 Do While Not recordset.EOF
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 QueueMailbox(recordset.Fields(“uid”))
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 recordset.MoveNext
\n\u00c2\u00a0 Loop\u00c2\u00a0
\n\u00c2\u00a0 objDB.Close
\nEnd Sub<\/p>\n

Sub QueueMailbox(ByVal uid)
\n\u00c2\u00a0 Set WshShell = WScript.CreateObject(“WScript.Shell”)
\n\u00c2\u00a0 mailServer = “”
\n\u00c2\u00a0 Set objUser = Nothing<\/p>\n

\u00c2\u00a0 ‘Connect to AD
\n\u00c2\u00a0 Set objConnection = CreateObject(“ADODB.Connection”)
\n\u00c2\u00a0 Set objCommand =\u00c2\u00a0\u00c2\u00a0 CreateObject(“ADODB.Command”)
\n\u00c2\u00a0 objConnection.Provider = “ADsDSOObject”
\n\u00c2\u00a0 objConnection.Open “Active Directory Provider”
\n\u00c2\u00a0 Set objCommand.ActiveConnection = objConnection<\/p>\n

\u00c2\u00a0 ‘Get the user object
\n\u00c2\u00a0 On Error Resume Next
\n\u00c2\u00a0 Set objUser = GetObject(“LDAP:\/\/CN<\/a>=” & uid & “,OU=People,” & RootDomain)\u00c2\u00a0
\n\u00c2\u00a0 If objUser Is Nothing Then
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 WriteLog uid & ” not found”
\n\u00c2\u00a0 Else
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 mailServer = objUser.Get(“msExchHomeServerName”)
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 mailAddress = objUser.Get(“mail”)
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 mailNickname = Left(mailAddress, Instr(mailAddress, “@”) -1)
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 If InStr(mailServer,”server1″) > 0 Then
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Set objFile_electraList = objFS.OpenTextFile(ExmergeFolder & server1List,ForAppending,true)
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 objFile_server1List.WriteLine DNprefix & mailNickname
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 objFile_server1List.Close
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 WriteLog “Mailbox queued for archiving ” & DNprefix & mailNickname
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 ChangeArchiveStatus uid, “queued”
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 ElseIf InStr(mailServer,”server2″) > 0 Then
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Set objFile_server2List = objFS.OpenTextFile(ExmergeFolder & server2List,ForAppending,true)
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 objFile_server2List.WriteLine DNprefix & mailNickname
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 objFile_server2List.Close
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 WriteLog “Mailbox queued for archiving ” & DNprefix & mailNickname
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 ChangeArchiveStatus uid, “queued”
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 End If
\n\u00c2\u00a0 End If
\n\u00c2\u00a0 On Error Goto 0<\/p>\n

\u00c2\u00a0 objConnection.Close
\nEnd Sub<\/p>\n

Sub ChangeArchiveStatus(ByVal uid, ByVal newStatus)
\n\u00c2\u00a0 Dim objDB, sqlQuery<\/p>\n

\u00c2\u00a0 Set objDB = CreateObject(“ADODB.Connection”)
\n\u00c2\u00a0 Set recordset = CreateObject(“ADODB.Recordset”)
\n\u00c2\u00a0 objDB.Open DB_CONNECT_STRING
\n\u00c2\u00a0 sqlQuery = “update ” & DB_TABLE_DISABLES & ” set archive_status = ‘” & newStatus & “‘ where uid = ‘” & uid & “‘”
\n\u00c2\u00a0 recordset.Open sqlQuery, objDB
\n\u00c2\u00a0 objDB.Close
\nEnd Sub<\/p>\n","protected":false},"excerpt":{"rendered":"

Sub QueueApprovedDisables \u00c2\u00a0 Dim objDB, sqlQuery \u00c2\u00a0 num = 0 \u00c2\u00a0 Set objDB = CreateObject(“ADODB.Connection”) \u00c2\u00a0 Set recordset = CreateObject(“ADODB.Recordset”) \u00c2\u00a0 objDB.Open DB_CONNECT_STRING \u00c2\u00a0 sqlQuery = “select uid from ” & DB_TABLE_DISABLES & ” where status = ‘Approved’ and archive_status = ‘pending’” \u00c2\u00a0 recordset.Open sqlQuery, objDB \u00c2\u00a0 objFS.CreateTextFile ExmergeFolder & server1List, TRUE \u00c2\u00a0 objFS.CreateTextFile ExmergeFolder…<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":30,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"jetpack_post_was_ever_published":false,"footnotes":""},"class_list":["post-45","page","type-page","status-publish","hentry"],"jetpack_shortlink":"https:\/\/wp.me\/Pkp1o-J","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/45","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/comments?post=45"}],"version-history":[{"count":0,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/45\/revisions"}],"up":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/30"}],"wp:attachment":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/media?parent=45"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}