testpage

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
    - 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: testpage Tag: 179381
  - 2
    - 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: testpage Tag: 179379
  - 3
    - 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: testpage Tag: 179378
  - 4
    - 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: testpage Tag: 179375
  - 5
    - 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: testpage Tag: 179374
  - 6
    - 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: testpage Tag: 179373
  - 7
    - 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: testpage Tag: 179372
  - 8
    - 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: testpage Tag: 179369
  - 9
    - 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: testpage Tag: 179366
  - 10
    - 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: testpage Tag: 179364
  - 11
    - 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: testpage Tag: 179360
  - 12
    - 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: testpage Tag: 179356
  - 13
    - 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: testpage Tag: 179352
  - 14
    - 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: testpage Tag: 179351
  - 15
    - 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: testpage Tag: 179350
  - 16
    - 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: testpage Tag: 179348
  - 17
    - 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: testpage Tag: 179346
  - 18
    - .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: testpage Tag: 179343
  - 19
    - 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: testpage Tag: 179342
  - 20
    - 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: testpage Tag: 179336
  - 21
    - 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: testpage Tag: 179329
  - 22
    - 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: testpage Tag: 179320
  - 23
    - 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: testpage Tag: 179315
  - 24
    - .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: testpage Tag: 179310
  - 25
    - 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: testpage Tag: 179307
