Reading the first 9 lines of a text file and outputing to a network printer?

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
    - Code for Batch files. Hi Group I need very urgent help from this group. I have written a VB script code like this, ---------------------------------------------------------------------------------------------------- dim wshshell Set WshShell = Wscript.CreateObject("WScript.Shell") WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\ForceClassicControlPanel", "00000001", "REG_DWORD" Dim cmd Dim I I=1 cmd = "control.exe" while I<1 I=I+1 wend WshShell.Run cmd,,True WshShell.AppActivate "Control Panel" WshShell.SendKeys "%F" WshShell.SendKeys "%F" WshShell.SendKeys "C" WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\ForceClassicControlPanel" --------------------------------------------------------------------------------------- This code is working fine. Now I need the same function execution through batch files. I dont know how to write the same function in batch file. Can anyone help me for this.I know this is not a Group for answering batch file question, then also if anyone give me the solution, i will be highly thankful to them. steps are * Adding the registry key. * opening the conntrol panel window * closing the control panel window * delete the same key Thanks and Best Regards Katheryne Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179485
  - 2
    - byval and object instance Here is an ASP code sample in VBScript: <% Dim x Set x = server.CreateObject("ADODB.RECORDSET") x.CursorType = 1 x.CursorLocation = 3 x.Fields.Append "custtype", adVarNumeric, 80, adFldMayBeNull x.Open x.addnew "custtype", 34 x.Update call dothis(x) Response.Write(x.RecordCount) Set x = nothing Function dothis(byval x) x.addnew "custtype", 34 Response.Write(x.RecordCount & "<BR>") x.addnew "custtype", 34 Response.Write(x.RecordCount & "<BR>") set x = nothing End Function %> This should run if you put it into an asp page and pull it from IIS. It is just a disconnected recordset filled with a record and then a response.write, etc. Question: I'm using "byval" in the dothis() function, but SHOULD I set x = nothing within the function? Obviously when using, "byref", setting x = nothing will delete the instance of the object, but with "byval" will I leave something in memory if I don't set x = nothing? I think this is another "age old" question but I've got some pages acting funky on a hosted server in Canada and I think this issue may have something to do with it. Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179477
  - 3
    - script to check services Hi, does anyone has a script to check all services that are required to startup automatically are started up after restarted? thanks Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179474
  - 4
    - Server object error 'ASP 0177 : 8007000e' Hi, I have an ASP page in which I am trying to create an instance of an ActiveX control. If I access the page using IIS 6.0, I get the following error: Server object error 'ASP 0177 : 8007000e' Server.CreateObject Failed The ASp works properly if I configure IIS 6 to run in IIS 5.0 isolation mode. Does anyone have any idea why this is happening? Thanks, NB Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179470
  - 5
    - I don't want my file to be shared by two scripts... Hy there, i 've written a web based application in ASP / vbscript that uses XML files. with each action of my scripts, i reactualize the xml list (that contains all status of all scripts running on the server). my problem happens when two scripts want to modify the xml file at the same time. So would you tell me how i could keep the thecond script waiting until the first one has finished ? can i lock the xml file while the action of the first script is running ? How ? bye Nico Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179469
  - 6
    - Date - Time Format I am using ASP to access a database and pull out the date in the database that is in this format: 7/5/2005 9:20:22 AM I want to make it display on the page in this format which is a standard miltary DTG(Date/Time/Group) format and in Zulu (GMT - Grenwich Mean Time). For example this would be how I would display the above date and time: 050920Z JUL 05 DDHHMMZ MMM CC Any clue as to how to get this done? I did find this webpage, but copied and pasted over to an asp page on the server, and I get an error...the page is from 2003, so maybe the code has changed a bit? Any help is appreciated. Thanks, Doug Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179459
  - 7
    - Window.returnvalue not working Hi, I am using a window.showmodaldialog to open a page and passing a string on window close.When I am trying to capture the returned value using the window.returnvalue I am getting an empty string. My code is as in opened window is window.returnValue = "yes" window.Close and the code in parent window is strResponse = window.showModalDialog(strFile,"resizable=yes, height=500, width=500, scrollbars=yes") msgbox strResponse Thanks Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179451
  - 8
    - Get clipboard contents for sorting can vbscript retrieve the clipboard contents ? I would like to sort it and paste it to back into an active document Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179450
  - 9
    - ASP/VBScript: Retrieving ID of last inserted record in Access In SQL server one can use @@Identity to retrieve the id of the last inserted record (although there are situations when it is not appropriate). What is the best way to retrieve the id of the last inserted record in Access? I'd appreciate any pointers. Thanks, J.S. -- Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179449
  - 10
    - Script to create a directory and put permissions to it We currently use MD and CACLS to do this but the problem is that you have to Y after every CALCS line of code. Is there a way using vbscript to create a directory on a remote machine and set the permission to that directory? This would be in a Windows 2003 SP1 environment. Thanks, Eric Sabo Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179443
  - 11
    - ShDocVw.ShellWindows vs. CreateObject("Shell.Application").Windows About two years back, Notre Poubelle was looking for a way to get ahold of ShDocVw.ShellWindows via script. Now ignoring the fact that it is essentially identical to CreateObject("Shell.Application").Windows, this is an interesting problem because the class id was known, but that was all. There was a clever idea by Alexander Mueller, which was tested out, that maybe it was possible to use IE for this, but it failed because of the security blanket that IE surrounded the object with. However, here's a working solution, which extends the original idea. The key idea is that after having IE create the object, we take it away from IE so the security restrictions will no longer exist. Even if it wasn't clear to IE that our app could freely muck with it, it should be clear to everybody that our VB app/script is free to go about it's own business on its own time. Dim ie, Tname, oWins, win, text Set ie=CreateObject("InternetExplorer.Application") ie.Navigate2("about:blank") ie.Document.open ie.Document.write "<object id=sw classid='clsid:" & _ "9BA05972-F6A8-11CF-A442-00A0C90A8F39'></object>" ie.Document.close Set oWins = ie.document.parentWindow.sw 'transfer object ie.Document.parentWindow.execScript "window.sw=null" 'paranoia ie.quit 'more of same msgbox "oWins: " & typename(oWins) 'This loop prints out something on each instance of IE / Explorer For each win in oWins Tname = typename(win.document) if mid(Tname,1,12)="HTMLDocument" Then text = win.document.title if text<>"" then text = "Title: " & text & vbCrLF MsgBox text & "url: " & win.document.location Else MsgBox "Folder: " & win.locationURL End If Next This code was adapted from: http://groups.google.com/group/microsoft.public.scripting.jscript/browse_frm/thread/cb42d8b604de28eb/ The reason I said ShDocVw.ShellWindows was essentially the same as CreateObject("Shell.Application").Windows was because of hooking event handlers up. For example, in a VB project, if I do Dim WithEvents ogSW As SHDocVw.ShellWindows Set ogSW = New SHDocVw.ShellWindows then I can receive events of IE/Explorer creations/destruction via: Private Sub ogSW_WindowRegistered(ByVal lCookie As Long) and Private Sub ogSW_WindowRevoked(ByVal lCookie As Long) but this approach does not work with the other. Enjoy, Csaba Gabor from Vienna Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179432
  - 12
    - Passing & retrieving values between 2 vbs files? is it possible? Passing & retrieving values between 2 vbs files? is it possible? I would like to get a main VBS file to detect the local language and accordingly sends a request to another VBS file that would contain various messages in different languages. Would it be possible to have the main VBS file retrieve the answer given by users to the messages - Yes/No - from the (other) message.vbs file at all? If user clicks yes the main file continues if they click No it aborts? TIA Joseph Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179431
  - 13
    - Batch file Call, quiet mode?? I know this is the vbscript group, but I couldn't find a batch group and I figured most of you in here know batch scripting, so here goes. Does anyone kow of a way to CALL 1 bacth file from another but not have the 2nd one show a window. Basically using a quiet mode. Is here such a thing as call file.bat /q or another method? Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179430
  - 14
    - FTP without script file I use the following to FTP a file. However it temporarily creates a text file on the Desktop that contains the users password. I'm concerned about the vbs failing sometime and leaving the file for all to see. Is there a way I could just write it to a string, pass the string to FTP and never create the text file anywhere? thanks LJB '----------------------------------------------------------- Set oFSO = CreateObject("Scripting.FileSystemObject") Set oShell = CreateObject("WScript.Shell") Path = oShell.SpecialFolders("Desktop") Order = InputBox("Order Number") Set oScript = oFSO.CreateTextFile(Path & "\get.txt", True) With oScript .WriteLine "open vaxf" .WriteLine InputBox("UserID") .WriteLine InputBox("Password") .WriteLine "cd RPT$DISK:[RPT.RPT_UNT]" .WriteLine "type ascii" .WriteLine "get " & Order & "unt.lis """ & Path & "\" & Order & ".txt""" .WriteLine "bye" End With oShell.Run "ftp -s:""" & Path & "\get.txt""", 0, True oScript.Close oFSO.DeleteFile Path & "\get.txt", True Set oScript = Nothing Set oFSO = Nothing Set oShell = Nothing Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179429
  - 15
    - mail-enabled a global security group Is there a way to mail-enabled a global security group in a vb script? We are running windows 2003 for our AD and Exchange 2003 SP1. Thank you, Eric Sabo Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179428
  - 16
    - Starting external Programm with VBScript Hallo NG, is it possible to start an external programm with vbscript. For exampal: Run "C:\MyProgramm.EXE /e" Thanks, Ahmed Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179423
  - 17
    - Applying Windows patches via VB I have been trying to find a suitable script to deploy the Hotfix KB899588 across my domain, via group policy As yet i haven't found a script that works. Any body have such a script or know a good site for help??!! Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179421
  - 18
    - wscript.exec in hidden window? With wscript.run there is an argument that lets you run the command invisibly but there does not appear to be the same argument available with wscript.exec. I need to run a command and capture its stderr (although I don't need the stdin and stdout) and wscript.exec lets me do that except for the annoying flashing of the command window which is doubly annoying in my application since I have to perform wscript.exec on several commands in succession and the screen just goes crazy. I would prefer to keep my application self contained (its currently one .hta file) and would prefer not to have to use temporary files if I don't have to. Is there a way to handle this? Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179413
  - 19
    - Copying Folder Contents Hi I haven't the slightest idea about scripts, I have been trying to write a batch file to do the job, with no success and I have been informed that a script is what I need. Here is my predicament: This action needs to work in an NT and XP environment I need to move files at the end of ever month stored in 2 different folders, to a backup location. For example this is where the files are located: p:\cmanger\{Workstation_name}\Dailydoc p:\cmanger\{Workstation_name}\DailyImg I would like all the files within the 2 folders all moved to p:\cmanger\backup\DailyDoc & p:\cmanger\backup\DailyImg Which should then leave the original file locations empty. However each workstation I need to perform the action on has a different folder name in the middle. It's always the workstation name, if this helps? Is it possible to write a script to automatically perform this action at the end of each month. If so, would it also be possible to move them to a folder of the time period i.e. named "yyyymmdd" each time the script runs. Your expert help on this would be most appreciated. Regards, Bradley Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179405
  - 20
    - Opening Ports and allowing exceptions Hello all, I am new to scripting. So any detailed information would be greatly appreciated, From the script, WinFire-com.vbs from Microsoft, arrNewPorts(0,0) = "FPS" 'Name arrNewPorts(0,1) = 137 'Port arrNewPorts(0,2) = NET_FW_IP_PROTOCOL_TCP 'Protocol arrNewPorts(0,3) = NET_FW_SCOPE_ALL 'Scope - default is NET_FW_SCOPE_ALL arrNewPorts(0,4) = True 'Enabled - default is True Regarding the scope, how can I change this so that the port is open for a range of addresses, say: 10.91.12.56,10.7.14.9/255.255.255.0,10.116.45.0/255.255.255.0 Further, from the same script, Const NET_FW_IP_PROTOCOL_TCP = 6 Const NET_FW_IP_PROTOCOL_UDP = 17 How do we know that TCP is 6 and UDP, 17. Where do these numbers come from? The two number, 6 and 17, reappear in each script I've seen. I want to know how we know that 6 corresponds to TCP and 17 corresponds to UDP. If you could refer me to documentation that I can read, that would be great! One more question, how can I say the port is open for all protocols (TCP and UDP)? Do have to to do two port openings? One for TCP and another for UDP? I appreciate your help! Thank you in advance! Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179402
  - 21
    - launch app and pass file name to open I need some help trying to launch an application and pass a file name to it for viewing when opened the "cmd" is correctly capturing the arguments and application path, but does not open the application ------ code ----- <SCRIPT Language="VBScript"> Dim Args, FileName,vApp,cmd Set WshShell = CreateObject("WScript.Shell") Args = Split(objHTAGetTools.commandLine, chr(34)) FileName = Trim(Args(1)) vApp="C:\Progra~1\Micros~1\v0.6.812\WebMatrix.exe" cmd = "cmd /c " & " """ & vApp & """ " & " """ & FileName & """ " 'msgbox cmd Call WshShell.Run (cmd , 1, TRUE) ... Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179398
  - 22
    - AD Group Access Rights Hi All, Is there a way to determine with scripting, the access rights that various groups in AD have? If so, can someone point me in the right direction. Thanks, Bob Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179395
  - 23
    - Checking for Empty Folders Hi, i would like to be able to run through a folder on my network looking for empty folders and output this information to a txt file, really new to scripting what i have is a shared dir on my network called clients, this contains subfolders a-z and these contain subfolders A100.....A500 - Z100...Z500 under each client folder A100 etc i there are other folders, i would like to be able to check these to see what folders are empty for each client i do not need to be able to run through the whole drive at once, even doing it letter by letter would be fine i would appreciate it if someone could point me in the right direction or a good web site for info thanks Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179392
  - 24
    - Elevate user during logon process I would like to know if anyone has had success elevating a user during the logon process and if so what they used to elevate that user? I would like to be able to elevate a user to admin rights, install one or several programs and then remove the admin rights. Anyone have any ideas as to which direction would be best? Thanks Tom Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179391
  - 25
    - wireless I need some guidance in deploying preferred networks using vbscript . I have a script that add a ssid and the other settings to the registry, but i cannot see it in "prefered networks". This script should activate the checkbox "Let windows manage...". This is what i have: Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") 'Get the id of the wireless NetworkCard strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\13" strValueName = "ServiceName" oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue Wscript.Echo "networkcard id Value: " & strValue 'Create key with the id strKeyPath = "SOFTWARE\Microsoft\EAPOL\Parameters\Interfaces\" & strvalue oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath 'Add a binaryvalue with the settings of the wireless conection BinaryValueName="1" iValues=Array(&H05,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H40,&H0d,&H00,&H00,&H00,&H04,&H00,&H00,&H00,&H65,&H2d,&H55,&H4d,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H0d,&H00,&H00,&H00,&H28,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H28,&H00,&H00,&H00,&H05,&H00,&H00,&H00) oReg.SetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,_ BinaryValueName,iValues If someone can point me in the right direction I would appreciate it. Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179390
- Next
  - 1
    - HOWTO: Raise C# event and handle in VBScript The event SomeEvent() is raised and handled in VB6 fine. Using this exact same code and using VBScript with the CreateObject call causes an error in the c# code. When using VBScript, I get a 'Object reference not set to an instance of an object.' on the line SomeEvent(). I am positive the m_nSomeProperty = nValue; line executes. How can I get this working from VBScript? Here's the code: using System; using System.Runtime.InteropServices; namespace ComInterop { public delegate void SomeEventHandler(); [ Guid("F8E81A5A-BB37-49CC-9681-7D4FE52936B3"), InterfaceType(ComInterfaceType.InterfaceIsIDispatch) ] public interface ICComInteropEvents { [DispId(1)] void SomeEvent(); } [ Guid("97C8501B-35DE-48CA-BECC-B980D08226F4"), InterfaceType(ComInterfaceType.InterfaceIsDual) ] public interface ICComInterop { [DispId(2)] void SomeMethod( int nValue ); [DispId(3)] int SomeProperty{ get; set; } } [ Guid("10EBC493-D2FD-4723-9F8B-F593586ED9B7"), ProgId("ComInterop.CComInterop"), ClassInterface(ClassInterfaceType.None), ComSourceInterfaces(typeof(ICComInteropEvents)) ] public class CComInterop : ICComInterop { public CComInterop() : base() { } private int m_nSomeProperty = 0; public event SomeEventHandler SomeEvent; public void SomeMethod( int nValue ) { m_nSomeProperty = nValue; /////////////////////////////////////////////////////////////////////////////////////////// // // object reference not set to an object error occurs here // ////////////////////////////////////////////////////////////////////////////////////////// SomeEvent(); } public int SomeProperty { get{ return m_nSomeProperty; } set{ m_nSomeProperty = value; } } } } And the VBScript code: Option Explicit ' ========================================================================== ' Implementation ' ' ========================================================================== Dim objReceive Dim bDone On error Resume Next bDone = false WScript.Echo "CreateObject" Set objReceive = CreateObject("ComInterop.CComInterop") if Err.Number <> 0 then WScript.Echo "Error: CreateObject: " & Err.Description else objReceive.SomeMethod(7) if Err.Number <> 0 then WScript.Echo "Error: Setting SomeMethod: " & Err.Description else WScript.Sleep 3000 end if end if objReceive = nothing WScript.Echo "Program Over" ' ========================================================================== Sub objReceive_SomeEvent() WScript.Echo "Message: " & objReceive.SomeProperty bDone = true End Sub -- Dan Sikorsky, MSCS BSCE BAB Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179389
  - 2
    - reading through a text file checking the first character on each line Hi I'm trying to read through a text file but I need to check if the first character on each line is a full stop (.) Any ideas? Thanks. Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179384
  - 3
    - testpage Hello, I added a new IP network printer to my OU with a logon script and i set it up as the defaut printer. I would like to be able to create a script to able to print a test page to the printer from the logon. -- The only easy day was Yesterday Tag: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179383
  - 4
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179381
  - 5
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179379
  - 6
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179378
  - 7
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179375
  - 8
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179374
  - 9
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179373
  - 10
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179372
  - 11
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179369
  - 12
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179366
  - 13
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179364
  - 14
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179360
  - 15
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179356
  - 16
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179352
  - 17
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179351
  - 18
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179350
  - 19
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179348
  - 20
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179346
  - 21
    - .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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179343
  - 22
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179342
  - 23
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179336
  - 24
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179329
  - 25
    - 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: Reading the first 9 lines of a text file and outputing to a network printer? Tag: 179320

How would it be possible to read just the first 9 lines of a text file and
then output them to a network-based printer (either by IP or
\\server\printer would be fine)? This is printing NTBackup logs, though
that shouldn't make a difference.

Thanks!
Trevor

Top