Setting printer destination with VB/Crystal on XP OS

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
    - Configuering Internet Settings for remote machines Hi All, I would like to have a vb script which configures the Internet settings for Remote machines.I have a script which does for local machine.That script is using "wscript.shell".I dont know if this can be used to alter the settings of remote machines.Pls give me a script or tell me how to use the above mentioned method for remote machines.Your responses will be highly appreciated. Thanks Gaurav Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145435
  - 2
    - Configuering Internet Settings for remote machines Hi All, I would like to have a vb script which configures the Internet settings for Remote machines.I have a script which does for local machine.That script is using "wscript.shell".I dont know if this can be used to alter the settings of remote machines.Pls give me a script or tell me how to use the above mentioned method for remote machines.Your responses will be highly appreciated. Thanks Gaurav Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145432
  - 3
    - Create a folder on a remote server create a folder on a remote server? how do I do this, The only script examples I can find, create a folder on the local machine only. TIA Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145430
  - 4
    - script scheduling in AD environment? Okay Folks: Sir twitch a lot here is going bonkers yet again. Here is this little script I pulled out of the Microsoft Windows 2000 scripting guide. strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Shutdown)}!\\" & _ strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("SELECT * FROM Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems objOperatingSystem.shutdown() Next Fine, fire this vbs puppy up and pooft, the computer shuts off. Which is exactly what I wanted. Now what I want to do is schedule this puppy via organizational units to apply to certain machines. Problem is that we have a bunch of users who love to leave their computers on all night, burn out monitors and occasionally fry their computers because of electrical activities in the area. Okay, so I figured that a nice .bat file along the lines of this at.exe 21:00 every:m,t,w,th,f,s,su \\servername\sharename\shutdown.vbs I figure this would solve the problem but it's a bit cumbersome. Does anybody know of a way to incorporate the equivalent of an "AT" command that would fire up at the computer startup so that the machine would know that, hey, I need to shut myself down at XX:XX hours. The best thing to do, ultimately, and I likely have a script for it somewhere, is that the machines would magically turn themselves up. I am shooting here for something that will work on the organizational unit level, any suggestions, comments or prayers??? Regards, Walt Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145420
  - 5
    - Form Sleep I have been searching for an answer to the problem I've been having with a form. I have an HTML file that I load via a VBScript that is being used to copy CDs to a network drive. The user will enter the year and the CD number in the form. Then VBScript creates a folder based on the information entered and copies the CD to it. The problem I'm having is that when the Submit button is clicked the only way I could get the calling VBScript to take over is to put a MsgBox in the HTML's script area. I dont mind that except that I would like to have the dialog box close automatically. I can't use the PopUp function since IE's security complains. I tried using a For/Next but that didn't help. What can I do to avoid the MsgBox. Shown below are snippets from the HTML and VBS files. Thanks for your help. =================================================== HTML File (Form section): =================================================== <form action="" onsubmit="vbscript: CopyDisk()" method="POST" border="0" width="100%" id="MyForm" name="MyForm"> <input type="hidden" name="bWaiting" value="TRUE"> <table border="0" width="100%" <td width="60"> Enter the Year here:   <input type="text" name="Year" id="Year" maxlength="4" size="4" onkeypress='validate(Me)'</td> <br>  <td width="860">Enter the CD Number here:    <input type="text" name="CDInfo1" id="CDInfo1" maxlength="8" size="8" onkeypress='validate(Me)' =================================================== HTML File (VBS section): =================================================== <SCRIPT language="VBScript"> Sub CopyDisk() MyForm.bWaiting.value = "FALSE" If Len( MyForm.Year.value ) > 0 AND Len( MyForm.CDInfo1.value ) > 0 Then MsgBox "Now copying the CD. Please wait for the ""Copy completed...."" message before clicking OK below." Else ExitNow() End If End Sub Sub ExitNow() MyForm.bWaiting.value = "WAIT" If MsgBox( "Are You Exiting the Input Window?", (vbQuestion + vbYesNo), "Exit Information" ) = vbNo Then MyForm.bWaiting.value = "TRUE" Else MyForm.bWaiting.value = "FALSE" End If End Sub </SCRIPT> =================================================== VBS File: =================================================== Do While NOT (objExplorer.Busy) Loop strYear = objDocument.myForm.Year.value strCDNo = objDocument.myForm.CDInfo1.value objExplorer.Visible = 0 If Len( strYear ) = 0 OR Len( strCDNo ) = 0 Then Do Until objDocument.myForm.bWaiting.value <> "WAIT" wScript.Sleep 750 Loop If objDocument.myForm.bWaiting.value = "FALSE" Then Exit Do ElseIf objDocument.myForm.bWaiting.value = "WAIT" Then wScript.Sleep 500 objDocument.myForm.bWaiting.value = "TRUE" End If Else On Error Resume Next strTarget = CNST_RCV_FLDR & "CD" & strYear & "_" & strCDNo If NOT objF_Sys.FolderExists( strTarget ) Then objF_Sys.CreateFolder strTarget ....... Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145417
  - 6
    - Error Expected End Get Expected "End" error in vb script on last line Char: 8 does anyone know why? Thanks! Glenn *************************************************************************** Dim wshShell, wshNetwork, OS_Ver, CRLF, oFSO, hoFSO, GroupDict, CCMINSTPATH CRLF = Chr(13) & Chr(10) ' use for return and line carriage Set wshNetwork = WScript.CreateObject("WScript.Network") Set oFSO = WScript.CreateObject("Scripting.FileSystemObject") TempPath = wshShell.ExpandEnvironmentStrings("%TEMP%") UserName = wshShell.ExpandEnvironmentStrings("%USERNAME%") ComputerName = wshShell.ExpandEnvironmentStrings("%COMPUTERNAME%") Set WshShell = Wscript.CreateObject("Wscript.Shell") strMapperSetting = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{5FF8D3B8-E19A-4B74-A430-A5366CA74B3F}\InstallSource") if strMapperSetting = "\\ccl_applib\msipackages\mapper\" then message = "value exists" If oFSO.FileExists(".\dataexist.010") then oFSO.DeleteFile(".\dataexist.010") End if If Err.Number <> 0 Then ' value does not exists strMapperSettingExists = 0 Else strMapperSettingExists = 1 End If if strMapperSettingExists = 1 then writelog message end if wscript.quit '=================================================================================== '***************************** Subroutine to write to file ************************* '=================================================================================== Sub WriteLog (strMessage) const ForRead = 1 const ForWrite = 2 const ForAppend = 8 LogFile = ".\dataexist.010" Set fsLog = oFSO.OpenTextFile(LogFile, 8, True) fsLog.WriteLine (strMessage) fsLog.Close end sub Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145414
  - 7
    - status of remote machine. All, I am looping thorugh the computer objects in a Domain. Within the loop I need to bind to each maching and read the registry. I would like to discern the status of the remote machine before attempting to bind to it. Does anyone have any suggestions? I am assuming that the IADS computerstatus can't be used based on previous posts. If this works can someone point me toward an example? Otherwise any suggestions would help. Thanks in advance PO Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145410
  - 8
    - Move and Delete Scripting Help how do I move files from a folder to another folder, and then the other thing is how do I delete the files after they have been moved, of course I only want to delete the files that arte older than 7 days. Here is some script, but for some reason it is not doing what I need it to do. It does nothing: I have included the scripts in text below, didn't know if anyone could possibly point me in the correct direction: Move Files: Const FOF_CREATEPROGRESSDLG = &H0& TargetFolder = "C:\Move" Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace(TargetFolder) objFolder.MoveHere "C:\logfiles", FOF_CREATEPROGRESSDLG Delete files: (Yes I know I have to add a way to check if they are older than 7 days, but I was just testing to make sure it worked before I added that in there, and so far nothing) Const DeleteReadOnly = True Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile("C:\logfiles\*.log"), DeleteReadOnly Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145408
  - 9
    - ipconfig /flushdns I need a vbs script to run ipconfig /flushdns everytime user logs in or computer boots up. Thank you very much! Eimis Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145406
  - 10
    - How do you check the current CURSOR TYPE (not in IE)? Hi everyone, I did a lot of google searches, and came up with nothing. Most of the links were related to changing the cursor type in IE, or getting the Cursor handle in VB. I was wondering if anyone knew a way of getting the current cursor type; I am checking to see if it's an hourglass. Reason: I am using keyboard shortcuts to save to a file in an Application, and I am loading the saved file in an XMLDOM, but I can't do that till it's been saved. Monitoring file creation requires a separate thread; I thought it would be easier to check whether the current cursor is an hourglass. A solution would be much appreciated... Thank you -- Posted via http://dbforums.com Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145405
  - 11
    - Functions calling Functions We switch database vendors without changing every .asp page of a web by calling a custom VBScript function. The function takes the specific database name as its single arguement and returns a complete OLE connection string for that database. Thus, a single file (the function) only needs editing to switch from one database (eg SQL Server) to another (eg: ORACLE). Other VBScript custom functions in the web also require database connection(s). How do they use the same function to create their connection string(s)? Example: In the .asp we have ...  <% 'Script: Dim cnnActive Dim strOLEDB ... Set cnnActive = Server.CreateObject ("ADODB.Connection") strOLEDB = OLEDBString("Active") cnnActive.Open strOLEDB ... %> Here's the function: <% Function OLEDBString(strDB) '>>> '>>> Create the OLEDB connection string for the customer database '>>> Here, use the Microsoft Access JET OLEDB v4 '>>> 'Create the link with the [strDB] database OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;" OLEDBString = OLEDBString & "Data Source=C:\InetPub\wwwroot\VManager\databases\" OLEDBString = OLEDBString & strDB & ".mdb;" OLEDBString = OLEDBString & "User ID=admin; Password=;" End Function %> Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145404
  - 12
    - mapnetworkdrive problem I am using the mapnetworkdrive method to map drives for users during logon. I changed a drive mapping for a user and it is mapping to the new location but the windows explorer name shows the old path. When you look at the properties or try and disconnect the drive it does give you the correct NEW path but the explorer view has the old path listed. The user has rebooted and still no luck. Is there some way to refresh the name when changin the path to a mapped network drive. Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145402
  - 13
    - Outllook Macro warning and one-off forms... I have an Outlook folder full of contacts that use a custom contact form. One of these items occasionally becomes one-offed. I have a VBscript that loops through all the contacts and does some processing. When it attempts to access the contact via code similiar to this For each thing in Directory.Items temp = thing.homeaddress NOTE: I don't ever actually open the item I'm looking at, I just use the Thing.fieldname notation to access the data. I get the "Do you wish to enable macros" dialog box. This causes my script to just sit there until someone hits yes or no (Which might take days). So I need a workaround that would allow my script to run un-attended. 1) Is there anyway to supress the enable macros dialog box for one-offed items? 2) Is there anyway to open an item with its macros disabled? 3) Can I check the messageclass of an item without trigging the dialog box? Any help would be much appreciated! -J Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145398
  - 14
    - Progres window Hi, I am using oShell.run command_line,0,true but I want to display possibly a IE progress window while the command line is running so i'm thinking I can do something like: Do until return = 0 IE progress window (how?) return = oShell.run command_line,0,true Loop I can see two problems with the above: I'm thinking that return = oShell.run command_line,0,true will not execute until the IE progress window is running and I also don't know how to invoke the progress window. Could someone direct me to online info about using progress windows while some process is running? I would also appreciate a code example or better approach if not too much trouble. Thank you, Dave Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145395
  - 15
    - Check CD-R disk status Hello, Can someone tell me how to check if a blank unformatted CD-R is present in the drive and if not blank then if there are any files written on it? I tried checking readiness using IsReady and checking presence of any data by counting files in drive_letter:\ but I have a catch 22 situation: If the disk is blank drive returns NOT READY and if I check for written data, because drive is not ready (for blank disks) script gives me an error CANNOT FIND PATH when trying to count files. Basically what I want to do is: Step 1: check if CD drive is ready, i.e. if a CD is physically there regardless of it's status or formatted state Step 2: if the drive is ready, check for presence of any data, even if the disk is unformatted without returning error because it's unformatted. Or just simply check if the drive definately contains unformatted and blank, out of the box CD-R - just this will suffice if this is possible. Thanks you, Dave Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145393
  - 16
    - ADSI on IIS not the same as PWS Please take a look at the following code: Sub test() Dim usr Dim grp ' This part is working in Excel, Personal web server and IIS (4 and 5) Set usr = GetObject ("WinNT://valid_domain/valid_user ,user") For Each grp In usr.Groups Debug.Print grp.Name Next ' This part is working in Excel and Personal web server but not on and IIS (4 and 5) Set grp = GetObject ("WinNT://valid_domain/valid_group,group") For Each usr In grp.Members Debug.Print usr.Name Next End Sub I have tried this code on Excel and Personal web server without any problem. But when I try to run it as ASP page on IIS (4 and 5) I can get all the use details, but not the group details. The grp.Members is always empty. Does anyone know why this is not working? Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145392
  - 17
    - Computer Last Logon I have the following vbscript that returns the user's last logon. Can it be modifyed to return the Computer's last logon? Thanks in advance. ================================== Dim User user = InputBox("Enter user ID","Last Logon") 'msgbox user Set wshArguments = WScript.Arguments set objUser = GetObject("LDAP://" & "CN=" & User & ",OU=USERS,OU=TPA,OU=USA,DC=domain,DC=com") str1 = "Last Login: " & objUser.LastLogin MsgBox str1 Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145391
  - 18
    - Change drive volume label/name Hello, Does anyone know how to change volume label/name of a floppy or a zip disk? Many thanks, Dave Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145388
  - 19
    - getting info in word about box. I'am looking for a way to get the version of word that is displayed in it's about box. Can't seem to find it in the registry, so it mught be embedded in the .exe. Currently it displays as: Microsoft Word 2000 (9.0.6926 SP-3). Thanks Andres Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145386
  - 20
    - On Error Resume Next How do I turn error handling off again after running On Error Resume Next? Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145382
  - 21
    - Events Handling Problem. I have developed a ATL COM component which fires Events.I have handled these events in VB 6.0 successfully.I am trying to handle this comonent events in a ASP page using VB Script language.But I could not handle this component events in a ASP page using VB script language .Please suggest a way to sort out this problem.I am waiting for your response very eagerly. Regards Baloch Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145371
  - 22
    - Urgent please !! Hi all, Can anyone tell me how to trasfer (or copy) specific doc file from one source server to destination server using VBscript. Thanks, Riken Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145368
  - 23
    - ? hotfix.WSF (shows what hotfix is installed and what is not) WinXP Hi, The following "hotfix.WSF" for Windows XP (updated october 20, 2003) shows what hotfix that is installed (and what is missing). Benny Pedersen, http://2dos.homepage.dk (not uploaded). PS. Please reply any comments about improvements or bugs, etc... (I tried in the WSH Group but without any luck.) BTW. Does someone know how to determine what version of directX is installed, etc...? <PACKAGE><JOB ID="hot"><SCRIPT language="JScript"> function jsSort(arr){return arr.toArray().sort().join('*')} function jsFind(x,strng){return(strng.search(x))} </SCRIPT><SCRIPT language="VBS"> dim file,a01,i,arr ' createObject("wScript.shell").run("%comSpec% /c " & "del """ &_ ' fso.getSpecialFolder(2) & ".\rad*.tmp.txt"""), 2, true dim wso: set wso = createObject("wScript.shell") dim fso: set fso = createObject("scripting.fileSystemObject") file = fso.getSpecialFolder(2) & ".\" & fso.getTempName & ".txt" on error resume next a01=wso.regRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\" &_ "Internet Settings\MinorVersion") on error goTo 0: a01 = uCase(a01): a01 = replace(a01, "SP", "*SP ") for each i in array("Q", "KB"): a01 = replace(a01,i,empty): next for each i in array("59 DataAccess", "69 Windows Media Player",_ "56 DirectX" , "63 Windows XP\SP2") wso.run("regedit /e """ & file & """ """ & "HKEY_LOCAL_MACHINE" &_ "\SOFTWARE\Microsoft\Updates\" & mid(i,4) & """"),,true if fso.fileExists(file) then arr = fileToArray(file) :_ a01=a01 & getHotfix(arr,left(i,2)): fso.deleteFile file next arr = split(a01, ";") if uBound(arr) > 0 then a01 = jsSort(arr) do: a01 = replace(a01,"**","*"): loop while left(a01,2) = "**" missingHotfix(a01) if vbOK = msgBox("Do you want to see what hotfix that is insta" &_ "lled? ", vbQuestion + vbOKCancel + vbDefaultButton1, "?") then arr = split(a01, "*") writeArray arr,file wso.run("""" & file & """"),, true fso.deleteFile file end if else msgBox "Failure" end if set wso = nothing: set fso = wso function fileToArray(readFile) dim rLine, a, rFile: set rFile = fso.openTextFile(readFile, 1) on error resume next do: rLine = rFile.readLine if err <> 0 then exit do for each a in array(0,10,13) rLine=replace(rLine,chr(a),empty) next fileToArray = fileToArray & "*" & rLine loop rFile.close: set rFile = nothing fileToArray = split(fileToArray,"*") end function function getHotfix(arr,p): dim i,endStr,a for i = -(arr(0)=empty) to uBound(arr)+(arr(uBound(arr))=empty) if "]" = right(mid(arr(i),p,9),1)then endStr = left(right(mid(arr(i),p,9),7),6) if 6=len(endStr)and 1+isNaN(endStr) then a=a & ";" & endStr end if next getHotfix = a end function sub writeArray(arr, writeFile) dim i, wFile: set wFile=fso.openTextFile(writeFile,2,-1) for i = -(arr(0)=empty) to uBound(arr)+(arr(uBound(arr))=empty) wFile.writeLine arr(i) next wFile.close: set wFile = nothing end sub sub missingHotfix(installed) if 0 > jsFind("SP 1", installed) then msgBox"You need Service Pack 1 ", vbInformation, "XP Outdated" exit sub end if dim a02,i,numb,need,msg dim recommended,recommendable,script56,directX9,mPlayerLess9 dim mPlayer9,mPlayer9andLess,virus,swindler,hackerLocal dim hackerCurious,hackerMalicious,otherXP recommended = false recommendable = true script56 = true directX9 = true mPlayerLess9 = true mPlayer9 = false mPlayer9andLess = true virus = true swindler = true hackerLocal = false hackerCurious = true hackerMalicious = true otherXP = true ' * NOTE: Returns hotfix 814078 and 816093 as missing: if recommended then recommended ="" if recommendable then recommendable ="31.1[ ]327979," &_ "34.1[ ]814995," &_ "" if script56 then script56 ="22.1[*]814078," if directX9 then directX9 ="04.2[ ]819696," if mPlayerLess9 then mPlayerLess9 ="21.1[ ]817787," if mPlayer9 then mPlayer9 ="21.3[ ]819639," if mPlayer9andLess then mPlayer9andLess="22.3[ ]828026," if virus then virus ="18.1[ ]823980," if swindler then swindler ="13.1[ ]329115," if hackerLocal then hackerLocal ="23.1[ ]323255," &_ "14.1[ ]328310," &_ "17.1[ ]810577," &_ "05.1[ ]811493," &_ "38.1[ ]824141," &_ "" if hackerCurious then hackerCurious ="32.1[ ]824105," &_ "" if hackerMalicious then hackerMalicious="24.1[ ]329048," &_ "26.1[ ]329170," &_ "12.1[ ]329390," &_ "11.1[ ]329834," &_ "02.1[ ]330994," &_ "27.1[ ]331953," &_ "16.1[ ]810833," &_ "08.1[ ]815021," &_ "20.1[ ]817606," &_ "03.1[ ]821557," &_ "37.1[ ]823182," &_ "19.1[ ]823559," &_ "29.1[ ]823718," &_ "33.1[ ]824146," &_ "36.1[ ]825119," &_ "35.1[ ]828035," &_ "01.3[ ]828750," &_ "" if otherXP then otherXP ="09.1[ ]329441," &_ "15.1[ ]810565," &_ "25.1[ ]811630," &_ "10.1[ ]814033," &_ "07.1[*]816093," &_ "06.1[ ]817287," &_ "" a02 = recommended & recommendable & script56 & directX9 &_ mPlayerLess9 & mPlayer9 & mPlayer9andLess & virus &_ swindler & hackerLocal & hackerCurious & hackerMalicious &_ otherXP for each i in split(a02,","): numb = right(i,6) if 0 > jsFind(numb,installed)then need = need & numb & "," if "*"=mid(right(i,13),6,1)then msg="See note in line numb 94." end if next if 1+jsFind(",","" & need) then inputBox string(5,vbLf) & "Missing hotfix:", msg, need,, 0 else msgBox"This system is up to date (October 20, 2003) ",, ":-)" end if end sub' To be continued later on my Homepage... </SCRIPT></JOB></PACKAGE> Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145366
  - 24
    - Generic WSF template for processing uargs-or-stdin Below is a WSF template I recently put together to help with rapidly writing small console utilities with minimal coding so that they can take either a series of unnamed arguments, or, if no unnamed arguments are present, read lines from stdin and process each line as one would an argument. This of course needs to be explicitly launched in a console with cscript as the host for it to work. Comments appreciated. ============================================================================ ===== <?xml version="1.0" encoding="ISO-8859-1" ?> <job> <runtime> <description><![CDATA[ note: send comments to aka-at-mvps-dot-org ]]></description> <example><![CDATA[ ]]></example> <named name="?" helpstring="returns this help message" type="simple" required="false"/> <unnamed name="arg" helpstring="Multiple arguments to run against. If none are specified, script will get input from stdin." many="true" required="false"/> </runtime> <script language="VBScript"><![CDATA[ Option Explicit ' Special variable declarations. DO NOT reuse these! dim [UnNamedCount], [hasUnnamed], [data], [i] ' Generic loop to execute Sub Main() for each unnamed argument ' or, if no unnamed arguments, to run it against each line ' from WScript.StdIn [UnNamedCount] = WScript.Arguments.Unnamed.Count [hasUnnamed] = CBool( Sgn(WScript.Arguments.Unnamed.Count) ) do if [hasUnnamed] then [data] = WScript.Arguments.Unnamed([i]) else [data] = WScript.StdIn.ReadLine main [data] if [hasUnnamed] then [i] = [i] + 1 if [i] = [UnNamedCount] then exit do else if WScript.StdIn.AtEndofStream then exit do end if loop end sub Sub Main(arg) '' CODE GOES HERE! End sub ]]></script> </job> Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145363
  - 25
    - WScript.Shell Run for...in...do I'm having problems getting the WScript.Shell object to run command lines of the form for...in...do. For example, the following is supposed to encrypt all the document files in the folder "C:\data" Set wsh = WScript.CreateObject("WScript.Shell") wsh.CurrentDirectory = "C:\data" wsh.Run "%comspec% /c for %%F in (*.doc) do pgp -encrypt %%F", 1, True This doesn't work, but there's no error message or anything, instead all it does is flash the command window. Even using /k doesn't keep the window up. But if I put the line in a batch file in C:\data, and run the batch file, everything works okay: wsh.Run "%comspec% /c encrypt-docs.bat", 1, True Or if I use an alternate but equivalent command line, it also works okay: wsh.Run "%comspec% /c pgp -encrypt-files *.doc", 1, True Based on the results, it seems that WScript.Shell Run can't directly handle for...in...do. Can anyone else confirm this? If it matters, the OS is Win2K and comspec is cmd. Thanks for reading... Russell Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145359
