Build Printers Ports

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
    - Disabling Time Server Problem/Error For the most part i thought i had disabled the time server facility both via disabling the service and removing the servers from the registry. HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\W32Time\Start (4) HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\W32Time\Parameters\NtpServer (deleted - time.windows.gov,0x1 (default value)) HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\W32Time\Parameters\Type (deleted - NoSync (default value)) also HKCU\Keyboard Layout\Preload\1 (deleted) HKCU\Keyboard Layout\Preload\2 (deleted) However while looking into the issue of the servers and how they get written to the registry i noticed a peculiar event. Lets say i have all the above links checked and implemented. Now go to the clock in the tool bar and go to the Internet Time tab. Now click on the "Automatically synchronize with an Internet time server" check box Now Apply and Exit Now go to the registry and lets look at the registry entries above again and all of a sudden the service is started and a new reference to the time server is written. Now I can disable the clock from the taskbar of course however that still leaves the potential for the time server to be activated via script without the user knowing. My question is, is there a way to disable the "Automatically synchronize with an Internet time server" check box or alternatively to disable the Internet Time tab. Policy process won't eliminate this completely if time service changed via a script. I have looked and can find no reference to this issue or how to disable it in the registry, so any insight and help into the potential to completely disable this facility would be most welcome. Tag: Build Printers Ports Tag: 169202
  - 2
    - Assign Printer Permissions Is there a way to script the permissions on a networked printer? Tag: Build Printers Ports Tag: 169201
  - 3
    - Unlock Windows can i unlocked a computer with a .vbs ?? ( i do know the user and pass ) tnx -- CHIN@KD www.racingclub.com.ar Tag: Build Printers Ports Tag: 169196
  - 4
    - FileSystemObject-Invalid procedure call or arg Hi, I'm getting the "Invalid procedure call or argument" error when trying to write files what appears to be when the file is over a certain size. I have two versions of the script. One is running in an .asp page and the other in a .vbs file. It is only breaking when executing via wsh. Both versions run under Windows 2003 (ie IIS6, WSH v5.6) Any ideas on why the script breaks when writing files over a certain size in vbscript? Thanks for any input! -------------------------------------------------- Snippet of the code in question.... Sub WriteFile(strData, strFileName) Dim objFileSystem, objText If Not strFileName = "" Then Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objText = objFileSystem.CreateTextFile(strFileName, True) objText.Write strData '<--***code breaking here*** objText.Close Set objText = Nothing Set objFileSystem = Nothing End If End Sub ----------------------------------------------------- Tag: Build Printers Ports Tag: 169193
  - 5
    - SENDKEYS on Locked Machine Hi all... how do u do that??.. i have to use the SENDKEYS but in a locked computer. Can i unlock it and run the batch process ? or is there another way to do that? Thanx !!! -- CHIN@KD www.racingclub.com.ar Tag: Build Printers Ports Tag: 169190
  - 6
    - registry and speach marks ie: "...." Can anyone help me with identifying how to get speech marks into the registry without giving me an error. I have the following i would like to place in the registry. "cmd.exe /c MD "%1\NewFolder"" The problem is that by putting the original " " marks at the beginning and the end of the code seems to limit putting "%1\NewFolder" around this parameter, which is important in this instance. The error message states its an: Unterminated string constant Code: 800A0409. Any help would be most welcome. TIA jp Tag: Build Printers Ports Tag: 169185
  - 7
    - Bookmark.htm: ****0127 Bookmark.htm: How can i duplicate this via SCRIPT? IE has the capability to create a Bookmark.htm page of all favorites in FAVORITES. This is a series of point and clicks as follows: StartUp InternetExplorer>File>import-export>next>click export-Favorites(in ListBox)>click next>click next>click next>click yes>click finish>click yes>click RefreshButton(on IE toolbar) How can i duplicate this via SCRIPT? Thanks! ...Vern Tag: Build Printers Ports Tag: 169176
  - 8
    - VBScript to update Computer Description with username and department I would liek to alter this script to query active directory to get the department and add it to the Computer description in active directory along with the username. I am no very skilled yet and could use some help. HEre is what I have found on the net so far. Dim adsinfo,nw Set adsinfo = CreateObject("adsysteminfo") Set nw = CreateObject("Wscript.Network") Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName) wscript.echo ThisComp.Description Thiscomp.put "description",nw.username ThisComp.Setinfo I would like to make it Department - Username instead of just username. HElp is appreciated Tag: Build Printers Ports Tag: 169175
  - 9
    - list of styles Well if you can't view the stylesheet in the document the following script will display the style used in each element. It's set up as a menu extension so you only have to select a bit of text in the element and right click... <html> <script language=jscript > function getList(){ var s=""; var ppty; for (ppty in e) { if ((eval("e." + ppty) != "[object]") && (eval("e." + ppty) != null) && (eval("e." + ppty) != "undefined") && (eval("e." + ppty) != "") && (ppty != "outerText") && (ppty != "innerText") && (ppty != "outerHTML") & (ppty != "innerHTML") && (eval("e." + ppty) != true)) { s=s + ppty + "=" + eval("e." + ppty) + "\n"; } } for (ppty in e.currentStyle) { if ((eval("e.currentStyle." + ppty) != "none") && (eval("e.currentStyle." + ppty) != "auto") && (eval("e.currentStyle." + ppty) != "normal") && (eval("e.currentStyle." + ppty) != "") && (eval("e." + ppty) != true)) { s=s+ppty+"="+eval("e.currentStyle."+ppty)+"\n"; } } return(s); } </script> <script language=vbs > dim par,doc,r,e set par=external.menuArguments set doc=par.document set r=doc.selection.createrange set e=r.parentelement 'code for alphabetic sorting par.alert(getList()) </script> </html> Tag: Build Printers Ports Tag: 169172
  - 10
    - DLookup We have been using this Dlookup up throught Access2002 and it has worked great. We upgraded some of our PCs to Access2003 and this code fails (a drop down populates an adjacent textbox). Private Sub PART_NAME_AfterUpdate() Forms![ECOFORM]![PARTform]![PART NAME] = DLookup("[PartName]", "Parts", , "[PartNumber] = Forms![ECOFORM]![PARTform]![PART #]") End Sub I've tried re-writing it in various ways but haven't hit on the right solution. Any suggestions? Snowdog: Homer Lambrecht Tag: Build Printers Ports Tag: 169155
  - 11
    - Create Dialup Networking entry Hi, I'm looking for a way to create a dialup networking entry using vbscript. The reason is to automate the setup of a workstation that requires such an entry. Is there any reference that anyone knows, or has done it before and can give me some ideas? Any help is most appreciated. Cheers, Les -- Les Landau LanNet Services landaul@ozemail.com.au Tag: Build Printers Ports Tag: 169150
  - 12
    - adding values to Drop Down box ???? Hi, i have a drop down box in ASP page and i was wondering how to add values to it at page load. i want to use VbScipt to add values to the drop down list. Please help..... Thanks Tag: Build Printers Ports Tag: 169145
  - 13
    - MsgBox Question I have the following script and at the end I want to prompt the user with a MsgBox to validate their entries. Two things: 1) How do I pass the values they entered into the msgbox? 2) I have added the yes/no option buttons but don't want cancel to be included. I want the yes button to end the script as it does, but if they select no, I want the script to run from the top. Here is my mess Dim strReturnVal1, strReturnVal2, strReturnVal3, strName, strKeyName, strType Dim g_objShell :Set g_objShell = createobject("WScript.Shell") Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\LLNL" oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath strName = "HKEY_LOCAL_MACHINE\SOFTWARE\LLNL" 'Change path to correct location. strKeyName = "\DOE #" strtype = "REG_SZ" GetUserInput strReturnVal1 '//Add your code here to put strReturnVal1 into reg! g_objShell.RegWrite strname & strKeyName, strReturnVal1,strType ' User Input Function Sub GetUserInput(strReturnVal1) Dim strChoice1 strChoice1 = InputBox("Please input Machine DOE #") If strChoice1 = "" Then 'Flag an Error is Null strReturnVal1 = "BAD Usage" else strReturnVal1 = strChoice1 end if End Sub strName = "HKEY_LOCAL_MACHINE\SOFTWARE\LLNL" 'Change path to correct location. strKeyName = "\Building" strtype = "REG_SZ" GetUserInputa strReturnVal2 '//Add your code here to put strReturnVal into reg! g_objShell.RegWrite strname & strKeyName, strReturnVal2,strType ' User Input Function Sub GetUserInputa(strReturnVal2) Dim strChoice2 strChoice2 = InputBox("Please input Building #") If strChoice2 = "" Then 'Flag an Error is Null strReturnVal2 = "BAD Usage" else strReturnVal2 = strChoice2 end if End Sub strName = "HKEY_LOCAL_MACHINE\SOFTWARE\LLNL" 'Change path to correct location. strKeyName = "\Room" strtype = "REG_SZ" GetUserInputb strReturnVal3 '//Add your code here to put strReturnVal3 into reg! g_objShell.RegWrite strname & strKeyName, strReturnVal3,strType ' User Input Function Sub GetUserInputb(strReturnVal3) Dim strChoice3 strChoice3 = InputBox("Please input Room #") If strChoice3 = "" Then 'Flag an Error is Null strReturnVal3 = "BAD Usage" else strReturnVal3 = strChoice3 end if End Sub Dim MyVar MyVar = MsgBox ("Is the data you entered correct?" & vbcrlf & "DOE #" & vbcrlf & "Building #" & vbcrlf & "Room #",67,"CMS ISTeam") Tag: Build Printers Ports Tag: 169144
  - 14
    - reset default home page I want to put one of those buttons on our organization's website that says "make this page your default home page". Does anyone have a vbscript to do that? Thanks in advance, Ray Maas Tag: Build Printers Ports Tag: 169136
  - 15
    - Recursive script doesn't like spaces? Hi folks, I have a handy script that recursively searches and then prints file names within directories and their subdirectories. Unfortunately, the script bombs sometimes...I "think" (because I'm new to scripting) that it doesn't like directories with spaces or special characters in their names. Suggestions? Here's the script below. Thanks, Craig Set objFSO = CreateObject("Scripting.FileSystemObject") Set textfile = objFSO.CreateTextFile("c:\filelist.txt", True) strComputer = "." strDrive = "c:" 'NOTE: If you want to, you can provide a directory (like WINNT, etc.) below in the 'parenthesis or leave it blank to search your whole hard drive! strPath = "" 'Use double backslashes in path if necessary strPathAlt = Replace(strPath, "\\", "\") strName = strDrive & "\" & strPathAlt Set objWMIService = GetObject("winmgmts:\\" & strComputer) textfile.WriteLine strName Set colFiles = objWMIService.ExecQuery ("SELECT * FROM CIM_DataFile WHERE Drive = '" & strDrive & "' AND Path = '\\" & strPath & "\\'") For Each objFile in colFiles textfile.WriteLine objFile.Name Next Set colFolders = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_Directory.Name='" & strName & "'} " & "WHERE AssocClass = Win32_Subdirectory " & "ResultRole = PartComponent") For Each objFolder in colFolders textfile.WriteLine objFolder.Name strFolderPath = Replace(objFolder.Path, "\", "\\") strFilePath = strFolderPath & objFolder.FileName & "\\" Set colFiles = objWMIService.ExecQuery ("SELECT * FROM CIM_DataFile WHERE Drive = '" & strDrive & "' AND Path = '" & strFilePath & "'") For Each objFile in colFiles textfile.WriteLine objFile.Name Next ShowSubFolders objFolder.Name Next Sub ShowSubFolders(strSubFolder) Set colSubFolders = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_Directory.Name='" & strSubFolder & "'} " & "WHERE AssocClass = Win32_Subdirectory " & "ResultRole = PartComponent") For Each objSubFolder in colSubFolders textfile.WriteLine objSubfolder.Name strSubFolderPath = Replace(objSubFolder.Path, "\", "\\") strSubFilePath = strSubFolderPath & objSubFolder.FileName & "\\" Set colSubFiles = objWMIService.ExecQuery ("SELECT * FROM CIM_DataFile WHERE Drive = '" & strDrive & "' AND Path = '" & strSubFilePath & "'") For Each objSubFile in colSubFiles textfile.WriteLine objSubFile.Name Next ShowSubFolders objSubFolder.Name Next End Sub textfile.Close wscript.echo "Done. Have a nice day!" Tag: Build Printers Ports Tag: 169134
  - 16
    - logoff.vbs Hi all, I'm trying to find the vbs script written by MS to allow you to log users off remote machines using alternative credentials. Does anyone know where I can find it? I'm using Windows 2000/XP and I've looked through all the resource kits I have! I just can't find it anywhere... I beginning the think it doesn't exist! ;) Any help is much appreciated. Tag: Build Printers Ports Tag: 169119
  - 17
    - is it possible to read "volatile environment" regkey in HMCU? Is it possible to read "volatile environment" regkey in HMCU? I need to get the LOGONSERVER off of a remote machine and I cant get Microsofts example WMI script to work, so I figured I would try and read it from the registry. I can seem to get that to work either though, returns nothing. I can read other stuff in HMCU, just not out of the "volatile environment" portion of the registy. Tag: Build Printers Ports Tag: 169117
  - 18
    - STDERR and STDOUT redirection from within a vbs script Hello, I have to use some vbs script, lauching them from within another application i'm coding in err ... another language :) Is there a simple way to force redirection of STDOUT and STDERR from within the vbs script ? That is I'm looking for some instructions to add at the begining of the vbs script, that will take 2 filenames as arguments and afterwards redirect the stderr and stdout to these files. The point here is that i do not want to use some command line redirection . Also, i do not want to mess with the rest of the script, i just want the standard streams to be redirected. I have zero vbs knowledge so i really do not know if this question is stupid or if it's even possible. Thanks a lot if someone can help, Dav' Tag: Build Printers Ports Tag: 169115
  - 19
    - Browse window Hi all, i m opening an internet explorer app , and have to upload a file in FILE FIELD , i can do the click on BROWSE button, but how can i navigate on the browse window to find the file i want to upload ? ( i know the full path of it ) Thnx !! -- CHIN@KD www.racingclub.com.ar Tag: Build Printers Ports Tag: 169107
  - 20
    - Log Parser command question Using Microsoft Log Parser 2.2 on Windows 2000 Advanced Server. I'm searching the Application event log on a remote server for records which contain the keywords "NTP" and "privilege" in the Description. The following command works fine: LogParser -i:EVT -o:NAT "SELECT TimeGenerated, EventTypeName, EventID, SourceName, Message FROM \\MyServer\Application WHERE Message Like '%NTP% %privilege%'" What I need to do is use the WHERE clause to return records from today's date, or a given date. Any suggestions on how I can add that function in to the above command? Thanks in advance. Tag: Build Printers Ports Tag: 169106
  - 21
    - deactive service Hi, How coluld we do, via script, in order to deactivate the mensenger service concerning windows 2000 pro? thank's Tag: Build Printers Ports Tag: 169102
  - 22
    - configure SNTP Hi, I'm looking for a little VB script to change the sntp server address on a bunch of Windows 2000 and 2003 Server (change from something to "nothing", like "net time /setsntp ", so that all Server will contact the DC with the PDC FSMO Role. Any idea? thanks Christian Tag: Build Printers Ports Tag: 169096
  - 23
    - Setting Timeout in Registry I know that I can set the No timeout for a script by adding the /T:0 to my cscript.exe command line, but I have a canned piece of software which allows you to call a script, but does not allow parmeters and it times out. Is there a registry entry that I can put in that cscript will look at to turn off timeouts. -- Marc Rosson Tag: Build Printers Ports Tag: 169092
  - 24
    - Collecting Windows NT 4.0 events I know its old and out of date but unfortunatley we have gotten rid of almost every nt 4.0 server. But unfortunately the ones that are will be here for a little bit longer. I am somewhat of a newbie so please bare with me. I am interested in collecting event og messages from my remaining nt 4.0 server. WMI may not be installed. Is there a way to collect the nt events from the system log and the application log without using WMI. Paul Tag: Build Printers Ports Tag: 169079
  - 25
    - get time on a remote machine Probably dumb question, but how do I get the time on a remote machine using vbscript? Tag: Build Printers Ports Tag: 169075
