Creating Page Borders in Word

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
    - Scripting Help!! Please!!! Hi I have created this script to remove a home directory from searching the AD Const ForReading = 1 Const ADS_NAME_INITTYPE_GC = 3 Const ADS_NAME_TYPE_NT4 = 3 Const ADS_NAME_TYPE_1779 = 1 strUser = InputBox("Enter User Name") strDomain = "Globalinfra" Set objTrans = CreateObject("NameTranslate") objTrans.Init ADS_NAME_INITTYPE_GC, "" objTrans.Set ADS_NAME_TYPE_NT4, strDomain & "\" & strUser strUserDN = objTrans.Get(ADS_NAME_TYPE_1779) Set objUser = GetObject("LDAP://" & strUserDN) HomeShare = objUser.homeDirectory DeleteFolder HomeShare But for some reason I cannot get this to work. I have Admin rights to all file servers. Any help appreciated Cheers G Tag: Creating Page Borders in Word Tag: 207160
  - 2
    - Cancel Button Problems This is my script. While running, a window is opened, and refreshed every so many seconds. Works great, but I want a button that I can use to cancel the script and close the window. I know I can use these two commands objExplorer.Quit 'close window Wscript.Quit 'quit proccess but I can't get a html button to call them. Can someone please help me and show me how, or give me a better way of doing what I want. Thanks On Error Resume Next LocalDirectory = "C:\X" RemoteDirectory = "D:\X\" Seconds = 5 Minutes = ( Seconds / 60 ) strComputer = "." Set objExplorer = CreateObject ( "InternetExplorer.Application" ) objExplorer.Navigate "about:blank" objExplorer.ToolBar = 0 objExplorer.StatusBar = 0 objExplorer.Width = 550 objExplorer.Height = 200 objExplorer.Visible = 1 objExplorer.Document.Title = "Script in progress" Do LastRanTime = Now If Seconds > 59 Then objExplorer.Document.Body.InnerHTML = "This script will run every " & Minutes & " minutes. <BR> " &_ "Your script is now being processed and may take several minutes to complete. <BR>" &_ "This script last ran at " & LastRanTime Else objExplorer.Document.Body.InnerHTML = "This script will run every " & Seconds & " seconds. <BR> " &_ "Your script is now being processed and may take several minutes to complete. <BR>" &_ "This script last ran at " & LastRanTime End If objExplorer.Reload( True ) Set objFSO = CreateObject( "Scripting.FileSystemObject" ) Set objWMIService = GetObject( "winmgmts:\\" & strComputer & "\root \cimv2" ) Set colFileList = objWMIService.ExecQuery _ ( "ASSOCIATORS OF {Win32_Directory.Name='" & LocalDirectory & "'} Where " & "ResultClass = CIM_DataFile" ) For Each objFile In colFileList If ucase( objFile.Extension ) = "DXF" Then RemoteFile = RemoteDirectory & objFile.FileName & "." & objFile.Extension If objFSO.FileExists( RemoteFile ) Then Set objLocalFile = objFSO.GetFile( objFile.Name ) LocalDate = objLocalFile.DateLastModified Set objRemoteFile = objFSO.GetFile( RemoteFile ) RemoteDate = objRemoteFile.DateLastModified If LocalDate > RemoteDate Then objFSO.CopyFile objLocalFile.Path, objRemoteFile.Path, True End If Else objFSO.CopyFile objFile.Name, RemoteDirectory, True End If End If Next Wscript.Sleep( Seconds * 1000 ) Loop Tag: Creating Page Borders in Word Tag: 207159
  - 3
    - KIX Scripts & installing hotfix's Greetings one and all, You might be able to help me out of a real jam. Our network here needs hotfix kb935843 (to fix a SQL reporting services problem) There are 2 versions of this hotfix, one for XP and one for 2000. I need to roll this out as a logon script as there are over 1000 PC's needing this update. Now my query is this. How, using KIX script, do i roll out the right update to the right version of the OS, but only run it once. Something like. IF already installed then exit Else IF OS = XP then run XP install Else IF OS = 2000 then run 2000 install. Help. I'm new to using KIX, I seem to remember it is possible but exactly how to do it i'm not sure. Any help would be welcome. Peter Phillips Network Analyst Redcats UK PLC Tag: Creating Page Borders in Word Tag: 207155
  - 4
    - mspview Hello, i need to convert several hundres .tif images to OCR. what i am looking for is an automated process that will convert every single file in a specific directory without any user input. any help and or suggestions are greatly appreciated. thanks Surge Tag: Creating Page Borders in Word Tag: 207154
  - 5
    - need a tiny backup monitor script i can execute with task scheduler? i would think this is like...the wheel. but i can't find anything, and i'm not a coder. i just need a tiny script i can run with task scheduler that will check to make sure that: 1. a file was written in the last 24 hours 2. it's not locked for writing 3. it's larger than zero email to a specified address if any of the above fail with the message 'Backup service is hung, and the bloody bugger won't email of it's own volition when it does that.' Or something of that ilk anyway. :P can anyone point me in the right direction, or help a girl out? Thanks! peace, pen --- Life is short. Break the rules. Run towards your fears. Forgive quickly. Love truly. Laugh uncontrollably. Kiss slowly. Above all, never regret anything that made you smile. Tag: Creating Page Borders in Word Tag: 207152
  - 6
    - send binary to IP printer i have these printers that have formatter boxes attached. to reconfigure these formatter boxes, i send a binary file to the device by ... 1 create a print queue to the ip address 2 share that print queue 3 redirect LPT2 to that print queue 4 copy /b <format_file> LPT2 i would like to automate this function and am considering using MSWinSck.ocx (stream to TCP 9100) but, can it handle ~1MB stream? Does anyone have another idea how to do this efficiently and reliably? Tag: Creating Page Borders in Word Tag: 207151
  - 7
    - list printer address details of printers in AD I need to be able to obtain a list of the printer name, host server, IP address and MAC Address of all the Canon printers in an AD domain. I can find the printer name and servername via dsquery as per below but then some how I need to obtain the IP address and MAC address. Any ideas? dsquery * domainroot -filter "(&(objectClass=PrintQueue))" -attr printername drivername servername -limit 10000 |find "Canon" Tag: Creating Page Borders in Word Tag: 207146
  - 8
    - labelling a mapped network drive hi how can i change label of a mapped network drive by commands (for example in a batch file or logon script) Tag: Creating Page Borders in Word Tag: 207134
  - 9
    - WMI Query Question OK.. Take this simple WMI query statement: Set objBIOS = objWMIService.ExecQuery("SELECT * From Win32_Bios",,48) Can anyone give me a good reference to what the "48" argument represents? Better still, could anyone give me a good reference to an advanced scripting textbook or online resource? Many Thanks! Tag: Creating Page Borders in Word Tag: 207132
  - 10
    - Time after Time Hi, I have found lots of interesting stuff about time here, but one thing is eluding me. I need to be able to find the elapsed time between when a call was taken and the time that the case was resolved. Easy enough you say and it is. Then I need to compare the elapsed time with a constant value, ie. 2 Hours, 4 hours, 48 hours and 120 hours. I have tried doing this in an excel spreadsheet but no luck. so here it is in psudo code; WorkTime = Start Time - Finish Time If Worktime > 2 and SLA = 1 then objworksheet.value = "Over Sla" End if And so on and so on. OldDog Tag: Creating Page Borders in Word Tag: 207131
  - 11
    - Yet More Time Hi, I have found lots of interesting stuff about time here, but one thing is eluding me. I need to be able to find the elapsed time between when a call was taken and the time that the case was resolved. Easy enough you say and it is. Then I need to compare the elapsed time with a constant value, ie. 2 Hours, 4 hours, 48 hours and 120 hours. I have tried doing this in an excel spreadsheet but no luck. so here it is in psudo code; WorkTime = Start Time - Finish Time If Worktime > 2 then Tag: Creating Page Borders in Word Tag: 207130
  - 12
    - printer driver hi am trying to delete a printer driver from windows 2003 server and saying it cannot do it because it is in use Any ideas on h ow to delete it? Have tried stopping and starting spooler but does not work, also tried prndrvr.vbs and still says it is in use is there a way i can export all queues and import them back, i just need to remove a printer driver without having to recreate 600 quueues help don Tag: Creating Page Borders in Word Tag: 207127
  - 13
    - Script to Allow Access (Remote access permission) in dial in tab i Guys, Are there any script that I can use to set "Allow Access" in the Dial In tab? Thanks, tnt Tag: Creating Page Borders in Word Tag: 207124
  - 14
    - Adding TCP/IP Printer Ports and Drivers using a login script I've written a script to automatically add tcp/ip printer ports and drivers based on the user's subnet. The script works fine as administrator or power user however it will NOT work properly if the user has standard user rights. I need some assistance working around this. I realize that I could use WMI to do impersonation and add these ports and drivers. However, due to the large size of the script and the fact that changing methodologies to WMI would add probably 20+ lines of code per printer per function, there are 100+ functions with anywhere from 2-15 printers per branch function, I can't realistically change. I'm using the prnport.vbs and rundll32 printui.dll methodoligies to accomplish what I need. I've tried to build runas into the script even passing credentials automatically and it still doesn't work right. My inclination is that the rundll32 must run under an explorer session that has admin or power user rights otherwise it fails with not enough rights. Below is a sample of the code. Any help you can provide would be great! Dim oIP, r On Error Resume Next oIP = DefaultGateway Select Case oIP Case "10.207.127.1" Set oShell = WScript.CreateObject("WScript.Shell") r = oShell.RegRead("HKLM\SOFTWARE\Printers\judesk\Installed") If r <> 1 Then AddPrintersjudesk End If End Select Function DefaultGateway() Dim oDG, oDGs, WMI Set WMI = GetObject("winmgmts:\\.\root\cimv2") Set oDGs = WMI.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each oDG in oDGs If Not IsNull(oDG.DefaultIPGateway) Then If Not oDG.DefaultIPGateway(0) = "0.0.0.0" Then DefaultGateway = oDG.DefaultIPGateway(0) Exit For End If End If Next End Function Function AddPrintersJUDesk() 'prndriver1 = """QMS ColorScript Laser 1000""" 'prndriver2 = """Kyocera Mita FS-3700""" prndriver3 = """IBM InfoPrint 20""" 'prndriver4 = """HP LaserJet 4""" 'prndriver5 = """SHARP AR-M277 PCL5e""" prndriver6 = """Kyocera FS-5900C (KPDL-2)""" 'prndriver7 = """HP LaserJet 5Si""" 'prndriver8 = """HP LaserJet 4100 PCL 5e""" oShell.Run "cmd /c cscript c:\windows\system32\prnport.vbs -a -r IP_172.18.102.10 -h 172.18.102.10 -o raw -n 9100" oShell.Run "cmd /c rundll32 printui.dll,PrintUIEntry /if /b P6154001 /f %windir%\inf\ntprint.inf /r IP_172.18.102.10 /m " & prndriver1 oShell.Run "cmd /c cscript c:\windows\system32\prnport.vbs -a -r IP_172.18.102.11 -h 172.18.102.11 -o raw -n 9100" oShell.Run "cmd /c rundll32 printui.dll,PrintUIEntry /if /b P6154002 /f %windir%\inf\ntprint.inf /r IP_172.18.102.11 /m " & prndriver1 oShell.Run "cmd /c cscript c:\windows\system32\prnport.vbs -a -r IP_172.18.102.14 -h 172.18.102.14 -o raw -n 9100" oShell.Run "cmd /c rundll32 printui.dll,PrintUIEntry /if /b P6154003 /f %windir%\inf\ntprint.inf /r IP_172.18.102.14 /m " & prndriver1 const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set StdOut = WScript.StdOut Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Printers" strKeyPath2 = "SOFTWARE\Printers\judesk" oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath2 strValueName = "Installed" dwValue = 1 oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeypath2,strValueName,dwValue End Function Tag: Creating Page Borders in Word Tag: 207121
  - 15
    - enumerate install windows components Hey all, I am trying to enumerate the components that you add/remove via the "Add/Remove Windows Components" option in add/remove prorgams. Just to be clear, I need to list 'windows components' and not simply installed software...for instance I need a script to determine if IIS is installed on a machine, or 'fax services' and I am not looking for whether or not general apps are installed (stuff like Adobe, Office, etc...). Please help! Tag: Creating Page Borders in Word Tag: 207120
  - 16
    - printer driver and prndrvr.vbs hi am trying to delete a printer driver from windows 2003 server and saying it cannot do it because it is in use Any ideas on h ow to delete it? Have tried stopping and starting spooler but does not work, also tried prndrvr.vbs and still says it is in use help don Tag: Creating Page Borders in Word Tag: 207105
  - 17
    - Full name of remote logged on user I have this that gives me the domain\username of the remote logged on user: strComputer = InputBox("Enter the PC-name you want to know who's logged on at", "Who is logged on?") if strComputer = "" then WScript.Echo "Don't you want to know?" end if Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root \cimv2") Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem") For Each objItem in colItems Name = objItem.UserName wscript.echo name Next But i want to output the fullname of the user. I have tried everything i can think of but only get my own fullname. I have this that gives me the fullname of the localy logged on user, but can not get it to work with the other script. Set WshNetwork = WScript.CreateObject("WScript.Network") objUserName = WshNetwork.UserName Set objUser = GetObject("WinNT://" & Name) wscript.echo objUser.FullName Any help to get me in the right direction would be much appreciated. Tag: Creating Page Borders in Word Tag: 207104
  - 18
    - Assigning variable output of %comspec% Hello, Is there a way to allow a variable to hold the output of the comspec statement (the statement running commands on command prompt)? The command I am running produces result of only a single word on screen, so can I: VAR = objShell.run 'The comspec statement Is this possible? I get an error when I do this but I really want the variable to hold the value, is there any other way? Tag: Creating Page Borders in Word Tag: 207100
  - 19
    - write to eventlog or filesystem on remote machine in system context hi, i have a rather complex problem. we have to run a script that updates a software via Microsoft SMS and I want to log the success/failure of the script on a remote machine. i tried to write it into the remot machines event log as well as filesystem but the main problem is: everything that SMS executes on the client runs in system context. even when i give permissions for "Everyone" on the remote machine that is ment to collect the logs, the system on the client is not allowed to connect to the share on the remote machine. logfile = "c:\scripts\log\bla.log" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile (logfile, ForAppending, True) Sub WriteTime objTextFile.WriteLine("[" & Day(Now) & "." & Month(Now) & "." & Year(Now) & " " & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) & "]") End Sub using a UNC name as logfile works well, if the script runs with a real user. can i tell vbs to establish the connection with a specific useraccount? this way i could create a stripped down user on the remote machine which the vbs on the client then uses to connect to the share with a real username. Tag: Creating Page Borders in Word Tag: 207098
  - 20
    - How to find a DFS root in a domain Hi all, Does any one know how to find the DFS root in a Domain using VBscript. Please let me know Thanks in advance... Tag: Creating Page Borders in Word Tag: 207097
  - 21
    - Using VBScript to refresh group policy, restart, and log in. I am writing a script that needs to apply the domain's group policy, restart, and automatically log the administrator back in without needing any user interaction. The problem is that I cannot get rid of the legal message. This is the popup that appears after you press CTL- ALT-DEL on a Win2k or WinXP machine which has a message set in the group policy. In my case, the message is set in a domain GPO. My first solution was to delete the legalnoticetext and legalnoticecaption registry values in HKLM. This is a very common example on the internet. However, (like many of these examples) this doesn't work because the group policy will just be applied again when the computer is restarting. My second solution was to make use of the NoMachinePolicy DWORD value located in: HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\GPExtensions \{827D319E-6EAC-11D2-A4EA-00C04F79F83A} When NoMachinePolicy is set to 1, it prevents the security policy from being applied. I had the script set the value to 1 just before rebooting, and then change the value back after logging in. This solution also has problems, and I can't use it. In Windows XP, it appears to reverse the changes made by the gpupdate /force command. I am executing gpupdate /force, setting the auto logon registry entries, setting NoMachinePolicy to 1, clearing the legal message text and caption, and then restarting. But here's the problem: when the group policy is applied, the administrator account is renamed to something else. However, after I restart the account's name goes back to administrator. My auto login fails because I have the wrong account name for DefaultUserName. And I have verified that after the gpupdate command is run, the account name does change just before the gpupdate finishes. I have no idea why this is happening. The second reason I don't like using this is because I cannot leave NoMachinePolicy set to 1 the whole time the script is working. The script installs several packages after restarting which need to be able to apply group policy. And if I do not have it set the whole time, the computer will not be able to automatically boot up and login if one of the package installations forces a restart. So I'm looking for a working solution that will let me bypass the legal message for an automated logon. This is the only problem stopping me from being able to use this script, and I would really appreciate some help here. Tag: Creating Page Borders in Word Tag: 207096
  - 22
    - Shutdown computer using VBScript Hi. I am trying to shutdown a group of computers that are on the domain using a VBScript. When the user launches the VBScript it will ask for the time in seconds before the computer shutdowns. It is being done based on the way the command prompt does i.e. shutdown -m \ \computerName -s -t 00. I know the script will work if I make the computer shutdown ignoring the user input but need to know how to do it so the user can select how long it will be before it shutdown. Thanks very much for anyone who can help me in this matter. Tag: Creating Page Borders in Word Tag: 207084
  - 23
    - registry keys to treeview control Hi, I have been struggling with the following I am using vbscript in an application that will display registry keys (and their values) as part of a treeview control. I know the 'parent key', under which there can be a varying number of subkeys, and their subkeys, and so on. I know how to enumerate subkeys under a single key, using WMI and EnumKey What I am srtuggling with is, that I need some mechanism to process each of the found subkeys to find about their subkeys, and so on. Some kind of recursive algorhythm. I have seen and tried examples of recursive algorhythms, for instance for files and folders. But somehow, I cannot get my brain to figure out how to translate those to my needs. I was hoping someone could help me out, either with some sample code or a website perhaps? I have so far searched pscode.com and some others, but havent quite found what I am looking for. kind regards, arno Tag: Creating Page Borders in Word Tag: 207083
  - 24
    - Read from one Text file and Write to another. I have to make an edit to a file and what I was planning to do is open the file to read, then compare each line read to see if it equals my search value, which is a substring of what is probably there. If it does not, simply write it to another file. If it does = my search, simply replace the value with my edit and write to the other file. I would do this until the original file is at end. I would then like to move my new file over the original, which should now include my edit. Or Open File for Read Open Other File for Right 'read through first file While file not at end If line contains my search substring replace line to include new substring write it to other file else write line to other file End if End While Close new file Close original file Move new file to original Done! Any guidance from a vbscript wiz would be greatly appreciated! Thanks!!! Tag: Creating Page Borders in Word Tag: 207075
  - 25
    - How to insert the Thousands Separator (comma) in Excel? Hello all. I've got a VBScript that takes a CSV file, makes some formatting changes, and saves it to an XLS file. What I'd like to add to this script is the command to insert the Thousands Separator in column B for the entire column. Column B contains numbers in every cell except for the top cell which has a word. In searching I did find the Constant "Const xlThousandsSeparator = 4" but I can't quite figure out how to write the line to implement it. Any suggestions would be greatly appreciated. Thanks! My script: Const xlDescending = 2 Const xlNormal = 1 Const xlCenter = -4108 Set objFSO = CreateObject("Scripting.FileSystemObject") Dim CurDir CurDir = objFSO.GetFolder(".").Path Set Folder = objFSO.GetFolder(CurDir) Set Folder = nothing Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Open(CurDir & "\Results.csv") Set objWorksheet = objWorkbook.Worksheets(1) '~~ Sort by Column B, Descending Set objRange = objWorksheet.UsedRange Set objRange2 = objExcel.Range("B1") objRange.Sort objRange2,2 '~~ Insert blank row at Row 1 sRow = "1" objExcel.Worksheets(1).Rows(sRow).Insert xlDown '~~ Insert Header text objExcel.Worksheets(1).Cells(1,1).Value = "Server" objExcel.Worksheets(1).Cells(1,2).Value = "Error Amount" '~~ Bold the Header row Set objRange3 = objExcel.Range("A1:B1") objRange3.Font.Bold = True '~~ Auto Fit and Center both Columns objExcel.Cells.EntireColumn.AutoFit objExcel.Cells.EntireColumn.HorizontalAlignment = xlCenter '~~ Insert blank row at Row 2 sRow = "2" objExcel.Worksheets(1).Rows(sRow).Insert xlDown objWorkbook.SaveAs CurDir & "\Results.xls",1 objWorkbook.Close objExcel.Quit Set objFSO = nothing Set objExcel = nothing Set objWorkbook = nothing Set objWorksheet = nothing Set objRange = nothing Set objRange2 = nothing Set objRange3 = nothing Tag: Creating Page Borders in Word Tag: 207066
