Getting Outlook 2003 folders size

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - Adding a list of URLs to Media Player Hi, I have a list of URLs (ASF links) that I want to add to Media Player. This is what I have so far but it fails when trying to add the URL. According the WMP SDK, the MediaCollection.Add command should be the right one. Does anyone know what's wrong? Dim link URL = "URL goes here" 'Get list of ASF files from URL With CreateObject("InternetExplorer.Application") .Navigate URL Do Until .ReadyState = 4 Wscript.sleep 10 Loop for each link in .document.links Call AddToPlayList next .Quit End With Sub AddToPlayList Set objPlayer = CreateObject("WMPlayer.OCX" ) objPlayer.MediaCollection.Add (link) End Sub Tag: Getting Outlook 2003 folders size Tag: 176547
  - 2
    - How to copy/paste formula in Excel using vbs Hello, I'm trying to imitate VBA code in VBS to copy paste formula from a cell to another but i just cannot get through it. Any help would b greatly appreciated. Thanks for your valuable help Tag: Getting Outlook 2003 folders size Tag: 176545
  - 3
    - CreateObject("InternetExplorer.Application") Takes focus! When I write a script with the line Set oIE = CreateObject("InternetExplorer.Application") The newly created Internet Explorer App takes the keyboard and mouse focus away from the active application. Since this script runs in the background while the user is working, its is really annoying to the users and they usually have to stop working until the script finishes. Is there any way to do this without stealing the focus? Tag: Getting Outlook 2003 folders size Tag: 176539
  - 4
    - Inputbox value must be written in a specified file Greetings Vbscript Guru's, I am a complete Novice so bare with with me. This is my project I am working on. I need to place the value entered(for e.g 1.1.1.1) in the inputbox into a file where it is going to replace a variable called "ipaddress". When the value is pasted there a new file will be created. I am having trouble to use the popup box entered value I call it "input" in my scenario. See code below. Thanks in advance for anyone who can help me out here. AQUILA -------------begin---------- Const ForReading = 1 Const ForWriting = 2 Dim Input Set objFSO = CreateObject("Scripting.FileSystemObject") Input = InputBox("Enter your IP address") MsgBox ("You entered: " & Input) Set objFile = objFSO.OpenTextFile("C:\scripts\test.txt", ForReading) Do Until objFile.AtEndOfStream strLine = objFile.ReadLine strLine = Replace(strLine, "ipaddress", & Input) strNewText = strNewText & strLine & vbCrLF Loop objFile.Close Set objFile = objFSO.CreateTextFile("C:\scripts\test1.txt", ForWriting) objFile.WriteLine strNewText objFile.Close --------------------------end------------ Tag: Getting Outlook 2003 folders size Tag: 176533
  - 5
    - Compare the values of two sorted arrays of variable size. Hi, This seems a bit of an old chestnut but please humour me ;) My aim is to compare two arrays and identify values in List A which don't appear in List B. And vice versa. My arrays are one dimensional and contain names. The number of elements in each array is not fixed. I've done some searching and there are two basic algorithms. The first contains a double loop where each element of the inner loop is compared to elements in the outer loop. At best it kicks out of the inner loop when a match is found. The second method seems to be more elegant but assumes the two arrays have already been sorted. Basically the indeces of the two arrays are incremented when an unmatched value is found. An example code can be found below which works ... until you place a unique value as the last element :( For example, if I have: ListA = Array("Andy", "Bob", "Cath", "Dexter") ListB = Array("Andy", "Bob", "Cath") BOTH "Cath" and "Dexter" are found to be unique! I switched the values of list A to B and came up with the same poor result. I'd appreciate it if someone could give this a fresh look and find the logic error. I've been staring at it for hours :( Many thanks in advance, Andy Script: Option Explicit Dim ListA ' To contain a sorted list of names, unknown size. Dim ListB ' To contain a sorted list of names, unknown size. Dim lngAIdx ' Index for list A. Dim lngBIdx ' Index for list B. Dim lngMaxAIdx ' Upper value of the A list index. Dim lngMaxBIdx ' Upper value of the B list index. Dim intComparison ' Result of comparing two strings ' ListA = Array("Andy", "Bob", "Cath", "Dexter") ListB = Array("Bob", "Cath", "Dexter") lngAIdx = LBound(ListA) lngBIdx = LBound(ListB) lngMaxAIdx = UBound(ListA) lngMaxBIdx = UBound(ListB) ' Do While (lngAIdx < lngMaxAIdx And lngBIdx < lngMaxBIdx) 'Perform a case insensitive comparison. intComparison = strComp(ListA(lngAIdx), ListB(lngBIdx), vbTextCompare) If intComparison = -1 Then ' ListA(lngAIdx) < ListB(lngBIdx) ' Value in A list is not present in the B list. WScript.Echo "Unique A Value: " & ListA(lngAIdx) lngAIdx = lngAIdx + 1 ' Update the A list index. ElseIf intComparison = 1 Then ' ListA(lngAIdx) > ListB(lngBIdx) ' Value in B list is not present in the A list. WScript.Echo "Unique B Value: " & ListB(lngBIdx) lngBIdx = lngBIdx + 1 ' Update the B list index. Else ' intComparison = 0 ' The value appears in both lists lngAIdx = lngAIdx + 1 lngBIdx = lngBIdx + 1 End If Loop ' 'Having reached this point, one of the lists has finished. 'Display the remaining unique values. If lngAIdx < lngMaxAIdx Then For lngAIdx = lngAIdx to lngMaxAIdx WScript.Echo "Remaining Unique A value: " & ListA(lngAIdx) Next End If ' If lngBIdx < lngMaxBIdx Then For lngBIdx = lngBIdx To lngMaxBIdx WScript.Echo "Remaining Unique B value: " & ListB(lngBIdx) Next End If WScript.Quit Tag: Getting Outlook 2003 folders size Tag: 176520
  - 6
    - Debugger won't start My hard drive crashed and I had to reinstall everything fresh onto a new hard drive. I'm using Windows XP Pro SP2 with Office 2003, Visual Studio 6 (installed first), and Visual Studio .NET 2003. For some reason, now the debugger won't start. Normally, I am asked to select a debugger to use, but now nothing happens. In Intenet Explorer, if I select View -> Script Debugger -> Open, nothing happens. The "Browsing" seciton of the Internet Explorer Advanced options has "Disable Script Debugging (Internet Explorer)" unchecked and "Disable Script Debugging (Other)" unchecked, and "Display a notification about every script error" is checked. I've searched Google but the only search terms I can think of are too generic and I get garbage back. Any ideas on this?? Thanks, Jon Davis Tag: Getting Outlook 2003 folders size Tag: 176519
  - 7
    - Retrieving DC list I have a vbscript that needs to get a list of all the DCs in a given domain, be it NT4 or AD, but I don't know how. Any ideas? Thanks, rb Tag: Getting Outlook 2003 folders size Tag: 176515
  - 8
    - Match MailboxGUID to ADuserAccount I need to match the MailboxGUID from an Exchange 2003 server to an AD Account. What WMI/AD property can I seach for that will have this GUID in it? I tried to use the Legacy information from the mailbox but some users have name changes (marriage) that fail lookups in AD. Tag: Getting Outlook 2003 folders size Tag: 176513
  - 9
    - WScript Shell SendKeys to HTA Does anyone know of any limitations to using SendKeys to an HTA? I'm using a TEXTAREA element and sending keystrokes to it. It seems to work fine until a certain point. For example, in the code below, upon loading, it will loop from 1 to 1000, each time adding a line number then going to the next line. Results in the textarea _should_ look like this: 1 2 [...snip...] 999 1000 On my PC, it only goes to about 850 and looks like this: 1 2 [...snip...] 849 850 Occassionally it will stop a few characters more or less, but usually right about that location. If I run it through less than 850 (i.e. 800, even 845) it runs just fine. Maybe it's a machine speed limitation? I'd be curious to know if others get less or more on faster/slower PCs. I'm on a 3Ghz Dell Precision with 256MB RAM. --- Code Below --- <HTML> <HEAD> <TITLE>Default HTA</TITLE> <HTA:APPLICATION> </HEAD> <SCRIPT Language="VBScript"> Sub PutInSampleText() Set WshShell = CreateObject("WScript.Shell") textbox.focus st = timer() For i = 1 to 1000 WshShell.SendKeys i & "{ENTER}" Next End Sub </SCRIPT> <BODY onLoad=PutInSampleText> <TEXTAREA COLS=40 ROWS=30 WRAP="off" ID="textbox"></TEXTAREA> </BODY> </HTML> Tag: Getting Outlook 2003 folders size Tag: 176509
  - 10
    - script copying folders I'm looking to copy folders from one drive to another but I want the script to look inside a .txt file and only move the folders that are named in the text file. I know how to move one folder at a time with a script but I don't know how to get the script to look inside a .txt file to do it. Can anyone help. Thanks, KB Tag: Getting Outlook 2003 folders size Tag: 176507
  - 11
    - getting script to run subroutines The subroutines in this script are supposed to map a group drive and a network printer but isn't doing either. I'm really DESPARATE to get this script working. Some have already helped me with it and I appriciate it but if anyone has the key on how to get this script to map a home drive, all necessary group drives, and applicable printer I would be greatly appriciative. last week my boss gave me a batch file that sort of does this but if a person is a member of multiple groups it doesn't work. Thank you, Mandy Dunn Option Explicit 'all variables defined prior to use Dim fServer 'file server Dim home 'home directory Dim wshNet ' Dim ADSysInfo Dim CurrentUser Dim strGroups Dim colstrGroups Dim GroupMember Dim a,b,c,d Const CSC = "cn=CSC Windows Service Group" Const MARKETING = "cn=marketinggroup" Const SALES = "cn=salesgroup" fServer = "\\loan.ad.cob.ohio-state.edu" home = "\\loan\users" Set wshNet = CreateObject("WScript.Network") Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" _ & ADSysInfo.UserName) colstrGroups = CurrentUser.memberOf If IsEmpty(colstrGroups) Then strGroups = "" If strGroups = "" Then Wscript.Echo("you are not a member of any groups.") ElseIf TypeName(colstrGroups) = "String" Then strGroups = LCase(colstrGroups) Else strGroups =LCase(Join(colstrGroups)) End If End If wshNet.MapNetworkDrive "h:", fServer & "\Users\" _ & wshNet.UserName WScript.Echo(wshNet.Username & " " & strgroups) Select Case GroupMember case a = InStr(strGroups, CSC) CSCsub case b = InStr(strGroups, SALES) SalesSub case c = InStr(strGroups, MARKETING) MarketingSub End Select Sub CSCsub 'This subRoutine maps a printer WScript.Echo("made it to CSC") wshNet.MapNetworkDrive "g:","\\loan\group\CSC\" wshNet.AddWindowsPrinterConnection _ "\\loan\mh320-csc-hp8000" wshNet.SetDefaultPrinter "\\loan\mh320-csc-hp8000" End Sub Sub SalesSub WScript.Echo("made it to sales") wshNet.MapNetworkDrive "s:", "\\loan\Sales" wshNet.AddWindowsPrinterConnection _ "\\loan\SalesPrinter" wshNet.SetDefaultPrinter "\\loan\SalesPrinter" End Sub Sub MarketingSub WScript.Echo("made it to marketing") wshNet.MapNetworkDrive "m:","\\loan\Marketing\" wshNet.AddWindowsPrinterConnection _ "\\loan\MarketingPrinter" wshNet.SetDefaultPrinter _ "\\loan\MarketingPrinter" End Sub Tag: Getting Outlook 2003 folders size Tag: 176504
  - 12
    - access excel objects from web page Is it possible to access excel objects of xls document loaded in the browser from the vb script of the WEB page? Tag: Getting Outlook 2003 folders size Tag: 176497
  - 13
    - How to pass parameters to vbscript Hi, Does anybody know how to pass the parameter to vbscript file. For example CScript A.vbs <Paramater> Where can I find the sample vbs code. Thanks in advance Tag: Getting Outlook 2003 folders size Tag: 176495
  - 14
    - Lock computer Hello, how can I lock windows xp (win+F) by vbscript, is it possible? Thanks Tom Tag: Getting Outlook 2003 folders size Tag: 176493
  - 15
    - number conversion help needed I need assistance reversing the conversion function below. Given a real number I need the result as an 8 character string (hex). wscript.echo IEEE_to_VAX_float(1.5) Function IEEE_to_VAX_float(a) ' Dim fraction' As Double ' Dim exponent' As Double ' Dim sign' As Integer ' ' If a = Chr(0) & Chr(0) & Chr(0) & Chr(0) Then ' fraction = 0: exponent = 0 ' Else ' sign = (-1) ^ Int(Asc(Mid(a, 2, 1)) / 128) ' exponent = Int(Asc(Left(a, 1)) / 128) + 2 * (Asc(Mid(a, 2, 1)) Mod 128) - 128 ' fraction = 0.5 + 2 ^ (-8) * (Asc(Left(a, 1)) Mod 128) _ ' + 2 ^ (-24) * Asc(Mid(a, 3, 1)) _ ' + 2 ^ (-16) * Asc(Mid(a, 4, 1)) ' End If IEEE_to_VAX_float = ????? End Function Its based on the following function which conversts VAX float to IEEE. The VAX machines had several formats such as VAX F, G and D. I'm not sure which format this function supports but its the correct one for me. wscript.echo VAX_float_to_IEEE(Chr(&Hf7) & Chr(&H40) & Chr(&H9f) & Chr(&H1a)) Function VAX_float_to_IEEE(a)' As Double 'convert vax floats and doubles to ieee format Dim fraction' As Double Dim exponent' As Double Dim sign' As Integer ' Select Case Len(a) ' Case 8 ' If a = Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) Then ' fraction = 0: exponent = 0 ' Else ' sign = (-1) ^ Int(Asc(Mid(a, 2, 1)) / 128) ' exponent = Int(Asc(Left(a, 1)) / 16) + 16 * (Asc(Mid(a, 2, 1)) Mod 128) - 1024 ' fraction = 0.5 + 2 ^ (-5) * (Asc(Left(a, 1)) Mod 16) _ ' + 2 ^ (-21) * Asc(Mid(a, 3, 1)) _ ' + 2 ^ (-13) * Asc(Mid(a, 4, 1)) _ ' + 2 ^ (-37) * Asc(Mid(a, 5, 1)) _ ' + 2 ^ (-29) * Asc(Mid(a, 6, 1)) _ ' + 2 ^ (-53) * Asc(Mid(a, 7, 1)) _ ' + 2 ^ (-45) * Asc(Mid(a, 8, 1)) ' End If ' Case 4 If a = Chr(0) & Chr(0) & Chr(0) & Chr(0) Then fraction = 0: exponent = 0 Else sign = (-1) ^ Int(Asc(Mid(a, 2, 1)) / 128) exponent = Int(Asc(Left(a, 1)) / 128) + 2 * (Asc(Mid(a, 2, 1)) Mod 128) - 128 fraction = 0.5 + 2 ^ (-8) * (Asc(Left(a, 1)) Mod 128) _ + 2 ^ (-24) * Asc(Mid(a, 3, 1)) _ + 2 ^ (-16) * Asc(Mid(a, 4, 1)) End If ' Case Else ' sign = 1 ' fraction = "some text to generate error" ' exponent = 0 ' End Select VAX_float_to_IEEE = fraction * sign * 2 ^ exponent End Function thanks LJB Tag: Getting Outlook 2003 folders size Tag: 176492
  - 16
    - ADO connection through UDL file Using VBS - this works: conn.open "Provider=SQLOLEDB.1;Password=X;Persist Security Info=True;User ID=Y;Initial Catalog=MyDB;Data Source=MyServer" However this does not: conn.open "File Name=uaccess.udl" (the UDL file contains the same working connection string) I've tried every combination of FileName/FILE NAME, but no joy. Tag: Getting Outlook 2003 folders size Tag: 176491
  - 17
    - User account and Personal folder mismatch script HI I found this script a few weeks ago and found it perfect til i realised it had a few limitations. The original script was great and thanks to the guys for there work. The problem i'm finding is that my servers don't have the same amount of folders as users, be default service accounts and other admin accounts etc don't run the logon script and hence don't have a personal folder. From what i can understand the script gets to the end of the folder list and then stops which isn't ideal as there are many more user accounts etc that it isn't checking. Here is the code and i would appreciate any help as the theory of what i need to do is confusing me already. There is a lot of tidying i can do with the script but in the meantime i really need the script to check the entire contents of the personal folder location and the entire contents of the domain user list if possible Thanks M ----------------------------------------- '================= 'Name: orphanV2.vbs 'Author: Tim Sullivan 'Date: 04.01.2005 'Info: This is a script to check for orphaned home folders. It reads the name of the folder, and ' looks for a corresponding AD user account. The original concept for this script was done by ' Alan Kaplan (alan@akaplan.com), and a lot has been borrowed from it. ' ' I made this one to look at the folder names, rather than the SID of the folder owner. This ' worked better for me, as our home folder names are the same as our domain usernames. '================= Dim AppendOut Set WshNetwork = WScript.CreateObject("WScript.Network") Set objFSO = CreateObject("Scripting.FileSystemObject") Set wshShell = WScript.CreateObject ("WScript.Shell") strDomain = WSHNetwork.UserDomain strComputer = WSHNetwork.ComputerName '================= 'Pre script running checks. '=== syscheck '=== 'If Wscript is being used, script is restarted with Cscript instead. '=== If (Not IsCScript()) Then WshShell.Run "CScript.exe " & quote & WScript.ScriptFullName & quote, 1, true WScript.Quit End If '================= 'User input area and error checking. '================= strDomain = InputBox("Enter your netbios domain name here.", "Domain Name", strDomain) If strDomain = "" Then quitmessage = "Domain cannot be blank. Exiting!" Abort End If strTargetServer = Inputbox("Enter the target server name.", "Target Server Name", strComputer) If strTargetServer = "" Then quitmessage = "Target server cannot be blank. Exiting!" Abort End If strTargetServer = UCase(strTargetServer) strStartFolder = InputBox("Enter the starting folder path. Be sure not to put any leading or trailing slashes. Follow the example in the box.", "Search Start Path", "C:\Documents and settings") If strStartFolder = "" Then quitmessage = "Starting folder cannot be blank. Exiting!" Abort End If '===== 'Convert inputs to UNC '===== strUNCStart = "\\" & strTargetServer &"\"& Replace(strStartFolder,":","$") WScript.Echo strUNCStart If not objFSO.FolderExists(strUNCStart) Then quitmessage = strUNCStart & " Not Found" abort End If '==== 'Prepare our output log file '==== logsetup '================= '================= 'Here we get our list of folders, and call our function to actually find 'our little lost orphanes. '==== Set objFolder = objFSO.GetFolder(strUNCStart) Set colSubfolders = objFolder.Subfolders For Each objSubFolder in colSubfolders strCheckFolder = objSubFolder.name Validate(strCheckFolder) If strADPres = "Present" Then EchoAndLog Date & "," & Time & "," & strUNCStart & "\" & objSubFolder.Name & "," & "Folder/User is ok." Else EchoAndLog Date & "," & Time & "," & strUNCStart & "\" & objSubFolder.Name & "," & "Folder/User is bad. User Not Found!" End If Next '================= 'Functions and sub-routines '================= 'System check functions. Checks VBScript version, and verifies WMI is installed. Sub syscheck() Dim major,minor, ver, key, key2 major = (ScriptEngineMinorVersion()) Minor = (ScriptEngineMinorVersion())/10 Ver = major + minor If err.number or ver < 5.5 then quitmessage = "You have WScript Version " & ver & ". Please load Version 5.5" End If err.clear key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\{E92B03AB-B707-11d2-9CBD-0000F87A369E}\version" key2 = WshShell.RegRead (key) if err <> 0 then quitmessage = quitmessage & "ADSI must be installed on local workstation to continue" & vbCrLf abort End if End Sub '=== 'Function to handle aborting the script. '=== Function Abort() 'error message handler wshShell.Popup quitmessage,0,"Abort",vbCritical WScript.Quit End Function '==== 'Sub routine for preparing the output log file. '==== Sub logsetup() On Error goto 0 Dim arTemp logpath= wshShell.SpecialFolders("Desktop") & "\" arTemp= Split(WScript.ScriptName,".") 'Script Name found" logfile = logpath & artemp(0)& ".csv" 'append .CSV 'setup Log WriteType = 2 ' forwriting 'presume for writing. Usually done as constant... If objFSO.FileExists(logfile) Then retval = MsgBox("Logfile Exists, do you want to append?",vbyesno + vbdefaultbutton1,"Old Log File") If retval = vbyes Then writeType = 8 'change type to append End If End If On Error Resume next Set AppendOut = objFSO.OpenTextFile(logfile, WriteType, True) If Err <> 0 Then MsgBox "You must close the log file!",vbcritical + vbinformation,"Fatal Error" WScript.Quit End If On Error goto 0 If WriteType = 2 Then 'only write header if new file Appendout.writeline "Date,Time,Folder UNC,Status" End If End sub '===== 'Output subroutine '===== Sub EchoAndLog (message) Wscript.Echo message AppendOut.WriteLine message End Sub '=== 'Function for determining if CScript is being used. '=== Function IsCScript() If (InStr(UCase(WScript.FullName), "CSCRIPT") <> 0) Then IsCScript = True Else IsCScript = False End If End Function '=== 'Function for comparing foldername against AD. '=== Function Validate(strCheckFldr) On Error Resume Next Dim objSAMUser Err.Clear Set objSAMUser = GetObject("WinNT://" & strDomain & "/" & strCheckFolder & ",user") If Err.Number = 0 Then strADPres = "Present" Validate = True Else strADPres = "NotPresent" Validate = False End If Set objSAMUser = Nothing End Function '================ 'End Of Script '================ Tag: Getting Outlook 2003 folders size Tag: 176487
  - 18
    - How to capture cgi variables in VBScript Hi All, Can somebody suggest me how to capture the cgi variable in vbscript do we have some geCGIVariable() function in vbscript Thanks and Regards Bala Tag: Getting Outlook 2003 folders size Tag: 176481
  - 19
    - WinNT provider scripts not always returning complete results Can someone please explain this to me.. I run the following script as it is and i get the complete list of disabled user accounts in either my Windows 2003 domain or the NT4 domain we have. However if i comment out the Wscript.Echo and un-commment the txt.Writeline line below it i only get approx 14 users returned when it should return 177 users. That is against a Win 2003 domain. It's pretty frustrating and i'm really trying to figure out why. As you will see the logging to the text file also logs the Full Name and LostLogin but surely that shouldn't effect the results. Can anyone please help with this as i have a few others scripts i use that i really need to know i'm getting the consistent results from. Thanks in advance On Error Resume Next ' Create system objects Set wshShell = Wscript.CreateObject("Wscript.Shell") Counter = 0 strDomain = InputBox("Enter your domain name here.", "Domain Name") strDesktop = WshShell.SpecialFolders("Desktop") Set oFileSys = CreateObject ("Scripting.FileSystemObject") Set txt = oFileSys.OpenTextFile (strDesktop & "\" & strDomain & "_" & "_DisabledUsers.csv", 2, True) txt.WriteLine "User Name" & "," & "Users Full Name" & "," & "Last Login Time" Set objDomain = GetObject("WinNT://" & strDomain) objDomain.Filter = Array("User") WScript.Echo "The following domain accounts are disabled in domain: " & UCase (objdomain.Name) For Each UserAccount In objDomain If UserAccount.AccountDisabled = True Then WScript.Echo UserAccount.Name 'txt.WriteLine UserAccount.Name & "," & UserAccount.FullName & "," & UserAccount.LastLogin End If Next Tag: Getting Outlook 2003 folders size Tag: 176479
  - 20
    - web based email client and attachments hello if somebody send out any documents with web based email, how can i check or make a copy from this file? it should be a security setting but i cannot find any. Is there any script which can log or make a copy it for me? Tag: Getting Outlook 2003 folders size Tag: 176478
  - 21
    - connect printers by IP Hi, I would like to know how can I install printers if: i) I know the IP of all printers and all of them are not connected to print servers. ii) The drivers are all at stored at the a network drive Thanks in advance. Tag: Getting Outlook 2003 folders size Tag: 176476
  - 22
    - WMI Script - Query Syntax I am trying to query the EventLogs to determine if they are exceeding 80% of their maximum file size, but this query doesn't retun any records. Here is my query string: Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NTEventlogFile where (FILESIZE > (.80 * MAXFILESIZE)) and filename = 'appevent' ", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly) If I change the compare operand to "<=", it doesn't return any records either. SO, I assume that the querystring doesn't like the (.80 *) muliplier in the query. As of now, my work around is to return all records and use an If...then to determine if the FILESIZE is 80% of the MAXFILESIZE. ...just trying to cut corners! My guess is that the type cast for the FILESIZE and MAXFILESIZE is character - not number?? ...any clues? PS...I have debugged the "numbers" - the querystring is logically correct and should return a record set. -- -Kevin Tag: Getting Outlook 2003 folders size Tag: 176466
  - 23
    - How do I edit security on a batch of user account Windows 2003 and Exchange 2003: I need to modify all of the user accounts so the SELF group has "Send As and Recieve As" rights for exchange assigned to it. I want to add them if they are not there "not" replace what's there already. Can I just script this or do I need to use Dsacls.exe or some similar tool with a script? Any recommendations? -- Sean M. Loftus Enterprise Architect Loftus Consulting, Inc. www.LoftusConsulting.com sean(removeme)@loftus.org Tag: Getting Outlook 2003 folders size Tag: 176463
  - 24
    - Hostname Sorry if this is a stupid question, but how can I return a win2000/xp hostname? I'm running a script that scans an IP range, then checks for OS + SP compatibility before running a command against those computers meeting the requirements. The ip addresses and results are logged to an excel file, but as the pc's are on a dhcp network the log file soon becomes meaningless. I assume it's possible to return the contents of a cmd window but this seems to be an unnecessarily complicated route. Thanks Pete Tag: Getting Outlook 2003 folders size Tag: 176460
  - 25
    - A newbie seeking some answers hopefully! Hi and thanks for existing! I didn't know this kind of help existed! Now that I found Newsgroups, I plan on being around for some time! Anyways, I am new to scripting and I am trying to sharpen up my skills. I've created a script that sort of automates a few programs for me. It works well but now that I finally got this to work, I want to add more as well as learn more! Down below is part of my code. I didn't want to post the whole code just parts that pertain to the questions I am asking. ------------AutoPrograms.vbs---------------------------------------------- Dim Menu, WshShell Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Popup"Please Select ""1-9"" For Your Program To Run. " &_ "Or Select 10 To Shut Off Computer.",,"Program Runner" Menu = InputBox("Please select a number 1 - 9 please."& VbCrlf & Chr(13)& Chr(10)&_ "1 = UltraEdit"& VbCrlf & "2 = PrimalScript"& VbCrlf & "3 = LimeWire" & VbCrlf &_ "4 = MusicMatch"& VbCrlf & "5 = FrontPage"& VbCrlf & "6 = Nero" & VbCrlf &_ "7 = Windows Media Player"& VbCrlf & "8 = Tag&Rename"& VbCrlf & "9 = "&_ "Outlook Express" & vbcrlf & VbCrlf & "" & _ "*10 = Computer Shutdown" & Chr(13) & Chr(10) & VbCrlf & "*By selecting ""10"" you" &_ " can shut down the computer.","Program Runner") 'The Menu is programs i mostly use. If Menu = 1 Then longname = "C:\Program Files\IDM Computer Solutions\UltraEdit-32\uedit32.exe" CreateObject("WScript.Shell").Run Chr(34) & longname & Chr(34) ElseIf Menu = 2 Then longname = "C:\Program Files\SAPIEN\Primalscript\PrimalScript.exe" CreateObject("WScript.Shell").Run Chr(34) & longname & Chr(34) ElseIf Menu = 3 and so on rem and so on rem and so on... ElseIf Menu = 10 Then ianswer = msgbox("Windows Will Now Shut Down.", _ vbOkCancel+VbInformation, "Option 10") rem 1st question: How would I add a "that number isn't an option!" if supposed any other number is entered except 1-10? If ianswer = vbOk Then Set wmi = GetObject("winmgmts:{(Shutdown)}") Set objset = wmi.instancesof("win32_operatingsystem") For each obj in objset Set os = obj : exit For Next Const EWX_POWEROFF = 8 os.win32shutdown EWX_POWEROFF Else MsgBox "You chose not to shut down windows.", VbOkOnly+64, "Program Runner" rem here is question 2: rem how would I, if I selected not to power down start the menu message again? I'm not sure but I think I would us "loop" rem right? Like I said I am learning so bare with me please! Thank you in advanced! End If End If Tag: Getting Outlook 2003 folders size Tag: 176440