- Next
  - 1
    - MsgBox within Sub I am using MsgBox within a sub, and then I begin a new sub and am using MsgBox again. When I run the script, the MsgBox always displays the heading listed in the last sub section listed. What am I doing wrong??? Tag: Build Printers Ports Tag: 169066
  - 2
    - ASP classic on Windows 2003 Web Edition Hi everyone, Here is my dilemma; We had a Windows 2000 domain server with Exchange and all that and I had a Windows 2003 Web edition server on the domain. I used ASP classic (the non-dotnet kind) to access domain objects with getobject("WinNT://"... stuff. When the domain server was upgraded (after format) to 2003, getobject now reports a permission denied. Does 2003 lock out ASP classic from the WinNT:// objects and other ADSI objects? How can I rectify this situation? Please advise. Thanks, Jim Tag: Build Printers Ports Tag: 169064
  - 3
    - Loading mulitple files Below is an example of gathering informtion from a xml file. The file is a template with stored values that will be used for comparision. Now that I have my intitial values how can I look at a directory with multiple xml files and do a verify that the template values match each xml files value. I kinda of an idea how to approach but not sure with vbscript. I think I need to add another For Each statement to grab all the files in some directory. Then open each xml file and grab the xml data the same way as below. Where I am getting confused is when I open a xml from directory and grab values is actually comparing the template data to the xml file opened. I planned on creating a error log everytime I read thorugh an xml and the versions do not match template. The directory where all the xml files are located are named ComputerName.xml. Computername is unique. Since the xml is read from first record to end, I thought maybe doing some IF statement on the version number. This is the Output of the date. Application = ADS Version 2.7 Application = State City 3.9.0 Application = RCS 9.11.0 Application = Release 3.5.009 Application = Web 5.13.0 ============================================================================ ==================== sFilePath = "C:\Production_Versions.xml" sXPath = "/Store/Application" Set oXMLDoc = CreateObject("MSXML2.DOMDocument") oXMLDoc.SetProperty "SelectionLanguage", "XPath" oXMLDoc.Async = False oXMLDoc.Load sFilePath If (oXMLDoc.parseError.errorCode <> 0) Then Set oErr = oXMLDoc.ParseError WScript.Echo "Could not load file " & sFilePath _ & " , error: " & oErr.Reason WScript.Quit End If Set objApps = oXMLDoc.DocumentElement.SelectNodes(sXPath) For Each oApp in objApps strApplication = oApp.getAttribute("Name") intVersion= oApp.getAttribute("Version") WScript.Echo "Application = " & strApplication & Space(1) & intVersion Next Tag: Build Printers Ports Tag: 169060
  - 4
    - VBScript to accept user input and write to registry Hello, I am trying to create a script that will accept input from a user (4 different values) and then write them to the registry. I have the portion of code completed to create the reg keys and strings but am having issues with asking the user for input then writing it to the location I just created. Any help would be greatly appreciated. Thank you, mint_fo@yahoo.com Tag: Build Printers Ports Tag: 169059
  - 5
    - Submit form results to access database and email form results. I'm very much a novice, but here is the scenario. I've used Frontpage XP to create a form that saves the results to an Access database. We can then access the results and edit them when needed using the Frontpage database editor. What I would like is for the confirmation page to email the results (or specific fields) from the form to our help desk so we can be notified when a new record has been added. I've just started experimenting with CDOSYS to automaticall email, but haven't been able to figure out how to pull the fields from the form into the email. I'm using a submit instead of post method with our form, is this part of the problem? Tag: Build Printers Ports Tag: 169058
  - 6
    - Lock Keyboard and Mouse Anyone knows how to lock them without any component like AutoIT? thnx -- CHIN@KD www.racingclub.com.ar Tag: Build Printers Ports Tag: 169055
  - 7
    - SENDKEYS + Batch Process Hi All!!!! as u could see in this subject, this is a little weird problem.. lol This is it: I created a .vbs file, it runs a batch process opening an Internet Explorer Window, logs in an external website , and upload a file from this comp ( where i have the vbs file ) The first problem i had : when i navigate a HTTPS URL , it ask for the certificate window and i had to click YES manually .. so i used the SENDKEYS to send 2 TABs and one ENTER to step over that window.. it worked The second problem : On the upload page, i had to browse the file to upload. HTML doesnt let u write in a FILE control Value. So i used again the SENDKEYS to send the full path of the file to upload. It worked. Now the Actual Problem : this computer has to be locked while the process runs.. so.. the sendkeys doesnt work becouse the focus it s on the windows login window. Anyone has another idea to do what i m trying ?? thnx !! and sorry for my poor english.. PS: i cant modify the upload web site -- CHIN@KD www.racingclub.com.ar Tag: Build Printers Ports Tag: 169047
  - 8
    - Can I reach in and touch entries in a Shell.Open window? Dim Shell, wsh Set wsh = Wscript.CreateObject("Wscript.Shell") Set Shell = Wscript.CreateObject("Shell.Application") Shell.Open "D:\Documents and Settings\dont\Local Settings\Temporary Internet Files" Works, wonderful! Now, is there some way in the script I can reach into that window, grab a row of information at a time, get it into a variable, and then reach back in and delete an item if it matches my criteria? Since TIF is a "virtual folder" I can't find any way that the usual file system access tools will let me see this information and be able to access the files later for deletion. Thanks Tag: Build Printers Ports Tag: 169045
  - 9
    - WMI VS. Security I need to know if I understand the thematic ( WMI vs. Security) because I've to query domain controller ... To enable that someone can get responds to WMI queries I've to enable the remoteWMI on the domain controller, right? http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/securing_a_remote_wmi_connection.asp From the machine I want to ask from, I can tune up the connection to be secure as possible: 1. Useage of default authentication and impersonation level which provides WMI to specify the manner in which the queries should be transmitted and what will do the queries ... and to help COM how much security is needet to access the process on the client machine, right? So best solution will be if I use "PktIntegrity" as AuthenticationLevel and "Impersonate" as ImpersonationLevel. ?? http://msdn.microsoft.com/library/en-us/wmisdk/wmi/setting_the_default_process_security_level_using_vbscript.asp?frame=true 2. To use Kerberos as authentication protocoll to specify the authentication method http://msdn.microsoft.com/library/en-us/wmisdk/wmi/setting_the_authentication_service_using_vbscript.asp?frame=true Please give me feedback if I've understand it - or not .... ... the only message to transport the query and response encrypted is to use PktPrivacy? Many thanks in advanced Juan Tag: Build Printers Ports Tag: 169042
  - 10
    - Intellisense and WSH objects Hi all, Anyone knows a way to "register" WSH and FileScripting Objects for Visual Studio 2003 use intellisense technology with it? Thanks. Pedro L. Tag: Build Printers Ports Tag: 169038
  - 11
    - Print File I am interesting in allowing the user to select some information from a web form ... and then based on that input perform was database queries and then print a job to a windows queue. I 'googled' on many topics to determine how best to perform the print portion of this - but had no luck. I'm contemplating taking the user's input, query the database and then create the appropriate xml to send to the queue. The queue is being monitored and can utilize the xml to print the job appropriately. If anyone has any pointers towards printing a file to a windows queue from a web site (server side) I would be most appreciative. BBB Tag: Build Printers Ports Tag: 169037
  - 12
    - Device I/O Error when adding a component? 'After doing: 'Set objExcel = CreateObject("Excel.Application") 'Set abook = objExcel.Workbooks.Open(NameFile)" earlier in the program 'The following line gives me an error at runtime: Set xlmodule = abook.VBProject.VBComponents.Add(1) Does anyone have any idea why and how that line could give me an error 57: Device I/O error ??? Tag: Build Printers Ports Tag: 169035
  - 13
    - WMI Getting Network Bandwidth for Specific NIC I'm looking to get the Bytes per/sec from a specific NIC, right now i'm pulling BytesTotalPersec from Win32_PerfFormattedData_TCPIP_NetworkInterface. This works great, but it brings back all NICs, how do i choose which NIC I want? My code is: Set ColItems = objWMIService.ExecQuery("Select BytesTotalPersec from Win32_PerfFormattedData_TCPIP_NetworkInterface") For Each objItems in colItems Wscript.Echo "Network Bandwidth: " & objItems.BytesTotalPersec Next Thanks Glenn Tag: Build Printers Ports Tag: 169032
  - 14
    - Setting Proxy server in RAS connections Hi there, We currently have a requirement to set (via a VB Script) the Proxy server name / port for dialup connections on a PC. So far, I wrote a script to find the names of the RAS connections on the PC, but am unsure where the proxy server setting is for the each connection. I've searched the registry, and it isn't in the RAS phonebook file. Can anyone shed any light on where this setting is stored? Your help is most appreciated, Simon Tag: Build Printers Ports Tag: 169027
  - 15
    - SP2 security problems Does anyone have a link to a thorough explanation of how to manage XP SP2 security for files? I sent a zip to a friend, with VBS files inside. He got a message that "some files were blocked" when he extracted the zip, and the VBS files were not extracted! It appears that I need to understand the various SP2 settings in order to dependably send files to others. And now I'm also wondering about downloaded zips with VBS inside. Is SP2 also hiding those from the user by default? _____________________________ mayayXXana1a@mindYYspring.com For return email remove XX and YY. _____________________________ Tag: Build Printers Ports Tag: 169025
  - 16
    - How do I get Author and Last saved By file props with vbscript HI All, I need to be able to determine the Author and Last Saved By Properties of a file from within VBScript. I already can get the name, path, filesize, etc that I need, but the remaining 2 I can't seem to find a reference for. Anyone have any ideas? Thanks Brian Tag: Build Printers Ports Tag: 169023
  - 17
    - What happened to microsoft.public.scripting.wsh ? To MS news server guy. I can't read msg in microsoft.public.scripting.wsh group. Other groups in news.microsoft.com is ok. I'm using Outlook experess 6 Tag: Build Printers Ports Tag: 169015
  - 18
    - VBS does not run in Schediled Task if user is not logged in runas I have a Win 2003 Server runnig the same script I was using On win 2000 Server. This script is set to run as a local admin and will only execute if the local admin is logged in. I have made a small script just to test this and it exibits the same issues. spin.vbs For i = 1 to 100000 next ST command line = c:\windows\system32\cscript.exe c:\temp\spin.vbs when this executes and the local admin is logged in the SCH Task GUI status indicates running while the script is spinning and the result = 0x0. BUT when another admin is logged in and teh ST executes Status stayes blank and result = 0x1. Conduting the same test with notepad both cases show Status running then result 0x0. I am lost any thoughts, is there a Cscript switch i am missing. -- thanks CranDev :) Tag: Build Printers Ports Tag: 169011
  - 19
    - Loading your settings failed Error message Right now I am receiving an the error: "Loading your settings failed (access is denied)" when trying to run a .vbs file. I have looked at other suggestions that stated to look at the HKLM\SOFTWARE\MICROSOFT\WINDOWS SCRIPT HOST permissions and all of the permissions are correct, meaning I am an administrator on this machine and administrators have full access to the registry key. Are there any other suggestions? Any help is greatly appreciated. Thanks, MC Tag: Build Printers Ports Tag: 169010
  - 20
    - access to stylesheet Hi, Does anyone know why I can't access the stylesheet in a document downloaded from the internet or if there's a workaround? Thnks, Elana for instance, <html> <head> <base href="http://www.some.com"> <style> body{background-color:lime} </style> </head> <body>  <script language=vbs> sub window_onload() 'produces access is denied error msgbox document.stylesheets(0).cssText end sub </script> </body> Tag: Build Printers Ports Tag: 169002
  - 21
    - *IMPORTANT* Message for Google Group, Usenet and AOL users! Good News! Do you know how simple it is to go to Heaven after this life has ended? Some people believe that belonging to a local church, temple, mosque or synagogue will get them to Heaven. Others believe that water baptism, obeying the ten commandments or just being a good person will get them to Heaven. There are many other beliefs as well, but the good news about God's way to Heaven is found in the Holy Bible. The good news is that God came from Heaven to earth in the person of Jesus Christ over 2000 years ago and died for our sins(misdeeds). He was born in the land of Israel supernaturally to a virgin Jewish woman named Mary. He lived a sinless life for thirty-three years and then sacrificed His sinless blood and died on a cross to pay the death penalty for our sins. After Jesus was placed in a tomb He rose from the dead three days later as He said He would. The Holy Bible also tells us that Jesus Christ ascended into Heaven and that all who accept Him as their Lord and Saviour will live forever with Him in Heaven where there is no more death, sorrow, sickness and pain. The Bible says, "For the wages of sin is death, but the gift of God is eternal life through Christ Jesus our Lord." (Romans 6:23) This verse in the Bible says, "For ALL HAVE SINNED, and come short of the glory of God." (Romans 3:23) This verse says, "But God demonstrates his own love for us in this: While we were still sinners, Christ died for us." (Romans 5:8) In this passage the Bible clearly explains how simple it is to be saved and on your way to Heaven, "For if you confess with your mouth, "Jesus is Lord," and believe in your heart that God raised him from the dead, you WILL BE SAVED." (Romans 10:9) You can be saved right now and on your way to Heaven if you will open your heart to Jesus and pray the following prayer: Dear Jesus Christ, I want to be saved so that I can have a home in Heaven when I die. I agree with You that I am a sinner. I believe You love me and want to save me. I believe that You bled and died on the cross to pay the penalty for my sins. I believe that You rose from the dead. Please forgive my sins and come into my heart and be my Lord and Saviour. Thank You Lord Jesus Christ for forgiving me and saving me through Your merciful grace. Amen. You are now a Christian if you said the prayer and allowed God to save you. Welcome to the family of God. Salvation is not a reward but a gift. The Bible says it this way, "For it is by GRACE you have been SAVED, through FAITH and this not from yourselves, it is the GIFT of God." (Ephesians 2:8) Nothing in the world is more important than your eternal destiny. The Bible says, "In Him(Jesus) we have redemption through His blood, the forgiveness of sins..." (Ephesians 1:7) If you have not yet made a decision to be saved, please do so now before it is too late. The reason why it is so important to be saved now is because you do not know exactly when you will die. You may die prematurely in a traffic accident, terrorist attack or some other way before you get another chance to be saved. The Bible tells us that we will spend eternity in Heaven or a place of eternal torment called Hell. It would be terrible to die and go to Hell when all you have to do is accept Jesus Christ as your personal Lord and Saviour. Some people that have already made Jesus Christ their Lord and Saviour worry about losing their salvation. The Bible teaches Christians that we can never lose our salvation no matter what happens. The Bible says it this way, "My dear children, I write this to you so that you will not sin. But if anybody does sin, we have one who speaks to the Father in our defense Jesus Christ, the Righteous One." Yes my friend, Jesus Christ is able to save you and keep you saved. Please tell your family and friends, thanks! Have a great day! Internet Evangelist R.L. Grossi 1. http://www.biblegateway.com << Free Online Bible 2. http://www.free-hoster.com/goodnews << Passion of the Christ 3. http://www.carm.org/cults/cultlist.htm << Beware Of Cults 4. http://www.equip.org/free/DH198.htm << About Hell 5. http://www.powertochange.com/questions/qna2.html << Is Jesus God? Tag: Build Printers Ports Tag: 169001
  - 22
    - VBA to VBScript - Sorting Hi, I recorded a macro in Excel and now I want to use it in VBScript. I am having a heck of a time to find any information on how to do a sort in Excel using VBScript... Range("A1:H227").Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range ("D2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal Tag: Build Printers Ports Tag: 168998
  - 23
    - LDAP Getobject call Works in vbs file but not in an ASP file (IIS I have the following code in both a vbs file and in an asp file (switch Wscript.Echo with Response.Write). It works in the vbs file just fine. Spits out a nice little output to the screen and all is well with the world. Put this code in an ASP page on II6 (SAME SERVER) and I get a mysterious error code that I have found no information about. I'm stuck. Need help. Thanks in advance!!!! asp file <% ADSIPath = "LDAP://CN=Users,DC=Domain,DC=com" GetSN Sub GetSN() 'On Error Resume Next Response.write("<p>" & ADSIPath & "</p>") Set objAD = GetObject(ADSIPath) Response.write("<p>Err.Number:" & Err.Number) Response.Write("<p>Err.Source:" & Err.Source) Response.Write("<p>Err.Description:" & Err.Description) Response.Write("<p>DN:" & objAD.DistinguishedName) Set objAD = Nothing End Sub %> vbs file ADSIPath = "LDAP://CN=Users,DC=Domain,DC=com" GetSN Sub GetSN() 'On Error Resume Next Wscript.Echo("<p>" & ADSIPath & "</p>") Set objAD = GetObject(ADSIPath) Wscript.Echo("<p>Err.Number:" & Err.Number) Wscript.Echo("<p>Err.Source:" & Err.Source) Wscript.Echo("<p>Err.Description:" & Err.Description) Wscript.Echo("<p>DN:" & objAD.DistinguishedName) Set objAD = Nothing End Sub Tag: Build Printers Ports Tag: 168997
  - 24
    - know user windows Sorry about my english. How to know the "logged" user in w2000? My client wan to use the same windows'user and password in the page(intranet) If its possible i want to ask windows some like that: uid="myuserwindos" psw="mypasswordwindows" if idontknowwhatapifunctionwindows(uid,pasw) = true then Is possible?? Thank's -- -------------------------------------------------------------- Rene Moreno Monterrey, Nuevo Leon, Mexico "Estudio en la duda, Accion en la Fe" -------------------------------------------------------------- Tag: Build Printers Ports Tag: 168995
  - 25
    - Base64 Type Mismatch error Hello I'm trying to Base64 encode a buffer that I have in memory. So this means that I don't want to use the MS Stream object to read a file from disk. Originally I tried to do this same task in JavaScript but failed... I assumed it was because the oB64Node.nodeTypedValue takes a VT_Array. The following throws a type mismatch.. the CreateVBArray routine returns a VB Array of bytes. oB64Node.nodeTypedValue = CreateVBArray( buffer ) Any help would be greatly appreciated. If possible I would luv to be able to accomplish this same task in javascript. <SCRIPT LANGUAGE="VBScript"> doEncode( "Hi how are you" ) Function CreateVBArray( buffer ) Dim i, j, imax, chr Dim a imax = len(buffer) redim a (imax) i = 0 For j = 0 To imax chr = mid(buffer, j+1, 1) if( chr <> "" ) then a(i) = CByte(Asc(chr)) i=i+1 end if Next 'Shrink it... ReDim Preserve a(i-1) CreateVBArray = a End Function Function doEncode( buffer ) Dim oXML Dim oB64Node Set oXML = CreateObject( "Msxml2.DOMDocument.4.0" ) oXML.loadXML( "<?xml version='1.0' ?> <root/>") call oXML.documentElement.setAttribute("xmlns:dt", "urn:schemas-microsoft-com:datatypes") Set oB64Node = oXML.createElement("F") oB64Node.dataType = "bin.base64" ' This throws a type mismatch oB64Node.nodeTypedValue = CreateVBArray( buffer ) Set doEncode = oB64Node End Function </SCRIPT> Tag: Build Printers Ports Tag: 168990

Hello All
i have windows 2003 server and i need to install 170 Tcp printer ports
i need a script how can build number of ports at one time
i try to use this scrip - but this script build only one port evry time
vbs
Set objWMIService = GetObject("winmgmts:")
Set objNewPort = objWMIService.Get _
("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name = "IP_10.0.0.130"
objNewPort.Protocol = 1
objNewPort.HostAddress = "10.0.0.130"
objNewPort.PortNumber = "9100"
objNewPort.SNMPEnabled = False
objNewPort.Put_

Please Help

Top

Re: Build Printers Ports by hypnos

hypnos
Fri Jan 28 11:39:50 CST 2005

create a list of IP's and put in a txt file called IP.txt in the same
directory as the script

This should work for you...

Const ForReading = 1
Set objWMIService = GetObject("winmgmts:")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set f = objFSO.OpenTextFile(".\IP.txt", ForReading, 0)
Do While f.AtEndOfStream <> True
IP = f.Readline
Set objNewPort = objWMIService.Get _
("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name = "IP_" & IP
objNewPort.Protocol = 1
objNewPort.HostAddress = IP
objNewPort.PortNumber = "9100"
objNewPort.SNMPEnabled = False
objNewPort.Put_
Loop
f.close

Top