- Next
  - 1
    - Problems with Connection Strings Hello Everyone, I am a newbie to web development. I am using FrontPage 2002/SP3 on XP and IIS 6.0 on Win2K3 server. My Dev website is stored locally and I am publishing to the IIS server. I am attempting to connect to and query an Access database stored both locally and on the IIS server. This is the code (and connection string that I am using, (which I believe should be using the Microsoft Jet driver, pardon if I am not 100% correct in this statement.)... <% dim oConn dim strConn dim strSQL dim rs Set oConn = CreateObject("ADODB.Connection") Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\rks.RPS.002\My Documents\My Webs\richweb\GSDtest\OtherFiles\jettest.mdb oConn.open strConn %> On my local XP box, the first time I hit the hyperlink to call this page (jet.asp), IIS shows me all the code on the page. If I refresh the page, it renders and displays correctly, except the query that I run does not appear to execute, or at the very least, the results of the query are not returned/displayed. When I run this page on the IIS server, I get the following error message: Microsoft VBScript compilation error '800a0401' Expected end of statement /GSDtest/Jet.asp, line 8 Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\rks.RPS.002\My Documents\My Webs\richweb\GSDtest\OtherFiles\jettest.mdb ----------------------------^ The ^ character is pointing to the "." (period) after OLEDB and before the number 4. Can anyone tell me why I am having this problem and how to resolve it? TIA, Rich Tag: Creating Page Borders in Word Tag: 207065
  - 2
    - Login script for printing preferences I need to over-ride Printing Preferences at the point of login to change a default label size on a Zebra TLP-2844 Thermal Printer. Is this information stored in the registry and is it possible to do this please? Thank you, Mark Tag: Creating Page Borders in Word Tag: 207064
  - 3
    - Check if AD attribute exists Hi, is there a way to check if an attribute of a user object in Active Directory is "Not Set", i.e. currently has no values set? Checking for Null or an empty string doesn't seem to be possible, but I don't really want to rely on checking for an error. many thanks, Craig Tag: Creating Page Borders in Word Tag: 207061
  - 4
    - Assign serial Number to Thumb Drive (USB) Is there a way to process a VB Script to put a serial number in for a USB Thumb Drive? Thanks in advance. Tag: Creating Page Borders in Word Tag: 207059
  - 5
    - Install MSI Hi! I have the following code to install an app: Set objInstaller = CreateObject("WindowsInstaller.Installer") objInstaller.UILevel = 3 + 32 objInstaller.InstallProduct "app.msi" In some machines the user do not have install privileges. Is there any form to install the app in these machines? Thanks. Tag: Creating Page Borders in Word Tag: 207056
  - 6
    - Urgent!!! VB Developers for UAE VAM SYSTEMS is a Business Consulting, IT Technology Solutions and Services company with operations in UAE, Qatar, USA, Singapore, Australia and India. We are currently looking for a team (4 to 8 developers) VB Developers for our UAE operations with the following Skill Set and Terms & Conditions Skill Set required: Skills: 1. Strong Development experience VB, VB Scripting, SQL and Delphi. 2. Experience on banking will be an added advantage. Domain: Banking. Experience Required: 3-5yrs Terms and conditions: Joining time frame : 2 weeks (Maximum 4 weeks) The selected candidates shall join VAMSYSTEMS-UAE and deputed to one of the leading banks in UAE. Should you be interested in this opportunity, please send your latest resume in MS Word format at the earliest at nishanthini.suda@vamsystems.com or If there is any queries you can chat me on nishanthini_28@hotmail.com, nishanthini_81@yahoo.co.in,vinirma@gmail.com, Skype ID is nishanthini2 or call us +91 471-3015245 or 2311320. Tag: Creating Page Borders in Word Tag: 207053
  - 7
    - Urgent!!! VB Developers for UAE VAM SYSTEMS is a Business Consulting, IT Technology Solutions and Services company with operations in UAE, Qatar, USA, Singapore, Australia and India. We are currently looking for a team (4 to 8 developers) VB Developers for our UAE operations with the following Skill Set and Terms & Conditions Skill Set required: Skills: 1. Strong Development experience VB, VB Scripting, SQL and Delphi. 2. Experience on banking will be an added advantage. Domain: Banking. Experience Required: 3-5yrs Terms and conditions: Joining time frame : 2 weeks (Maximum 4 weeks) The selected candidates shall join VAMSYSTEMS-UAE and deputed to one of the leading banks in UAE. Should you be interested in this opportunity, please send your latest resume in MS Word format at the earliest at nishanthini.suda@vamsystems.com or If there is any queries you can chat me on nishanthini_28@hotmail.com, nishanthini_81@yahoo.co.in,vinirma@gmail.com, Skype ID is nishanthini2 or call us +91 471-3015245 or 2311320. Tag: Creating Page Borders in Word Tag: 207052
  - 8
    - IsDate() I am working with an HTA, having the user enter a numeric value for the MONTH / DAY / YEAR. I then concatenate them into the format shown and then do an IsDate(). If the user enters something like 14 / 2 / 2007, IsDate returns True; it is reading the date as DAY / MONTH / YEAR. Any idea how I can get around this without using DropDowns? Thanks. Bart Tag: Creating Page Borders in Word Tag: 207051
  - 9
    - Bug in Win32_LogonSession? Hello everyebody, It seems that Win32_LogonSession class has an undocumented bug or feature related to the RunAs service. Here is a simple script: ******************************************************************************************* Set objWmiSvc = GetObject("winmgmts://") Set colUsers = objWmiSvc.execQuery("Select * from Win32_LoggedOnUser") For Each objUser In colUsers set objUser = objWmiSvc.Get(objUser.antecedent) set objSess = objWmiSvc.Get(objUser.dependent) WScript.Echo objUser.name & " - " & objSess.logontype Next ******************************************************************************************* I run it under a regular user account and it displays: MyUser - 2 where MyUser - the user currently logged on 2 - means that is an interactive session. Then, from the same session spawn a command prompt windows using Run As with another username and rerun the script from the initial user context (not the new run as window). Now it displays: MyUser - 0 where MyUser - the user currently logged on 0 - means this is SYSTEM session !!! Is this a bug in WMI? Has anyone seen this before? Tag: Creating Page Borders in Word Tag: 207050
  - 10
    - Using the DiskQuota object returns many names unresolved in Windows 2000 - any way to get all? I am attempting to gather the disk quota information on a number of volumes on a Windows 2000 server. I am using the script from TechNet at http://www.microsoft.com/technet/scriptcenter/scripts/storage/quotas/default.mspx?mfr=true. The entries are returned but many of them return a blank LogonName and an AccountStatus value of 5 (Account information is unresolved). I note that if I display the quota entries from the volume properties many of the entries display [Retrieving Name] for some period of time. I am guessing that the use of the shell object from the script does not get refreshed. Is there any way to get the information refreshed in Windows 2000? Thanks! Tag: Creating Page Borders in Word Tag: 207048
  - 11
    - Locale and CDate issue When I am using setlocale to a western locale like en-gb or en-us, the CDate function is sensitive to the field sequence defined in the locale. So if I CDate a string like 25/12/2007 using en-gb the date is Christmas, if I do the same in a en-us locale, 12/25/2007 is Christmas. If I setlocale to ar-sa (Arabia Saudi Arabia) and use the formatdattime function, I get the Gregorian date converted to a Hijri date automatically. However, if I use CDate while in the ar-sa locale setting, the datevalue that is created seems like the middle ages (1428/12/16). How can I get a correct datetime value from a Hijri date using the locale features in vbscript? tia Tag: Creating Page Borders in Word Tag: 207045
  - 12
    - ADO stored proc I am new to vbscript and need to learn it but more importantly I need to know how to access a SQL Server stored procedure using vbscript and ADO. I've looked at vbscript books and sql server books on Amazon and don't know what to get that would discuss vbscript for a stored procedure. Could you please direct me to a website or recommend a book or books that explain it. thanks - nick Tag: Creating Page Borders in Word Tag: 207038
  - 13
    - Get filetype of files without extension Hi, When you have activated the explorer option "hide known file extensions" and you mail an attachment, on the receiving computer, the extension has been lost. With MS Word documents, this is no problem, the file will automatically be opened with MS Word. With pdf documents, this isn't the same... you get a dialog to choose the right program (but when you open this, you can see PDF1.2). Is it possible to programmatically get the file-type or extension from those files? Thanks in advance, Netfreaky Tag: Creating Page Borders in Word Tag: 207027
  - 14
    - error accessing property of an object I'm tyring to access an object created by using a method from a third party API. The documentation tells me what object should be return, and the properties of that object, but when I try and access one of those properties I've shown an error message saying that the Object doesn't support this property or method. Here's the code I'm using (edited to protect the third party NDA) [script] 1: <% 2: dim siteApi, userApi 3: dim userObj 4: dim session, user_date_created 5: 6: set siteApi = createobject("MSSoap.SoapClient30") 7: siteApi.mssoapinit("http://thirdparty.domain/site/api?wsdl") 8: 9: set userApi = createobject("MSSoap.SoapClient30") 10: userApi.mssoapinit("http://thirdparty.domain/user/api?wsdl") 11: 12: session = siteApi.login("username","p@ssw0rd") 13: 14: set userObj = userApi.getUser(session,"webadmins") 15: 16: user_date_created = userObj.date_created 17: %> [/script] In the above code, the session variable is populated with the correct info (a HEX string), suggesting that my siteApi object is being created and used correctly. However, I get the following error when I run it without line 16 commented out: [error] Microsoft VBScript runtime error '800a01b6' Object doesn't support this property or method: 'date_created' /soapTest/index.asp, line 16 [/error] The documentation for the user API does show that 'date_created' is a property of the UserStruct object, returned by the 'getUser' method, so I'm readlly confused why this won't work. Is there anything fundamentally wrong with my script? If not, is there any ASP I can use to see what properties are available with the userObj? Thanks for any help you can offer Kevin Tag: Creating Page Borders in Word Tag: 207019
  - 15
    - Connecting and reading SQL databases Hello, So far I have the following: Set VAR = CreateObject("ADODB.Connection") VAR.Open("DSN=temp") Suppose my SQL database is: A B C D corolla 2 BLAH BLAH camry 4 BLAH BLAH accord 5 BLAH BLAH miata 2 BLAH BLAH WHERE A,B,C,D are column names. Now, Dealing with only columns A and B, I want to assign a variable in my VBScript program the value of column B of the row containing accord, how do I go about? NOTE: database owner is cadb and name of database is cars. I would really appreciate any help. Thanks a lot. Tag: Creating Page Borders in Word Tag: 207012
  - 16
    - Alternative to NetConnectionID? The WMI Tasks: Networking page at http://msdn2.microsoft.com/en-us/library/aa394595.aspx shows an example using NetConnectionID, and notes that this isn't available on Windows 2000, for which you should use the "example below". But the example below still uses NetConnectionID. For me any attempt to use this throws an Invalid Query exception. I'm calling from C# rather than VBScript. Is that second example on the web page wrong? What I need to do is to find the "typical" network adapter - you know, the Ethernet port you almost always find on the back of the computer. On Windows 2000. I know there are different configurations, and maybe there is no answer which *always* works, but right now on Windows 2000 I'm stuck with scanning for Manufacturer=Intel (which for now is true of all the computers we ship in our product as far as I know), and I'd like to find something better than that. (On XP I can just look for NetConnectionID='Local Area Connection'). P.S. What's up with WMI telling me a Bluetooth connection is AdapterType=Ethernet? That's the reason I can't just scan for that. Tag: Creating Page Borders in Word Tag: 207006
  - 17
    - VBSCRIPT and DSMOD I am running this DSQUERY and DSMOD command to change all the passwords on my lab network: dsquery user -limit 10000 | dsmod user -pwd Password1 However, it fails when it encounters a user with the hidden attribute, such as ROOT$. I am NOT a vbscript'er, so I'm not sure how to write this...any help would be greatly appreciated. Thanks, Phil Tag: Creating Page Borders in Word Tag: 207003
  - 18
    - (Wscript.Network) issue removing network drive Hey All, I have a question about (wscript.network). I am trying to remove some network drives on xp pro workstations using the script below. Well, it's just not working. I don't get any errors but when I open "My Computer" it still shows the connection to the network drive. I can use the shell to run "net use" to delete these drives but I was trying to get this other way to work. Any ideas what would prevent .network from removing the drives? Thanks in advance. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Dim objNetwork Set objNetwork = CreateObject("WScript.Network") 'Remove Existing Network Drives objNetwork.RemoveNetworkDrive "G:", True objNetwork.RemoveNetworkDrive "H:", True objNetwork.RemoveNetworkDrive "I:", True objNetwork.RemoveNetworkDrive "M:", True objNetwork.RemoveNetworkDrive "S:", True objNetwork.RemoveNetworkDrive "T:", True objNetwork.RemoveNetworkDrive "Y:", True objNetwork.RemoveNetworkDrive "V:", True ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Shrp Tag: Creating Page Borders in Word Tag: 206995
  - 19
    - lastlogonTimeStamp Script... Works but... Ok well here is my script. It works sort of... What I would like for it to do it get the lastlogontimestamp for every user in the domain. It works if I add - On Error Resume Next - putting this in either skips the record that does not have a lastlogontimestamp or uses outputs the same timestamp from the previous user account. If I leave it out I get the following error - (33, 4) Active Directory: The directory property cannot be found in the cache. - Line (33, 4) is - set objLogon = objUser.Get("lastLogonTimeStamp") I tried to add in this but I think I'm doing it wrong. Instead of skipping or outputting the wrong timestamp I would like for it to say - 404 TimeStamp Not Found - .... something along those lines :P If Hex(Err.Number)="&H8000500D" Then WScript.Echo "No such property!" & vbCrLf & "Err. Number: " _ & vbTab & CStr(Hex(Err.Number)) & vbCrLf & "Err. Descr.: " _ & vbTab & Err.Description End If ========================== Any suggestions? Thank You ============================ On Error Resume Next Const ADS_SCOPE_SUBTREE = 2 Dim objRootDSE Dim objConnection, objCommand, objRecordSet Dim UserDN, objUser, strDNSDomain, strQuery Dim objLogon, strWeeks, strDays, intLogonTime Dim intLLTS, intReqCompare, ADVersion Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("defaultNamingContext") Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE strQuery = "SELECT distinguishedName FROM 'LDAP://" & strDNSDomain & "' WHERE objectCategory = 'User'" objCommand.CommandText = strQuery Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF UserDN = objRecordSet.Fields("distinguishedName").Value Set objUser = GetObject("LDAP://" & UserDN) wscript.echo UserDN ' Begin calculation set objLogon = objUser.Get("lastLogonTimeStamp") intLogonTime = objLogon.HighPart * (2^32) + objLogon.LowPart intLogonTime = intLogonTime / (60 * 10000000) intLogonTime = intLogonTime / 1440 intLLTS = intLogonTime + #1/1/1601# strDays = strWeeks * 7 intReqCompare = Now - strDays If intLLTS < intReqCompare Then wscript.echo Mid(objUser.Name,4) & " last logged on at " & intLLTS End If objRecordSet.MoveNext Loop Tag: Creating Page Borders in Word Tag: 206994
  - 20
    - WshShell.Run and long command Hi, I have an install of Adobe CS3 that I can execute from a bat file. I can't seem to convert the bat command to vbscript. It gets as far as executing the setup.exe, but ignores the silent switch and anything after it. Here is the command from the batch file that works. E:\D\Creative Suite 3\Application\Adobe CS3\setup.exe" --Mode=Silent --deploymentFile="E:\D\Creative Suite 3\Application\Adobe CS3\deployment\install.xml" Here is the vbscript that fails. It executes the setup.exe but ignores the statements after the setup.exe. Set WshShell = CreateObject("WScript.Shell") WshShell.Run """E:\D\Creative Suite 3\Application\Adobe CS3\setup.exe""" & Space(1) & "--Mode=Silent" & Space(1) & "--deploymentFile=" & """E:\D\Creative Suite 3\Application\Adobe CS3\deployment\install.xml""", 2, True I have tried doing different codes with no luck. I have used ( ) with no luck. I can usually figure the command out fine. Please help. Thanks, Jeff L. Tag: Creating Page Borders in Word Tag: 206993
  - 21
    - VBScript to Remove Lotus Notes Person Record Hi, Is anyone able to assist. I need a Sub to remove/Delete a Person Record in lotus notes but a struggling to find the code to do this. I have code to delete a user, but 30 days before deleting the user we would like to just remove them from all address books. Here is the code I have already: '================================================================================== 'Sub to Delete the Leavers Lotus Notes Address Book Entries '================================================================================== '================================================================================== 'Sub to Delete the Leavers Lotus Notes User Accounts Including replica's '================================================================================== Sub DeleteLNUser (Lnusername,sLNpassword) Dim objSess As New NotesSession Dim adminp As NotesAdministrationProcess Const ID_HIERARCHICAL = 172 Const MAILFILE_DELETE_ALL = 2 Const Immediate = False '==================Enter True or False. True deletes all references to the user in the Domino Directory before issuing an administration process request. False lets the administration process make all deletions. Set ObjSess = CreateObject("Lotus.NotesSession") ObjSess.Initialize sLNpassword Set adminp = notesSession.CreateAdministrationProcess(NOTES SERVER) Call adminp.DeleteUser(Lnusername , immediate , MAILFILE_DELETE_ALL, "", False) End sub '================================================================================== Many Thanks Tag: Creating Page Borders in Word Tag: 206992
  - 22
    - Simple Time function (for you, maybe) Hi, I want to look at a date time stamp and determine if it is before or after 0600 in the morning. I have tried this, with no luck (everything comes back as "Day" text = book1.Worksheets(1).Cells(x,4).Value FSpace = Instr(text," ") + 1 'Search for the first space in the string qTime = Right(text,FSpace) 'Chop the string down WScript.Echo "qTime: " & qTime If qTime > "6:00" Or qTime < "18:00" Then book1.Worksheets(1).Cells(x,6).Value = "Day" Else book1.Worksheets(1).Cells(x,6).Value = "Night" End if TIA Tag: Creating Page Borders in Word Tag: 206982
  - 23
    - Generating a HTML file with accentuated characters? Hi! We wrote a VBScript that create an Active Directory report into a HTML file format, but users names containing accentuated characters are displayd incorrectly! What could we do to avoid that (codepage settings)? Thanks. Claude Lachapelle Systems Administrator, MCSE Tag: Creating Page Borders in Word Tag: 206979
  - 24
    - backup a remote host's event logs Hello, With VBScript, I'm trying to back up all the workstations and member servers from the PDC FSMO role holder. My script enumerates the hosts on the domain and then passes each hostname to a method which tries to backup the event logs on that box (The script is also smart enough to know how many logs are on the box and tries to back them up one at a time). My script runs without complaining but it will only backup the log files on the box which the script is run -- not any of the remote boxes. I've looked at: http://groups.google.com/group/microsoft.public.win32.programmer.wmi/browse_thread/thread/f24756bda5859d8d/f74e6e83a58910c4 http://groups.google.com/group/microsoft.public.win32.programmer.wmi/browse_thread/thread/b3fe81a46fdeca2d/393d1380a58a207b One of the posts says you cannot do this with WMI and the other post implies they got it to work. A portion of my code is posted below (and is pretty much the same as what is in one of the links above). You'll notice I'm not ignoring errors and when I run the script here backupLog always returns zero -- this is the confusing thing, the script runs without complaining but it will only backup the log files on the box which the script is run -- not any of the remote boxes. ' h = hostname ' l = Win32_NTEventlogFile.LogfileName Sub backupLogs(h, l) Dim sFileName : sFileName = "C:\Temp\" &_ h & " " &_ l & " " &_ ".evt" Dim objWMI : Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Security, Backup)}!\\" & h & "\root \cimv2") Dim colLog : Set colLog = objWMI.ExecQuery("Select * from Win32_NTEventLogFile where LogFileName='" & l & "'") For Each log in colLog backupLog = log.BackupEventLog(sFileName) If backupLog <> 0 Then MsgBox "The " & l & " log on " & h & " could not be backed up." Else log.ClearEventLog() End If Next End Sub So what is it... is it indeed possible to backup event logs from remote machines? If so, any suggestions to where I went wrong with my script are greatly appreciated. Thanks! Tag: Creating Page Borders in Word Tag: 206976
  - 25
    - Array Question I think this would be solved with an array, but I'm not sure. I have no idea how to implement one into this. I currently have a backup script going for my company. I'm just a IT person, not a programmer by any means. I'm working off of a previously created script. What this script does, is it calls another program called "Robocopy" to do the actual copying. Basically right now, the script backs up certain PC's. Afterwards, if there is an error it emails me, telling me which computers didn't complete the backup. It also creates text files with logs and stuff. I want to be able to have a list with the PC name's and corresponding email addresses of the owners of that PC. So if there is an error the script, it find the PC name that got the error, located the email address assigned to that PC name, and sends and email to that address, stating that there was an error. Here are my scripts ... This one specifies Source & Destination http://docs.google.com/Doc?id=dcc6zqw6_1fhdh4g This one is the actual script http://docs.google.com/Doc?id=dcc6zqw6_0czkw8m Tag: Creating Page Borders in Word Tag: 206971

Hi all! I an new to this group but not to vbscript. However, I can't
seem to find out how to create Page Borders in a Word Document???

Thanks for any help,
Joe

Top

Re: Creating Page Borders in Word by S

S
Mon Jun 18 12:35:40 CDT 2007

start recording a new macro in word.
create your page borders.
stop recording.

no just look at the macro code to see how its done

"Joe" <jfruvolo@comcast.net> wrote in message
news:1182179666.612090.158050@g4g2000hsf.googlegroups.com...
> Hi all! I an new to this group but not to vbscript. However, I can't
> seem to find out how to create Page Borders in a Word Document???
>
> Thanks for any help,
> Joe
>

Top

Re: Creating Page Borders in Word by Guitars

Guitars
Mon Jun 18 16:11:00 CDT 2007

S Moran,

Thank you so much for the idea. I completely forgot that you can view the
code in Word. I guess that I was too much "outside of the box".

Joe

"S Moran" wrote:

> start recording a new macro in word.
> create your page borders.
> stop recording.
>
> no just look at the macro code to see how its done
>
>
>
>
> "Joe" <jfruvolo@comcast.net> wrote in message
> news:1182179666.612090.158050@g4g2000hsf.googlegroups.com...
> > Hi all! I an new to this group but not to vbscript. However, I can't
> > seem to find out how to create Page Borders in a Word Document???
> >
> > Thanks for any help,
> > Joe
> >
>
>

Top