Set the default local printer LPT1 using script

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
    - Programmatically change NICs Link Speed and Duplex If someone could get me started in the right direction on this one I would greatly appreciate it. I want to have a script running from a scheduled task that will change the link speed of machines it is run on: Basically the scheduled task runs at 8am in the morning and changes the machine link speed to 10Mb Full, then at 8pm at night the task runs with a different set of variables and changes the link speed up to 100Mb Full (or 1Gb Full)... I realize this could very since it is a rather hardware specific setting and I am guessing it would be different from Intel to Netgear. Any help is appreciated. Joe Tag: Set the default local printer LPT1 using script Tag: 164120
  - 2
    - VBScript to do FTP I have some problems finding an easy way to do FTP in VBScript so I put this script together to do what I needed. I initially thought it would be a hassle but it turn out pretty managable. Here is a strip down version of the script with comments for anyone who'd like to try it out. Basically your just creating a FTPCommands file the is used with a ftp -s: switch. You may need to reformat this thing before using it, the Google post isn't wide enough I think. Here it is... '****Script to FTP using VBScript (With Comments) '****By Matthew Ososky '****Happy FTP'n! '****THESE ARE YOUR VARIABLES TO SET DirectoryRoot = "C:\Scripts" 'PATH OF THE FOLDER YOUR RUNNING THIS SCRIPT IN LogsDir = "C:\Logs" 'PATH OF THE FILE YOU WANT TO TRANSFER FTPFile = "server.log" 'FILE TO FTP FTPSERVER = "ftp.iris.state.wy.us" 'YOUR FTP SERVER's NAME OR ADDRESS set objFSO = CreateObject("Scripting.FileSystemObject") '****CHECK TO SEE IF YOUR TARGET FILE EXISTS '****IF YES GET INTO THE FTP EXECUTION '****IF NOT, LOG IT AND END SCRIPT if objFSO.FileExists(LogsDir & "\" & FTPFile ) then '***GET A HANDLE ON YOUR TARGET FILE '***COPY TARGET FILE TO THE DIRECTORYROOT Set LogFile = objFSO.GetFile(LogsDir & "\" & FTPFile) LogFile.copy DirectoryRoot & "\" & FTPFile , true '****NOW CREATE OR RECREATE THE FTPCOMMANDS.TXT FILE '****THIS FILE DETERMINES HOW FTP WILL EXECUTE if CheckFTPCommands = TRUE then DeleteFTPCommands() CreateFTPCommands() else CreateFTPCommands() end if '****NOW WRITE THE COMMANDS TO HANDLE FTP WRITELINE("anonymous") 'LOG IN WRITELINE("ls") 'RETRIVE DIRECTORY (YOU NEED TOO) WRITELINE("cd Logs") 'CHANGE TO THE DIRECTORY YOU WANT 'WRITELINE("cd Server1Logs) 'AS MANY TIMES AS YOU NEED WRITELINE("put " & FTPFile) 'ONCE IN THE RIGHT DIR. PUT YOUR FILE IN WRITELINE("Quit") 'THEN GET OUT '****OK, NOW YOU NEED TO EXECUTE THE FTP SHELL COMMAND THAT DOES ALL THIS Set WshShell = CreateObject("WScript.Shell") '****HERE'S THE SYNTAX STRING; '****THE -s: flag calls our FTPCommands.txt file '****Which is located at ~ DirectoryRoot & "\FTPCommands.txt '****AFTER THAT YOU ENTER THE FTP SITE'S NAME OR ADDRESS FTPString = "FTP -s:" & DirectoryRoot & "\FTPCommands.txt " & FTPSERVER '****EXECUTE THE SHELL COMMAND '****LOG THE OPERATION '****WAIT 2 SECONDS (you need to) THEN DELETE THE COPY OF THE FILE YOU PUT IN DIRECTORYROOT Set oExec = WshShell.Exec(FTPString) LogStart 4, "The Server Log has finished FTP Transfer " & time() wscript.sleep 2000 DeleteFTPFile(FTPFILE) '****YOUR ALL DONE '****YOU CAN CHANGE THE SCRIPT TO DO ANOTHER FILE, '****OR EVEN GET FILES AND DO STUFF WITH THEM else LogStart 4, "Your target file does not exist." & time() end if '****These are the Subroutines '****LOGSTART MAKES LOGS ENTRIES IN THE WINDOWS EVENT LOG (APPLICATION under "WHS" - Windows script Host) Sub LogStart (strEventType, strMessage) Set objShell = CreateObject("Wscript.Shell") objShell.LogEvent cint(intEventType), strMessage Err.Clear Exit Sub End sub Sub CreateFTPCommands() set objFSO = CreateObject("Scripting.FileSystemObject") Set FTPCommands = objFSO.CreateTextFile(DirectoryRoot & "\FTPCommands.txt") End Sub Function CheckFTPCommands() set objFSO = CreateObject("Scripting.FileSystemObject") CheckFTPCommands = objFSO.FileExists(DirectoryRoot & "\FTPCommands.txt") End Function Sub DeleteFTPCommands() set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile(DirectoryRoot & "\FTPCommands.txt") End Sub Sub WRITELINE(strLINE) set objFSO = CreateObject("Scripting.FileSystemObject") set FTPCommands = objFSO.OpenTextFile(DirectoryRoot & "\FTPCommands.txt",8,true) FTPCommands.writeline strLINE End Sub Sub DeleteFTPFile(FILENAME1) set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile(DirectoryRoot & "\" & FILENAME1) End Sub Tag: Set the default local printer LPT1 using script Tag: 164117
  - 3
    - ASP Page as a remote function call in JavaScript Hello, I've been playing with the idea of just how to use an ASP page to provide a remote function call. In an ideal world this would be a web service but how can you do it if restricted to ASP 3.0 ? Idea 1 was to write an ASP page that accepted arguments using the classic ?X=1&Y=2 type of strings and have the page return an ADO disconnected record set containing the results of the action. This is call very well, and works, but you do have to allow the browser to create an ADODB.RecordSet in which to place the results which goes against some security principles. Idea 2 was to use an <IFRAME> and replace the src for this frame at run time with the result from an ASP page, again using the ?X=1&Y=2 type of string to pass in arguments. The results could then come back as a table and be accessed via the DOM. The problem with this is that the client needs to wait for the page to be loaded before it can be sure that the contents of the table is valid and the browser does not seem to allow waits and does not like busy waits. Idea 3 - I'm still looking for this ! Does anyone have any ? Many thanks Martin Tag: Set the default local printer LPT1 using script Tag: 164111
  - 4
    - Is it possible to restart a service so all the dependancies get restarted as Is it possible to restart a service so all the dependancies get restarted as well rather than stop and start one. The problem is the Cim agents and snmp. I can't send a stop and start command via script since cim agents depend on it. Jason Tag: Set the default local printer LPT1 using script Tag: 164110
  - 5
    - Someone know Why WMI actions d'ont work in to a IE form? Firts sorry for my bad English (I'm Spanish) and sincerly thanks for read this. My problem is the next; this vbscript code work fine directly from a .vbs file in Win2k Sp4 and VBS 5.6: Dim objWMIService, objProcess, colProcessList, proceso proceso = "notepad.exe" Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\tsystems1\root\cimv2" ) Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'notepad.exe'") For Each objProcess in colProcessList objProcess.Terminate() Next msgbox "Proceso Parado" But if it is integrated in to a IE form: <html><head><title>Listando Procesos</title> <SCRIPT LANGUAGE="VBScript"> Sub x1692 Dim objWMIService, objProcess, colProcessList, proceso proceso = "notepad.exe" Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\equipo\root\cimv2") Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'notepad.exe'") For Each objProcess in colProcessList objProcess.Terminate() Next msgbox "Proceso Parado" End Sub <tr><td width='20%'>notepad.exe</td><td width='10%'>1692</td><td width='50%'>C:\WINNT\system32\notepad.exe</td> <td width='20%'><FORM name="frmone"><INPUT TYPE="BUTTON" value="Parar" NAME="x1692" onclick="x1692"></FORM></td></tr> </table></body> </html> D'ont show errors and no msgs appears and I stay sure that the code is ok. My questions are; Have win2k any security patch that make impossible execute this code in IE form? Anyone know how will do for execute it whitout this problem? Tag: Set the default local printer LPT1 using script Tag: 164106
  - 6
    - Basic script help please created a script to delete files ie) *.jpg files in folder and log entrys, but must be missing something as it doesnt log anything and doesnt delete anything anymore. It had it deleting at one stage, but must have changed something and not sure what. Any ideas clever people? Path1 = "C:\Documents and Settings\REMOTEINSTALL\My Documents\My Pictures\QuickCam\Album\Motion Images\Security Videos" Dim objFSO 'File System Object - connection to file system Dim oFolder 'holds path to image folder Dim oFile 'variable for each file in folder Dim logfile 'holds path to the log file Dim objFile 'used by OpenTextFile command to allow writing to file Const ForWriting = 2 Const ForAppending = 8 logfile = "C:\Delete Files Script\log.txt" Set objFSO = Createobject("Scripting.FileSystemObject") Set oFolder = objFSO.GetFolder(Path1) For Each oFile In oFolder.Files If DateDiff("d", oFile.DateCreated,Now) > 14 Then oFile.Delete wscript.Echo "this file was deleted " & oFile.Name If objFSO.FileExists(logfile) Then Set objFile = objFSO.OpenTextFile(logfile, ForAppending) objFile.Write oFile.Name Else Set objFile = objFSO.OpenTextFile(logfile, ForWriting) objFile.Write oFile.Name objFile.Close 'WScript.Echo "file " & oFile.Name 'objFile.WriteLine oFile.Name & Now 'Now command writes data/time 'objFile.Close 'WScript.Echo "Log file ammended" End If End If Next Tag: Set the default local printer LPT1 using script Tag: 164103
  - 7
    - Remove proxy addresses from AD Hi I am trying to remove some mail aliase from my users account i AD, here are the script set oOu = getobject("LDAP://ou=test,ou=people,dc=test,dc=local") oOu.filter = array("user") for each oUser in oOu for each adr in oUser.proxyAddresses if instr(adr,"test.no") then oUser.putex 1, proxyAddresses, array(adr) oUser.setinfo end if next next msgbox "Finish" The line oUser.setinfo genrates the error "A constraint violation has occoured" Any suggestions ?? Tag: Set the default local printer LPT1 using script Tag: 164102
  - 8
    - Service Pack version Can anyone tell me if you can get the SP versions by scripting. I need the SP versions for office? Tag: Set the default local printer LPT1 using script Tag: 164100
  - 9
    - How to Block the Inherit permisson on new created folder by script I have to create a lot of folder by the script.However,I also want to clear the "Allow inherit permission from parent to propagate to this object" for each new created folder automatically.Therefore,i would like to know how to do this in the script.Thanks! Tag: Set the default local printer LPT1 using script Tag: 164095
  - 10
    - Vbscript for database manipulation Hi all, Here is what I am trying to do, hope someone can help me implement this. Every hour, I would like a script that does the following (in vbscript cause that's the only one I am even remotely comfortable with) 1- Extract from a secure database 4 query result tables and copy them into a new unsecure database 2- Connect to the internet 3- Send the new unsecure database to our servers online 4- Close the internet connection I think I have figured out how to do step number 3 through an ftp -s: script and ftp command .txt file. My problem is really step 1, so far, I have only been able to create a new blank database, with the structures of the 4 tables receiving the query results built. I am stuck here, I can't even transfer the query results to the database, and I haven't even started looking at how to unsecure the new database, and/or tables. Does anyone know of any efficient, quick way of doing, the above? I think I can manage with steps 2 and 4, Step 1 is really my problem here. I have so far the following code. ----BEGINNING OF CODE '********************************************************************************************** '********************************************************************************************** '********************************************************************************************** ' DECLARE VARIABLES '********************************************************************************************** '********************************************************************************************** '********************************************************************************************** Dim appAccess, appAccess2, filesys, filedelete, db Dim t1, t2, t3, t4, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, i1, i2, i3, i4 Const DB_TEXT = 10 Const DB_LONG = 4 Const DB_DATE = 8 Const DB_DOUBLE = 7 Const AcFormatXLS = "Microsoft Excel (*.xls)" Const AcOutputTable = 0 Const AcOutputQuery = 1 Const et1 = "FastTrackOperation" Const OldPath = "D:\Main\Design\FlashTest\Bck-Jun-10-04.mdb" Const InterPath = "D:\db2.xls" Const NewPath = "D:\db2.mdb" '********************************************************************************************** '********************************************************************************************** '********************************************************************************************** ' DELETE DB2.MDB IF PRESENT '********************************************************************************************** '********************************************************************************************** '********************************************************************************************** Set filesys = CreateObject("Scripting.FileSystemObject") If filesys.FileExists(NewPath) Then Set filedelete = filesys.GetFile(NewPath) filedelete.Delete Set filedelete = Nothing End If Set filesys = Nothing '********************************************************************************************** '********************************************************************************************** '********************************************************************************************** ' CREATE BRAND NEW DATABASE '********************************************************************************************** '********************************************************************************************** '********************************************************************************************** Set appAccess = CreateObject("Access.Application.10") appAccess.NewCurrentDatabase NewPath Set db = appAccess.CurrentDb '********************************************************************************************** '********************************************************************************************** ' CREATE TABLE 1 '********************************************************************************************** '********************************************************************************************** Set t1 = db.CreateTableDef("t1") Set f1 = t1.CreateField("f1", DB_LONG, 40) f1.Required = -1 t1.Fields.Append f1 Set f2 = t1.CreateField("f2", DB_LONG, 40) f2.Required = -1 t1.Fields.Append f2 Set f3 = t1.CreateField("f3", DB_TEXT, 40) f3.Required = -1 t1.Fields.Append f3 Set f4 = t1.CreateField("f4", DB_TEXT, 40) f4.Required = -1 t1.Fields.Append f4 Set f5 = t1.CreateField("f5", DB_DATE, 40) f5.Required = -1 t1.Fields.Append f5 Set f6 = t1.CreateField("f6", DB_TEXT, 40) f6.Required = -1 t1.Fields.Append f6 Set f7 = t1.CreateField("f7", DB_DATE, 40) t1.Fields.Append f7 Set f8 = t1.CreateField("f8", DB_TEXT, 40) t1.Fields.Append f8 Set f9 = t1.CreateField("f9", DB_TEXT, 40) t1.Fields.Append f9 Set i1 = t1.CreateIndex("i1") Set f1 = i1.CreateField("f1", DB_LONG, 40) i1.Fields.Append f1 i1.Primary = -1 i1.Unique = -1 t1.Indexes.Append i1 Set i2 = t1.CreateIndex("i2") Set f2 = i2.CreateField("f2", DB_LONG, 40) i2.Fields.Append f2 i2.Primary = 0 i2.Unique = 0 t1.Indexes.Append i2 db.TableDefs.Append t1 '********************************************************************************************** '********************************************************************************************** ' CREATE TABLE 2 '********************************************************************************************** '********************************************************************************************** Set t2 = db.CreateTableDef("t2") Set f1 = t2.CreateField("f1", DB_LONG, 40) f1.Required = -1 t2.Fields.Append f1 Set f2 = t2.CreateField("f2", DB_TEXT, 40) f2.Required = -1 t2.Fields.Append f2 Set f3 = t2.CreateField("f3", DB_LONG, 40) f3.Required = -1 t2.Fields.Append f3 Set f4 = t2.CreateField("f4", DB_TEXT, 40) f4.Required = -1 t2.Fields.Append f4 Set f5 = t2.CreateField("f5", DB_TEXT, 40) t2.Fields.Append f5 Set f6 = t2.CreateField("f6", DB_LONG, 40) t2.Fields.Append f6 Set f7 = t2.CreateField("f7", DB_LONG, 40) t2.Fields.Append f7 Set f8 = t2.CreateField("f8", DB_LONG, 40) f8.Required = -1 t2.Fields.Append f8 Set i1 = t2.CreateIndex("i1") Set f1 = i1.CreateField("f1", DB_LONG, 40) i1.Fields.Append f1 i1.Primary = 0 i1.Unique = 0 t2.Indexes.Append i1 Set i2 = t2.CreateIndex("i2") Set f2 = i2.CreateField("f2", DB_TEXT, 40) i2.Fields.Append f2 i2.Primary = 0 i2.Unique = 0 t2.Indexes.Append i2 Set i3 = t2.CreateIndex("i3") Set f8 = i3.CreateField("f8", DB_LONG, 40) i3.Fields.Append f8 i3.Primary = -1 i3.Unique = -1 t2.Indexes.Append i3 db.TableDefs.Append t2 '********************************************************************************************** '********************************************************************************************** ' CREATE TABLE 3 '********************************************************************************************** '********************************************************************************************** Set t3 = db.CreateTableDef("t3") Set f1 = t3.CreateField("f1", DB_LONG, 40) f1.Required = -1 t3.Fields.Append f1 Set f2 = t3.CreateField("f2", DB_DATE, 40) f2.Required = -1 t3.Fields.Append f2 Set f3 = t3.CreateField("f3", DB_DATE, 40) f3.Required = -1 t3.Fields.Append f3 Set f4 = t3.CreateField("f4", DB_LONG, 40) t3.Fields.Append f4 Set f5 = t3.CreateField("f5", DB_TEXT, 40) f5.Required = -1 t3.Fields.Append f5 Set f6 = t3.CreateField("f6", DB_TEXT, 40) t3.Fields.Append f6 Set f7 = t3.CreateField("f7", DB_TEXT, 40) t3.Fields.Append f7 Set i1 = t3.CreateIndex("i1") Set f1 = i1.CreateField("f1", DB_LONG, 40) i1.Fields.Append f1 Set f2 = i1.CreateField("f2", DB_DATE, 40) i1.Fields.Append f2 Set f3 = i1.CreateField("f3", DB_DATE, 40) i1.Fields.Append f3 i1.Primary = -1 i1.Unique = -1 t3.Indexes.Append i1 Set i2 = t3.CreateIndex("i2") Set f5 = i2.CreateField("f5", DB_TEXT, 40) i2.Fields.Append f5 i2.Primary = 0 i2.Unique = 0 t3.Indexes.Append i2 db.TableDefs.Append t3 '********************************************************************************************** '********************************************************************************************** ' CREATE TABLE 4 '********************************************************************************************** '********************************************************************************************** Set t4 = db.CreateTableDef("t4") Set f1 = t4.CreateField("f1", DB_LONG, 40) t4.Fields.Append f1 Set f2 = t4.CreateField("f2", DB_TEXT, 40) t4.Fields.Append f2 Set f3 = t4.CreateField("f3", DB_DATE, 40) t4.Fields.Append f3 Set f4 = t4.CreateField("f4", DB_DOUBLE, 40) t4.Fields.Append f4 Set f5 = t4.CreateField("f5", DB_DOUBLE, 40) t4.Fields.Append f5 Set f6 = t4.CreateField("f6", DB_DOUBLE, 40) t4.Fields.Append f6 Set f7 = t4.CreateField("f7", DB_DOUBLE, 40) t4.Fields.Append f7 Set f8 = t4.CreateField("f8", DB_DOUBLE, 40) t4.Fields.Append f8 Set f9 = t4.CreateField("f9", DB_DOUBLE, 40) t4.Fields.Append f9 Set f10 = t4.CreateField("f10", DB_LONG, 40) t4.Fields.Append f10 Set f11 = t4.CreateField("f11", DB_LONG, 40) t4.Fields.Append f11 Set f12 = t4.CreateField("f12", DB_DOUBLE, 40) t4.Fields.Append f12 Set f13 = t4.CreateField("f13", DB_DOUBLE, 40) t4.Fields.Append f13 Set f14 = t4.CreateField("f14", DB_TEXT, 40) t4.Fields.Append f14 db.TableDefs.Append t4 '********************************************************************************************** '********************************************************************************************** '********************************************************************************************** ' EXPORT ACCESS QUERIES TO EXCEL '********************************************************************************************** '********************************************************************************************** '********************************************************************************************** Set appAccess = Nothing Set db = Nothing Set appAccess2 = CreateObject("Access.Application.10") appAccess2.OpenCurrentDatabase OldPath 'appAccess2.DoCmd.OutputTo acOutputTable, et1, acFormatXLS, InterPath 'appAccess2.DoCmd.TransferDatabase acExport, "Microsoft Access", NewPath, AcOutputTable, et1, "[Test1]", False appAccess2.DoCmd.CopyObject NewPath, , AcTable, et1 'NOTHING SEEMS TO WORK HERE _ GET VARIOUS ERRORS ACCROSS ALL THREE TECHNIQUES appAccess2.CloseCurrentDatabase appAccess2.Quit Set appAccess2 = Nothing '********************************************************************************************** '********************************************************************************************** '********************************************************************************************** ' CLEAR ALL OBJECTS '********************************************************************************************** '********************************************************************************************** '********************************************************************************************** Set t1 = Nothing Set t2 = Nothing Set t3 = Nothing Set t4 = Nothing Set f1 = Nothing Set f2 = Nothing Set f3 = Nothing Set f4 = Nothing Set f5 = Nothing Set f6 = Nothing Set f7 = Nothing Set f8 = Nothing Set f9 = Nothing Set f10 = Nothing Set f11 = Nothing Set f12 = Nothing Set f13 = Nothing Set f14 = Nothing Set i1 = Nothing Set i2 = Nothing Set i3 = Nothing Set i4 = Nothing Set appAccess2 = Nothing Set appAccess = Nothing Set db = Nothing Tag: Set the default local printer LPT1 using script Tag: 164094
  - 11
    - DHCPOBJS.DLL I've been trying to use DHCPOBJS.DLL to populate a DHCP database however it doesn't seem to have an option to set the value for the Supported Types - defaults to "Both", i need "DHCP only". Is there any way of setting this option from within vbscript (Using DHCPOBJS or another API) or do I need to revert to a command script using Netsh? Thanks in advance :) -- Tez Tag: Set the default local printer LPT1 using script Tag: 164093
  - 12
    - vbs script to create vpc and differencing disks I have a need to automate the creation of many new Virtual PCs and their differencing disks. Ideally I would like the user to select one of 4 parent drives and have all other vpc properties populated. OS: Windows XP SP1 Virtual PC 2004 Does anyone have any insight into this dilema? Tag: Set the default local printer LPT1 using script Tag: 164090
  - 13
    - Laptop Power Configurations Hi The power options for laptops in our organization has been set so that the Advanced option "When I close the lid of my portable computer" is set to "Hibernate". We need to change this to "Do Nothing". Is it possible to midify these Power settings programatically using VBSCripts, WMI or even VB6 ? Any help is appreciated. Thanks Tag: Set the default local printer LPT1 using script Tag: 164087
  - 14
    - Add a local printer I have a need to check if the local printer HP LaserJet 4 is already installed on the local machine and quit if it is. If not the printer should be installed on the local machine. I am fairly new to scripting and got this example from another posting from Torgeir and have been trying to modify it to work for me. I seem to be having a syntax issue in the WshShell.run statement, but I am unsure how to correct the issue. Set oPrnSet = GetObject( _ "winmgmts:{impersonationLevel=impersonate}!//localhost") _ .ExecQuery("select Name from Win32_Printer") Set WshShell = WScript.CreateObject ("WScript.Shell") For Each oPrn in oPrnSet If Lcase(oPrn.Name) = LCase("HP LaserJet 4") Then Wscript.Quit Else WshShell.run rundll32 printui.dll,PrintUIEntry /q /if /b "HP LaserJet 4" /f %windir%\inf\ntprint.inf /r "lpt2:" /m "HP LaserJet 4" End If Next If anyone could provide an explanation of what I'm doing wrong it will be appreciated!!! Joel Tag: Set the default local printer LPT1 using script Tag: 164083
  - 15
    - ACCESS and ASP Working on dynamically deleting a database entry. Below is the code I'm running into an error with. There is a column in the database by the name of "email". Is it possible for the ASP code to define an ACCESS column as a Form? <% ' Declaring variables Dim email, con, data_source, sql_delete email = Request.Form("email") sql_delete = "delete email from users where email = '" & email & "'" data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = " & _ Server.MapPath("mail.mdb") Set con = Server.CreateObject("ADODB.Connection") con.Open data_source con.Execute sql_delete con.Close Set con = Nothing Response.Write "Your email address " & email & _ " was successfully deleted from our database." %> Tag: Set the default local printer LPT1 using script Tag: 164081
  - 16
    - Adding MIME types via script to IIS I am trying to update MIME types in an IIS virtual directory via code. It is not adding any new type to the system. Any ideas? Is there a way to check if the MIME types exists before attempting to add it? CALL SetRequiredIISMimeTypes '============================================ Sub SetRequiredIISMimeTypes const strMIME_TYPE_EXT_1 = ".abc" const strMIME_TYPE_DATA_1 = "text/plain" const strMIME_TYPE_EXT_2= ".efg" const strMIME_TYPE_DATA_2 = "application/octet-stream" 'Call procedure to set MIME types. AddTypeToIIS strMIME_TYPE_EXT_1, strMIME_TYPE_DATA_1 AddTypeToIIS strMIME_TYPE_EXT_2, strMIME_TYPE_DATA_2 End Sub Sub AddTypeToIIS(strExtension, strMimeType) Dim objMimeMap Dim objMimeMapList Dim lngMimeMapListCount Const ADS_PROPERTY_UPDATE = 2 ' Specify the location in the IIS metabase for the 'MimeMap' node. ' Note: 'MimeMapObj' acts a 'container' object for the 'objMimeMapList' object. Set objMimeMap = GetObject("IIS://localhost/W3SVC") ' Use GetEx to retrieve an array of 'MimeMap' objects. objMimeMapList = objMimeMap.GetEx("MimeMap") ' Create a new 'MimeMap' item in the array. lngMimeMapListCount = UBound(objMimeMapList) + 1 ReDim Preserve objMimeMapList(lngMimeMapListCount) Set objMimeMapList(lngMimeMapListCount) = CreateObject("MimeMap") ' Create our new 'MimeType' objMimeMapList(lngMimeMapListCount).Extension = strExtension objMimeMapList(lngMimeMapListCount).MimeType = strMimeType ' Use PutEx to UPDATE the MimeMap array with our new array. objMimeMap.PutEx ADS_PROPERTY_UPDATE, "MimeMap", objMimeMapList objMimeMap.SetInfo End Sub Any help would be appreciated! -- Primetime {Coding to the break of dawn} Tag: Set the default local printer LPT1 using script Tag: 164080
  - 17
    - Change rights on C and D drives to read only Where can I go to look up information on how to change the rights one user has on his C and D drives. I want to change the rights to read only so the user can't delete anything. I have looked in my VBScript Programmer's Reference, Microsoft Windows 2000 Scripting Guide, and Microsoft Windows Scripting Self-Paced Learning Guide. Thanks, Jeff Tag: Set the default local printer LPT1 using script Tag: 164079
  - 18
    - Data field format problem I am having a strange problem with ASP. Whenever I build an SQL query using a text field with text in it, I get and error "[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.". The underlying table uses a text field, and I have tried cStr thru various methods in the ASP page to no avail. AS long as numbers only are entered, it works. I am comparing data to a session variable. Can anyone help? Here is the initial code for one of the datasets. Set rsCEMData = Server.CreateObject("ADODB.Recordset") rsCEMData.ActiveConnection = MM_connApp_STRING rsCEMData.Source = "SELECT * FROM tblCustResults WHERE fldSampNum = " + Replace(rsCEMData__MMColParam, "''", "''''") + " AND fldCN = " + Replace(rsCEMData__MMColParam2, "''", "''''") + " AND fldSerial = " + Replace (cStr(rsCEMData__MMColParam3), "''", "''''") + "" rsCEMData.CursorType = 0 rsCEMData.CursorLocation = 2 rsCEMData.LockType = 1 rsCEMData.Open() Here is how I set the variables: Dim rsCEMData2__MMColParam3 rsCEMData2__MMColParam3 = "1" If (Session("VarSerial") <> "") Then rsCEMData2__MMColParam3 = Cstr(Session("VarSerial")) Any help is greatly appreciated!! ----------------------------- This message is posted by http://asp.forumszone.com Tag: Set the default local printer LPT1 using script Tag: 164070
  - 19
    - Enumerating ALL windows? I've got Microsoft Outlook, Internet Explorer, Mozilla Firefox, and a couple of open console windows on my desktop. I run the following code: set oShApp = CreateObject("Shell.Application") wscript.echo "starting..." for each oWin in oShApp.windows set oDoc = oWin.document wscript.echo oDoc.title next wscript.echo "done." It returns only the Internet Explorer window title. How should I modify it to return the titles of all the windows? Thanks in advance to all who respond. Leslie Tag: Set the default local printer LPT1 using script Tag: 164069
  - 20
    - Getting Text and Value From Option/Select In VBScript how would someone get the text value from a pulldown select/option list in HTML? If you look at the following html, I would like to get the text of whatever is selected. "One" instead of "1". How would I go about doing that in VBScript? <form name="myform"> <select name="selectname"> <option value="1">One</option> <option value="2">Two</option> </select> thanks for any help in advance, Geoff Tag: Set the default local printer LPT1 using script Tag: 164065
  - 21
    - script to create account I have a script that creates a local account on a server and puts the user in the Users group. I need it to also check the following boxes: User cannot change password and Password never expires. Here is what I have: 'Create gssrdp local user account strComputer = "MyComputer" Set colAccounts = GetObject("WinNT://" & strComputer & ",computer") Set objUser = colAccounts.Create("user", "gssrdp") objUser.SetPassword "password" objUser.SetInfo 'Add gssrdp user to the local Users group strComputer = "MyComputer" Set objGroup = GetObject("WinNT://" & strComputer & "/Users,group") Set objUser = GetObject("WinNT://" & strComputer & "/gssrdp,user") objGroup.Add(objUser.ADsPath) Any thoughts? Thanks, Jeff Tag: Set the default local printer LPT1 using script Tag: 164063
  - 22
    - Grabbing a certain file from a networked machine Hi I have some roving colleagues with laptops who are supposed to be making backups of certain files (mostly PST) when they check back to the office. But they don't. Is there any reliable VBS way to grab a file from a laptop once the machine is hooked back onto the lan ? All these machine have a certaine name beginning with "PORT" PORT-HARRY PORT-JENNY etc I imagine it would be feasible to have a script that would run - say -every two hours on a server that would check to see if a "PORT-xxx" machine had reconnected and then scan its entire C: disk looking for PST files? Then copy them somewhere safe on the server? Could anyone please give me some ideas on how to do that ? TIA Mosalie Rignon Tag: Set the default local printer LPT1 using script Tag: 164062
  - 23
    - Print file to windows queue I'm looking for a way to programmatically (vbscript) to send data to a windows print queue (no user interface). The request to me was to have a web form that the user can fill out and then the web application would take this form data and send it to a print queue. I've googled several times and couldn't really find anything specific (probably just wrong keywords). Any help would be greatly appreciated. BBB Tag: Set the default local printer LPT1 using script Tag: 164061
  - 24
    - Install network OR Local printer - script I learned how to use cnprt2.exe to install a network printer as default utilising the LOCATION=Suite variable. How do I take one step further to say if LOCATION is not suite OR if location=classx then connect to local printer EpsonC84 on LPT1 Server is 2k3 w/s are XP Pro SP2 Thanks Tag: Set the default local printer LPT1 using script Tag: 164060
  - 25
    - Search Domain I would like to search a network domain for workstations then check each work station found for the installation of a particular program and if found ad a short cut to the all users startup. Is VBscript (or VB6) a logical way to do this? Where would I look to for information to start such a script? Thanks Martin Tag: Set the default local printer LPT1 using script Tag: 164059