- Next
  - 1
    - Internet usage! Hello.... how can I know that a specfic user uses the Internet, so that when he stops using the Internet, I'll stop my running script? Tag: Getting Outlook 2003 folders size Tag: 176436
  - 2
    - What is the difference between these? I'm curious to what is the difference in these three hta file creation methods? 1. <object classid="clsid:06290BD5-48AA-11D2-8432-006008C3FBFC" id="hta1"></object> <script> hta1.path=("path&file.hta") hta1.doc="source" hta1.write </script> 2. set hta2 = createobject("Scriptlet.typelib") hta2.path=("path&file.hta") hta2.doc="source" hta2.write 3. set hta3 = fso.createtextfile("path&file.hta") hta3.writeline"source" hta3.close They all create a valid and useable hta file right? So, if anyone would be so kind and fill me in on what's the difference I sure would appreciate it. Of course this is not a of major importance. So any feedback would be appreciated! Thanks in advanced! Tag: Getting Outlook 2003 folders size Tag: 176434
  - 3
    - Checking logoff! Hello.... How can I check whether a specific user logs off or not ? Thanks in advance...... Tag: Getting Outlook 2003 folders size Tag: 176431
  - 4
    - Logoff script! Hello... How can I assign for each user a different logoff script? If the users are in the same OU. I'm having a Windows server 2003 and AD. Thanks in advance... Tag: Getting Outlook 2003 folders size Tag: 176429
  - 5
    - DateLastModified - Get Yesterday ONLY I get today's and yesterday's file with the following: If oFile.DateLastModified > now -1 Then oFile.Copy "F:\Logs\IISLogs\TestVBS\" Is is possible to get just yesterday's file? Thanks, Dan Foxley Tag: Getting Outlook 2003 folders size Tag: 176422
  - 6
    - ONCLICK Checkbox I have a record table that uses a rollover effect and changes the css style of the hover row. I've succeeded in also making the row "stick" when it's clicked (i.e. the row changes to hover color and stays until another row record is clicked). I'd like the row record's checkbox to select/deselect when my ONCLICK event fires. Can someone look at my ONCLICK event below a suggest a solution? USAGE: <tr id="row_22" onclick="javascript:MakeChangeActive(this);var thisID=10248;form1.ActiveItem.value=thisID;window.ItemPanel.style.visibility='';" ONCLICK Event Script: Dim IsActive Dim LastTouched IsActive=False Sub MakeChangeActive(MyItem) If Len(LastTouched) > 0 Then IsActive = False LastTouchedPass = LastTouched LastTouched = "" Call MakeChangeOff(document.all(LastTouchedPass)) 'Exit Sub End If For i = 0 To MyItem.children.length-1 MyItem.children(i).style.backgroundColor="#FFFFDD" Next IsActive = True LastTouched = MyItem.ID End Sub Sub MakeChangeOn(MyItem) If MyItem.ID<>LastTouched Then For i = 0 To MyItem.children.length-1 MyItem.children(i).style.backgroundColor="#E1E6F2" Next End If End Sub Sub MakeChangeOff(MyItem) If MyItem.ID<>LastTouched Then For i = 0 To MyItem.children.length-1 MyItem.children(i).style.backgroundColor="" Next End If End Sub Tag: Getting Outlook 2003 folders size Tag: 176417
  - 7
    - VBScript Random Numbers and Letters After searching for 20-30 minutes to find something to fit my needs, but not finding anything that really hit the spot, I just wrote a little routine that works great for me. Wouldn't mind any fine tuning anyone might have, but hope it helps someone else too. This routine will generate a number of (the for...next loop) random numbers and letters (lower and uppercase). kdcQuizSelectChr = "" For kdcQuizSelectCnt = 1 to 5 Randomize kdcQuizSelect = Chr(Int(3 * Rnd() + 49)) Randomize Select Case kdcQuizSelect Case "1" kdcQuizSelect1 = Chr(Int(10 * Rnd() + 48)) Case "2" kdcQuizSelect1 = Chr(Int(26 * Rnd() + 65)) Case "3" kdcQuizSelect1 = Chr(Int(26 * Rnd() + 97)) End Select kdcQuizSelectChr = kdcQuizSelectChr & kdcQuizSelect1 Next response.write "<br>kdcQuizSelectChr: " & kdcQuizSelectChr & "<br>" Keith D Commiskey http://kdcinfo.com http://giftsforyou.biz Tag: Getting Outlook 2003 folders size Tag: 176413
  - 8
    - NewsGroups ... Which One? How does one know which VBScript newsgroup to post in? Microsoft helped to unify a major portion of the inustry, only to have its own works segmented in the development community... :/ VBscript Programming http://groups-beta.google.com/group/VBscript-Programming?hl=en VBScript http://groups-beta.google.com/group/VBScript?hl=en alt.comp.lang.vbscript http://groups-beta.google.com/group/alt.comp.lang.vbscript?hl=en microsoft.public.programming.scripting.vbscript http://groups-beta.google.com/group/microsoft.public.programming.scripting.vbscript?hl=en microsoft.public.scripting.vbscript http://groups-beta.google.com/group/microsoft.public.scripting.vbscript?hl=en Keith D Commiskey http://kdcinfo.com http://giftsforyou.biz Tag: Getting Outlook 2003 folders size Tag: 176412
  - 9
    - Editing text file with vbscript I need to append to a text file. The problem is that I want to add the line 123456 but I only want to add 123456 if that line isn't already there, otherwise, I'll be putting that line there twice. So, in other words, I want the script to chck that line and it isn't there write it, if it's already there do nothing. Thank you. Tag: Getting Outlook 2003 folders size Tag: 176409
  - 10
    - convert to unicode Hi , I need a vbscript to convert big endian strings to unicode strings for example input : Hello World output: Hello World I know that the reverse of this operation (unicode to big endian) can be done like this : Dim i As Integer For i = 1 To txt.Length txt += ("&#" + AscW(Mid(txt, i, 1)).ToString + ";") Next how can I do this conversion? Regards , Mehdy Mohajery Tag: Getting Outlook 2003 folders size Tag: 176402
  - 11
    - I need smart solution Hi, friends, I have the following array: ar(0) = Antivirus\McAfee FreeScan.url ar(1) = Antivirus\Trend Micro - Free online virus Scan - Scan Now.url ar(2) = Catalogues\The Library of Congress.url ar(3) = Documents\The Programmer's File Format Collection.url ar(4) = Search\People\Switchboard.url ar(5) = Search\People\WhoWhere.url ar(6) = Search\People\Yahoo! People Search.url ar(7) = Search\Excite.url ar(8) = Search\Google.url ar(9) = Search\Lycos.url I need a smart solution to create HTML with structure: Antivirus McAfee FreeScan.url Trend Micro - Free online virus Scan - Scan Now.url Catalogues The Library of Congress.url Documents The Programmer's File Format Collection.url Search People Switchboard.url WhoWhere.url Yahoo! People Search.url Excite.url Google.url Lycos.url i.e. listing of URL files with the structure of folders. ----------------------------- Uka Miuinnen Tag: Getting Outlook 2003 folders size Tag: 176401
  - 12
    - join text files with vb script Hi I have a very large text file and a one line header and a one line footer file. Currently I create a bat file and join them together. and then delete the bat file. I was wondering if it were possible to do this in VBScript An other possiblility would be to insert the header/footer lines but I am not sure if this is possible ( the output file is likely to be 50mb plus) Thanks for any pointers jc -- =============== Jonathan Crawford 01273 440018 07799 068570 fax 01273 380221 jc@jcrawford.co.uk =============== Tag: Getting Outlook 2003 folders size Tag: 176400
  - 13
    - VBScript to add IPP-based printer How can I add an IPP-based printer via vbscript? The clients are XP Pro SP2. Thanks, Trevor Tag: Getting Outlook 2003 folders size Tag: 176393
  - 14
    - getting active directory schema using script Hi, i would like to query the active directory meta data in order to get the acive directory structure in order to show a tree of objects like the Active Directory Users And Comnputers shows. can this be done using script? please supply a sample code. thanks. Tag: Getting Outlook 2003 folders size Tag: 176392
  - 15
    - HowTo-Check if key (folder) exist when no default value specified (regRead) Hi, is there a way, using WScript.Shell and RegRead, to verify if a key (and more exactly a folder) exists if the default value is not set yet? I think this question could also be formulated as the following: How to check if the default value of a key, is set? Ex: "HKEY_CURRENT_USER\Software\ACME\myFolder\" For the example above, if the default value is set, no problem. Using error handling it's possible to check if it exists. But when the default value is not set yet...How the heck are we supposed to find this? The following code is useless for that purpose: function regExists (regKey) Dim WshShell, Root Set WshShell = CreateObject("WScript.Shell") On Error Resume Next regExists = WSHShell.RegRead (regKey) if not isEmpty(regExists) then regExists=true end if If Hex(Err) = "80070002" Then regExists = false err.clear End If on error Goto 0 Set WSHShell = Nothing end function Tag: Getting Outlook 2003 folders size Tag: 176391
  - 16
    - Setting Full crash dump Hi all I am looking for a way to set the Crash Dump to a full crash dump not a mini or kernal mode. I looked in WMI Win32_OSRecoveryConfiguration but do not see a setting for the crash mode type, but they do have everything else! Any suggestions? Tag: Getting Outlook 2003 folders size Tag: 176387
  - 17
    - Click a button on an MSaccess form - HOW! How do I either: 1) click a button on a form in Access or 2) run the sub associated with a specific button? Daron Tag: Getting Outlook 2003 folders size Tag: 176380
  - 18
    - How can a script detect that Windows is shutting down? I have a batch file which starts a GUI application, waits for the GUI to exit and then transmits the GUI apps log file to a server. If the user does a shutdown before closing the GUI the batch file still gets control when Windows closes the GUI app and attempts to send the file but doesn't have enough time to complete the transmit before Windows kills the batch file which results in incomplete files being sent. Is there some method for a script to check if a shutdown is in progress?. Is there a registry key that can be checked or a specific task manager process that executes only during shutdown? Tag: Getting Outlook 2003 folders size Tag: 176377
  - 19
    - I need to connect to a database and run sql cmd I need to know if there is a way to connect to a database and execute a sql command in VBScript? Any help would be appreciated. TIA Matt ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: Getting Outlook 2003 folders size Tag: 176376
  - 20
    - Script to delete some but not all .log files in a folder I am having an issue with log files and want to find a script to delete certain log files in a folder but not all. I want to delete periodically all log files except files named: RES1.log RES2.log E00.log E00TMP.log Thanks for the help! Tag: Getting Outlook 2003 folders size Tag: 176373
  - 21
    - Need help removing a computer account from an NT4 domain... Here is the code that I'm using to remove the account, but it doesn't seem to work every time: Set objCont = GetObject("WinNT://MyDomain") objCont.Delete "Computer", strComputerName Additionally, there isn't an option in the script that I found to use elevated privledges, so I call it using another vbscript that executes runas.exe. Thanks for any help folks! Tag: Getting Outlook 2003 folders size Tag: 176367
  - 22
    - Help with sample...DataGrid with Class Module Could someone please help with the sample "Using the DataGrid Control with a Class Module" located at: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon98/html/vbconusingdatagridcontrol.asp I am trying to utilize a DataGrid Control with ADO recordset objects but I cannot seem to get it all to work. Well, the recordset is getting built just fine, but when trying to pass the rs back to the form to set the DataGrid to the rs, I get a Object Type mismatch error. Specifically, the form will open, then the user will click a command button. This should access the Class Module "NamesData", build the recordset (which it is doing correctly), then pass back to the UserForm to set the DataGrid = datNames. Thanks -- code below '*** frmOwnerSearch UserForm Option Explicit Private datNames As NamesData ' Class vari Private Sub cmdSeachOwner_Click() ' Create a new NamesData Object Set datNames = New NamesData ' Bind the DataGrid to the new DataSource datNames Set DataGrid1.DataSource = datNames 'Type Mismatch Error Occurs here End Sub '***NamesData Class Module Option Explicit Private WithEvents rsNames As ADODB.Recordset Private Sub Class_Initialize() 'DataMember.Add "Names" Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument Dim PAOTable As ITable Dim PAOCursor As ICursor Dim PAOSelSet As ISelectionSet On Error GoTo Proc_Err Set PAOTable = Common.SDE_PRODCon.OpenTable("PROPERTY.PROPERTY") Dim SQLStr As String Dim txtStreetNumber As String Dim txtStreetName As String txtStreetNumber = frmOwnerSearch.txtStreetNumber txtStreetName = frmOwnerSearch.txtStreetName '***build up query filter for the use later Dim pQueryFilter As IQueryFilter Set pQueryFilter = New QueryFilter Dim queryString As String queryString = "LOCN LIKE " + "'%" & txtStreetNumber & "%'" & " " & _ "AND" & " " & "LOCS LIKE " + "'%" & txtStreetName & "%'" pQueryFilter.WhereClause = queryString Set rsNames = New ADODB.Recordset Dim i As Integer With rsNames .ActiveConnection = Nothing .Fields.Append "LOCN", adVarChar, 20 .Fields.Append "LOCS", adVarChar, 50 .Fields.Append "ID", adVarChar, 20 .Fields.Append "NAME1", adBSTR, 50 .CursorType = adOpenStatic .LockType = adLockOptimistic .Open End With Dim pRow As IRow Dim pCursor As ICursor Set pCursor = PAOTable.Search(pQueryFilter, False) Set pRow = pCursor.NextRow Do While Not pRow Is Nothing rsNames.AddNew 'Address Info If pRow.Value(pRow.Fields.FindField("LOCN")) = "" Then rsNames.Fields(0).Value = "NA" Else rsNames.Fields(0).Value = pRow.Value(pRow.Fields.FindField("LOCN")) End If If pRow.Value(pRow.Fields.FindField("LOCS")) = "" Then rsNames.Fields(1).Value = "NA" Else rsNames.Fields(1).Value = pRow.Value(pRow.Fields.FindField("LOCS")) End If 'PID If pRow.Value(pRow.Fields.FindField("ID")) = "" Then rsNames.Fields(2).Value = "NA" Else rsNames.Fields(2).Value = pRow.Value(pRow.Fields.FindField("ID")) End If 'Owner Info If pRow.Value(pRow.Fields.FindField("NAME1")) = "" Then rsNames.Fields(3).Value = "NA" Else rsNames.Fields(3).Value = pRow.Value(pRow.Fields.FindField("NAME1")) End If Set pRow = pCursor.NextRow Loop 'Set frmOwnerSearch.DataGrid1.DataSource = rs Proc_Exit: Exit Sub Proc_Err: MsgBox "Error Number " & Err.Number & _ vbNewLine & Err.Description Resume Proc_Exit End Sub Private Sub Class_GetDataMember(ByVal DataMember As String, Data As _ Object) Select Case DataMember Case "Names" Set Data = rsNames End Select End Sub Tag: Getting Outlook 2003 folders size Tag: 176360
  - 23
    - select case and sub routines I think I'm two statements away from getting this to work. I need the script to perform the select case and then the sub routines for the approprate case(s) if the strGroups variable is returned with one or more values. I've already gotten it to return a message if strGroups returns empty. The script is below: Option Explicit 'all variables defined prior to use Dim fServer 'file server Dim home 'home directory Dim wshNet ' Dim ADSysInfo Dim CurrentUser Dim strGroups Dim colstrGroups Dim GroupMember Dim a,b,c,d Const CSC = "cn=CSC Windows Service Group" Const MARKETING = "cn=marketinggroup" Const SALES = "cn=salesgroup" fServer = "\\loan.ad.cob.ohio-state.edu" home = "\\loan\users" Set wshNet = CreateObject("WScript.Network") Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" _ & ADSysInfo.UserName) colstrGroups = CurrentUser.memberOf If IsEmpty(colstrGroups) Then strGroups = "" If strGroups = "" Then Wscript.Echo("you are not a member of any groups.") ElseIf TypeName(colstrGroups) = "String" Then strGroups = LCase(colstrGroups) Else strGroups =LCase(Join(colstrGroups)) End If End If wshNet.MapNetworkDrive "h:", fServer & "\Users\" _ & wshNet.UserName WScript.Echo(wshNet.Username & " " & strgroups) Select Case GroupMember case a = InStr(strGroups, CSC) CSCsub case b = InStr(strGroups, SALES) SalesSub case c = InStr(strGroups, MARKETING) MarketingSub End Select Sub CSCsub 'This subRoutine maps a printer WScript.Echo("made it to CSC") wshNet.MapNetworkDrive "g:","\\loan\group\CSC\" wshNet.AddWindowsPrinterConnection _ "\\loan\mh320-csc-hp8000" wshNet.SetDefaultPrinter "\\loan\mh320-csc-hp8000" End Sub Sub SalesSub WScript.Echo("made it to sales") wshNet.MapNetworkDrive "s:", "\\loan\Sales" wshNet.AddWindowsPrinterConnection _ "\\loan\SalesPrinter" wshNet.SetDefaultPrinter "\\loan\SalesPrinter" End Sub Sub MarketingSub WScript.Echo("made it to marketing") wshNet.MapNetworkDrive "m:","\\loan\Marketing\" wshNet.AddWindowsPrinterConnection _ "\\loan\MarketingPrinter" wshNet.SetDefaultPrinter _ "\\loan\MarketingPrinter" End Sub Tag: Getting Outlook 2003 folders size Tag: 176359
  - 24
    - Get IP Config from Remote Host Hi, I'm using Scriptomatic, trying to write a WMI script to list the IP address details for a particular interface. As things stand, it lists info on all of the adapters but I want to get information for just one. For Example: <psuedo script> strIP = <chosenIP> Select * from Win32_NetworkAdapterConfiguration for each objItem in colItems IF objItem.IPAddress = strIP then wscript.echo objItem.IPSubnetMask wscript.echo objItem.Caption end if next </psuedo script> It doesn't seem to be working. Can anyone recommend a good method of getting this sort of data back from a remote machine? Thanks. Brian Tag: Getting Outlook 2003 folders size Tag: 176354
  - 25
    - Activating a macro when opening an Excel File Hi there, I have an Excel file with a "bank holiday" function that requires the activation of macros. When opening this file with Excel, it asks me whether i want to activate it or not, i simply click on YES. But when opening it with a vbs script it doesnt even ask nor activate it, so is there a way to force it ? If so how ? Or maybe it would be simplier to include it in the excel file ? But then again if so, how ? Thanks a lot for your help, have a great last day of work before WE ;) Nicolas Tag: Getting Outlook 2003 folders size Tag: 176347

How do I get the current folder size of my mailbox from the Outlook side?
I want to know how much space is my client side (Outlook 2003) is using
without querying my Exchange 2003 server.

Any help is greatly appreciated.

MB

Top