Date - Time Format

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
    - Window.returnvalue not working Hi, I am using a window.showmodaldialog to open a page and passing a string on window close.When I am trying to capture the returned value using the window.returnvalue I am getting an empty string. My code is as in opened window is window.returnValue = "yes" window.Close and the code in parent window is strResponse = window.showModalDialog(strFile,"resizable=yes, height=500, width=500, scrollbars=yes") msgbox strResponse Thanks Tag: Date - Time Format Tag: 179451
  - 2
    - Get clipboard contents for sorting can vbscript retrieve the clipboard contents ? I would like to sort it and paste it to back into an active document Tag: Date - Time Format Tag: 179450
  - 3
    - ASP/VBScript: Retrieving ID of last inserted record in Access In SQL server one can use @@Identity to retrieve the id of the last inserted record (although there are situations when it is not appropriate). What is the best way to retrieve the id of the last inserted record in Access? I'd appreciate any pointers. Thanks, J.S. -- Tag: Date - Time Format Tag: 179449
  - 4
    - Script to create a directory and put permissions to it We currently use MD and CACLS to do this but the problem is that you have to Y after every CALCS line of code. Is there a way using vbscript to create a directory on a remote machine and set the permission to that directory? This would be in a Windows 2003 SP1 environment. Thanks, Eric Sabo Tag: Date - Time Format Tag: 179443
  - 5
    - ShDocVw.ShellWindows vs. CreateObject("Shell.Application").Windows About two years back, Notre Poubelle was looking for a way to get ahold of ShDocVw.ShellWindows via script. Now ignoring the fact that it is essentially identical to CreateObject("Shell.Application").Windows, this is an interesting problem because the class id was known, but that was all. There was a clever idea by Alexander Mueller, which was tested out, that maybe it was possible to use IE for this, but it failed because of the security blanket that IE surrounded the object with. However, here's a working solution, which extends the original idea. The key idea is that after having IE create the object, we take it away from IE so the security restrictions will no longer exist. Even if it wasn't clear to IE that our app could freely muck with it, it should be clear to everybody that our VB app/script is free to go about it's own business on its own time. Dim ie, Tname, oWins, win, text Set ie=CreateObject("InternetExplorer.Application") ie.Navigate2("about:blank") ie.Document.open ie.Document.write "<object id=sw classid='clsid:" & _ "9BA05972-F6A8-11CF-A442-00A0C90A8F39'></object>" ie.Document.close Set oWins = ie.document.parentWindow.sw 'transfer object ie.Document.parentWindow.execScript "window.sw=null" 'paranoia ie.quit 'more of same msgbox "oWins: " & typename(oWins) 'This loop prints out something on each instance of IE / Explorer For each win in oWins Tname = typename(win.document) if mid(Tname,1,12)="HTMLDocument" Then text = win.document.title if text<>"" then text = "Title: " & text & vbCrLF MsgBox text & "url: " & win.document.location Else MsgBox "Folder: " & win.locationURL End If Next This code was adapted from: http://groups.google.com/group/microsoft.public.scripting.jscript/browse_frm/thread/cb42d8b604de28eb/ The reason I said ShDocVw.ShellWindows was essentially the same as CreateObject("Shell.Application").Windows was because of hooking event handlers up. For example, in a VB project, if I do Dim WithEvents ogSW As SHDocVw.ShellWindows Set ogSW = New SHDocVw.ShellWindows then I can receive events of IE/Explorer creations/destruction via: Private Sub ogSW_WindowRegistered(ByVal lCookie As Long) and Private Sub ogSW_WindowRevoked(ByVal lCookie As Long) but this approach does not work with the other. Enjoy, Csaba Gabor from Vienna Tag: Date - Time Format Tag: 179432
  - 6
    - Passing & retrieving values between 2 vbs files? is it possible? Passing & retrieving values between 2 vbs files? is it possible? I would like to get a main VBS file to detect the local language and accordingly sends a request to another VBS file that would contain various messages in different languages. Would it be possible to have the main VBS file retrieve the answer given by users to the messages - Yes/No - from the (other) message.vbs file at all? If user clicks yes the main file continues if they click No it aborts? TIA Joseph Tag: Date - Time Format Tag: 179431
  - 7
    - Batch file Call, quiet mode?? I know this is the vbscript group, but I couldn't find a batch group and I figured most of you in here know batch scripting, so here goes. Does anyone kow of a way to CALL 1 bacth file from another but not have the 2nd one show a window. Basically using a quiet mode. Is here such a thing as call file.bat /q or another method? Tag: Date - Time Format Tag: 179430
  - 8
    - FTP without script file I use the following to FTP a file. However it temporarily creates a text file on the Desktop that contains the users password. I'm concerned about the vbs failing sometime and leaving the file for all to see. Is there a way I could just write it to a string, pass the string to FTP and never create the text file anywhere? thanks LJB '----------------------------------------------------------- Set oFSO = CreateObject("Scripting.FileSystemObject") Set oShell = CreateObject("WScript.Shell") Path = oShell.SpecialFolders("Desktop") Order = InputBox("Order Number") Set oScript = oFSO.CreateTextFile(Path & "\get.txt", True) With oScript .WriteLine "open vaxf" .WriteLine InputBox("UserID") .WriteLine InputBox("Password") .WriteLine "cd RPT$DISK:[RPT.RPT_UNT]" .WriteLine "type ascii" .WriteLine "get " & Order & "unt.lis """ & Path & "\" & Order & ".txt""" .WriteLine "bye" End With oShell.Run "ftp -s:""" & Path & "\get.txt""", 0, True oScript.Close oFSO.DeleteFile Path & "\get.txt", True Set oScript = Nothing Set oFSO = Nothing Set oShell = Nothing Tag: Date - Time Format Tag: 179429
  - 9
    - mail-enabled a global security group Is there a way to mail-enabled a global security group in a vb script? We are running windows 2003 for our AD and Exchange 2003 SP1. Thank you, Eric Sabo Tag: Date - Time Format Tag: 179428
  - 10
    - Starting external Programm with VBScript Hallo NG, is it possible to start an external programm with vbscript. For exampal: Run "C:\MyProgramm.EXE /e" Thanks, Ahmed Tag: Date - Time Format Tag: 179423
  - 11
    - Applying Windows patches via VB I have been trying to find a suitable script to deploy the Hotfix KB899588 across my domain, via group policy As yet i haven't found a script that works. Any body have such a script or know a good site for help??!! Tag: Date - Time Format Tag: 179421
  - 12
    - wscript.exec in hidden window? With wscript.run there is an argument that lets you run the command invisibly but there does not appear to be the same argument available with wscript.exec. I need to run a command and capture its stderr (although I don't need the stdin and stdout) and wscript.exec lets me do that except for the annoying flashing of the command window which is doubly annoying in my application since I have to perform wscript.exec on several commands in succession and the screen just goes crazy. I would prefer to keep my application self contained (its currently one .hta file) and would prefer not to have to use temporary files if I don't have to. Is there a way to handle this? Tag: Date - Time Format Tag: 179413
  - 13
    - Copying Folder Contents Hi I haven't the slightest idea about scripts, I have been trying to write a batch file to do the job, with no success and I have been informed that a script is what I need. Here is my predicament: This action needs to work in an NT and XP environment I need to move files at the end of ever month stored in 2 different folders, to a backup location. For example this is where the files are located: p:\cmanger\{Workstation_name}\Dailydoc p:\cmanger\{Workstation_name}\DailyImg I would like all the files within the 2 folders all moved to p:\cmanger\backup\DailyDoc & p:\cmanger\backup\DailyImg Which should then leave the original file locations empty. However each workstation I need to perform the action on has a different folder name in the middle. It's always the workstation name, if this helps? Is it possible to write a script to automatically perform this action at the end of each month. If so, would it also be possible to move them to a folder of the time period i.e. named "yyyymmdd" each time the script runs. Your expert help on this would be most appreciated. Regards, Bradley Tag: Date - Time Format Tag: 179405
  - 14
    - Opening Ports and allowing exceptions Hello all, I am new to scripting. So any detailed information would be greatly appreciated, From the script, WinFire-com.vbs from Microsoft, arrNewPorts(0,0) = "FPS" 'Name arrNewPorts(0,1) = 137 'Port arrNewPorts(0,2) = NET_FW_IP_PROTOCOL_TCP 'Protocol arrNewPorts(0,3) = NET_FW_SCOPE_ALL 'Scope - default is NET_FW_SCOPE_ALL arrNewPorts(0,4) = True 'Enabled - default is True Regarding the scope, how can I change this so that the port is open for a range of addresses, say: 10.91.12.56,10.7.14.9/255.255.255.0,10.116.45.0/255.255.255.0 Further, from the same script, Const NET_FW_IP_PROTOCOL_TCP = 6 Const NET_FW_IP_PROTOCOL_UDP = 17 How do we know that TCP is 6 and UDP, 17. Where do these numbers come from? The two number, 6 and 17, reappear in each script I've seen. I want to know how we know that 6 corresponds to TCP and 17 corresponds to UDP. If you could refer me to documentation that I can read, that would be great! One more question, how can I say the port is open for all protocols (TCP and UDP)? Do have to to do two port openings? One for TCP and another for UDP? I appreciate your help! Thank you in advance! Tag: Date - Time Format Tag: 179402
  - 15
    - launch app and pass file name to open I need some help trying to launch an application and pass a file name to it for viewing when opened the "cmd" is correctly capturing the arguments and application path, but does not open the application ------ code ----- <SCRIPT Language="VBScript"> Dim Args, FileName,vApp,cmd Set WshShell = CreateObject("WScript.Shell") Args = Split(objHTAGetTools.commandLine, chr(34)) FileName = Trim(Args(1)) vApp="C:\Progra~1\Micros~1\v0.6.812\WebMatrix.exe" cmd = "cmd /c " & " """ & vApp & """ " & " """ & FileName & """ " 'msgbox cmd Call WshShell.Run (cmd , 1, TRUE) ... Tag: Date - Time Format Tag: 179398
  - 16
    - AD Group Access Rights Hi All, Is there a way to determine with scripting, the access rights that various groups in AD have? If so, can someone point me in the right direction. Thanks, Bob Tag: Date - Time Format Tag: 179395
  - 17
    - Checking for Empty Folders Hi, i would like to be able to run through a folder on my network looking for empty folders and output this information to a txt file, really new to scripting what i have is a shared dir on my network called clients, this contains subfolders a-z and these contain subfolders A100.....A500 - Z100...Z500 under each client folder A100 etc i there are other folders, i would like to be able to check these to see what folders are empty for each client i do not need to be able to run through the whole drive at once, even doing it letter by letter would be fine i would appreciate it if someone could point me in the right direction or a good web site for info thanks Tag: Date - Time Format Tag: 179392
  - 18
    - Elevate user during logon process I would like to know if anyone has had success elevating a user during the logon process and if so what they used to elevate that user? I would like to be able to elevate a user to admin rights, install one or several programs and then remove the admin rights. Anyone have any ideas as to which direction would be best? Thanks Tom Tag: Date - Time Format Tag: 179391
  - 19
    - wireless I need some guidance in deploying preferred networks using vbscript . I have a script that add a ssid and the other settings to the registry, but i cannot see it in "prefered networks". This script should activate the checkbox "Let windows manage...". This is what i have: Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") 'Get the id of the wireless NetworkCard strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\13" strValueName = "ServiceName" oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue Wscript.Echo "networkcard id Value: " & strValue 'Create key with the id strKeyPath = "SOFTWARE\Microsoft\EAPOL\Parameters\Interfaces\" & strvalue oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath 'Add a binaryvalue with the settings of the wireless conection BinaryValueName="1" iValues=Array(&H05,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H40,&H0d,&H00,&H00,&H00,&H04,&H00,&H00,&H00,&H65,&H2d,&H55,&H4d,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H0d,&H00,&H00,&H00,&H28,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H28,&H00,&H00,&H00,&H05,&H00,&H00,&H00) oReg.SetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,_ BinaryValueName,iValues If someone can point me in the right direction I would appreciate it. Tag: Date - Time Format Tag: 179390
  - 20
    - HOWTO: Raise C# event and handle in VBScript The event SomeEvent() is raised and handled in VB6 fine. Using this exact same code and using VBScript with the CreateObject call causes an error in the c# code. When using VBScript, I get a 'Object reference not set to an instance of an object.' on the line SomeEvent(). I am positive the m_nSomeProperty = nValue; line executes. How can I get this working from VBScript? Here's the code: using System; using System.Runtime.InteropServices; namespace ComInterop { public delegate void SomeEventHandler(); [ Guid("F8E81A5A-BB37-49CC-9681-7D4FE52936B3"), InterfaceType(ComInterfaceType.InterfaceIsIDispatch) ] public interface ICComInteropEvents { [DispId(1)] void SomeEvent(); } [ Guid("97C8501B-35DE-48CA-BECC-B980D08226F4"), InterfaceType(ComInterfaceType.InterfaceIsDual) ] public interface ICComInterop { [DispId(2)] void SomeMethod( int nValue ); [DispId(3)] int SomeProperty{ get; set; } } [ Guid("10EBC493-D2FD-4723-9F8B-F593586ED9B7"), ProgId("ComInterop.CComInterop"), ClassInterface(ClassInterfaceType.None), ComSourceInterfaces(typeof(ICComInteropEvents)) ] public class CComInterop : ICComInterop { public CComInterop() : base() { } private int m_nSomeProperty = 0; public event SomeEventHandler SomeEvent; public void SomeMethod( int nValue ) { m_nSomeProperty = nValue; /////////////////////////////////////////////////////////////////////////////////////////// // // object reference not set to an object error occurs here // ////////////////////////////////////////////////////////////////////////////////////////// SomeEvent(); } public int SomeProperty { get{ return m_nSomeProperty; } set{ m_nSomeProperty = value; } } } } And the VBScript code: Option Explicit ' ========================================================================== ' Implementation ' ' ========================================================================== Dim objReceive Dim bDone On error Resume Next bDone = false WScript.Echo "CreateObject" Set objReceive = CreateObject("ComInterop.CComInterop") if Err.Number <> 0 then WScript.Echo "Error: CreateObject: " & Err.Description else objReceive.SomeMethod(7) if Err.Number <> 0 then WScript.Echo "Error: Setting SomeMethod: " & Err.Description else WScript.Sleep 3000 end if end if objReceive = nothing WScript.Echo "Program Over" ' ========================================================================== Sub objReceive_SomeEvent() WScript.Echo "Message: " & objReceive.SomeProperty bDone = true End Sub -- Dan Sikorsky, MSCS BSCE BAB Tag: Date - Time Format Tag: 179389
  - 21
    - reading through a text file checking the first character on each line Hi I'm trying to read through a text file but I need to check if the first character on each line is a full stop (.) Any ideas? Thanks. Tag: Date - Time Format Tag: 179384
  - 22
    - testpage Hello, I added a new IP network printer to my OU with a logon script and i set it up as the defaut printer. I would like to be able to create a script to able to print a test page to the printer from the logon. -- The only easy day was Yesterday Tag: Date - Time Format Tag: 179383
  - 23
    - vbs script is blocked by anti-virus software After all of you helped me a lot with my last question (thanks again, everything worked great!), I'm again without any idea! Now I have my complete .vbs script that tests the installed Windows version and the installed Adobe Reader Version. I've burned it to a CD with a Autorun.inf that looks like this: [autorun] shellexecute = cscript.exe VersionCheck.vbs My problem: On almost every computer the script is blocked as a 'dangerous virus' by the anti-virus software. What can I do? I thought of maybe converting it to exe and as I googled that seems to be good solution if you have VB what I don't have! Is there an other way to make the script run? It won't be send by email it will just be on a CD! Any hint? Thanky you very much! Tag: Date - Time Format Tag: 179381
  - 24
    - onFileDateChange handler from a COM object? Is there any COM way, besides polling, that will let me know when a specific file's date has changed (I know that winternals is supposed to have a filemon app, but if possible I'd like to do this using already available objects/code)? Motivation. I'm developing an application which stays in the background and does its thing. If I rewrite (that is to say, edit) my app, I'd like to have the current running instance exit and a new instance start up (actually, the order will be reversed, to ensure the revised app is at least breathing). That's it. One save from me should be enough to cause a reload. Isn't there a nice event driven way for the running app to be notified when its own file has changed? - maybe some file system object has an event whenever any file in its directory changes? Thanks for any tips, Csaba Gabor from Vienna Tag: Date - Time Format Tag: 179379
  - 25
    - how to rename a active directory user Hello, I search for a way to rename the "name" field or the "cn" of a user object in active directory using a VBS. Is there any way to do so? Regards Stefan Tag: Date - Time Format Tag: 179378
- Next
  - 1
    - Execute code before closing script Hello I have a script that runs 24/24 7/7 on a server in an constant loop gathering information into a DB. What i would like (and don't know how) is to execute code to 'compact & repair' the database every time the server shutsdown/reboots. So, the question is, is there any way to do this with scripts, that is, to bypass the endless loop, executes final code and shuts itself down without being forced? Suggestions/links are welkome. Greets Davor Tag: Date - Time Format Tag: 179375
  - 2
    - Can't read a registry key I've created a template script to read IP addresses from a list, then carry out simple tasks such as read RAM, Host name, etc. which works absolutely fine for whatever info I'm trying to gather and send to an output file. Basically I'm just cut and pasting the main body of a script into my template. I've now tried to adapt the script to read a registry key, but the script returns no value for the registry key. The script is as follows - On Error Resume Next Const INPUT_FILE_NAME = "Addresses.txt" Const FOR_READING = 1 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(INPUT_FILE_NAME, FOR_READING) Do While objfile.AtEndofStream <> True strComputers = objFile.Readline Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputers & "\root\cimv2") Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") Set cPingResults = objWMIService.ExecQuery("SELECT * FROM Win32_PingStatus WHERE Address = '" + strComputers + "'") For Each oPingResult In cPingResults If oPingResult.StatusCode = 0 Then WScript.Echo VbCrLf & strComputers & " responded to ping." Set colCompSystems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem") For Each objCompSystem In colCompSystems WScript.Echo "Host Name: " & LCase(objCompSystem.Name) Next strKeyPath = "SOFTWARE\TrendMicro\PC-cillinNTCorp\CurrentVersion\Misc." strValueName = "PatternVer" oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwvalue Wscript.Echo "Current Pattern Version - " & dwvalue Else WScript.Echo VbCrLf & strComputers & " did not respond to ping *Target Possibley Down.!*." End If Next Loop objFile.Close IP address and Host name are displayed fine, and will also echo the "current pattern version" line, but gives no value. I created a simpler version of script to run on my local machine which goes - Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\TrendMicro\PC-cillinNTCorp\CurrentVersion\Misc." strValueName = "PatternVer" oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwvalue Wscript.Echo "Current Pattern Version - " & dwvalue This returns the value that I'm looking for no problem, so I'm confident that the code is ok. I'm guessing it's something to do with syntax as opposed to code. Can anyone help? Tag: Date - Time Format Tag: 179374
  - 3
    - WMI script I use a script to see if an application is running on a remote machine, this works fine as long as the service "windows firewall/ICS" is not started, MS offers an solution "http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/connecting_through_windows_firewall.asp" but it doesn't work for me. Can anyone help me..? Tag: Date - Time Format Tag: 179373
  - 4
    - Regular Expression With this script: str1= "BEGIN BEGIN BEGIN BEGIN" str2= "begin" Set regEx = New RegExp regEx.IgnoreCase = True regEx.Global = True regEx.Pattern = "(\s+|^)" & str2 & "(\s+|$)" Set Matches = regEx.Execute(str1) WScript.Echo str2 & " matches " & str1 & " " & Matches.Count & " times" regEx.Pattern = "\s+|^" & str2 & "\s+|$" Set Matches = regEx.Execute(str1) WScript.Echo str2 & " matches " & str1 & " " & Matches.Count & " times" Whi if i use () in the Pattern property I see only 2 occurences? It's right? Ciao, Alessandro Tag: Date - Time Format Tag: 179372
  - 5
    - object required 'Wscript" when trying to run this code in an hta file I keep getting the error : --- object required "Wscript" --- what's causing this error ?? ====== code ====== <html> <head> <title>HTA Tools</title> <HTA:APPLICATION ID="objHTATools" APPLICATIONNAME="Tools" SCROLL="yes" SINGLEINSTANCE="yes" WINDOWSTATE="normal" > </head> <SCRIPT Language="VBScript"> Set WshShell = CreateObject("WScript.Shell") Set Args = WScript.Arguments '<== error on this line If Args.Count >= 1 Then vPath = Args(Args.Count-1) End if ...... Tag: Date - Time Format Tag: 179369
  - 6
    - WshScriptExec Status issue Hi, Anyone have any ideas why the following code snippet will never exit the status polling loop? The only way I can get it to break out of the loop is by uncommenting the readline statement. Has me a little puzzled. Cheers Kristian --- Set g_oShell = WScript.CreateObject("WScript.Shell") Set g_oExec = g_oShell.Exec("cmd /c dir %windir%") Do While g_oExec.Status <> 1 ' g_oExec.StdOut.ReadLine() WScript.Sleep(50) Loop WScript.Echo vbNewLine WScript.Echo g_oExec.StdOut.ReadAll() Tag: Date - Time Format Tag: 179366
  - 7
    - Event in WMI When I register some events (event consumers & event filters) to WMI repository, process 'wmiprvse.exe' (Wins XP) or 'winmgmt.exe' (Wins 2K) occupies lot of CPU all the time. Is there anyway to reduce these process' percent of occupation of CPU? Tag: Date - Time Format Tag: 179364
  - 8
    - Chart Type Info Hello everybody, Posting for the first time. I am using Vb Scripting to generate some charts based of data from SQLServer. I was able to get all the charts displayed properly. However, I have a question with regards to way how the lines in the charts are being displayed. I will try to explain my problem using excel terminology. Lets say for the grid of values shown below, Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec 12 34 08 45 19 23 33 17 53 23 11 09 It plots the graph normally. But if the values are like this: Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec 12 34 08 45 23 33 17 23 11 09 The places where the values are not there, the chart is defaulting to zero, which I don't want. I want the line chart to end at April and then continue from June and end at August, then continue from October. I tried several different chart type values, but didn't get the functionality I was looking for. Does anyone have any ideas to resolve this issue? Thanks, Prasad Yarlagadda Tag: Date - Time Format Tag: 179360
  - 9
    - Close Specific Application Hi Folks, Can I close a specific application knowing only its executable name? I need it to be closed in a correct way, not the "terminate" kind of way, something similar to pressing the [X] button. How? Right now I can only close an application through "Sendkeys %{F4}", but I can't tell if the application I'm closing is the one I want to close. Regards, -- Beto Tag: Date - Time Format Tag: 179356
  - 10
    - Create a "SUB CHILD" for XML File Not sure exactly how to do, I have the XML file being created, but I am missing a node that should have the other elements as "SUB CHILD" under it - the file should look like <?xml version="1.0" encoding="utf-8" ?> - <ImportPayments> - <Payment> <ReceiptType>1</ReceiptType> <ReceiptMethod>2</ReceiptMethod> <ReceiptRef>1834</ReceiptRef> <ReceivedFrom>1</ReceivedFrom> <AccountNumber>6116242</AccountNumber> <Amount>191.8</Amount> <BankAccountID>12</BankAccountID> <DeclineReinstatement>0</DeclineReinstatement> </Payment> </ImportPayments> But mine looks like - I am missing the PAYMENT Node - can anyone tell me how to get that added or am i just being totally stupid - I would lean toward the latter LOL - Below is a copy of the script <?xml version="1.0" encoding="utf-8" ?> - <ImportPayments> <ReceiptType>1</ReceiptType> <ReceiptMethod>2</ReceiptMethod> <ReceiptRef>1834</ReceiptRef> <ReceivedFrom>1</ReceivedFrom> <AccountNumber>6116242</AccountNumber> <Amount>191.8</Amount> <BankAccountID>12</BankAccountID> <DeclineReinstatement>0</DeclineReinstatement> </ImportPayments> Dim xmlDoc, rootEl, p Dim fieldReceiptType, fieldReceiptMethod, fieldReceiptRef, fieldReceivedFrom Dim fieldAccountNumber, fieldAmount, fieldBankAccountID, fieldDeclineReinstatement Set xmlDoc = CreateObject("Microsoft.XMLDOM") xmlDoc.preserveWhiteSpace = True 'Create a root element and append it to the document Set rootEl = xmlDoc.createElement("ImportPayments") xmlDoc.appendChild rootEl Set fieldName = xmlDoc.createElement("Payment") Set fieldReceiptType = xmlDoc.createElement("ReceiptType") Set fieldReceiptMethod = xmlDoc.createElement("ReceiptMethod") Set fieldReceiptRef = xmlDoc.createElement("ReceiptRef") Set fieldReceivedFrom = xmlDoc.createElement("ReceivedFrom") Set fieldAccountNumber = xmlDoc.createElement("AccountNumber") Set fieldAmount = xmlDoc.createElement("Amount") Set fieldBankAccountID = xmlDoc.createElement("BankAccountID") Set fieldDeclineReinstatement = xmlDoc.createElement("DeclineReinstatement") fieldReceiptType.Text = "1" fieldReceiptMethod.Text = "2" fieldReceiptRef.Text = "1834" fieldReceivedFrom.Text = "1" fieldAccountNumber.Text = "6116242" fieldAmount.Text = "191.8" fieldBankAccountID.Text = "12" fieldDeclineReinstatement.Text = "0" rootEl.appendChild fieldReceiptType rootEl.appendChild fieldReceiptMethod rootEl.appendChild fieldReceiptRef rootEl.appendChild fieldReceivedFrom rootEl.appendChild fieldAccountNumber rootEl.appendChild fieldAmount rootEl.appendChild fieldBankAccountID rootEl.appendChild fieldDeclineReinstatement 'Add an XML processing instruction 'and insert it before the root element Set p=xmlDoc.createProcessingInstruction("xml","version='1.0'") xmlDoc.insertBefore p,xmlDoc.childNodes(0) 'Save the XML file to the c directory xmlDoc.Save "c:\trash\test.xml" 'Release all object references Set xmlDoc = nothing Set rootEl = nothing Set fieldReceiptType = nothing Set fieldReceiptMethod = nothing Set fieldReceiptRef = nothing Set fieldReceivedFrom = nothing Set fieldAccountNumber = nothing Set fieldAmount = nothing Set fieldBankAccountID = nothing Set fieldDeclineReinstatement = nothing Set fieldName=nothing Set p = nothing Tag: Date - Time Format Tag: 179352
  - 11
    - IPPrinter Script is not workding VBS clients all work on XP machines,and we do direct IP printing. Setting up a print server is not an option I want the script to add the IP port, driver, and printer object. If the machine already has the driver it works fine but if not, I get the same error message: Line 34; char 1; error: Generic failure; code 80041001; source SWbemObjectEx here is my script where am i going wrong? strOutput = "" Set objWMIService = GetObject("winmgmts:") Set objNewPort = objWMIService.Get _ ("Win32_TCPIPPrinterPort").SpawnInstance_ objNewPort.Name = "IP_192.168.79.200" objNewPort.Protocol = 1 objNewPort.HostAddress = "192.168.79.200" objNewPort.PortNumber = "9100" objNewPort.SNMPEnabled = False objNewPort.Put_ strOutput = "Printer port IP_192.168.79.200 was created." & VBNewLine strComputer = "." sDir = Replace(WScript.ScriptFullName, WScript.ScriptName, "") Set objWMIService = GetObject("winmgmts:" & _ "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objDriver = objWMIService.Get("Win32_PrinterDriver") objDriver.Name = "Xerox WorkCentre M55" objDriver.SupportedPlatform = "Windows NT x86" objDriver.Version = "3" objDriver.FilePath = sDir + "\Xerox WorkCentre M55 PCL " objDriver.InfName = sDir + "\\Xerox WorkCentre M55 PCL\XRB55PCL.INF" intResult = objDriver.AddPrinterDriver(objDriver) strOutput = strOutput & "Printer Driver for the Xerox WorkCentre Pro 55 printer was installed. Code: " & intResult & VBNewLine Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_ objPrinter.DriverName = "Xerox WorkCentre M55" objPrinter.PortName = "IP_192.168.79.200" objPrinter.DeviceID = "Xerox WorkCentre M55" objPrinter.Network = True objPrinter.Shared = False objPrinter.ShareName = "Xerox WorkCentre M55" objPrinter.Put_ WScript.Echo strOutput & "Xerox WorkCentre M 55 printer was installed." Tag: Date - Time Format Tag: 179351
  - 12
    - Crypt API dll in VBScript ASP I found this bit of code from www.allapi.net on how to use the windows api to do some basic encryption. It works great so I created a dll of the code so I could use it in different applications. So far it has been working great with no problem, until now. I tried to use the dll from a vbscript asp page to encrypt some information that is being passed to the server. I call the dll just like any other dll set variable=server.createobject("DLLName.ClassName") but when I try to use the dll it never returns the encrypted data. I have put in code into the dll to log that it gets initialized and nothing shows in the log. I also created another dll, very simple with only one function, and it works fine. I have this feeling that it might be security related because the dll calls the advapi.dll and kernel in some of its function calls. I have set permissions for IUSR_machine to have full access to the entire machine, is there something else I should try? Any help any of you fine folks out there can give would be greatly appretiated. Thanks, Adam Tag: Date - Time Format Tag: 179350
  - 13
    - VBScript Documentation I search on the web for good example of VBScript and also for explication on the Scripting.FileSystemObject. If any body had i good site to visit for good example . Tag: Date - Time Format Tag: 179348
  - 14
    - Logoff Script We want to put a script as a schedule task on a windows XP SP2 that will log a user off a certain time at night. Does anyone have a script like that? Thanks, Eric Sabo sabo_e@cup.edu Tag: Date - Time Format Tag: 179346
  - 15
    - .Net security Hi, I'm looking to change permission in .Net security for my local intranet traffic. Does anyone have suggestions as to how I may do this? Thanks in Advance, JeffH Tag: Date - Time Format Tag: 179343
  - 16
    - WMI impersonation on local machine hello, why I cannot impersonate script caller on the same machine when using WMI? is there a method to do it? I do this with sortcuts, but the script runs only under Network Service account and not under the caller's account. strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("select * from Win32_ShortcutFile where name like 'c:\\h%'") For Each objItem in colItems Wscript.Echo "target: " & objItem.Target Next : O. Tag: Date - Time Format Tag: 179342
  - 17
    - Help with InvokeVerbEx needed The following is a direct quote for the Windows 2000 Scripting Guide <begin quote> Be aware that verbs always function in exactly the same way they do when clicked in Windows Explorer. If you right-click a file and select Open, the file automatically opens. If you select Delete, however, a confirmation box is displayed before the file is deleted. This same confirmation box appears if you attempt to delete any object using InvokeVerbEx. For example, using the Delete verb on a file results in a dialog box similar to the one shown in Figure 11.8. By comparison, right-clicking a file and selecting Print does not display a dialog box; instead, the file is automatically printed to the default printer. If you use InvokeVerbEx to print a file programmatically, that file is automatically printed to the default printer without displaying a dialog box of any kind. </end quote> And here is the sample code: TargetFolder = "C:\Logs" set objShell = CreateObject("Shell.Application") set objFolder = objShell.Namespace(TargetFolder) set colItems = objFolder.Items for each objItem in colItems wscript.echo objItem.Name objItem.InvokeVerbEx("Print") next Contrary to what is printed a dialog box DOES appear for "every" file print. I can not seem to find any information on the optional parameter. Does anyone know of a way to make InvokeVerbEx perform as documented - I want to invoke the print verb on a file without any user intervention. Thanks Lee Tag: Date - Time Format Tag: 179336
  - 18
    - Binding to a user principal name in ad Hi all: I am looking for a way to bind to a user in AD by using the User Principal Name (Which I believe is the field on the Account tab Called User Login Name). Now I am using the code below which correctly binds to the AD user if the Display name is the same as the UPN but it will not bind if the Display name is set to last name, first name. When the script runs correctly it then updates the description field for the user, disables it and then moves it to a deletions OU, but if I cannot bind to the user then it will not do all of this stuff. EX1 Display Name = aa123 UPN = aa123 works correctly binds and script continues if user enters aa123 user into code below EX2 Display name = Doe, John UPN = aa123 does not find or bind to the user if you enter aa123 - script error EX3 Display name = Doe, John UPN-aa123 does find the user if you enter doe, john but the script will not update the description field for the user or the rest of the . Set objUser = GetObject _ ("LDAP://cn="& getuser &",OU=users,OU=MANAGED DESKTOP SERVICES,OU=HHH,DC=aa,DC=abc,DC=com") where getuser is an input from a html form Any suggestions on how to bind to the UPN as most of our users have ad id that is not their last name, first name. Thanks Tag: Date - Time Format Tag: 179329
  - 19
    - regex problem Hi, as I couldn't find any newsgroup specialized on regex, I hope somebody here can help me. I have the following kind of strings: file/start.asp#en:test>top file/start.asp?load=http:/www.test.com>top file/test.asp?load=http://www.test.com#en:test;de:test>top With the following regex I can extract the things I need (everything between 'en:'..and the last ; or 'top' or the uri's: ((.*)[(/|\\)])(.*\.asp)(\?load=(.*)#)?((.*;en:(.*));)?(>(.*)$)? But additionally the whole thing can start with http:// or ftp://, e.g. http://www.start.com?load=http:/www.test.com>top http://www.start.com?load=http:/www.test.com#en:test;>top ... But when I modify it like this: (http://.*|ftp://.*)|((.*)[(/|\\)])(.*\.asp)(\?load=(.*)#)?((.*;en:(.*));)?(>(.*)$)? it only matches the whole string and doesn't split it. Maybe anybody has got a clue, I'm a bit stuck with that a the moment. Best regards, Andi Tag: Date - Time Format Tag: 179320
  - 20
    - Change the pwdLastSet value I need to change the pwdLastSet attribute on accounts in Active Directory. I found this script which will change the value to 0 which means the user must change their password at next log on. But we are implementing a new pwd policy to force users to change their pwd after 180 days. Most of our users pwd's are older than that and we don't want them all expiring on that day. So, I need to be able to bulk set the pwdLastSet value to %today's date%. Here is my idea: set oUser = GetObject("LDAP://cn=user,ou=test,dc=domain,dc=com") oUser.Put "pwdLastSet", CLng(127703193192000000) oUser.Setinfo (We reverse engineered the Integer 8 number to be approx Sept 1, 2005, hence the value 127703193192000000) But when I run this I get an error Overflow: 'CLng' Has anyone ever done this before? Setting the pwdLastSet value to something other than 0? Tag: Date - Time Format Tag: 179315
  - 21
    - .net dll with asp hi all, i have created a dll with vb.net, so to use it from both asp.net that pure asp i have tested it in pure asp pages with iis 5.0, and it works. Now i have to move it on IIS 6.0, but when i launch the asp file i have the following error: File or assembly name testVB, or one of its dependencies, was not found. i've done the same things both on the machine with iis5 that the one with iis6... can anyone help me? Tag: Date - Time Format Tag: 179310
  - 22
    - Export list of users to excel speadsheet Hi, I am a newbie to scripting so be gentle with me ;-) I have been asked to export a list of all users from our domain into an excel spreadsheet. Data must include the following: Logon name, Email Address, Telephone Number. Our users are in multiple OUs depending on their office location so the script must search the whole domain. Can you help? Please highlight the parts which need to be modified... Many thanks, Don Pedro Tag: Date - Time Format Tag: 179307
  - 23
    - Server.MapPath(), ASP 0171 (0x80004005) I am using pure asp to upload files. I have a page before db-multiple-file-to-diskfolder.asp called folder.asp. where user can select the name of the folder from drop down list. so the files would be uploaded in selected folder, when i select the folder from the list, it opens db-multiple-file-to-diskfolder.asp, I browse the file and click upload button then I am getting this error. _________Error__________ Server.MapPath(), ASP 0171 (0x80004005) The Path parameter must be specified for the MapPath method. /SelfolderTest/db-multiple-file-to-diskfolder.asp, line 42 ****************************************** this is folder.asp <form name=3D"myForm" action=3D"db-multiple-file-to-diskfolder.asp" method=3D"post"> <p> <select name=3D"foldername" > <option value=3D"notable">Choose your manual:</option> <option value=3D"ListFiles">General Manual</option> <option value=3D"phone">Phone</option> <option value=3D"pics">pics</option> </select> </p> <p> <input name=3D"Ok" type=3D"submit" value=3D"View Manual"> </p> </form> ____________________________________________________ here is db-multiple-file-to-diskfolder.asp code <%@LANGUAGE=3D"VBSCRIPT"%> <% 'Sample file Field-SaveAs.asp 'Store extra upload info to a database ' and file contents to the disk Server.ScriptTimeout =3D 5000 'Create upload form 'Using Huge-ASP file upload 'Dim Form: Set Form =3D Server.CreateObject("ScriptUtils.ASPForm") 'Using Pure-ASP file upload Dim Form: Set Form =3D New ASPForm %><% Server.ScriptTimeout =3D 1000 Form.SizeLimit =3D 10240*1024'10MB '{b}Set the upload ID for this form. 'Progress bar window will receive the same ID. if len(Request.QueryString("UploadID"))>0 then Form.UploadID =3D Request.QueryString("UploadID")'{/b} end if 'was the Form successfully received? Const fsCompletted =3D 0 If Form.State =3D fsCompletted Then 'Completted dim VirtualFolder 'VirtualFolder =3Dform("foldername") If Form("foldername") <> "" Then Session("foldername") =3D Form("foldername") End If VirtualFolder =3D Session("foldername") 'Create destination path+filename for the source file. 'Create an URL for image. Dim DestinationPath, virtDestinationPath ________line 42 where I am getting error_____________ DestinationPath =3D Server.mapPath(VirtualFolder) & "\" virtDestinationPath =3D "http://" + Request.ServerVariables("SERVER_NAME") _ + GetPath(Request.ServerVariables("SCRIPT_NAME") ) _ + "/" + VirtualFolder + "/" 'Open recordset to store uploaded data Dim RS: Set RS =3D OpenUploadRS Dim FileField For Each FileField in Form.Files.Items 'Fo each file sent if len(FileField.FileName)> 0 then 'File is specified. Dim DestinationFileName DestinationFileName =3D DestinationPath & FileField.FileName 'Save file to physical location FileField.SaveAs DestinationFileName 'Store extra info about upload to database RS.AddNew RS("UploadDT") =3D Now() RS("Description") =3D Form("Desc-" & FileField.Name) RS("SourceFileName") =3D virtDestinationPath & FileField.FileName RS("DestPath") =3D DestinationFileName RS("DataSize") =3D FileField.Length 'RS("FileName") =3D form("FileName") '... RS.Update end if Next 'What to do with Form("Description")? '{b}Save file to the destination '{/b} ' response.write "<Font color=3Dgreen><br>SourceFile was saved as " & DestinationFileName ' response.write "<br>See ListFiles table in " & Server.MapPath("upload.mdb") & " database.</Font>" ElseIf Form.State > 15 then Const fsSizeLimit =3D &HD Select case Form.State case fsSizeLimit: response.write "<br><Font Color=3Dred>Source form size (" & Form.TotalBytes & "B) exceeds form limit (" & Form.SizeLimit & "B)</Font><br>" case else response.write "<br><Font Color=3Dred>Some form error.</Font><br>" end Select End If'Form.State =3D 0 then Function OpenUploadRS() Dim RS : Set RS =3D CreateObject("ADODB.Recordset") 'Open dynamic recordset, table Upload RS.Open "ListFiles", GetConnection, 2, 2 Set OpenUploadRS =3D RS end Function Function GetConnection() dim Conn: Set Conn =3D CreateObject("ADODB.Connection") Conn.Provider =3D "Microsoft.Jet.OLEDB.4.0" Conn.open "Data Source=3D" & Server.MapPath("upload.mdb") set GetConnection =3D Conn end function Function SplitFileName(FullPath) Dim Pos, PosF PosF =3D 0 For Pos =3D Len(FullPath) To 1 Step -1 Select Case Mid(FullPath, Pos, 1) Case ":", "/", "\": PosF =3D Pos + 1: Pos =3D 0 End Select Next If PosF =3D 0 Then PosF =3D 1 SplitFileName =3D PosF End Function Function GetPath(FullPath) GetPath =3D left(FullPath, SplitFileName(FullPath)-1) End Function '{b}get an unique upload ID for this upload script and progress bar. Dim UploadID, PostURL UploadID =3D Form.NewUploadID 'Send this ID as a UploadID QueryString parameter to this script. PostURL =3D Request.ServerVariables("SCRIPT_NAME") & "?UploadID=3D" & UploadID'{/b} %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html> <head>  <title>Documents</title>  <meta http-equiv=3D"Content-Type" content=3D"text/html; charset=3Diso-8859-1"> <script language=3D"JavaScript" type=3D"text/JavaScript">  </script>  </head> <body bgcolor=3D"#CCCCCC" text=3D"#333333" link=3D"#0000FF" vlink=3D"#0000F= F" alink=3D"#CC9900" onLoad=3D"MM_preloadImages('images/Homecolum.png','images/RegCol.png','imag= es/UploadCol.png','images/loginCol.png','DifferentTemplate/Images/Home1.png= ','DifferentTemplate/Images/Services1.png','DifferentTemplate/Images/Upload= %20Files1.png','DifferentTemplate/Images/About%20Us1.png','images/search1.p= ng')" tracingsrc=3D"images/wn1.jpg" tracingopacity=3D"45"> <div id=3D"Layer1" style=3D"position:absolute; width:977px; height:152px; z-index:1; left: 4px; top: 6px;">  <div id=3D"Layer1" style=3D"position:absolute; width:143px; height:276px; z-index:1; left: 598px; top: 133px;"> <div align=3D"center"> </div> <table width=3D"132" border=3D"0" cellspacing=3D"0" cellpadding=3D"0" style=3D"border-collapse: collapse" bordercolor=3D"#111111"> <tr> <td rowspan=3D"14" valign=3D"top" align=3D"right" width=3D"10" height=3D"1">  </td> <td height=3D"3" align=3D"left" valign=3D"top" colspan=3D"2"> </= td> </tr> <tr> <td class=3D"directhead" height=3D"21" align=3D"left" colspan=3D"2">  <font color=3D"#999999"><strong>Quick Links</strong></font></td> </tr> <tr> <td align=3D"left" valign=3D"top" height=3D"3" colspan=3D"2" > <img src=3D"DifferentTemplate/Images/1PixGray.png" width=3D"140" height=3D"2"></td> </tr> <tr> <td align=3D"left" width=3D"1" height=3D"1"> </td> <td height=3D"1" align=3D"left" width=3D"131"> <font color=3D"#006699" size=3D"2" face=3D"Times New Roman, Times, serif"><strong>Current News</strong></font></td> </tr> <tr> <td align=3D"left" width=3D"1" height=3D"19"></td> <td height=3D"19" align=3D"left" width=3D"131"> <a href=3D"/CITY-HALL/forms/default.asp"><span class=3D"direct"><font color=3D"#006699" size=3D"2" face=3D"Times New Roman, Times, serif"><strong>Forms</strong></font></span></a></td> </tr> <tr> <td align=3D"left" width=3D"1" height=3D"1"></td> <td height=3D"1" align=3D"left" width=3D"131"> <a href=3D"/careers/default.asp"><span class=3D"direct"><font color=3D"#006699" size=3D"2" face=3D"Times New Roman, Times, serif"><strong> Careers & Working </strong></font></span></a></td> </tr> <tr> <td align=3D"left" width=3D"1" height=3D"1"></td> <td height=3D"1" align=3D"left" width=3D"131"> <strong><a href=3D"/careers/default.asp"><span class=3D"direct"><font color=3D"#006699" size=3D"2" face=3D"Times New Roman, Times, serif">some</font></span></a></strong></td> </tr> <tr> <td align=3D"left" width=3D"1" height=3D"1"></td> <td height=3D"1" align=3D"left" width=3D"131"> <strong><a href=3D"/careers/default.asp"><span class=3D"direct"><font color=3D"#006699" size=3D"2" face=3D"Times New Roman, Times, serif">Something</font></span></a></strong></td> </tr> <tr> <td align=3D"left" width=3D"1" height=3D"1"></td> <td height=3D"1" align=3D"left" width=3D"131"> <strong><font color=3D"#006666" size=3D"2" face=3D"Times New Roman, Times, serif"><a href=3D"/careers/default.asp"><span class=3D"direct"><font color=3D"#006699">Something</font></span></a></font></strong></td> </tr> <tr> <td align=3D"left" width=3D"1" height=3D"1"></td> <td height=3D"1" align=3D"left" width=3D"131"> <strong><font color=3D"#006666" size=3D"2" face=3D"Times New Roman, Times, serif"><a href=3D"/careers/default.asp"><span class=3D"direct"><font color=3D"#006699">sometext</font></span></a></font></strong></td> </tr> <tr> <td align=3D"left" valign=3D"top" colspan=3D"2" height=3D"1" ><img src=3D"/images/1PixGray.gif" width=3D"130" height=3D"2" alt=3D""/></td> </tr> <tr> <td align=3D"left" width=3D"1" height=3D"1"></td> <td height=3D"1" align=3D"left" width=3D"131"><strong><a href=3D"/careers/default.asp"><span class=3D"direct"><font color=3D"#006699" size=3D"2" face=3D"Times New Roman, Times, serif">Services A to Z</font></span></a></strong></td> </tr> <tr> <td align=3D"left" width=3D"1" height=3D"1"></td> <td height=3D"1" align=3D"left" width=3D"131"> </td> </tr> <tr> <td align=3D"left" width=3D"1" height=3D"1"></td> <td height=3D"1" align=3D"left" width=3D"131"> </td> </tr > <tr> </table> </div> <div id=3D"Layer3" style=3D"position:absolute; width:733px; height:420px; z-index:1; left: 208px; top: 187px;"> <marquee> <strong><em><font color=3D"#999999">upload</font></em></strong><font color=3D"#999999"><strong><em> multiple files to a disk,<em><strong>Upload file size limit is 10MB.</strong></em> </marquee> </font> <table width=3D"100%"> <tr> </tr> </table> <table width=3D"100%"> <tr> <td height=3D"133"> <TABLE cellSpacing=3D0 cellPadding=3D0 width=3D"100%" border=3D0> <TR> </TR> <TR> <TH noWrap align=3Dleft bgColor=3Dkhaki> </TH> </TR> <TR> <marquee> <TH noWrap align=3Dleft width=3D"20%" bgColor=3Dkhaki> upload multiple files to a disk, store extra file upload info in a database </TH> </marquee> </TR> <TR> <marquee> upload multiple files to a disk, store extra file upload info in a database </marquee> </TR> </TABLE> <TABLE cellSpacing=3D2 cellPadding=3D1 width=3D"90%" bgColor=3Dwh= ite border=3D0> <TR> <TD height=3D"59" colSpan=3D2><form name=3D"file_upload" method=3D"POST" ENCTYPE=3D"multipart/form-data" OnSubmit=3D"return ProgressBar();" Action=3D"<%=3DPostURL%>"> <Div ID=3Dfiles> File 1 : <input type=3D"file" name=3D"File1"> Description 1 : <Input Name=3D"Desc-File1" Size=3D50> <br> File 2 : <input type=3D"file" name=3D"File2"> Description 2 : <Input Name=3D"Desc-File2" Size=3D50> <br> File 3 : <input type=3D"file" name=3D"File3"> Description 3 : <Input Name=3D"Desc-File3" Size=3D50> </Div> <Input Type=3DButton Value=3D"Add a file" OnClick=3Dreturn(Expand()) Style=3D"border=3D0;background=3Dyellow;cursor:hand"><br> <input Name=3DSubmitButton Value=3D"Submit =BB" Type=3DSubmit><br> </Form></TD> </TR> <TR> <TD height=3D"59" colSpan=3D2> <P>      </P>  <font color=3D"#FFFFFF"><%=3DForm.SizeLimit%>(<%=3DForm.SizeLimit \ 1024 %></font></TD> </TR> </TABLE></td> </tr> <tr> <td><div align=3D"center"><font color=3D"#9933FF" size=3D"1" face=3D"Arial, Helvetica, sans-serif"><a href=3D"existing%20documents.htm"><strong>home</strong></a><strong> | <a href=3D"Network.htm">about the us</a> | <a href=3D"Network.htm">our services</a> |<a href=3D"Diagaram.htm"> Technical support</a> | <a href=3D"procedure.htm">contact us</a></strong></font></div></td> </tr> </table> <p> </p> <p> </p> <p> </p> <p><br> </p> </div> <SCRIPT> //Open window with progress bar. function ProgressBar(){ var ProgressURL ProgressURL =3D 'progress.asp?UploadID=3D<%=3DUploadID%>' var v =3D window.open(ProgressURL,'_blank','toolbar=3Dno,location=3Dno,directories=3D= no,status=3Dno,menubar=3Dno,scrollbars=3Dno,resizable=3Dyes,width=3D350,hei= ght=3D200') return true; } </SCRIPT> <Script> //Expand form with a new File fields if needed. var nfiles =3D 3; function Expand(){ nfiles++ var adh =3D '<BR> File '+nfiles+' : <input type=3D"file" name=3D"File'+nfiles+'"> Description '+nfiles+' : <Input Name=3D"Desc-File'+nfiles+'" Size=3D50>'; files.insertAdjacentHTML('BeforeEnd',adh); return false; } </Script> <div id=3D"Layer3" style=3D"position:absolute; width:440px; height:478px; z-index:3; left: 157px; top: 137px;"></div> <img src=3D"images/itDept.png" width=3D"954" height=3D"140"> <div id=3D"Layer6" style=3D"position:absolute; width:57px; height:45px; z-index:2; left: 73px; top: 32px;"><img src=3D"images/Globe.gif" width=3D"48" height=3D"48"></div> </div> <div id=3D"Layer2" style=3D"position:absolute; width:166px; height:191px; z-index:2; left: 33px; top: 221px; background-color: #FFFFFF; layer-background-color: #FFFFFF;"> <div align=3D"left"> </div> <table width=3D"100%" border=3D"2" bordercolor=3D"#666666"> <tr> <td height=3D"23" bgcolor=3D"#FFFFFF"> </td> </tr> <tr> <td height=3D"20" bordercolor=3D"#FFFFFF" bgcolor=3D"#FFFFFF"> <div align=3D"left"><a href=3D"#" onMouseOut=3D"MM_swapImgRestore()" onMouseOver=3D"MM_swapImage('Image8','','images/Homecolum.png',1)"><img src=3D"images/Homecolum1.png" name=3D"Image8" width=3D"155" height=3D"26" border=3D"1"></a></div></td> </tr> <tr> <td height=3D"20" bordercolor=3D"#FFFFFF" bgcolor=3D"#FFFFFF"><a href=3D"Registeration.asp" onMouseOut=3D"MM_swapImgRestore()" onMouseOver=3D"MM_swapImage('Image9','','images/RegCol.png',1)"><img src=3D"images/RegCol1.png" name=3D"Image9" width=3D"155" height=3D"26" border=3D"1"></a></td> </tr> <tr> <td height=3D"20" bordercolor=3D"#FFFFFF" bgcolor=3D"#FFFFFF"><a href=3D"sitefolder/aminlogin.asp" onMouseOut=3D"MM_swapImgRestore()" onMouseOver=3D"MM_swapImage('Image10','','images/UploadCol.png',1)"><img src=3D"images/UploadCol1.png" name=3D"Image10" width=3D"155" height=3D"26" border=3D"1"></a></td> </tr> <tr> <td height=3D"26" bordercolor=3D"#FFFFFF" bgcolor=3D"#FFFFFF"><a href=3D"Login.asp" onMouseOut=3D"MM_swapImgRestore()" onMouseOver=3D"MM_swapImage('Image11','','images/loginCol.png',1)"><img src=3D"images/loginCol1.png" name=3D"Image11" width=3D"155" height=3D"26" border=3D"1"></a></td> </tr> <tr> <td height=3D"23" bordercolor=3D"#666666" bgcolor=3D"#FFFFFF"> </td> </tr> </table> </div> <div id=3D"Layer4" style=3D"position:absolute; width:920px; height:2px; z-index:5; left: 28px; top: 185px; background-color: #CCCCCC; layer-background-color: #CCCCCC; border: 1px none #000000;"> <div align=3D"center"><img src=3D"images/anibline2b.gif" width=3D"900" height=3D"2"></div> </div> <div id=3D"Layer5" style=3D"position:absolute; width:475px; height:23px; z-index:6; left: 457px; top: 154px;"><a href=3D"#" onMouseOut=3D"MM_swapImgRestore()" onMouseOver=3D"MM_swapImage('Image14','','DifferentTemplate/Images/Home1.pn= g',1)"><img src=3D"DifferentTemplate/Images/Home.png" alt=3D"Home" name=3D"Image14" width=3D"94" height=3D"29" border=3D"0"></a><a href=3D"#" onMouseOut=3D"MM_swapImgRestore()" onMouseOver=3D"MM_swapImage('Image13','','DifferentTemplate/Images/Services= 1=2Epng',1)"><img src=3D"DifferentTemplate/Images/Services.png" alt=3D"Services" name=3D"Image13" width=3D"94" height=3D"29" border=3D"0"></a><a href=3D"aminlogin.asp" onMouseOut=3D"MM_swapImgRestore();MM_timelineGoto('Timeline1','1');MM_timel= inePlay('Timeline1')" onMouseOver=3D"MM_swapImage('Image15','','DifferentTemplate/Images/Upload%2= 0Files1.png',1);MM_setTextOfLayer('submanu','','%3Ca href=3D%22aminlogin.asp%22%3E%3Cfont size=3D%222%22%3EUpload %0D%0A general files%3C/font%3E%3C/a%3E%3Cfont size=3D%222%22%3E | %3Ca href=3D%22aminlogin.asp%22%3EUpload %0D%0A forms%3C/a%3E | %3Ca href=3D%22default1.asp%22%3EView General files%3C/a%3E | %3Ca href=3D%22../Forms/formsview.asp%22%3EView %0D%0A &amp; Download forms%3C/a%3E%3C/font%3E');MM_timelineStop('Timeline1')"><img src=3D"DifferentTemplate/Images/Upload%20Files.png" alt=3D"Upload" name=3D"Image15" width=3D"94" height=3D"29" border=3D"0"></a><a href=3D"default1.asp" onMouseOut=3D"MM_swapImgRestore()" onMouseOver=3D"MM_swapImage('Image17','','images/search1.png',1)"><img src=3D"images/Search.png" alt=3D"Search Web" name=3D"Image17" width=3D"94" height=3D"29" border=3D"0"></a><a href=3D"#" onMouseOut=3D"MM_swapImgRestor= e()" onMouseOver=3D"MM_swapImage('Image16','','DifferentTemplate/Images/About%20= Us1.png',1)"><img src=3D"DifferentTemplate/Images/About%20Us.png" alt=3D"About Us" name=3D"Image16" width=3D"94" height=3D"29" border=3D"0"></a> </div> <div id=3D"submanu" style=3D"position:absolute; width:474px; height:22px; z-index:0; left: 458px; top: 194px; background-color: #CCCCCC; layer-background-color: #CCCCCC; border: 1px none #000000; visibility: visible;"></div> </body> </html> ____________________________________________ Tag: Date - Time Format Tag: 179304
  - 24
    - script to duplicate the content management system Hello, I want a script which duplicates the content management system with all the files and the associated permissions. Can any one please help me with this. Thanks Arvind Tag: Date - Time Format Tag: 179303
  - 25
    - Modification of Inbox field formula in Outlook 2003 In Outlook 2003 I have an "email age" field with the following formula: DateDiff("h",[Received],Now()) & " hours " & DateDiff("d",[Received],Now()) & " day(s) old" How can I modify the formula such that it does what this pseudo-code suggests? If DateDiff("minutes",[Received],Now()) < "59 minutes" Then DateDiff("minutes",[Received],Now()) & " minutes old" ElseIf DateDiff("h",[Received],Now()) < "24 hours" Then DateDiff("h",[Received],Now()) & "hours old" Else DateDiff("d",[Received],Now()) & & " days old" End If End If Thanks! J.S. -- Tag: Date - Time Format Tag: 179302

I am using ASP to access a database and pull out the date in the database
that is in this format: 7/5/2005 9:20:22 AM

I want to make it display on the page in this format which is a standard
miltary DTG(Date/Time/Group) format and in Zulu (GMT - Grenwich Mean Time).
For example this would be how I would display the above date and time:

050920Z JUL 05

DDHHMMZ MMM CC

Any clue as to how to get this done?

I did find this webpage, but copied and pasted over to an asp page on the
server, and I get an error...the page is from 2003, so maybe the code has
changed a bit?

Any help is appreciated.

Thanks,

Doug

Top

Re: Date - Time Format by Doug

Doug
Fri Aug 19 21:57:03 CDT 2005

Whoops. Here is the webpage I found with the code:

http://www.frontpagewebmaster.com/m-127132/tm.htm#127132

"Doug" <dtcress@nospam.cox.net> wrote in message
news:gXwNe.759$UI.5@okepread05...
> I am using ASP to access a database and pull out the date in the database
> that is in this format: 7/5/2005 9:20:22 AM
>
> I want to make it display on the page in this format which is a standard
> miltary DTG(Date/Time/Group) format and in Zulu (GMT - Grenwich Mean
Time).
> For example this would be how I would display the above date and time:
>
> 050920Z JUL 05
>
> DDHHMMZ MMM CC
>
> Any clue as to how to get this done?
>
> I did find this webpage, but copied and pasted over to an asp page on the
> server, and I get an error...the page is from 2003, so maybe the code has
> changed a bit?
>
> Any help is appreciated.
>
> Thanks,
>
> Doug
>
>

Top

Re: Date - Time Format by Bob

Bob
Sat Aug 20 09:20:10 CDT 2005

Doug wrote:
> I am using ASP to access a database and pull out the date in the
> database that is in this format: 7/5/2005 9:20:22 AM
>
Please don't multipost. I've already replied to this question over at
.asp.db. If you feel you must direct your question at multiple
newsgroups*, then post one single message to the desired groups by
putting the group names into the To list (aka crosspost)

Bob

--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"

Top