sending test to printer

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - getting client IP address ....... is it possible to get the IP address of a client via VBS and check it against an IP range such as the following IP pool 172.16.172.0/255.255.252.0 that is from 172.16.172.1 to 172.16.175.254 Whats the best way to do such a check........... Thanks Momo Tag: sending test to printer Tag: 182976
  - 2
    - Update Access Database I'm encountering problem when I want to update records in the Access database. I tried to output the SQL statement in the scteen and able to show the entire statement correctly on the screen. However, when I tried to execute the SQL statement, the statement does not show on the screen and the transaction does not take place: <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Reminder Report</title> </head> <body> <br> <% Dim strDBPath, SCONNECTION, dbConnection Dim strApproval, rsApproval, strRejection, rsRejection Dim intCounter, Leaveid, intTotal, strAccept, strReject strDBPath = "C:\inetpub\wwwroot\teknion\db" SCONNECTION="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "\Leaves.mdb;Persist Security Info=False; Jet OLEDB:System Database=" & strDBPATH & "\Secured.mdw;user id=dbadmin;" SET dbConnection = CreateObject("ADODB.Connection") SET rsApproval = CreateObject("ADODB.Recordset") SET rsRejection = CreateObject("ADODB.Recordset") dbConnection.open SCONNECTION intTotal = Request.Form("Counter") Response.Write intTotal For intCounter = 1 to intTotal Leaveid = Request.Form("Leaveid" & intCounter) Response.Write "The leaveid is " & Leaveid strAccept = UCase(Request.Form("Accept" & intCounter)) strReject = Ucase(Request.Form("Reject" & intCounter)) Response.Write strAccept 'Response.Write strReject If strAccept = "ON" Then strApproval = "UPDATE leave SET status='Approved' WHERE leaveid = '" & leaveid & "'" dbConnection.Execute strApproval End If If strReject = "ON" then Response.Write "Rejected" End If Response.Write "<br>" Next %> </body> </html> I hope you experts can give me some tips/hints on how to resolve this issue. Many thanks in advance. Tag: sending test to printer Tag: 182974
  - 3
    - Show me your... Logon Script Hey guys, I have been constantly working and reworking my logon script for my enterprise network here and I am always looking for better ways of doing things. Currently drives are mapped and files copied using security groups and thats where it gets tricky. How do you cycle through all the groups the user is in without slowing down the script? So I was wondering what you guys do? Could you post a snipet of your logon script code? Currently I make an string of the groups the user is in by doing this: For Each GroupObj In UserObj.Groups UserGroups=UserGroups & "[" & UCASE(GroupObj.Name) & "]" Next Then I have a case statment with lots of these: If InGroup("Stuff") Then mapdrive "U:", "\\server\share" End If And that uses this function: Function InGroup(strGroup) InGroup=False If InStr(UserGroups,"[" & strGroup & "]") Then InGroup=True End If End Function Problem is... the list of groups is getting pretty big and each user needs to step through each case statment. And I am thinking it would be more efficient if it would only run the parts that were required? So back to my question. Does anyone have some cool code I can nab off them? Thanks, Euan Tag: sending test to printer Tag: 182969
  - 4
    - Help with remote script Can anyone tell me why the below script works using the local computer name, but will not work using a remote computer name ? Thanks in advance, Mark. strComputer = "mark" folder = "c:\documents and settings" dim folder_array(20) dim folder_array_2(20) i = -1 Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colSubfolders = objWMIService.ExecQuery ("Associators of {Win32_Directory.Name='" & folder & "'} Where AssocClass = Win32_Subdirectory ResultRole = PartComponent") For Each objFolder in colSubfolders folder = split(objFolder.Name,"\",-1,1) moz_folder = "\\" & strComputer & "\c$\documents and settings" & "\" & folder(2) & "\application data\mozilla\firefox\profiles" Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(moz_folder) Then i = i + 1 folder_array(i) = objFolder.Name & "\application data\mozilla\firefox\profiles" folder_array_2(i) = moz_folder end if Next For i = 0 to UBound(folder_array) Set colSubfolders2 = objWMIService.ExecQuery ("Associators of {Win32_Directory.Name='" & folder_array(i) & "'} Where AssocClass = Win32_Subdirectory ResultRole = PartComponent") For Each objFolder2 in colSubfolders2 split_folder = split(objFolder2.Name,"\",-1,1) wscript.echo "Returned (local) directory" wscript.echo objFolder2.Name wscript.echo "--------------------------" moz_folder_2 = folder_array_2(i) & "\" & split_folder(7) & "\extensions\Extensions.rdf" wscript.echo "Calculated remote filename" wscript.echo moz_folder_2 wscript.echo "--------------------------" Set objTextFile = objFSO.OpenTextFile(moz_folder_2, 1) Do Until objTextFile.AtEndOfStream input_string = objTextFile.ReadLine MyPos = Instr(1, input_string, "<RDF:Description") if MyPos > 0 then Do Until objTextFile.AtEndOfStream input_string2 = objTextFile.ReadLine MyPos2 = Instr(1, input_string2, "</RDF:Description>") if MyPos2 > 0 then exit do MyArray = Split(input_string2, chr(34), -1, 1) if Instr(1, MyArray(0), "em:version=") then version = MyArray(1) if Instr(1, MyArray(0), "em:name=") then name = MyArray(1) if Instr(1, MyArray(0), "em:description=") then description = MyArray(1) if Instr(1, MyArray(0), "em:creator=") then creator = MyArray(1) if Instr(1, MyArray(0), "em:homepageURL=") then homepage = MyArray(1) Loop wscript.echo "--------------------" wscript.echo "Name: Mozilla Firefox Extension - " & name wscript.echo "Version: " & version wscript.echo "Description: " & description wscript.echo "Creator: " & creator wscript.echo "Homepage: " & homepage name = "" version = "" description = "" creator = "" homepage = "" end if Loop Next Next Tag: sending test to printer Tag: 182968
  - 5
    - Help Me Fix Script Months ago I used the following vbs script to extract all the ID3 tags from a directory and put them in a tab delimited file. The file could then be opened in a spreadsheet. I lost the script but was able to locate a version on the internet that may not be complete. I don't even remember how to use it. Can someone look at the script, tell me if it is complete and how do I use it? I find reference to the output file but I'm not sure how to associate it with the directory. BTW: as you can see I am not a VBS programmer. Set objShell = CreateObject("Shell.Application") Set Ag=Wscript.Arguments Set Fldr=objShell.NameSpace(Ag(0)) Set FldrItems=Fldr.Items Set fso = CreateObject("Scripting.FileSystemObject") FName="c:\documents and settings\Dennis Marks\my documents\Directory List.txt" Set ts = fso.OpenTextFile(FName, 2, vbtrue) For x = 0 to 50 t1 = t1 & Fldr.GetDetailsOf(vbnull, x) & vbtab Next ts.write FLDR.self.path & vbcrlf ts.Write T1 & vbcrlf T1="" For Each FldrItem in FldrItems For x = 0 to 50 t1 = t1 & Fldr.GetDetailsOf(FldrItem, x) & vbtab Next t1=t1 & vbcrlf ts.Write T1 T1="" Next msgbox FName & " has a tab delimited list of all properties" -- Dennis ----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeeds.com The #1 Newsgroup Service in the World! 120,000+ Newsgroups ----= East and West-Coast Server Farms - Total Privacy via Encryption =---- Tag: sending test to printer Tag: 182966
  - 6
    - Adding double quote in string Dear Experts, How do I add a double-quote (") into my string as follow instead of using a single quote? Old: strBodyText = "<HTML><BODY>" & "<FORM Name='frmReminderReport' METHOD='POST' action='\teknion\leave_system\ReminderReport.asp'><TABLE Border=1><TR><TD>Supervisor</TD><TD>" & rsDistinctSupervisor("Supervisor") & "</TD></TR>" New: strBodyText = "<HTML><BODY>" & "<FORM Name="frmReminderReport" METHOD="POST" action="\teknion\leave_system\ReminderReport.asp"><TABLE Border=1><TR><TD>Supervisor</TD><TD>" & rsDistinctSupervisor("Supervisor") & "</TD></TR>" Many thanks in advance. Tag: sending test to printer Tag: 182965
  - 7
    - message box and blocking keyboard input..... I'm trying to test something with VBS Is it possible to have a message box show during the execution of the script.... what I mean is during the scripts execution process I have a box that just says something like "please wait while script executes" I don't need to have any buttons but just the box show during the scripts execution..... is there a way to do this............. Secondly can I block keyboard input using VBS ........ does such a command exist....... Thanks Momo Tag: sending test to printer Tag: 182959
  - 8
    - Controlling Internet Explorer Where do I find what methods and properties of internet explorer are available for use in vbscript within html pages? Ken Tag: sending test to printer Tag: 182958
  - 9
    - object in a sub [object missing?] Can I not create an object in one sub and access it from another? sub housekeeping set rs=server.createobject("adodb.recordset") end sub sub printStatistics rs.open "select max(date) from syslog.mxdb",conn end sub Microsoft VBScript runtime error '800a01a8' Object required: 'rs' /mx/new.asp, line 68 Tag: sending test to printer Tag: 182945
  - 10
    - Forcing a .doc in a link to save as Is it possible to prevent a user from opening a .doc with an IE link and instead forcing the .doc to be saved as? I have looked into manipulating the right-click menu but I can't be removing valid menu options. Is there a way to create my own right-click menu and only provide a "Save as" option and call it on the click or right-click of the link?? I've also tried playing with open/save dialogs but have not been able to get it to work. I've tried opening the .doc in a new window and doing a javascript "saveas" but IE only saves the .doc object and not the page contents. Can anyone give me any ideas? Thanks for your help. Marley Tag: sending test to printer Tag: 182943
  - 11
    - Need Example of Session Variables I have been using a 53 page Web Site for 4 years. All of a sudden four pages lose the Passwords. People have suggested using a session Variable to hold the two passwords. I have tried this for 6 days without success. Does anyone know how to store a password in a session variable for reference on all my pages. Any Help Will Be Appreciated. Bill Tag: sending test to printer Tag: 182941
  - 12
    - Enable/Disable NIC with a script I need to be able to Enable or disable one of the network adaptors in a server on the fly as part of a failover senario. any Ideas? Thanks, Sherpa Tag: sending test to printer Tag: 182934
  - 13
    - Passing Passwords Between Pages I need to pass my students password between pages for the student to take their Federal Test. PageA the student enters his Password <Input Type="Text" Name="PssWrd"> The student then goes to Page B PageB  <Input Type="Hidden" Name="APssWrd" Value="<%=Request("PssWrd")%> Above Statement PassWord comes in fine. <Map Name="District ElPaso" <! District 835 -> <Area Shape="Polygon" Coords="364, 117, 363, 130" Href="Page835.asp?DistCd=WI835"> <! District 777 -> <Area Shape="Polygon" Coords="119, 68, 111, 111" Href="Page777.asp?DistCd=WH777"> <! District 654 -> <Area Shape="Polygon" Coords="267, 58, 261, 79" Href="Page653.asp?DistCd=WD653"> <! District 569 -> <Area Shape="Polygon" Coords="82, 16, 37, 9" Href="Page569.asp?DistCd=WA569"> </Map> When I go to any of the four pages on the Map, the password will not come with any of those four pages. The pages come up fine, but no password. Does anyone know how to do this. This is the first Time I have ever called a page based on where the student selects from a map. Does anyone know what I need to do? Thanks in advance Granny Tag: sending test to printer Tag: 182933
  - 14
    - Script to copy text to clipboard Hello Two questions: 1. I need a simple script to copy a defined text that is set within the script to the clipboard. 2. What is the best book or source to begin learning vbs. Is there a perferred book? Needs to start at the beginning and be a simple as possible for starters. Thanks in advance. Tag: sending test to printer Tag: 182932
  - 15
    - ODBC SCRIPT As I can build an ODBC by means of a VBS script? Tag: sending test to printer Tag: 182931
  - 16
    - Session Variables Running Windows Server 2003 IIS 6.0 Session Variables are not passing from page to page Hitting refresh causes new Session ID Help!!!!! Thanks, hallgirl -- Thanks Much! hallgirl Tag: sending test to printer Tag: 182924
  - 17
    - Script Question Hi All, I need to run a command called moveuser (replaces the local profile with the profile of a new user) using script which is distributed via SMS 2003. The script needs to be run under the security context of a domain admin. I tried runas but it didn't work. I believe the problem is that the script runs under security context of Local System account which is not sufficient for me. The following is the example of runas which did not work. SMS 2003 reports the the script result as success. No error messages are reported. Is there anyone who would suggest some other way with an example or tell me where I'm going wrong? Regards, Yaman Dim WshShell Set WshShell = WScript.CreateObject ("WSCript.shell") WshShell.run "runas /user:newdomain\administrator " & """" & "moveuser olddomain\olduser newdomain\newuser" & """" WScript.Sleep 100 WshShell.SendKeys "P@ssw0rd~" WScript.Sleep 100 WshShell.SendKeys "~" Tag: sending test to printer Tag: 182921
  - 18
    - Logon Script I dont know much about scripting, and Im in somewhat of a crunch for this. I need to know how to collect a terminal services/citrix client IP address and match it to a network# from a list to determine what printers to map for that user. The problem is that I need this script to work even if there isnt a terminal service/citrix client ip. In that case it would need to use the system IP that the user is logged onto. The goal of this script is to allow users to roam around from site to site and login to any system, but have the correct printers mapped for that location. Before mapping the printers though it would need to remove any current mapped ones as well. Thank you. Tag: sending test to printer Tag: 182911
  - 19
    - Running VBScript in Scheduler without logging in I have a simple VBScript that calls up MS Access, runs a macro to retrieve data from an ODBC database, and then calls up MS Excel, and runs a macro to format the retrieved data. This script, as listed below, runs fine if I start it manually. It also works fine if I schedule it to run every night but with my Windows session logged on. If I leave the machine on, but without logging on, the VBScript will start but never end. I think it fails to start MS Access. I do not have Admin priviledge on the computer which is running Win XP Pro. Is this a security related issue? How can workaround this other than trying to gain Admin pivilege for my user account? -- Teddy ********* Script starts below ************ Shared_Folder = "C:\RMM\Reports" ' Create Log File if it doesn't already exist LogFilePath = Shared_FOlder & "\Mid-Week LogFile.txt" Set oFSO = CreateObject("Scripting.FileSystemObject") SET oLogFile = oFSO.CreateTextFile(LogFilePath, True) oLogFile.WriteLine(LogLine) oLogFile.WriteLine("Log File Initially Created : " &Date &" - " &Time) oLogFile.WriteLine(LogLine) Dim ObjAccess Dim ObjExcel ' ' Open Access DB and run Mid_Week_Reports ' oLogFile.WriteLine("MS Access Started: " &Date &" - " &Time) Set ObjAccess = CreateObject("ACCESS.APPLICATION") ' ObjAccess.Visible = FALSE ObjAccess.OpenCurrentDatabase ("c:\RMM\REPORTS\RMM Data Analysis (AUTO).mdb") ObjAccess.Run ("RUN_Mid_week") ObjAccess.Quit Set ObjAccess = Nothing oLogFile.WriteLine("MS Access Finished: " &Date &" - " &Time) ' ' Open Excel to update all traffic reports ' oLogFile.WriteLine("MS Excel Started: " &Date &" - " &Time) Set ObjExcel = CreateObject("EXCEL.APPLICATION") ' ObjExcel.DisplayAlerts=TRUE ' ObjExcel.Visible=TRUE ObjExcel.Run ("'C:\RMM\REPORTS\Update All Reports.xls'!Update_Traffic_Reports") ObjExcel.Quit Set ObjExcel = Nothing oLogFile.WriteLine("MS Excel Finished: " &Date &" - " &Time) Tag: sending test to printer Tag: 182908
  - 20
    - Sample Dictionary Script(Newbie) Can someone tell me this sample script out of the Microsoft Press book by Ed Wilson won't run properly? When I run it is displays every file in the folder, the same number of times that there are files in the folder.... IE...if there are nine files in the folder it shows all nine files nine times with a different file size for each one. Any help would be appreciated. Thanks: '=================================================================== ' ' VBScript Source File -- Created with SAPIEN Technologies PrimalSCRIPT(TM) ' ' NAME: <filename> ' ' AUTHOR: ed wilson , mred ' DATE : 9/21/2003 ' ' COMMENT: <comment> ' '=================================================================== Option Explicit Dim objDictionary Dim objFSO Dim objFolder Dim colFiles Dim objFile Dim colItems Dim colKeys Dim strKey Dim strItem Set objDictionary = CreateObject("scripting.dictionary") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("C:\scriptingBook") Set colFiles = objFolder.Files For Each objFile In colFiles objDictionary.Add objFile.Name, objFile.Size Next colItems = objDictionary.Items colKeys = objDictionary.Keys For Each strKey In colKeys For Each strItem In colItems WScript.Echo "filename: " & strKey & " size: " & strItem Next Next WScript.Echo "***there are " & objDictionary.Count & " files" Tag: sending test to printer Tag: 182905
  - 21
    - Search a text file and replace text vbscript I need some help and I still don't know the best way to accomplish this. I need to search a license file that is a regualr asci text file c:\gadgets\test.lic file and replace a line in the c:\gadgets\test.lic and save it. What is the easiest way to accomplish this? And do I save it out to a .vbs extenion? The line I need to search for is: SERVER="chicago" IPADDRESS="192.168.1. 5" The Line I need to replace with is: SERVER="corporate" IPADDRESS="192.168.1.45" Thanks for anyone who reads this and/or helps me out. -C Tag: sending test to printer Tag: 182904
  - 22
    - Filename with date modified appended to filename need to find a way to change filenames that relect the filename and the date modified. I have found numerous ways to get the current date and time appended to the filename but nothing with date modified. I have users that need to have this in the filename and I am in search of some help in this matter. Example is a file named test.txt with a date modified 1/31/2005. I would like the filename to be test (1/31/2005).txt. Thanks in advance ... Tag: sending test to printer Tag: 182903
  - 23
    - Regexp Matching... Hi! On Unix regular expressions work with brackets. So, when I have a regexp "X([0-9]*)V([0-9]*)Z" the string "X15V27Z" gives me two matches, one for each number. Is there any way to get this in VBScript regular expressions too? Lots of Greetings! Volker Tag: sending test to printer Tag: 182898
  - 24
    - Need help spelling out NULL vs. equal to nothing Hi All, Over the past year or so, I've gotten further in to some of the specifics of VBScript/ASP scripting and I'm having a difficult time getting a definite answer in regards to searching for an empty or un-occupied string or number. If anyone is interested in helping, I've listed some of the examples that I need clarification/correction on: 1) If the value is alphanumeric (VARCHAR), will the following work best? strValue <> "" Or strValue = "" 2) If it is numeric/integer/bit (int, bigint, numeric, etc.), or any other number-only format, is isNull the correct comparrison? Not IsNull(intValue) Or IsNull(intValue) 3) For the following example, if 'COL1' were part of a recordset that returned values from other columns, but it itself had no value, would it still be returned as NULL or as ""? Dim intNumber intNumber = 0 If Not IsNull(sp.parameters.item("@COL1").value) Then intNumber = sp.parameters.item("@COL1").value End If If you assign a numeric value as response.cookies("number") or as session("number") or as a variable="number", then will it maintain it's original datatype, or does it become string? If it becomes string, does all conversion have to occur when reading that session variable/cookie, or is there an alternative? Anyway, I appreciate the help of anyone wishing to respond. Thanks, Curt Morrison c u r t m o r r i s o n @ y a h o o . c o m Tag: sending test to printer Tag: 182894
  - 25
    - How to deploy a ActiveX Dll to client PCs over the internet One of my web page uses a ActiveX control a ActiveX DLL. The user PCs do not have this ActiveX DLL how can I distribute this DLL over the internet/intranet from the web page. Please kindly share the code to deploy this ActiveX control to the client PCs into a ASP page. If only a .OCX can be deployed how can I convert a Active X dll to a .OCX I do not have the source code for the Active X dll just the DLL. Thanks Karen Tag: sending test to printer Tag: 182893
- Next
  - 1
    - Set ACE on OU The statement below in a vbscript is used to give user da_messerjg Full Control to an OU in AD - It applies onto 'This object and all child objects'. I'm trying to find out what AceFlag(s) I need to set to make it apply onto 'Child objects only'. At the bottom of this post are all of my constants - I'm not sure if I need to put multiple constants on my AceFlags line or how to do so. Any ideas? Josh Messerschmitt objAce.Trustee = "DOMAIN\da_messerjg" objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT objAce.ObjectType = SCHEMAIDGUID_OU objAce.AccessMask = ADS_RIGHT_FULL_CONTROL objDACL.AddAce objAce 'AccessMask Const ADS_RIGHT_DS_CREATE_CHILD = &H1 Const ADS_RIGHT_DS_DELETE_CHILD = &H2 Const ADS_RIGHT_ACTRL_DS_LIST = &H4 Const ADS_RIGHT_DS_SELF = &H8 Const ADS_RIGHT_DS_READ_PROP = &H10 Const ADS_RIGHT_DS_WRITE_PROP = &H20 Const ADS_RIGHT_DS_DELETE_TREE = &H40 Const ADS_RIGHT_DS_LIST_OBJECT = &H80 Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100 Const ADS_RIGHT_DELETE = &H10000 Const ADS_RIGHT_READ_CONTROL = &H20000 Const ADS_RIGHT_WRITE_DAC = &H40000 Const ADS_RIGHT_WRITE_OWNER = &H80000 Const ADS_RIGHT_SYNCHRONIZE = &H100000 Const ADS_RIGHT_ACCESS_SYSTEM_SECURITY = &H1000000 Const ADS_RIGHT_GENERIC_ALL = &H10000000 Const ADS_RIGHT_GENERIC_EXECUTE = &H20000000 Const ADS_RIGHT_GENERIC_WRITE = &H40000000 Const ADS_RIGHT_GENERIC_READ = &H80000000 Const ADS_RIGHT_FULL_CONTROL = &HF01FF 'ACE flags Const ADS_ACEFLAG_INHERIT_ACE = &H2 Const ADS_ACEFLAG_NO_PROPAGATE_INHERIT_ACE = &H4 Const ADS_ACEFLAG_INHERIT_ONLY_ACE = &H8 Const ADS_ACEFLAG_INHERITED_ACE = &H10 Const ADS_ACEFLAG_SUCCESSFUL_ACCESS = &H40 Const ADS_ACEFLAG_FAILED_ACCESS = &H80 'ACE types Const ADS_ACETYPE_ACCESS_ALLOWED = 0 Const ADS_ACETYPE_ACCESS_DENIED = &H1 Const ADS_ACETYPE_SYSTEM_AUDIT = &H2 Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5 Const ADS_ACETYPE_ACCESS_DENIED_OBJECT = &H6 Const ADS_ACETYPE_SYSTEM_AUDIT_OBJECT = &H7 Tag: sending test to printer Tag: 182886
  - 2
    - convert FAT32 to NTFS problem? Hi, Dear all, i wrote below script, i want to convert remote host Harddisk format from FAT32 to NTFS, it 's failed in remote hosts, but succeed in local host. would you please check it for me ? with many thanks ! Regards. Michael ************************************************************************************************************************ Const Fixed = 2 Const ForReading = 1 Set objOFSO = CreateObject("Scripting.FileSystemObject") Set oShell = Wscript.CreateObject("WScript.Shell") Set objTextFile = objOFSO.OpenTextFile("c:\myscript\list.txt",ForReading) sFile = objOFSO.GetSpecialFolder(2).ShortPath & "\" & objOFSO.GetTempName ON Error Resume Next Do while Not objTextFile.AtEndOfStream strComputer = objTextFile.ReadLine Set objWMIService = GetObject("winmgmts://"&strComputer) 'Set colLogicalDisk = objWMIService.Instancesof("win32_LogicalDisk") set colLogicalDisk = objWMIService.ExecQuery("select * from Win32_LogicalDisk where DriveType= 2") For Each objLOgicalDisk In colLogicalDisk IF UCase(ObjLogicalDisk.FileSystem) = "FAT32" Then sDiskLetter = obiLogicalDisk.DriveLetter sDiskLabel = objLOgicalDisk.VolumeName If sDiskLabel = "" Then sCmd = "%comspec% /c echo y|convert.exe " & sDiskLetter & ": /fs:ntfs" Else Set fFile = objOFSO.CreateTextFile(sFile) fFile.WriteLine sDiskLabel fFile.WriteLine "y" fFile.Close sCmd = "%comspec% /c convert.exe " & sDiskLetter & ": /fs:ntfs <"& sFile End If oShell.Run sCmd, 0, True End If Next Loop Tag: sending test to printer Tag: 182885
  - 3
    - Script to create scheduled task on remote computers Hi Guys, A newbie need some expert help on a script to create scheduled task on remote computers... I found one on technet; and edit slightly... strComputer = InputBox("Machine name","Remote Software Deployment") Set objService = GetObject("winmgmts:\\" & strComputer) Set objNewJob = objService.Get("Win32_ScheduledJob") errJobCreated = objNewJob.Create _ ("Monitor.exe", "********123000.000000-420", _ True , 1 OR 4 OR 16, , , JobID) If Err.Number = 0 Then Wscript.Echo "New Job ID: " & JobID Else Wscript.Echo "An error occurred: " & errJobCreated End If Can any one tell me how can I have additonal prompt boxes to allow the input for: 1. command line 2. the time task scheduled to run Thanks alot -- eang18 ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: sending test to printer Tag: 182884
  - 4
    - VBScript in Web Page and Security Hello, I am still a bit new with writing VBScript in a web page so hopefully someone can help me with this issue I am having. I have a management server (MS 2003) in domain USERS, and on this server I have IIS running with just a simple interface on a web page right now to help automate an administrative task. However, their are users that are in the ADMIN domain that will mostly be accessing this page (along with ones from the USERS domain), however, the users in the ADMIN domain always get the ADO Security Warning dialog box everytime the script runs, "The website uses a data provider that may be unsafe. if you trust this site click OK...", while those users that log into the USERS domain are fine and do not get this error at all. How can I supress this dialog box, add code to remedy it, or change settings on the web server that will fix it. I don't want anyone to have to actually modify their own PC settings to get this to work without the warnings. Thanks, Ron Tag: sending test to printer Tag: 182875
  - 5
    - Problem with Copying file by DateLastModified vbs Can someone tell me what I am doing wrong with this, I'm trying to copy all files by datelastmodified the files can be anything from .doc .pdf to .dxf .vbs in fact I need to copy everything, that ONLY has been modified. I've been scratching my head with this one and I can't see what's wrong with it. Here's the code Thanks function CurrentBackupFolder() if isArray(BackupFolder) then CurrentBackupFolder = BackupFolder(WeekdayNumber) else CurrentBackupFolder = BackupFolder end if end function function BackupSubFolderName(fldrname) dim bfldrname bfldrname = replace(fldrname,":","\") bfldrname = replace(bfldrname,"\\","\") BackupSubFolderName = bfldrname end function function MakeBackupFolder(fldrname) dim bfldrname, pbfldrname, fbfldrname if len(fldrname) = 0 then MakeBackupFolder = true exit function end if bfldrname = BackupSubFolderName(fldrname) fbfldrname = fs.BuildPath(CurrentBackupFolder(),bfldrname) if not fs.FolderExists(fbfldrname) then pbfldrname = fs.GetParentFolderName(bfldrname) if not MakeBackupFolder(pbfldrname) then exit function end if fs.CreateFolder(fbfldrname) end if MakeBackupFolder = true end function function DoThisFile(fl,srcfolder,bpath) dim bf, res ON ERROR RESUME NEXT bpath = fs.BuildPath(CurrentBackupFolder(),fs.BuildPath(BackupSubFolderName(srcfolder),fl.name)) if BACKUP_ALWAYS then res = true elseif not fs.FileExists(bpath) then res = true else set bf = fs.GetFile(bpath) res = (bf.DateLastModified <> fl.DateLastModified) set bf = nothing end if DoThisFile = res end function sub DoBackup(srcfolder) dim sf, fldr, fl, bpath ON ERROR RESUME NEXT if not MakeBackupFolder(srcfolder) then exit sub end if set fldr = fs.GetFolder(srcfolder) set sf = fldr.SubFolders for each fl in sf DoBackup fs.BuildPath(srcfolder,fl.name) next set sf = fldr.Files for each fl in sf if DoThisFile(fl,srcfolder,bpath) then WriteLog "Backing up " & fl.path ,false fl.copy bpath if err.number <> 0 then WriteLog "** ERROR ** " & err.number & "; " & err.description,false CopyErrors = CopyErrors + 1 else FilesCopied = FilesCopied + 1 BytesCopied = BytesCopied + fl.size end if end if next end sub sub ShowResults dim x x = "Files copied = " & vbTab & FilesCopied & vbCr & vbLf x = x & "Bytes copied = " & vbTab & BytesCopied & vbCr & vbLf x = x & "CopyErrors = " & vbTab & CopyErrors & vbCr & vbLf x = x & "------------------------------------------------" WriteLog x,true if SHOWRESULTS_EOJ then msgbox x,0,PROGRAMID end if end sub Tag: sending test to printer Tag: 182873
  - 6
    - VBSCript inside ASP page am sorry if this sounds hokey but I am a newbie to ASP. I have a VBScript running in an ASP page. The script makes a connection to Oracle via and ADODB connection. When my clients connect to the ASP page they get Oracle client issues. How do I make the script run from the server side to eliminatew any oracle client issues or oracle tns names issues. Hope someone can help Paul Code <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> </head> <body> <div align="center"><img src="pics/banner_new.jpg" width="700" height="80" /> <br /> <script type="text/vbscript"> Const adOpenStatic = 3 Const adLockOptimistic = 3 Set objConnection2 = CreateObject("ADODB.Connection") Set objRecordset2 = CreateObject("ADODB.Recordset") objConnection2.Open = "DRIVER={Microsoft ODBC for Oracle}; SERVER=<removed>; UID=<removed>; PWD=<removed>" strQuery1 = "SELECT TRUNC(log_date_time) DAY,UPPER(SUBSTR(workstation,1,3)) WORKSTATION, COUNT(*) COUNT FROM member_log WHERE logon_type='LOGON' GROUP BY TRUNC(log_date_time),UPPER(SUBSTR(workstation,1,3))" ' strQuery1 = "Select * from member_log" objRecordset2.Open strQuery1, _ objConnection2, adOpenStatic, adLockOptimistic ' If Not objRecordSet.EOF Then 'objRecordSet.MoveFirst Do Until objRecordSet2.EOF If Left(ObjRecordSet2("WORKSTATION"),3) = "W03" Then 'document.write "WESTAMPTON" & vbTab & (ObjRecordSet2("WORKSTATION")) & vbTab & (ObjRecordSet2("DAY")) & vbTab & (ObjRecordSet2("COUNT")) wh1= (ObjRecordSet2("Day")) & "&nbsp" & "&nbsp" & "&nbsp" &"&nbsp" &"&nbsp" &"&nbsp" &"&nbsp"&"&nbsp"&"&nbsp" &"&nbsp"&"&nbsp"&"&nbsp"& (ObjRecordSet2("COUNT")) & "<br>" wh = wh + wh1 testw = CInt(ObjRecordSet2("COUNT")) westh = westH + testw Elseif Left(ObjRecordSet2("WORKSTATION"),3) = "W05" Then testv = CInt(ObjRecordSet2("COUNT")) vnld = vnld + testv vn1= (ObjRecordSet2("Day")) & "&nbsp" & "&nbsp" & "&nbsp" &"&nbsp" &"&nbsp" &"&nbsp" &"&nbsp"&"&nbsp"&"&nbsp" &"&nbsp"&"&nbsp"&"&nbsp"& (ObjRecordSet2("COUNT")) & "<br>" vn = vn + vn1 Elseif Left(ObjRecordSet2("WORKSTATION"),3) = "W10" Then testnb = CInt(ObjRecordSet2("COUNT")) newb = newb + testnb nb1= (ObjRecordSet2("Day")) & "&nbsp" & "&nbsp" & "&nbsp" &"&nbsp" &"&nbsp" &"&nbsp" &"&nbsp"&"&nbsp"&"&nbsp" &"&nbsp"&"&nbsp"&"&nbsp"& (ObjRecordSet2("COUNT")) & "<br>" nb = nb + nb1 Elseif Left(ObjRecordSet2("WORKSTATION"),3) = "W05" Then testv = CInt(ObjRecordSet2("COUNT")) vnld = vnld + testv vn1= (ObjRecordSet2("Day")) & vbTab & (ObjRecordSet2("COUNT")) & "<br>" vn = vn + vn1 Elseif Left(ObjRecordSet2("WORKSTATION"),3) = "W12" Then testd = CInt(ObjRecordSet2("COUNT")) dov = dov + testd dv1= (ObjRecordSet2("Day")) & "&nbsp" & "&nbsp" & "&nbsp" &"&nbsp" &"&nbsp" &"&nbsp" &"&nbsp"&"&nbsp"&"&nbsp" &"&nbsp"&"&nbsp"&"&nbsp"& (ObjRecordSet2("COUNT")) & "<br>" dv = dv + dv1 End If objRecordset2.movenext Loop objRecordset2.Close objConnection2.Close document.write "" document.write "WESTHAMPTON" & "<br>" document.write "DATE"& "&nbsp" & "&nbsp" & "&nbsp" &"&nbsp"&"&nbsp"&"&nbsp"&"&nbsp" &"&nbsp" &"&nbsp" &"&nbsp" & "COUNT" & "<br>" document.write wh document.write "Total For WestHampton: " & westh & "<br>" & "<br>" document.write "" document.write "VINELAND" & "<br>" document.write "DATE" & "&nbsp" & "&nbsp" & "&nbsp" &"&nbsp"&"&nbsp"&"&nbsp"&"&nbsp" &"&nbsp" &"&nbsp" &"&nbsp" & "COUNT" & "<br>" document.write vn document.write "Total for Vineland: " & vnld & "<br>" & "<br>" document.write "" document.write" NEW BRUNSWICK" & "<br>" document.write "DATE" & "&nbsp" & "&nbsp" & "&nbsp" &"&nbsp"&"&nbsp"&"&nbsp"&"&nbsp" &"&nbsp" &"&nbsp" &"&nbsp" & "COUNT" & "<br>" document.write nb document.write "Total for New Brunswick: " & newb & "<br>" & "<br>" document.write "" document.write"DOVER" & "<br>" document.write "DATE"& "&nbsp" & "&nbsp" & "&nbsp" &"&nbsp"&"&nbsp"&"&nbsp"&"&nbsp" &"&nbsp" &"&nbsp" &"&nbsp" & "COUNT" & "<br>" document.write dv document.write "Total for Dover: " & dov </script> </div> <p align="center"> </p> </body> </html> Tag: sending test to printer Tag: 182871
  - 7
    - How to run console app with WshShell.Exec without console window? Hello, I want to execute console application with WshShell.Exec method from HTA. However, during execution new console is created and pops up before my application. Can I run console process without console window with WshShell.Exec? Note: I cannot use WshShell.Run since I need access to process' stdout/stderr streams. Thanks in advance Alex Tag: sending test to printer Tag: 182868
  - 8
    - Is a Wait needed Throught out my script I create and delete files and objects. For example: I copy a file to a new folder then wait 3 seconds before I see if the file exists in the new destination. I assume that the script can run faster than the copy process so the If FileExists can run before the Copy is complete. Is this true. Or does the next line not process until the previous has completed it's process. Throughout my script I have a total of a minute and 30 seconds in total waits. Tag: sending test to printer Tag: 182858
  - 9
    - Copy files Hi everyone. I need to create a login script that copy a lot of files from a directory for other. I've already done one like this but I need to make from a lot of directories from others. Here is the script that I'm using now: fromDir = "c:\1" toDir = "c:\2" start = Now() replaceSize = 0 copySize = 0 deleteSize = 0 noChangeSize = 0 Set fso = CreateObject("Scripting.FileSystemObject") Set logFile = fso.OpenTextFile("Sincronizacao.log", 8, True) logFile.WriteLine("") logFile.WriteLine("Iniciado ................... : " & start) logFile.WriteLine("Origem ..................... : " & fromDir) logFile.WriteLine("Destino..................... : " & toDir) If fso.FolderExists(fromDir) And fso.FolderExists(toDir) Then Call ReplicateDirectory(fromDir, toDir) Else logFile.WriteLine("Erro ...................... : Origem ou Destino inalcancaveis") End If Sub ReplicateDirectory(source, target) Set targetDir = fso.GetFolder(target) Set sourceDir = fso.GetFolder(source) Set targetDirFileList = targetDir.Files Set sourceDirFileList = sourceDir.Files Set targetDirFolderList = targetDir.SubFolders Set sourceDirFolderList = sourceDir.SubFolders For Each targetFile in targetDirFileList If fso.FileExists(source & "\" & targetFile.Name) Then Set sourceFile = fso.GetFile(source & "\" & targetFile.Name) If targetFile.DateLastModified <> sourceFile.DateLastModified Then targetFilePath = targetDir.Path & "\" & targetFile.Name 'targetFile.Delete(True) replaceSize = replaceSize + sourceFile.Size sourceFile.Copy targetFilePath Else noChangeSize = noChangeSize + sourceFile.Size End If Else noChangeSize = noChangeSize + targetFile.Size 'targetFile.Delete() End If Next For Each sourceFile in sourceDirFileList If Not fso.FileExists(target & "\" & sourceFile.Name) Then copySize = copySize + sourceFile.Size sourceFile.Copy targetDir.Path & "\" & sourceFile.Name End If Next 'For Each targetFolder in targetDirFolderList 'If Not fso.FolderExists(sourceDir & "\" & targetFolder.Name) Then 'deleteSize = deleteSize + targetFolder.Size 'targetFolder.Delete(True) 'End If 'Next For Each sourceFolder in sourceDirFolderList If Not fso.FolderExists(targetDir & "\" & sourceFolder.Name) Then copySize = copySize + sourceFolder.Size sourceFolder.Copy(targetDir & "\" & sourceFolder.Name) Else Call ReplicateDirectory(sourceFolder.Path, targetDir & "\" & sourceFolder.Name) End If Next End Sub finish = Now() logFile.WriteLine("Arquivos Identicos.......... : " & Round(noChangeSize / 1024 /1024, 1) & " MB") logFile.WriteLine("Arquivos Apagados........... : " & Round(deleteSize / 1024 /1024, 1) & " MB") logFile.WriteLine("Sincronizados............... : " & Round(replaceSize / 1024 /1024, 1) & " MB") logFile.WriteLine("Copiados para o Destino..... : " & Round(copySize / 1024 /1024, 1) & " MB") logFile.WriteLine("Tempo de execuÃ§Ã£o........... : " & DateDiff("n", start, finish) & " MIN") logFile.WriteLine("Total Transferido........... : " & Round((replaceSize + copySize) / 1024 / 1024, 1) & " MB") logFile.WriteLine("Finalizado.................. : " & finish) logFile.Close() My problem is: Need to sync a lot of Dir's with just one VBS. Tnks Tag: sending test to printer Tag: 182853
  - 10
    - Using vbscript to set folder permissions and change security settings Hope this is the right group for this question. I have an automated installation script that configures servers for our software installation (which does things like create shares, create windows user accouts etc etc) - these are run on Windows 2003 server. The script is actually a "dos" batch file (xxx.bat). Currently, on Windows 2003 there are three things that I would like to be able to add to the scripting, which I think I will need to use a xxx.vbs vbscript file to do. The items I want to be able to script are as follows: 1. Undisable the guest account 2. Change the permissions on a share - specifically add the guest account and allow all users and all guests to have full access to the share. 3. Change the security on a folder as per the share. 4. Change some of the local/domain security policies - particularly ones that control password aging, minimum password length etc. Can anybody point me in the right direction for any/all of the above? Thanks in advance Simon Tag: sending test to printer Tag: 182849
  - 11
    - naive question? I was trying to get the html of the page in my intnet explorer object into a variable I tired first internet = oIE.Document.innerhtml and I got treated to the message like not supported Obviously it would have be easy if there were some sort of clipboard function to load into variable. I know how to use execwb to get content, select all etc but that is all useless I tried sendkeys - did not work I tired selectall, copy to clipboard, then open notepad and paste and save with sendkey. that sort of work However it is vulnerable to error, user could be switching windows and cause havoc Any other ways? Tag: sending test to printer Tag: 182848
  - 12
    - VB editor I find the VB editor in office is very useful. Can i call it in XP environment (not in office)? Because i just do some scripts in FSO or Shell? Thanks a lot. tony Tag: sending test to printer Tag: 182836
  - 13
    - Msgbox is it possible to have an auto-close msgbox in a number of seconds. thx. tony Tag: sending test to printer Tag: 182835
  - 14
    - Collecting sysinfo from remote servers Hello, I've been given the task to modify an existing (workable) script that collects system info of the local server. I would like to run this script from one central server to remote servers and collect all info in either a single file or folder on my central server. The below script works perfectly but I am uncertain to how I can automate the process of collecting remote server info rather than performing the mundane process of copying/pasting the file to the remote server, executing and moving the output file to the central server. Any help would be appreciated.. *************Script Begin********************** '****************************************** 'SysConfig.vbs ' ' Documents Current System Configuration ' '****************************************** Option Explicit Dim SystemSet Dim System Dim Service Dim colServices Dim colProcessors Dim Proc Dim colDiskDrives Dim Disk Dim PhysicalMemory Dim NumofProcs Dim OpSys Dim colOpSys Dim strBootDevice Dim strSystemDevice Dim strSystemDirectory Dim strWindowsDirectory Dim objBIOS Dim colBIOS Dim colNetAdapter Dim NetAdapter Dim colNetAdapterConfig Dim NetAdapterConfig Dim strIPAddress Dim strIPSubnet Dim strDefaultIPGateway Dim i Dim CompSysProd Dim colCompSysProd Dim Product Dim colProducts Dim strProduct Dim Share Dim colShares Dim PageFile Dim colPageFile WScript.Echo "Date/Time of Configuration Scan: " & Now WScript.Echo "" Set SystemSet = GetObject("winmgmts:").InstancesOf ("Win32_ComputerSystem") For Each System In SystemSet WScript.Echo "Hostname: " & System.Caption WScript.Echo "Domain: " & System.Domain 'WScript.Echo System.SystemType WScript.Echo "System Memory: " & System.TotalPhysicalMemory NumofProcs = System.NumberOfProcessors Next Set colOpSys = GetObject("winmgmts:").InstancesOf ("Win32_OperatingSystem") For Each OpSys In colOpSys WScript.Echo "Operating System: " & OpSys.Caption & " " & OpSys.CSDVersion & " " & OpSys.Version WScript.Echo "Boot volume: " & OpSys.BootDevice WScript.Echo "System volume: " & OpSys.SystemDevice WScript.Echo "System Directory: " & OpSys.SystemDirectory WScript.Echo "Windows Directory: " & OpSys.WindowsDirectory wScript.Echo "Date of system install: " & OpSys.InstallDate Next Set colProcessors = GetObject("winmgmts:").InstancesOf ("Win32_Processor") WScript.Echo "Number of Processors: " & NumofProcs For Each Proc In colProcessors 'WScript.Echo Proc.SocketDesignation WScript.Echo "Processor: " & Trim(Proc.Name) Next WScript.Echo "" Set colPageFile = GetObject("winmgmts:").InstancesOf ("Win32_PageFile") For Each PageFile In colPageFile 'WScript.Echo PageFile.Caption 'WScript.Echo PageFile.CSName 'If PageFile.Description <> PageFile.Caption Then ' WScript.Echo PageFile.Description 'End If WScript.Echo "Pagefile drive: "& PageFile.Drive WScript.Echo "Pagefile filename: " & PageFile.FileName WScript.Echo "Pagefile size: " & PageFile.FileSize Wscript.Echo "Pagefile name: " & PageFile.Name Next WScript.Echo "" Set colDiskDrives = GetObject("winmgmts:").InstancesOf ("Win32_LogicalDisk") For Each Disk In colDiskDrives WScript.Echo "" WScript.Echo "Disk: " & Disk.Caption & " " & Disk.VolumeName If Not IsNull(Disk.Size) Then WScript.Echo "Disk size: " & Disk.Size End If Select Case Disk.DriveType Case 2 WScript.Echo "Drive type: Removable media" Case 3 WScript.Echo "Drive type: Local Disk" Case 4 WScript.Echo "Drive type: Network Drive" Case 5 WScript.Echo "Drive type: CD-ROM" End Select If Not IsNull(Disk.FileSystem) Then WScript.Echo "Disk filesystem: " & Disk.FileSystem End If Next WScript.Echo "" Set colCompSysProd = GetObject("winmgmts:").InstancesOf ("Win32_ComputerSystemProduct") For Each CompSysProd In colCompSysProd WScript.Echo "System model name: " & CompSysProd.Name 'If Not IsNull (CompSysProd.SKUNumber) Then ' WScript.Echo CompSysProd.SKUNumber 'End If WScript.Echo "System model version: " & CompSysProd.Version Next WScript.Echo "" Set colBIOS = GetObject("winmgmts:").InstancesOf ("Win32_BIOS") For Each objBIOS In colBIOS WScript.Echo "System Manufacturer: " & objBIOS.Manufacturer WScript.Echo "System BIOS version: " & objBIOS.Version WScript.Echo "System serial number: " & objBIOS.SerialNumber Next WScript.Echo "" WScript.Echo "-----Begin Networking Information-----" Set colNetAdapter = GetObject("winmgmts:").InstancesOf ("Win32_NetworkAdapter") For Each NetAdapter In colNetAdapter WScript.Echo NetAdapter.Caption WScript.Echo NetAdapter.Manufacturer If Not IsNull(NetAdapter.AdapterType) Then WScript.Echo NetAdapter.AdapterType End If If Not IsNull(NetAdapter.MACAddress) Then WScript.Echo NetAdapter.MACAddress End If If Not IsNull (NetAdapter.NetworkAddresses) Then WScript.Echo NetAdapter.NetworkAddresses End If WScript.Echo NetAdapter.ProductName Next WScript.Echo "" Set colNetAdapterConfig = GetObject("winmgmts:").InstancesOf ("Win32_NetworkAdapterConfiguration") For Each NetAdapterConfig In colNetAdapterConfig WScript.Echo NetAdapterConfig.Caption If IsArray(NetAdapterConfig.IPAddress) Then For i = 0 to UBound(NetAdapterConfig.IPAddress) WScript.Echo NetAdapterConfig.IPAddress(i) Next End If If IsArray(NetAdapterConfig.IPSubnet) Then For i = 0 to UBound(NetAdapterConfig.IPSubnet) WScript.Echo NetAdapterConfig.IPSubnet(i) Next End If If IsArray(NetAdapterConfig.DefaultIPGateway) Then For i = 0 to UBound(NetAdapterConfig.DefaultIPGateway) WScript.Echo NetAdapterConfig.DefaultIPGateway(i) Next End If If Not IsNull (NetAdapterConfig.MACAddress) Then WScript.Echo NetAdapterConfig.MACAddress End If Next WScript.Echo "-----End Networking Information-----" WScript.Echo "" Set colShares = GetObject("winmgmts:").InstancesOf ("Win32_Share") For Each Share In colShares WScript.Echo "" WScript.Echo "Share name: " & Share.Name WScript.Echo "Share caption: " & Share.Caption If Share.Description <> Share.Caption Then WScript.Echo "Share description: " & Share.Description End If WScript.Echo "Share path: " & Share.Path 'Debug ' WScript.Echo Share.Type 'End Debug Select Case Share.Type Case 0 WScript.Echo "Share type: " & "Disk Drive" Case 1 WScript.Echo "Share type: " & "Print Queue" Case 2 WScript.Echo "Share type: " & "Device" Case 3 WScript.Echo "Share type: " & "IPC" Case -2147483648 WScript.Echo "Share type: " & "Disk Drive Admin" Case -2147483649 WScript.Echo "Share type: " & "Print Queue Admin" Case -2147483650 WScript.Echo "Share type: " & "Device Admin" Case -2147483645 WScript.Echo "Share type: " & "IPC Admin" End Select Next WScript.Echo "" Set colProducts = GetObject("winmgmts:").InstancesOf ("Win32_Product") For Each Product In colProducts WScript.Echo "" WScript.Echo "Product name: " & Product.Name WScript.Echo "Product version: " & Product.Version If Not IsNull (Product.Vendor) Then WScript.Echo "Product vendor: " & Product.Vendor Else WScript.Echo "<no product vendor information>" End If Next WScript.Echo "" Set colServices = GetObject("winmgmts:").InstancesOf ("win32_service") For Each Service In colServices WScript.Echo "" WScript.Echo "Service: " & Service.Caption If Not IsNull (Service.Description) Then WScript.Echo Service.Description Else WScript.Echo "<no service description>" End If WScript.Echo " Executable: ", Service.PathName WScript.Echo " Status: ", Service.Status WScript.Echo " State: ", Service.State WScript.Echo " Start Mode: ", Service.StartMode Wscript.Echo " Start Name: ", Service.StartName Next WScript.Echo "" ************Script End***************** Tag: sending test to printer Tag: 182832
  - 15
    - how to show the html code that the WebBrowser want to save when he how to show the html code that the WebBrowser want to save when he want to save html+pictures with the "dialogbox" - before saving. this is the code to open the save "dialogbox" Me.WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER, 0, 0 this is not good for me: Text1.Text = WebBrowser1.Document.documentElement.OuterHTML Tag: sending test to printer Tag: 182831
  - 16
    - Loop through checkboxes Good evening, I apologize if this message gets posted twice, my webbrowser behaved strangely when posting. I am having trouble with the following code: ****** For j = 1 to NoChkBx If Checkbox(j).checked Then msgbox j End If Next ****** The issue is with the synthax for the 2nd line "If Checkbox(j).checked Then"? What is the proper way with dealing with a variable in a control name? Thank you for the help, Daniel Tag: sending test to printer Tag: 182823
  - 17
    - Script to automate SSID wireless This is a multi-part message in MIME format. ------=_NextPart_000_0026_01C5DFC3.0C1337D0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Is it possible to automate the setup of a wireless connection with the = settings we need for our network.=20 SSID (XXXXXXXXXXX) PEAP authentication NOT validating server certificates MSCHAP (Windows username and password). WEP enabled key is provided --=20 SHANE CLARK ------=_NextPart_000_0026_01C5DFC3.0C1337D0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2800.1516" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Is it possible to automate = the setup of a=20 wireless connection with the settings we need for our network.=20 </FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>SSID (XXXXXXXXXXX)</FONT></DIV> <DIV><FONT size=3D2>PEAP authentication</FONT></DIV> <DIV><FONT color=3D#000000><B><FONT color=3D#0000ff><FONT = color=3D#000000=20 size=3D2>NOT</FONT></B><FONT color=3D#000000 size=3D2> validating server = certificates</FONT></FONT></FONT></DIV> <DIV><FONT color=3D#0000ff><FONT color=3D#000000 size=3D2>MSCHAP = (Windows username and=20 password).</FONT></FONT></DIV> <DIV><FONT color=3D#0000ff><FONT color=3D#000000 size=3D2>WEP=20 enabled</FONT></FONT></DIV> <DIV><FONT color=3D#0000ff><FONT color=3D#000000><FONT = color=3D#0000ff><FONT=20 color=3D#000000 size=3D2>key is = provided</FONT></DIV></FONT></FONT></FONT> <DIV><FONT color=3D#000000><FONT color=3D#0000ff><FONT color=3D#000000=20 size=3D2></FONT> </DIV></FONT></FONT> <DIV><FONT face=3DArial size=3D2><BR>-- <BR>SHANE = CLARK</FONT></DIV></BODY></HTML> ------=_NextPart_000_0026_01C5DFC3.0C1337D0-- Tag: sending test to printer Tag: 182821
  - 18
    - synthax error? Good afternoon, I have the following entry as part of an HTA: UserInputHTML = UserInputHTML & "<select size=" & chr(34) & "1" & chr(34) & " name=" & chr(34) & "GrpListing" & chr(34) & " onChange=" & chr(34) & "EnumGrpMbr(GrpListing.Value , strComputer)" & chr(34) & ">" & vbCrLf However, this generates an error "Cannot use parenthesis when calling a Sub". How can I fix this. I have tried different things but have not managed to get it functional. The problem to my knowledge is with the "EnumGrpMbr(GrpListing.Value , strComputer)" . When I have only 1 variable to transfer to my sub it works fine, but when I tried to send 2 it gives me this error. What is the proper synthax? Thank you in advance! Daniel Tag: sending test to printer Tag: 182813
  - 19
    - Parse xml file in vbscript Hello all, I need to parse and xml file check whether a certain condition is true. In xml file, there is a commented out example, but still contains the text that I will be parsing. Any suggestions on: 1) How to parse an xml file in vbscript in general 2) How to bypass the comments in the xml file would be greatly appreciated! Thank you in advance! Tag: sending test to printer Tag: 182809
  - 20
    - User Credentials Hello, Is there a way with vbscript to reinitialize a user's credentials. Basically, when the Admin changes a users permissions on the main server, the user must logout and the back in for the changes to take effect. Is there a way using a simple script that it can go and update the current user's credentials without requiring logging out? Thank you, Daniel Tag: sending test to printer Tag: 182807
  - 21
    - Executing a vbs script from an asp.net page Thanks in advance. I know I have to impersonate a valid account and am doing so for folder creation but want to launch a vbs script with some parms to handle some permission changes (since that script already works). I do not know how to execute the script from the code behind. I am using the 1.1 framework and c#. Tag: sending test to printer Tag: 182803
  - 22
    - Close all IE windows at once I frequently end up with so many Internet Explorers open, that it would be useful to have a means of closing all IE windows in one step. Anyone know of a windows script (or maybe a .bat file) that could do this? Thanks Larry Tag: sending test to printer Tag: 182802
  - 23
    - FileSystemObject problems This is a query to do with classic ASP (written through vbscript). I am trying to run an asp page on my local Windows 2000 machine which creates a folder in the root directory of my site, but when I run the page it simply hangs when it gets to the FileSystemObject folder creation part (when I remove this line of code, the rest of the page works fine) The code is fine because it is working on the live server, so the problem is with the PERMISSIONS on my local Windows 2000 server. I've set ALL folders from wwwroot upwards with FULL rwx access for ALL users.. plus I've added the IUSR_(machinename) to this list with full access. I've did this through Explorer. I've run out of ideas on where else to set permissions... anyone got any ideas?? Thanks! Peter -- "I hear ma train a comin' ... hear freedom comin" Tag: sending test to printer Tag: 182800
  - 24
    - time synchronizer i need a script to synchronize my pc clock, with a server in internet Tag: sending test to printer Tag: 182799
  - 25
    - trying to achieve automation, need assistance I have created a deployment script to automate desktop deployment. I have enabled autologon using the local administrator account... But I am trying to figure out the best way to get the script to run at startup... Now, I know vbscript has a GPO interface but I have no idea how I would disable the deployment.vbs script from running at logon. I could put the script in the startup folder, but how would I remove it automatically? I couldn't delete the script while the script is running could i? Any thoughts? Tag: sending test to printer Tag: 182798

hi

how to send some test directly to a printer ?

(not using shell and not only for the windows default printer)

thanks

Top

Re: sending test to printer by Scott

Scott
Mon Nov 07 10:46:41 CST 2005

Issue this WMI Query against the root\cimv2 namespace:
select * from win32_printer where default = true

and on the applicable object returned issue the "PrintTestPage" method.

--
Scott McNairy
Microsoft MVP - Windows Server Management Infrastructure

"Bertrand" <thebeb@hotmail.com> wrote in message
news:uPFDP044FHA.476@TK2MSFTNGP15.phx.gbl...
> hi
>
> how to send some test directly to a printer ?
>
> (not using shell and not only for the windows default printer)
>
> thanks
>

Top