- Next
  - 1
    - SetTimeOut and declaring variables Did anyone notice this: When using SetTimeOut you have to declare any variables globally. For instance: <script language=VBScript> dim s s="goodbye" sub document_onclick() dim s s="hello" window.settimeout "msgbox s",100 end sub </script> Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145358
  - 2
    - Help with GetRef Hello, I have a command line based script where I bring up IE, then sit in a loop with GetRef's to OnClick events from the IE page. For the most part, it works, but occasionally, I will get an error where the script has disconnected from the opbject. I am using a sleep value of 100 in my loop. Is there a way to reliably run the script without the disconnect error ? I would say it errors out about 10% of the time. I have played around with the sleep value but I still seem to occasionally get the error. My geuss is that when I click the button on the page while the script is in the sleep state, the error occurs, kind of a race condition so to speek. Any and all help is appreciated. TDM Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145349
  - 3
    - What's the best way to determine if it is Win2000SP2 or Win2000SP3 or 4 I need to install patches and I am wondering what's the best way to modify the script below too if a machine is Win2000SP2 or Win2000SP3 ? Function GetOS() ' using the ver command Const OpenAsASCII = 0 Const FailIfNotExist = 0 Const ForReading = 1 Set oShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("Scripting.FileSystemObject") sTemp = oShell.ExpandEnvironmentStrings("%TEMP%") sTempFile = sTemp & "\runresult.tmp" oShell.Run "%comspec% /c ver >" & sTempFile, 0, True Set fFile = oFSO.OpenTextFile(sTempFile, ForReading,FailIfNotExist, OpenAsASCII) sResults = fFile.ReadAll fFile.Close oFSO.DeleteFile(sTempFile) Select Case True Case InStr(sResults, "Windows 95") > 1 : GetOS = "W95" Case InStr(sResults, "Windows 98") > 1 : GetOS = "W98" Case InStr(sResults, "Windows Millennium") > 1 : GetOS = "WME" Case InStr(sResults, "Windows NT") > 1 : GetOS = "NT4" Case InStr(sResults, "Windows 2000") > 1 : GetOS = "W2K" Case InStr(sResults, "Windows XP") > 1 : GetOS = "WXP" Case Else : GetOS = "Unknown" End Select End Function Function RegKeyExists(sRegKey) Dim RegReadReturn RegKeyExists = True sRegKey = Trim (sRegKey) If Not Right(sRegKey, 1) = "\" Then sRegKey = sRegKey & "\" End if On Error Resume Next RegReadReturn = WshShell.RegRead(sRegKey) If Err Then If LCase(Left(err.description,7)) = "invalid" Then 'key not found... RegKeyExists = False End if Err.clear End if On Error Goto 0 End Function Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145346
  - 4
    - writing results to excel file hi, i have a script that echo the ip address of a remote computer to the screen using wscript.echo. How can i amend the script to write the result to an excel file under column D ? thanks Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145341
  - 5
    - Getting Users Post Code from AD I am trying to retrieve information from AD about a user, and am having problems retrieving information from property pages other than General. The following Gets the givenName and sn properties from the general page, but not the postalCode from the Address properties page, what am I doing wrong? Thanks Mark Set objUser = GetObject ("LDAP://cn=Test,ou=Computer Users,dc=zordon,dc=kicks-ass,dc=net") objUser.GetInfo strGivenName = objUser.Get("givenName") strSn = objUser.Get("sn") strpostalCode = objUser.Get("postalCode") Wscript.Echo "User: " & strGivenName & " " & strSn WScript.Echo "Post Code: " & postalCode Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145340
  - 6
    - adding a printer hi, how do i add a printer to a remote windows 2000 computer? thanks Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145333
  - 7
    - How do I iterate through an array in VBScript? I'm using VBScript to use a .NET library. I'm having troubles with functions that return arrays. VBScript will is successfully returned the array, and IsArray(..) returns true but attempts to access or manipulate the array generate errors. e.x.: C# code public string[] TestC() { string[] array = new string[] {"FOO", "BAR", "1", "ONE"}; return array; } public int[] TestD() { int[] array = new int[] {1,2,3,4}; return array; } VB Script code dim fooBar set fooBar = CreateObject("Foo.Bar") dim teh teh = foobar.TestD msgbox UBound(teh), , "counter" For Each arrayElement In teh msgbox arrayElement, , "output" Next ************ ok, line 5 of the vbscript code outputs 3 which is correct then I get a msg saying Line: 6 Char: 1 Error: Type mismatch Code: 800A000D Source: Microsoft VBScript runtime error If I were to do dim somthin set somthin = teh(1) I get an error too I've tried dotnet.framework, dotnet.csharp and dontnet.interop newsgroups and people there are just as confused as me on this. I'm posting here assuming I'm doing something wrong in VBScript. Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145328
  - 8
    - Is there a better way to do this? Can anyone help with the following? This is only my 3rd script, and i am having a little problem with it. The reason for this script, is all our network users have added a word to their custom dictionary in word, and now due to company policy, the format of this word must be exact. for those that are not aware of the format of the custom.dic file, each word added is on a seperate line. The example i have used here is the word apple. For example lets say some of our users added this to their dictionary as APPLE, and some have added it as apple. Company policy states this should now be Apple. The script i have created uses two functions. The first does a search and replace, for apple which is not case sensative, and replaces it with a blank entry. This i can live with but it could be better. I would prefer it to delete the instances of the word apple, and not leave a blank line. An option i do have is to search for the word apple and replace it with Apple, and then to search for APPLE and replace it with apple. But i want to learn how to delete the word, for future use. The 2nd function is poor as well, as this will add the word Apple on the end of the file, however sometimes when i run it a blank line is inserted before the word apple. If i remove the Vbcrlf form the following line then, sometimes the word apple would be appended to the last word in the file, making an incorrect word. objFile.WriteLine Vbcrlf & "Apple" Any suggestions tips would be appreciated, please be gentle, like i said this is only my 3rd script. Thanks Mark option explicit Dim dictionaryfile, usrname, wshnetwork Set wshnetwork = wscript.createobject("wscript.network") usrname = wshnetwork.username dictionaryfile="c:\documents and settings\" & usrname & "\Application Data\Microsoft\Proof\custom.dic" FileSearchReplace(dictionaryfile) AddOfsted(dictionaryfile) WScript.Quit(0) 'This function will search for all instances of ofsted and replace with a blank line. Function FileSearchReplace(theFilename) Const ForReading = 1, ForWriting = 2 Dim fso, f, fileContents, findString, ReplaceString findString="apple" replaceString="" Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(theFilename) Set f = fso.OpenTextFile(theFilename, ForReading) fileContents= f.ReadAll Set f = fso.OpenTextFile(theFilename, ForWriting, True) f.Write Replace(fileContents, findString, replaceString,1,-1,1) End Function 'This fuction add the word Ofsted to the end of the Custon Dic File Function AddOfsted(theFileName) Const ForAppending = 8 Dim objfso, objFile Set objfso = CreateObject("Scripting.FileSystemObject") Set objFile = objfso.OpenTextFile(theFileName, ForAppending) objFile.WriteLine Vbcrlf & "Apple" objFile.Close End Function Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145322
  - 9
    - Non-blocking EnableStatic call ? (WMI) Hello, I'm new to VBScripting and to WMI use and I'm trying to change IP adresses remotely in VBScript with ths Win32 _NetworkAdapterConfiguration.EnableStatic method. Of course, when I do this call, there is a disconnection. This disconnection is causing the EnableStatic method not returning and the script gets stuck and does not go on. Is there a way to use an asynchonous call to EnableStatic ? I saw there are ExecQueryAsync but there is no EnableStaticAsync. Is there a way of getting rid of this blocking behavior ? I have some boxes I would like to chose their IP address by using a text file (computer name + IP address) and I didn't know how to do because of this. Thanks for any help Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145321
  - 10
    - some stupid questions about accessing HTA from vbscript hello all i created an hta file to be used to provide user friendly inteface to my vbs..all this of course to avoid this "activex component cant create object getobject"... now i find out that when loading it though "internetexplorer.application" navigate method the explorer just loads hta and exits... how can i load hta from vbscript and access it as if it was a standard html file ?? thanx to all Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145320
  - 11
    - RSS New Feed with VB .NET? I'm trying to make an ASP page with VS .NET 03 using VB as the language and I want the page to display an Rss News Feed as page content form another RSS News Feed on a web page served by another one of my IIS srevers, I don't know how to do this it sounds simple enuf but were do I start is it a simple one line of code deal or it it complex to do I havent really played around with Rss news Feeds much give me some feed back guy's code samples would be very help-full... Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145317
  - 12
    - user in which group Thanks Ray, How can I figure out groupname if I know username? What is the fastest and easiest way to do this in a command prompt? Thanks, Jim. Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145307
  - 13
    - stop SPAM! hi, can somebody help me to stop SPAM from attacking my mailbox?? Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145301
  - 14
    - How to get: "Microsoft Forms 2.0 Object Library" Hi, The version of Excel that I have on my laptop doesn't seem to have the 'Microsoft Forms 2.0 Object Library'. When I go Tools->References it's not there to add. How do I go about getting it? Thank you, Robert Stober Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145296
  - 15
    - Running DOS command that uses quotes All, Trying to get this command to run but it doesn't like the extra quotation marks but they are needed for the command.. Can anyone help me out. ShellRun = WSHShell.Run ("cmd /c c:\tools\psexec -c \\" & Machine & " c:\tools\hotfixes\mdac_typ.exe /Q:A /c:"dasetup /Q /N") thanks Jack Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145283
  - 16
    - Simple FTP script Hi, I often need to upload single files to an FTP server. I am trying to create a script that will automate this process, and have been investigating VBScript to do this job. I know a little about FTP.exe with the -s: tag to make it run scripts. Ideally what I would like is for the script to open a box where I could drag the file, and from there it would upload it. So structurally, the process goes: Create a variable, set this variable to contain the file directory\name, then it would create the script to enter into FTP.exe, and run it. Can anyone give me any hints on the best way to go about it? I'd be most grateful. Scott Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145268
  - 17
    - Can't Find Script Engine Hello, Can someone please tell me how to allow Terminal Server users to access scripts. It would be ideal if they could execute certain scripts but I'll take what I can get. We have a mission critical app that requires scripts to be run. Thanks, Jason Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145267
  - 18
    - Read word document Hi all Is there a way of using the filesysemobject or some other component to write the content of a word document to a web page, but just the text. I.e. not all the codes etc. that you normally see when opening a word document in a text editor. Cheers Paul Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145262
  - 19
    - Fetch a cell contents / Newbie Alert All: I'd like to fetch the contents of a particular cell or cell range from an Excel Workbook. Can Do? tia S -- Posted via http://dbforums.com Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145261
  - 20
    - Cursor How would I write code to use a cursor so that I can enumerate rows in a SQL database via vbscript? Thanks in advance Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145255
  - 21
    - atan2 in vbscript compared to Math.atan2 Does anyone know of a vbscript equivalent to the Math.atan2 function in javascript? I've found a function in the newsgroups called atan2, but it does not seem to work with negative numbers. Math.atan2(6, 3) = 1.1071 atan2(3, 6) = 1.1071 '// this works fine (note the x and y are reversed on the vbscript function Math.atan2(-6, 3) = -1.1071 atan2(3, -6) = 2.0344 (THIS IS WRONG) Function atan2(ys, xs) ' from the Draw Arrows tip ' @ http://www.devx.com/upload/free/features/VBPJ/techtips/techtips11.pdf ' by ?Jim Deutch, Syracuse, New York Dim theta pi = 3.1415926535897932384626433832795 If xs <> 0 Then theta = Atn(xs / ys) If xs < 0 Then theta = theta + pi End If Else If ys < 0 Then theta = 3 * pi / 2 '90 Else theta = pi / 2 '270 End If End If atan2 = theta End Function function radToDeg(angleRad) radToDeg = (180.0 * angleRad / 3.1415926535897932384626433832795) end function Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145252
  - 22
    - free memory availability Have anyone any idea of how to get with WMI how much memory available on certain computer? I am in developing of .asp script for monitoring system resources on several computers. I can get information about total\free disk space, and Win32_ComputerSystem\TotalPhysicalMemory can be used to get TOTAL memory in computer. But I need free memory availability much more. Huh? Or if it is possible to get this information from remote computer not using WMI, it will be nice to :) Thanx! Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145250
  - 23
    - permanent event subscription for registry value monitoring Hi there! I am trying to monitor some registry value and fire vbs script if some changes has occured. So I am set my filter with using of RegistryValueChangeEvent notification, consumer ActiveScriptEventConsumer (I am execute mofcomp -N:root\cimv2 %SYSTEMROOT%\system32\wbem\scrcons.mof on target computer to enable this consumer) and bind it. But on try to bind in C:\WINDOWS\system32\wbem\Logs\wbemess.log such record appears: (Fri Oct 17 18:43:02 2003.27699156) : Event subsystem was unable to perform the necessary operations to accomodate a change to the system state. The state of the database may not reflect the state of the event subsystem (8004103A) And consumer receive no notifications if i change registry key. But if I am executing SELECT * FROM RegistryValueChangeEvent WHERE Hive= 'HKEY_LOCAL_MACHINE' AND KeyPath= 'SOFTWARE\\wmitest' AND ValueName='mon' in wbemtest.utility and change this key notification received by wbemtest. What is wrong? I think somewhere in which namespaces I need to use in this scripts, but where? Help me please! Here is my filter setting script: strComputer = "." Set objSWbemServices = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\default") Set objEventFilterClass = objSWbemServices.Get("__EventFilter") Set objEventFilter = objEventFilterClass.SpawnInstance_() objEventFilter.Name = "Filter1" objEventFilter.QueryLanguage = "WQL" objEventFilter.Query = "SELECT * FROM RegistryValueChangeEvent WHERE Hive= 'HKEY_LOCAL_MACHINE' AND KeyPath= 'SOFTWARE\\wmitest' AND ValueName='mon'" objEventFilter.EventNameSpace = "\root\subscription" objEventFilter.Put_() This is SetConsumer script: strComputer = "." Set objSWbemServices = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\subscription") Set objConsumerClass = objSWbemServices.Get("ActiveScriptEventConsumer") Set objConsumer = objConsumerClass.SpawnInstance_() objConsumer.Name = "Script1" objConsumer.ScriptFileName = "d:\wmi\response3.vbs" objConsumer.ScriptingEngine = "VBScript" objConsumer.Put_() And binding script: strComputer = "." Set objSWbemServices = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\subscription") Set objBindingClass = objSWbemServices.Get("__FilterToConsumerBinding") Set objBindingInstance = objBindingClass.SpawnInstance_() objBindingInstance.Filter = "\\.\root\default:__EventFilter.Name='Filter1'" objBindingInstance.Consumer = "\\.\root\subscription:ActiveScriptEventConsumer.Name='Script1'" objBindingInstance.Put_() Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145249
  - 24
    - Argument & Target Path Hello How can I get the value of Argument & TargetPath for a short cut who is already existing ? -- Posted via http://dbforums.com Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145245
  - 25
    - Get column name from Query string Hi, I want to select the column of the database which has the value of the querystring "Link" My code, I checked and Link has the value "Frankrijk" _____________________ Link = Request.QueryString("link") oRS.Open "SELECT * FROM snowzone", oConn, 2, 3 Cnt = 1 While not oRS.EOF if (Cnt > 0) And (Cnt < 20) Then Text1 = Text1 & Server.URLEncode(oRS(Request.QueryString("link"))) & "<br>" End If if (Cnt > 19) And (Cnt < 39) Then Text2 = Text2 & Server.URLEncode(oRS("Frankrijk")) & "<br>" End If if (Cnt > 38) And (Cnt < 58) Then Text3 = Text3 & Server.URLEncode(oRS("Frankrijk")) & "<br>" End If if (Cnt > 57) And (Cnt < 77) Then Text4 = Text4 & Server.URLEncode(oRS("Frankrijk")) & "<br>" End If Cnt = Cnt + 1 oRS.MoveNext Wend ______________________________________ Text1 should now have the values of th e column ("Frankrijk"). But it is empty, any ideas? Tag: Setting printer destination with VB/Crystal on XP OS Tag: 145235

Hello all,

I'm using VBA in Great Plains v6to call & print a v8
Crystal report to an Epson

LQ-870 ESCP2 printer. The code (very simple, I have to
admit) is below. It's

worked fine in Windows 95 for years but as soon as I
install XP and try it I get the

message 'Invalid Printer Specified.' I understand Windows
XP uses a universal driver

called UNIDRV.dll. Is that what's causing the problem?
If so, does anyone have

any idea how to get around it? I've a few things with no
success? I need help!

Thanks,
Don

The code:

' Save document
'SalesTransactionEntry.Save = 1

' Set report file name.. should be located in the
dynamics directory
PickingTicket.ReportFileName = "PickingTicket.rpt"
' Tell Crystal reports to discard any saved data
PickingTicket.DiscardSavedData = True
' Turn off progress dialog box
PickingTicket.ProgressDialog = True
' Set report destination
PickingTicket.Destination = crptToPrinter
PickingTicket.PrinterDriver
= "ESCP2MS.DRV" 'UNIDRV.dll ??
PickingTicket.PrinterName = "Epson LQ-870 ESC/P 2"
PickingTicket.PrinterPort = "LPT1"

' Print report.
PickingTicket.Action = 1

Top