- Next
  - 1
    - Possible to get DFS information through WMI on Windows 2000? Windows 2003 has the "Win32_DfsNode" class, and a couple of others - is there a way when using a Windows 2000 environment to get information about DFS shares? In particular, how to determine which physical server is being connected to when a DFS share is in use? ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: Set the default local printer LPT1 using script Tag: 164057
  - 2
    - WMI query to get disk I/O and process creating files Is there a class in WMI to monitor when disk activity happens and then what process is creating the I/O to the disk? We have a server that when a file is created it is causing the drives to spin at full capacity and we cannot stop it without rebooting. We think we know what it is, but cannot be sure. So we want to monitor the disk activity and see what is causing the drives to spin at full capacity. TIA Tag: Set the default local printer LPT1 using script Tag: 164055
  - 3
    - Removing Temp Files I regularly have to remove spyware/adware from different client PCs. Some of these PCs have multiple users. The first thing I do is boot into safe mode and remove all temp files, temp internet files, and cookies out of each users profile and delete the temp files out of the windows\temp folder. I was looking for a way to automate this process. Disk Cleanup does not remove all instances of these file. Does anyone know of a script or batch file that will clear out all file in the directories mentioned above? I also install 3 programs with regularity; SpyBot, Ad-Aware, and Spyware Blaster. If I could utilize a script or batch file to install all three at the same time that would be great. I understand that this may sound lazy. However, I do this with such regularity, with different clients at different locations. I am just looking for something to help automate the process. Thank you all in advance for your advice. I greatly appreciate it! Michael D. Alligood Tag: Set the default local printer LPT1 using script Tag: 164050
  - 4
    - How to determine the supported interfaces of an ADSI object Is there any way (using VBScript) to determine the supported interfaces of a random ADSI object ? Best regards Johnny Nielsen Tag: Set the default local printer LPT1 using script Tag: 164049
  - 5
    - Question about query sql server database I have a SQL Server possiblely with a database installed on it. I want to test if the database is installed and query for a table if it is installed. How do I do it with VBScript code? Any sample code? Tag: Set the default local printer LPT1 using script Tag: 164048
  - 6
    - Registry Changes I have been tasked to write a script to manually update several local security policy entries in a large list of computers but without the use of group policy! All reserach I have done indicates the Administrative Templates section is registry addressable and is easy enough to script updates to, but not the Security Settings or Windows Settings sections, as they write to the Registry's protected area in HKLM\Security. Does anyone have any suggestions? Without calling secedit and template files, I've found no other alternatives. Thanks, Jack Tag: Set the default local printer LPT1 using script Tag: 164047
  - 7
    - Printer driver unknown error on Script I have a win2003 server, and a bunch of XP Pro machines logging into it. I have written a script to map the shared printer durring login, but I get the following error upon execution: Script: \\server\netlogon\script.vbs Line: 3 Char: 1 Error: The printer driver is unknown Code: 80070705 Source: (null) The script is written as follows: Set WshNetwork = CreateObject("WScript.Network") PrinterPath = "\\server\share" wshNetwork.AddWindowsPrinterConnection PrinterPath wshNetwork.SetDefaultPrinter "\\server\share" It is my understanding that anything after Win 2000 or NT, that the driver does not need to be pre-loaded on the PC running the script, according to this article http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/wsmthaddwindowsprinterconnection.asp Tag: Set the default local printer LPT1 using script Tag: 164046
  - 8
    - OnKeyDown Event - Unicode Ok, the OnKeyDown event handler allows me to cancel a key down event if the pressed key is not allowed. I understand that the value in window.event.keyCode is the Unicode value of the key pressed and not the keyCode of the character? So...if I want to write client-side (SIMPLE!!) script to not allow specified values, but allow other values (such as a formatted phone number) and auto-format the number entered (such as automatically enter the dashes and parens) ... how would YOU go about doing it? I've done it several times...but right now, I'm checking just about every value possibly that can be entered....isn't there a better way? (I have to make sure the user can delete, insert, et cetera...and paste too...but all data has to be validated and formatted prior to accepting the keystroke...) Any help would be appreciated... thanks Mythran Tag: Set the default local printer LPT1 using script Tag: 164041
  - 9
    - Script to populate a profilePath to ALL Users in an OU i need some advise in modifying the below script-example so that i can use it to give ALL my users in an OU a profilePath because i don't want to add the profilePath to each of 800 users manually :-( The profilePath should be something like \\server\profiles\%USERNAME% The example creates the profilePath for only one user, but i need to create them on the fly for all. Any help is much appreciated !! regards Thomas Set objUser = GetObject _ ("LDAP://cn=Myerken,ou=Management,dc=NA,dc=fabrikam,dc=com") objUser.Put "profilePath", "\\sea-dc-01\Profiles\myerken" objUser.SetInfo Tag: Set the default local printer LPT1 using script Tag: 164035
  - 10
    - Prevent Keystrokes Is the any scripts that could prevent any keystrokes for a period of time? Thank you in advance. Tag: Set the default local printer LPT1 using script Tag: 164029
  - 11
    - VBScript to change smtp mail address Hello, I need to change the smtp mail address in exchange properties of AD objectfor lots of distribution groups. Can anyone guide me to a ADSI/VBSbscript to get to those properties Thx, Didier Tag: Set the default local printer LPT1 using script Tag: 164026
  - 12
    - creating local printer port.. Hello everybody, Can somebody help me getting a vbscript that creates a "Local Printer Port" ? So far I could get information only on "TCP/IP printer port" but my requirement is creating a "Local Printer Port". Thank you, Vinod. Tag: Set the default local printer LPT1 using script Tag: 164025
  - 13
    - CSV Header Row is incomplete Help! I'm trying to help out another post in this newsgroup. I don't understand why the following does not display each field in the header row. Only "Customer" is displayed along with all of the data columns. Watch for word-wrap. << test.csv >> Material, Customer, month 10000,19ABC, 122004 << test.vbs >> Option Explicit '* Const cVBS = "test.vbs" Const cCSV = "test.csv" Const cDIR = "C:\Temp\" Const cDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=?;Extended Properties=""text;HDR=NO;FMT=Delimited""" '* Const adOpenStatic = 3 Const adLockOptimistic = 3 Const adCmdText = &H0001 '* Dim intRST intRST = 0 Dim strRST '* Dim objADO Set objADO = CreateObject("ADODB.Connection") objADO.Open Replace(cDSN,"?",cDIR) Dim objRST Set objRST = CreateObject("ADODB.Recordset") objRST.Open "SELECT * FROM " & cCSV, objADO, adOpenStatic, adLockOptimistic, adCmdText '* Do Until objRST.EOF WScript.Echo "#" & objRST.Fields.Count For Each strRST in objRST.Fields WScript.Echo "*" & strRST Next objRST.MoveNext Loop '* Set objRST = Nothing Set objADO = Nothing However, it will work if I change the CSV to: << test.csv >> 0,1,2 10000,19ABC, 122004 The above is based on: Much ADO About Text Files http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnclinic/ht ml/scripting03092004.asp Thanks in advance. Tag: Set the default local printer LPT1 using script Tag: 164024
  - 14
    - How to import a arbitrary CSV file into SQL Server or Oracle from command line I have a CSV file with the first row in the CSV file to be the column headers. The file is as follows: Material, Customer, month,qty, sales 10000,19ABC, 122004, 90.5, 10000 20000,20ABC, 122004, 80.5, 12000 30000,21ABC, 122004, 70.5, 14000 40000,22ABC, 122004, 60.5, 16000 50000,23ABC, 122004, 50.5, 18000 I want to import this file from DOS command prompt command line into SQL Server or Oracle table. I am aware of tools like Bulk Insert in SQL Server or sqlloader in Oracle to import these files into the database but I want something simple to run from a command line given the database, table name, server name,etc can import this file by a make table into a Oracle or SQL Server table. Also, if possible I want to set a command line option to insert into the target table if existing rather than creating it. Can somebody please share a ADO VBscript that given the DSN can import a CSV file with column headers into a SQL or Oracle database. Thanks Karen Tag: Set the default local printer LPT1 using script Tag: 164021
  - 15
    - How can I write some text? Hi, Is it possible to write some text at the bottom of what is already on the page so I can flash a message for example. If I use document.write it wipes the whole page and starts again at the top. Dave Tag: Set the default local printer LPT1 using script Tag: 164018
  - 16
    - add Printer at logon Hi, I'm trying to add printer at logon on clients with win98 and win2003 sbs server. I install on the server, the drivers for win98. I've found a lot of script but doesn't works well. Someone could help me? This is what I have found on the VBS documentation: AddWindowsPrinterConnection Method Adds a Windows-based printer connection to your computer system. Windows NT/2000: object.AddWindowsPrinterConnection( strPrinterPath ) Windows 9x/Me: object.AddWindowsPrinterConnection( strPrinterPath, strDriverName[,strPort] ) Arguments object WshNetwork object. strPrinterPath String value indicating the path to the printer connection. strDriverName String value indicating the name of the driver (ignored if used on Windows NT/Windows 2000). strPort Optional. String value specifying a printer port for the printer connection (ignored on Windows NT/Windows 2000). Remarks Using this method is similar to using the Printer option on Control Panel to add a printer connection. Unlike the AddPrinterConnection method, this method allows you to create a printer connection without directing it to a specific port, such as LPT1. If the connection fails, an error is thrown. In Windows 9x/Me, the printer driver must already be installed on the machine for the AddWindowsPrinterConnection method to work. If the driver is not installed, Windows returns an error message. Example 1 The following code uses the AddWindowsPrinterConnection method to connect a network printer to a Windows NT/2000 computer system. [VBScript] Set WshNetwork = WScript.CreateObject("WScript.Network") PrinterPath = "\\printserv\DefaultPrinter" WshNetwork.AddWindowsPrinterConnection PrinterPath Example 2 The following code uses the AddWindowsPrinterConnection method to connect a network printer to a Windows 9x/Me computer system. [VBScript] Set WshNetwork = WScript.CreateObject("WScript.Network") PrinterPath = "\\printserv\DefaultPrinter" PrinterDriver = "Lexmark Optra S 1650" WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver I have tryed this but it doesn't works on my 98 clients. Help pls. Thank you Tag: Set the default local printer LPT1 using script Tag: 164017
  - 17
    - Sending messages with a complex body format I need to create a message with a quite complex body format (in term of fonts, pictures, signatures, logos and so on) and sent it using Outlook Automation. The samples I found look like the following: .Body = "This is the body of the message." &vbCrLf & vbCrLf A possible solution could be creating a message, saving it and then using Outlook Automation to send a copy just adding the recipient. Where can I find documentation and/or samples about sending messages with a complex format? Regards Mario Tag: Set the default local printer LPT1 using script Tag: 164016
  - 18
    - ADSI Scripting Question A generic ADSI scripting question. How do you retrieve information about or manipulate an object in Active Directory if you don't want to specify the LDAP path in the script. For example; take a list of users in a text file, they could be located in many different OUs and then move the accounts to a newly created OU. Thanks in advance for any assistance. Tag: Set the default local printer LPT1 using script Tag: 164015
  - 19
    - Modifying Local Policy - User Rights Policy with VBScript Hi there, I've been searching forever, and can't figure out how to edit a local policy with VBScript. I dont think using a command line tool is an option, unless it is included with XP Pro. Basically, I've created a user, assigned it to a service, but cannot figure out how to grant the user "Log in as a service" policy membership. I hope someone can help, I'm losing my mind. Darren Tag: Set the default local printer LPT1 using script Tag: 164014
  - 20
    - Need install vbs script I have not used VB scripting before and hope to get some help from the experts out there. We need to create a .vbs file that will accomplish the following: 1) Get the path to the Windows system directory (SYSTEMROOT). 2) Call the .NET installutil.exe utility from within the appropriate folderin SYSTEMROOT to register a service we wish to install. This is a command line utility. So in our case, we would need to do something like: "C:\WINNT\Microsoft.NET\Framework\v1.1.4322 \installutil.exe myprogram.exe" 3) Same as #2 above but for the regasm.exe utility. Thanks in advance for any assistance you can provide. Tag: Set the default local printer LPT1 using script Tag: 164009
  - 21
    - Question about vbscript and actual calls to GetIdsOfnames and Invoke on IDispatch Hi, Not sure if this is the correct forum to post in but here goes. I have what I see as a problem. I have created my own COM interface, call it IMyInterface for this discussion, in which I do my own implementation of IDispatch and do not rely on ATL for this. I also use the vbscript as the engine for my own implementation if IActiveScriptSite. I was under the impression that when using late binding for vbscript that IDispatch::GetIdsOfNames is called only once for a particular function( Is this correct? ). Ex function svcentry Dim fso Set fso = CreateObject("MyLib.MyInterface.1") for i = 0 to 10 fso.Sleep(100) next end function I would have expected that my interface would only be asked for id of Sleep once. This is not the case. GetIdsOfNames is called for EACH iteration of the loop. Is this the way that Vbscript always behaves or do I need to specify something for the engine so that it will store the DISPIDs of the items that it uses somewhere? It seems taht the more objects that I have as members of my interface the slower it will run in vbscript: Ex fso.memA.memB.memC = 9 would have to make about 4 calls to getidsofnames just to execute this one line, and if this line is repeated over and over say in a loop the speed hit could be fairly bad. If anyone can enlighten me I'd appreciate it. Or if this is not the correct forum than can someone point me to that as well. Thanky ou for your time. -Mac Dyer Tag: Set the default local printer LPT1 using script Tag: 164008
  - 22
    - Transactional MSMQ I need to create a transactional msmq using vb script. The queue is created but not as a transactional one. Can anyone help? On Error Resume Next Dim Queue Set Queue = CreateObject("MSMQ.MSMQQueueInfo") Queue.PathName = ".\private$\MyQ" Queue.Create IsTransactional = True queue.label="MyQLabel" Thank you Tag: Set the default local printer LPT1 using script Tag: 164000
  - 23
    - Using VBscript on Exchange 2003 server Hello, My goal is to run VBscripts on specific public folders on an exchange 2003 server. For example, when a message is inserted into a public folder named 'DivArchive' a vbscript would execute. That script would change certain things and resend the message. How do you assign a VBscript to run on a Exhange server following different events? Thanks, Nick Tag: Set the default local printer LPT1 using script Tag: 163997
  - 24
    - use text file for strComputer in VBS script I am trying to scan my network using this script listed below to scan a list of servers from a text file. I can scan a single computer just fine but unable to get this to pull from a list of servers from a text file. Any help would be greatly appreciated. 'On Error Resume Next directive is specified so that users 'are not bothered by potential operational errors with the script. 'On Error Resume Next 'Using both of these flags of the WbemFlagEnum enumeration 'makes a semisynchronous WMI call. See "Making a Semisynchronous Call" 'in the WMI SDK for more information. Const wbemFlagReturnImmediately = 16 Const wbemFlagForwardOnly = 32 'WbemCimtypeEnum Enumerations used in the script Const wbemCimtypeUint32 = 19 Const wbemCimtypeSint64 = 20 Const wbemCimtypeUint64 = 21 'Formatting and number conversion constants Const HR = "----" Const KB = 1024 Const MB = 1048576 Const GB = 1073741824 'Change this to the UNC path where inventory files should be created 'Anyone running this script must have read and write access to the 'path. strInvFilePath = "E:\hw\" 'If each user will run this inventory file locally, do not change the value 'of strComputer. strComputer = "." 'Connect to WMI Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 'Determine the OS because not all classes listed here are supported 'on all versions of the Windows operating systems strProperties = "CreationClassName,Version,CSName,Caption" Set objOS = objWMIService.ExecQuery _ ("SELECT " & strProperties & " FROM Win32_OperatingSystem",_ ,wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each Setting in objOS strCreationClass = Setting.CreationClassName intVersion = Setting.Version strCSName = Setting.CSName strCaption = Setting.Caption Next 'Check for a file named after the computer. If it doesn't 'exist, then create a file that contains the computer's 'hardware inventory. Set objFSO = CreateObject("Scripting.FileSystemObject") strFileName = "HrdWrInv_" & strCSName & ".txt" strFullName = objFSO.BuildPath(strInvFilePath, strFileName) If (objFSO.FileExists(strFullName)) Then WScript.Quit Set objFile = objFSO.CreateTextFile(strFullName) 'Write the Operating System name and version but nothing more. 'The goal is to collect hardware inventory, not software inventory 'and configuration information. objFile.WriteLine("OSInformation:") objFile.WriteLine("CreationClassName: " & strCreationClass) objFile.WriteLine("ComputerName: " & strCSName) objFile.WriteLine("Caption: " & strCaption) objFile.WriteLine("Version: " & intVersion) 'The name property is automatically returned (because it's a key value), so 'it's not absolutely necessary to specify it in strProperties strProperties = _ "CreationClassName,Manufacturer,Model,Name,NumberofProcessors," & _ "SystemType,TotalPhysicalMemory" QueryInstances "Win32_ComputerSystem",strProperties,"None" 'Page file information. strProperties = _ "Name,MaximumSize" QueryInstances "Win32_PageFileSetting",strProperties,"None" 'Physical memory information. 'Note, total memory is aggregated and listed with win32_computersystem so there's 'no need to query the memory classes, such as Win32_PhysicalMemoryArray or 'Win32_PhysicalMemory. However, if you need to find out how much memory 'a computer will hold, it's useful to query Win32_PhysicalMemoryArray as 'shown strProperties = _ "MaxCapacity,CreationClassName" QueryInstances "Win32_PhysicalMemoryArray",strProperties,"None" 'SCSI Disk controller information strProperties = _ "Name,Manufacturer,Description,CreationClassName" QueryInstances "Win32_SCSIController",strProperties,"None" 'IDE Disk controller information strProperties = _ "Name,Manufacturer,Description,CreationClassName" QueryInstances "Win32_IDEController",strProperties,"None" 'Phyiscal Media information 'Note, this class is only in XP (ver5) and the Windows 'Server 2003 family (ver5). 'Win98SE reports a version number of 4 (4.10.2222) If Mid(intVersion,1,3) >= 5.1 Then strProperties = _ "SerialNumber,CreationClassName" QueryInstances "Win32_PhysicalMedia",strProperties,"None" End If 'Logical Disk information strProperties = _ "DriveType,Description,DeviceID,CreationClassName" QueryInstances "Win32_LogicalDisk",strProperties,_ "DriveType!=3 AND DriveType !=4" 'Disk drive information strProperties = _ "Caption,Description,DeviceID,InterfaceType," & _ "Manufacturer,MediaType,Model,Partitions,Size,CreationClassName" QueryInstances "Win32_DiskDrive",strProperties,"None" 'Processor information strProperties = _ "Manufacturer,MaxClockSpeed,ExtClock,ProcessorType," & _ "Revision,Version,CreationClassName" QueryInstances "Win32_Processor",strProperties,"None" 'NIC information strProperties = _ "Manufacturer,MACAddress,ProductName,AdapterType,CreationClassName" QueryInstances "Win32_NetworkAdapter",strProperties,_ "AdapterType='Ethernet 802.3' AND ProductName !='Packet Scheduler Miniport'" 'Monitor information strProperties = _ "Description,MonitorType,CreationClassName" QueryInstances "Win32_DesktopMonitor",strProperties,"None" 'Video adapter information strProperties = _ "Name,MaxRefreshRate,AdapterRAM,CreationClassName" QueryInstances "Win32_VideoController",strProperties,"None" 'Motherboard information strProperties = _ "Description,Manufacturer,Product,CreationClassName" QueryInstances "Win32_BaseBoard",strProperties,"None" 'BIOS information strProperties = _ "Manufacturer, Name,SoftwareElementID,SMBIOSBIOSVersion," & _ "SMBIOSMajorVersion,SMBIOSMinorVersion,Version" QueryInstances "Win32_BIOS",strProperties,"None" objFile.Close '*****Subroutines and Functions********* Sub QueryInstances(objClass,Properties,Conditions) If Conditions = "None" Then strSelect = "Select " & Properties & " From " & objClass Else strSelect = "Select " & Properties & " From " & objClass & _ " Where " & Conditions End If Set objClassName = _ objWMIService.ExecQuery _ (strSelect,,wbemFlagReturnImmediately + wbemFlagForwardOnly) intCounter = 0 ' Can use the following to determine the # of items in the sWbemObjectSet but ' it's processor intensive and it means that you can't use a semi-synchronous ' call because the count property doesn't work with wbemFlagForwardOnly. ' WScript.Echo "# of items in collection: " & objClassName.Count For Each objComponent in objClassName If intCounter = 0 Then objFile.WriteLine(HR) objFile.WriteLine(Mid(objClass,7) & ":") End If For Each objProperty in objComponent.Properties_ 'Start by verifying that there's a value in the property. 'If not, it isn't necessary to perform the evaluation in this loop. If ISNull(objProperty.Value) Then objFile.WriteLine(objProperty.Name & ": Not available") Else If objProperty.CIMType <> wbemCimtypeUint32 And _ objProperty.CIMType <> wbemCimtypeUint64 And _ objProperty.CIMType <> wbemCimtypeSint64 Then objFile.WriteLine(objProperty.Name & ": " & _ objProperty.Value & " " & _ GetUnits(objClass,objProperty.Name)) Else strUnits = GetUnits(objClass,objProperty.Name) intValue = _ SizeFormat(objProperty.Name,objProperty.Value,strUnits) objFile.WriteLine(objProperty.Name & ": " & intValue) End If End If intCounter = intCounter + 1 Next If intCounter > 1 Then objFile.WriteLine(HR) Next objFile.WriteLine(HR) objFile.WriteLine() End Sub Function GetUnits(ClassName,ClassProperty) Set objSchemaClass = objWMIService.Get(ClassName) For Each objClassProperty in objSchemaClass.Properties_ If objClassProperty.Name = ClassProperty Then For Each objQualifier in objClassProperty.Qualifiers_ If LCase(objQualifier.Name) = "units" Then GetUnits = LCase(objQualifier.Value) End If Next End If Next End Function Function SizeFormat(PropertyName,RawValue,Units) Select Case LCase(Units) Case "bytes" If int(RawValue/GB) >= 1 Then SizeFormat = Round((RawValue/GB),1) & " gigabyte(s)" ElseIf int(RawValue/MB) >= 1 Then SizeFormat = int(RawValue/MB) & " megabyte(s)" Else SizeFormat = RawValue & " byte(s)" End If Case "kilobytes" If int(RawValue/MB) >= 1 Then SizeFormat = Round((RawValue/MB),1) & " gigabyte(s)" ElseIf int(RawValue/KB) >= 1 Then SizeFormat = int(RawValue/1024) & " megabyte(s)" Else SizeFormat = RawValue & " kilobyte(s)" End If Case Else SizeFormat = RawValue & " " & Units End Select End Function Tag: Set the default local printer LPT1 using script Tag: 163996
  - 25
    - Could not complete cursor operation because the table schema changed after the cursor was declared Hi, My stored procedure was working fine but when i made added 2 fields to my table and then made subsequent changes to my sp it give me the following error: "Could not complete cursor operation because the table schema changed after the cursor was declared" it works fine from back end (query analyser) but when i execute from my dot net code it give the above error. does anyone help please ? Tag: Set the default local printer LPT1 using script Tag: 163993