- Next
  - 1
    - 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: testpage Tag: 179304
  - 2
    - 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: testpage Tag: 179303
  - 3
    - 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: testpage Tag: 179302
  - 4
    - Check if registry registry key exists and then add values to runonce Hi all, I have done some scripting but I am no expert. I need to check if a registry key (not a string value) exists on a client computer. If the key exists it should add some value to the HKCU runonce hive. If the key does exists it should do nothing and run the rest in the script. How do I do that? Bye Mariette Knap www.smallbizserver.net Tag: testpage Tag: 179301
  - 5
    - Moving the Windows Taskbar via script Hi I was just wondering if anyone has any idea of how to move the windows taskbar through vbscript (or any other non-manual method for that matter). The reason for this is that I have a friend who logs on to a university network. Every time he logs on, the display settings are defaulted to have the taskbar docked on the bottom of the screen. He prefers to have it docked on the top of the screen. No personal display preferences are saved between sessions. I have been scouring google for a few days now and I'm running out of ideas. Any help is appreciated, Tim Tag: testpage Tag: 179296
  - 6
    - Make a html Drop Down list behave like a vb Combo Box Hi, I am currently working on an Intranet based payroll tool, which interfaces with our Payroll system, I am currently working on an expenses claim screen, based on ASP, HTML and vbscript (we have a totally IE based client base) I have been asked to make some drop down lists behave much the same as a Win32/vb type combo box, however I am struggling with this. I want the drop down list to filter the contents much the same as a combo box. for example if a user wants to find the payroll number 001934, they would simply type it into the drop down list and it moves its way to this value rather than the way drop down lists work in a browser ie. the brower would move to the first number starting with zero, then to the next number starting with zero, then the first number starting with 1 etc. Any help would be greatly appreciated with this. If a Javascript solution is all you have then please let me have it, I am at the point of desperation now. Thanks to everyone in anticipation of your help Simon Tag: testpage Tag: 179295
  - 7
    - Username, find the computer Hi all, having only the Username from a person, with which the person will login to a domain. Is it possible to find the computer to which the person is currently logged on, using LDAP or ADSI? Tag: testpage Tag: 179292
  - 8
    - CPU, Increase Percentage Is there a way to dictate how much of the processor's time is given to a script? My scripts normally do a lot of database accessing, so it's not uncommon to pin the CPU. I have one scrpt that when run, stays down around 1 or 2% of the processor usage. At that rate it takes 20 minutes to run. Any ideas on how to get it more of the CPU? Note: During this time, the System Idle Process is runing above 90%. Thanks, Bernie Tag: testpage Tag: 179291
  - 9
    - http://username:password@domain I have made the changes in my registry that are documented in many places, and in Internet Explorer 6 the command http://username:password@domain now works just fine. However, I now want to open the same page with a script, going thru the InternetExplorer object and Navigate (or whatever is appropriate). My problem is that Navigate will not accept http://username:password@domain as a url, which is I suppose not surprising. MY QUESTION, THEN, IS HOW DO I OPEN THIS PAGE? i suspect that I have to do something with ... As Variant, but I do not understand the syntax or the semantics. Thanks in advance for any help. Tag: testpage Tag: 179288
  - 10
    - Import NS bookmarks script Is there any way by using some sort of script to import netscape bookmarks into IE? We are moving away from Netscape in our organisation, it would be save alot of time if we could automatically do the import say throuogh a login script then to walk to every machine and run the IE import wizard. thanks Tag: testpage Tag: 179287
  - 11
    - Converting an "xls" file to "pdf" file by using "FreePDF XP" I have searched many sites but there is no such example for converting an "xls" file to "pdf" file by using "FreePDF XP". So I re-write the code from "FreePDF XP ResourceKit" and share it here for anyone needs. Please install "FreePDF XP" before running this script. "FreePDF XP" can be downloaded at http://freepdfxp.de/fpxp.htm ----------------------------------8<--------------------------------- '********************************************************************** '* '* Author: Curtis Wong '* File: xls2pdf.vbs '* Created on: 15 August 2004 '* '* Aim: To convert "xls" to "pdf" format by using FreePDF '* '********************************************************************** Option Explicit ' Check if this script is run by "cscript.exe" If Not IsHostCscript Then Const kMessage1 = "Please run this script using CScript." Const kMessage2 = "This can be achieved by changing the default" Const kMessage3 = "Windows Scripting Host to CScript using:" Const kMessage4 = """CScript //H:CScript //S""." WScript.Echo kMessage1 & vbCRLF & vbCRLF & kMessage2 & vbCRLF & _ kMessage3 & vbCRLF & vbCRLF & kMessage4 WScript.Quit End If ' To make this script can be run once at each time Dim OneInstance, strWQL strWQL = "SELECT name from win32_process where" & _ " name='wscript.exe' or name='cscript.exe'" OneInstance = GetObject("winmgmts:").Execquery(strWQL).Count If Trim(CStr(OneInstance)) <> "1" Then WScript.Quit ' Main part Dim objFSO Dim RptDir, CurDir, RptName, objRpt ' Define the Current Directory Set objFSO = CreateObject("Scripting.FileSystemObject") CurDir = objFSO.GetParentFolderName(Wscript.ScriptFullName) If Right(CurDir, 1) = "\" Then _ CurDir = Left(CurDir, Len(CurDir) - 1) ' Define the variables for output reports RptDir = CurDir ' Add into the following array for the reports needed to convert ' to "pdf" format. Note that filename only, ".xls" is NOT required RptName = Array("book1") For Each objRpt in RptName XLS2PDF objRpt Next Msgbox "The conversions are finished.", vbOKOnly + vbInformation, _ "Congratulations" Set objFSO = Nothing '********************************************************************** '* '* Sub XLS2PDF(ByVal Workbookname) '* Purpose: Convert Excel Worksheet to pdf '* Input: Workbookname <Name of Excel Workbook> '* '********************************************************************** Private Sub XLS2PDF(ByVal Workbookname) Dim psFile, objExcel, OldPrinter psFile = CurDir & "\" & Workbookname & ".ps" Wscript.Echo "Converting """ & Workbookname & ".xls"" -> """ & _ Workbookname & ".pdf""" ' Create Excel Object Set objExcel = CreateObject("Excel.Application") With objExcel ' Open workbook .Workbooks.Open RptDir & "\" & Workbookname & ".xls", 0, True ' Open the workbook implicitly .Visible = False ' Check if it is a blank workbook If .Worksheets(1).UsedRange.Address = "$A$1" And _ .Worksheets(1).Range("A1") = "" Then .Workbooks(Workbookname & ".xls").Close False .Quit Set objExcel = Nothing WScript.Echo Workbookname & ".xls is a blank workbook." WScript.Quit End If ' Print all worksheets in the opened workbook ' (Comment the following if you only want to print some ' worksheets) .Workbooks(Workbookname & ".xls").PrintOut _ , , , , "FreePDF XP", True, , psFile ' Print the first worksheet counting from the left ' (Comment the following if you want to print all worksheets in ' the opened workbook) '.Worksheets(1).PrintOut , , , , "FreePDF XP", True, , psFile ' Close the workbook .Workbooks(Workbookname & ".xls").Close False ' Quit Excel .Quit End With ' Release Excel Object Set objExcel = Nothing Dim objFreePDF, FreePDF, objShell, PDFFile, Parameter ' Create Shell object Set objShell = WScript.CreateObject("WScript.Shell") PDFFile = RptDir & "\" & Workbookname & ".pdf" ' Define the "freepdf.exe" in Full Path format FreePDF = objShell.ExpandEnvironmentStrings("%ProgramFiles%") & _ "\FreePDF_XP\freepdf.exe" 'Define the parameter needed for outputing "pdf" files Parameter = " /3 delps,end ""High Quality"" " & """" & PDFFile & _ """ """ & psFile & """" If objFSO.FileExists(FreePDF) Then ' Run "freepdf.exe" with parameter and get the WshScriptExec ' object Set objFreePDF = objShell.Exec(FreePDF & Parameter) Wscript.Stdout.Write "Please wait " ' Check whether "freepdf.exe" ends for every 0.5 second Do While objFreePDF.Status = 0 WScript.Sleep 500 Wscript.Stdout.Write "." Loop WScript.Echo vbCrLf & "Convertion finished." & vbCrLf Else ' Prompt to user to install "FreePDF XP" before running this ' script MsgBox _ "Please install ""FreePDF XP"" before running this script.", _ vbExclamation, "Error" End If ' Release objects Set objShell = Nothing: Set objFreePDF = Nothing End Sub '********************************************************************** '* '* Function: IsHostCscript() '* Purpose: Check if "cscript.exe" is to run this script '* Output: Returns true if the script host is "cscript.exe" '* '********************************************************************** Private Function IsHostCscript() On Error Resume Next Dim strFullName, strCommand, i, j Dim bReturn: bReturn = False strFullName = WScript.FullName i = InStr(1, strFullName, ".exe", 1) If i <> 0 Then j = InStrRev(strFullName, "\", i, 1) If j <> 0 Then strCommand = Mid(strFullName, j + 1, i - j - 1) If LCase(strCommand) = "cscript" Then bReturn = True End If End If If Err <> 0 Then _ WScript.Echo "Error 0x" & Hex(Err.Number) & " occurred. " & Err.Description _ & ". " & vbCrLf & "The scripting host could not be determined." IsHostCscript = bReturn End Function ----------------------------------8<--------------------------------- Tag: testpage Tag: 179286
  - 12
    - Authentication Scheme Hi, I'd like to know on the fly what the current authentication schema is. It could be one of the followings: NTLM, BASIC, DIGEST, PASSPORT, NEGOTIATE. Does anyone knows how do I retrieve the current authentication scheme in vbscript? Please advice, thanks! -P Tag: testpage Tag: 179281
  - 13
    - truncate data from 1 million to 1 dollar using formatCurrency/CCur functions? I want to ask what are the possiblities to truncate data from 1 million dollars to 1 dollar by using formatCurrency and CCur functions? The ASP page has code <%= formatCurrency(rs(14)) %>, the database rs(14) is 100000000. But when it displays it in the screen, it shows $1.00 with code <%= formatCurrency(rs(14)) %> There is another place with code using CCur and formatCurrency together, i am not sure if this is ok. <% amt_of_deposits = amt_of_deposits + cCur(rRes("natl_trust_tran_amt")) %> <%=formatCurrency(amt_of_deposits)%> This problem is so strange to me, I have no idea whats going on. please advise. thanks!! Tag: testpage Tag: 179280
  - 14
    - Computer Power Scheme Good afternoon, Could someone please guide me as to how I can remotely using vbs change a computer's power scheme? Thank you, Daniel Tag: testpage Tag: 179278
  - 15
    - Create XML File with VBSCRIPT I am new to the XML world and wanted to see if anyone had a simple sample vbscript that will create an XML file with data from parameters passed to a function. Hope that makes sense. I need it to create the file, open the file, writed the tags and close the file to a specific path. Any and all help is greatly appreciated. Thanks in advance for your help. Tag: testpage Tag: 179276
  - 16
    - registerring ocx and dll files Hi guys, I'm looking at writing a script that checks to see if a dll is registerred and if not willl register it.... can anyone assist ? Cheers, Tag: testpage Tag: 179274
  - 17
    - uninstalling software Hi, anybody has a script to uninstall an application such as winzip on 100 computers remotely from my computer? thanks Tag: testpage Tag: 179264
  - 18
    - Has anyone played with this script? http://www.microsoft.com/technet/scriptcenter/resources/scriptshop/default.mspx#EKAA Has anyone played with this script? http://www.microsoft.com/technet/scriptcenter/resources/scriptshop/default.mspx#EKAA It works really well but I don't like the approach. This approach requires the administrator to maintain a list of exe's which are known spyware. There are several problems with this approach. For example (From Symantec.com) When Spyware.Perfect installer is executed, it performs the following actions: 1. Creates the following files: " [FILE NAME].exe " [FILE NAME]r.exe " [FILE NAME]un.exe " [FILE NAME]vw.exe " [FILE NAME]hk.dll " [FILE NAME]i.dll " [FILE NAME]wb.dll Since we don't know the value of [FILE NAME], we wouldn't be able to add this to the list unless we could use the old DOS wildcards like ????????r.exe and such. We would still need to know how long "FILE NAME" is to apply the appropriate number of ??????'s. Also, new strains of spyware will slip through the cracks unless the list is updated and there doesn't seem to be a good single source to check. So, why wouldn't it be possible to create a "white list" of known services and processes which should be mostly static (only upgrades and such would need to force a revision) and ONLY allow those processes to run. For me to do it I would need a list of processes from Microsoft or do the inventory myself, then add in the exe's of the processes I know I will need from Symantec, Scansoft, Adobe, etc. The white list could also be secured with Software restriction policies in Windows which would prevent malicious code from taking on the name of known Windows services which is another weak point of the current script's approach. I don't know too much about scripting (I barely know how to cut and paste code to get it to work) but would the logic need to be changed a lot to make this idea work? Is there a down-side I am not thinking of? I believe Windows can be secured to the point where you would never need an anti-spyware product or even a script like this one. If I was building a new network from the ground-up, I would set things up this way. It would only take careful selection of software which does not require admin rights on machines (something my current migration to a secured environment is lacking until I flush out programs like Adobe Capture and QuickBooks 2005). The recent flack over the status of Claria and Microsoft really opened my eyes about this because I want to maintain control over my stuff. Adding anti-spyware to the mix to try and do my job for me isn't going to get the job done is we are arguing over what is spyware and what is not. EULA or not, I don't want certain programs running in my organization. This includes freecell.exe and sol.exe and anything Claria/Gator related. Mike Tag: testpage Tag: 179261
  - 19
    - ado/asp weirdness In the mysql query browser, "select time,id from syslog.mailinfo limit 10" produces the following resultset: "time","id" "03:18:26",0000000001 "04:18:25",0000000002 "04:18:25",0000000003 "04:18:26",0000000004 "04:18:26",0000000005 "04:19:11",0000000006 "04:19:11",0000000007 "04:19:12",0000000008 "04:19:12",0000000009 "04:19:12",0000000010 The same query in ado/asp, <%set conn=server.createobject("adodb.connection") conn.connectionstring="dsn=mysql2" conn.open set rs=server.createobject("adodb.recordset") rs.open "select time,id from syslog.mailinfo limit 10",conn do until rs.eof%><%=rs("time")&" "&rs("id")%><br> <%rs.movenext loop rs.close conn.close%> produces this: 8/16/2005 1<br> 8/16/2005 2<br> 8/16/2005 3<br> 8/16/2005 4<br> 8/16/2005 5<br> 8/16/2005 6<br> 8/16/2005 7<br> 8/16/2005 8<br> 8/16/2005 9<br> 8/16/2005 10<br> This is totally weird and, quite frankly, it's freaking me out. Tag: testpage Tag: 179254
  - 20
    - How to create an array in ASP/VBScript in this specific case? I want to replace Response.Write in the code below with a an array type variable but I am not sure how: for each element in request.form response.write(element & ": " & request.form(element) &"<br>") next Obviously, this does not work as it only sets the last value to the variable: for each element in request.form str_val = element & ": " & request.form(element) &"<br>" next Is there some way to set the whole array to the str_val variable? Thanks, J.S. -- Tag: testpage Tag: 179247
  - 21
    - ASP/VBScript: How to suppress the submit button from the results of this code? I use the following code to obtain the names and values of all the submitted form elements in an ASP page: for each element in Request.Form Response.Write(element & ": " & Request.Form(element) &"<br>") next However, it also gives me the name and value of the Submit button. Is there any way I can suppress that from my results? Thanks, J.S. -- Tag: testpage Tag: 179245
  - 22
    - Need to exit loop early Hopefully this is a straight forward question. I have a script that reads a file one line at a time, and carries out ceratin actions depending on what it reads on each line. The script uses a Do Until....Loop, using Do Until objTextFile.AtEndOfStream Loop I need to add error checking, so that if a set action to be carried out by the script has an err.number <> 0, the loop will ignore the rest of the loop, and continue to the next line of the text file that it is reading. So, what I need to the command to end one "loop" early, but continue through remaining loops. I'm sure it should be really simple, but I don't seem to be able to get the syntax right. Tag: testpage Tag: 179244
  - 23
    - Call a function create in dotnet Hello, I create a function in dotnet. How can I call it in a Html page ? Tag: testpage Tag: 179240
  - 24
    - Credentials When running 'mofcomp abc.mof', .there is no problem if running by local administrator account. .error '0x80041003' in %windir%\system32\wbemlogs\wbemess.log if running by domain accounts (that are member of local administrators group). Help me! Tag: testpage Tag: 179234
  - 25
    - Close HTA I have created an HTA with VBS to perform various tasks. What command will permit me to close the active HTA? Thanks, Danie Tag: testpage Tag: 179232

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

Top