Hi,

I'm very new with scripting and I have a very small network and I'm trying
to get spesific machines to default to LPT1 printer. Is this something I
could do with scripts or changing the win.ini? What should be the command to
use?

Thanks in advance.

Top

RE: Set the default local printer LPT1 using script by Matt

Matt
Sat Oct 09 05:23:01 CDT 2004

Is that a network (shared) printer or a local printer
Do you have a server if so what Op sys??
Regards Mat

"Al" wrote:

> Hi,
>
> I'm very new with scripting and I have a very small network and I'm trying
> to get spesific machines to default to LPT1 printer. Is this something I
> could do with scripts or changing the win.ini? What should be the command to
> use?
>
> Thanks in advance.

Top

RE: Set the default local printer LPT1 using script by Al

Al
Mon Oct 11 08:35:05 CDT 2004

Hi Matt,

It's a local receipt printer on LPT1. This machine runs on Win XP Pro

"Matt" wrote:

> Is that a network (shared) printer or a local printer
> Do you have a server if so what Op sys??
> Regards Mat
>
> "Al" wrote:
>
> > Hi,
> >
> > I'm very new with scripting and I have a very small network and I'm trying
> > to get spesific machines to default to LPT1 printer. Is this something I
> > could do with scripts or changing the win.ini? What should be the command to
> > use?
> >
> > Thanks in advance.

Top

RE: Set the default local printer LPT1 using script by Matt

Matt
Mon Oct 11 09:57:04 CDT 2004

If you don't have a server + Domain so you are not logging on are you ?
Then its obvious - just install the printer on the XP machine and when it
asks you to set as defualt -say yes!
If this is not the case let me know all the details.
all the best
Matt

"Al" wrote:

> Hi Matt,
>
> It's a local receipt printer on LPT1. This machine runs on Win XP Pro
>
> "Matt" wrote:
>
> > Is that a network (shared) printer or a local printer
> > Do you have a server if so what Op sys??
> > Regards Mat
> >
> > "Al" wrote:
> >
> > > Hi,
> > >
> > > I'm very new with scripting and I have a very small network and I'm trying
> > > to get spesific machines to default to LPT1 printer. Is this something I
> > > could do with scripts or changing the win.ini? What should be the command to
> > > use?
> > >
> > > Thanks in advance.

Top