removing non network printers from a computer

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
    - IE Favorites Rediection I need a script to redirect a users IE Favorites to a central location on a file server. Just as we have the option to redirect a users My Documents, Desktop and Apllication Data folder from his profile. I need the script desperately. Tag: removing non network printers from a computer Tag: 181818
  - 2
    - Event log SQL query problem Hi all, I have a problem using a select statement when querying event logs. I use the following statement: ------ Set colLoggedEvents = objWMIService.ExecQuery _ ("Select * from Win32_NTLogEvent Where (LogFile = 'Security' And EventType = '5')" & _ "Or (LogFile = 'System' And EventType = '1')") ------ When executing I only get entries from the Security event log. Before I tried this statement: ------ Set colLoggedEvents = objWMIService.ExecQuery _ ("Select * from Win32_NTLogEvent Where (EventType = 1 Or EventType = 5)") ------ When executing that one I only receive entries from the Application log, which is - I guess - the first one that is analyzed by the script. So please could someone tell me if and how I could get entries from multiple event logs with one query? TIA, The Kirschi Tag: removing non network printers from a computer Tag: 181816
  - 3
    - File Not Found Error - UNC? Afternoon, I am working through getting a script to grab a file name and the date it was last modified and am not having any luck with the UNC it would appear. The script is below and it is erroring on the line below: Set DatZipFile = fso.GetFile(DatFilePath + Text) If I msgbox (DatFilePath + Text) the path is correct. I have tried using the files collection method but I can't properly filter for the file im looking for. Any help would be greatly appreciated Cheers Rob. ----------------------------------------------------------------------------- set shell = createobject("wscript.shell") Set WshNetwork = WScript.CreateObject("WScript.Network") const DatFilePath="\\server\c$\Program Files\McAfee\ePO\3.0.1\DB\Software\" set TheArgs = WScript.Arguments NetworkD = TheArgs.Item(0) NetworkDrive = NetworkD + ":" WshNetwork.MapNetworkDrive NetworkDrive,"\\server\c$" cmd = "%comspec% /c dir dat-*.zip /b | sort" shell.currentdirectory = NetworkDrive + "\Program Files\McAfee\ePO\3.0.1\DB\Software\" set dir = shell.exec(cmd) text = "" do while true if not dir.stdout.atendofstream then text = text & dir.stdout.readall end if if dir.status = 1 then exit do wscript.sleep 100 loop WshNetwork.RemoveNetworkDrive (NetworkDrive),true set shell = Nothing set WshNetwork = Nothing Dim fso Set fso = CreateObject("Scripting.FileSystemObject") Set DatZipFile = fso.GetFile(DatFilePath + Text) Modified = DatZipFile.DateLastModified ------------------------------------------------------------------------------ Tag: removing non network printers from a computer Tag: 181815
  - 4
    - include folder prior to a folder in a vbscript I'm loving this Mp3Playlister_multiList vbs script. ( http://www.interclasse.com/scripts/Mp3Playlister_multiList.php) It creates playlists recursively, but I have one request. Since I have my mp3's arranged by c:\Artist\Album, the script saves as Album.m3u. Could someone help modify it for me to save as Artist - Album.m3u. I'm thinking that it would be modified here... Sub createAndSavePlaylist(arrFiles, foldName) Dim txt, txtFile, txtPath '-- m3u file path txtPath = dicPlaylistsPath.item(sScannedFoldName) & foldName &"."& sPlaylistExt '-- create m3u file (ASCII) If Not fso.FileExists(txtPath) Then Set txtFile = fso.CreateTextFile(txtPath,true,false) 'ASCII !! End If Set txtFile = fso.GetFile(txtPath) Set txt = txtFile.OpenAsTextStream(ForWriting, 0) 'ForWriting , 0 for ASCII (-1 for Unicode) '-- write m3u entries txt.write Join(arrFiles, vbCrLf) txt.close Set txtFile = nothing End Sub I'd greatly appreciate it. thanks, James Tag: removing non network printers from a computer Tag: 181809
  - 5
    - vb script for click a button on a open program window I am really new to vbscript, I have a program that loads when my computer starts up. After windows has loaded, the program has a form that has two buttons on it. One is "Hide" the other is "Close Program". I would like to write a vb script that ran at startup as well and would automatically click the "Hide" button on this program when it loaded. I am first just trying to write the vbscript for clicking the Hide button on the open form. then I will figure the adding it to the start up. If anyone new of any examples that would help me or could provide some general code I would greatly appreciate it. Tag: removing non network printers from a computer Tag: 181807
  - 6
    - Moving VBScript to HTML or HTA <lenghty post> Hi all! I have a VBScript that I'm using to set my computer up to wake me up in the morning - basically an excuse to teach myself some basic scripting. Here's the meat of the script: """"""""""""""""""""""""""""""""""""""" Dim objShell, objFSO, objTSOut, strDay, strMonth, strYear, strHour, strMinute, strNow strDay = InputBox("Enter day of month") strMonth = InputBox("Enter the month") strYear = InputBox("Enter the year") strHour = InputBox("Hour") strMinute = InputBox("Minute?") strNow = Date Set objShell = WScript.CreateObject("WScript.Shell") Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objTSOut = objFSO.CreateTextFile ("C:\Batch\SetAlarm.cmd",true) objTSOut.WriteLine "Schtasks.exe /Create /S COMPUTER /RU user /RP password /SC ONCE /SD " _ & strYear & "/" & strMonth & "/" & strDay & " /TN WakeUpCall_" & strNow & " /TR C:\Batch\ScheduledWakeupCall.vbs /ST " & strHour & ":" & strMinute & ":00" objTSOut.Close objShell.Run "C:\Batch\SetAlarm.cmd" """"""""""""""""""""""""""""""""""""""""""""""" So, it's actually a script that collcts info and creates a cmd file that uses the 'Schtasks.exe' command to set up a scheduled task in Windows. The task it schedules is in this case script that starts Media Player with a specific playlist - a pretty nice way to wake up in the morning. :-) Now, I would like to move this to a HTML or HTA file, just to see how it works, and to get a nicer user interface. What I'm after is: how to get user input from radio buttons, drop down boxes and so on, instead of the input boxes I get with a vbs file. I have no clue how to capture the input from forms, so I'm flying blind here and need some help. Any ideas?? TIA, Örjan </lengthy post> Tag: removing non network printers from a computer Tag: 181806
  - 7
    - After Update/ on change Hi currently i am developing a few data access pages to enable users to enter data from an intranet. i am more than confortable in developin access databases but have only recently touvhed upon DAP. I can program with access using VBA. What i would like to do is the following: a) When the record has been saved successfully to be able to display an message box. I have been using VBScript and the function MsgBox, but nothing appears, this has been used in the event After Update on the MSODSC object. Any body know how to do this? b) The Save button i would like to be disabled unitl a user makes changes or creates a new record. i am presuming that i would be using the onchange event, how could i do this? many thanks D Tag: removing non network printers from a computer Tag: 181802
  - 8
    - FSO Can i retrieve the file owner name by FSO? i wish to show it at my asp page. the page shows the files list in a folder. Thanks. tony Tag: removing non network printers from a computer Tag: 181794
  - 9
    - Writing and debugging VBS Hi everyone I've used the Visual Basic Editor in Word and Excel 2003 and have decided to delve into VBS. I've managed to copy script samples from various sites, paste them into Notepad and save the file with a .vbs extension. Needless to say, the samples do what they're supposed to but, if I modify the code to do something slightly different, it either works or it doesn't. If it doesn't, an error messagebox is displayed which gives an idication of where the error is. I wonder if there's any software available to allow me to step through the VBS and identify exactly what's happening as it runs, just as I can with the VB editors in Word and Excel. I don't know if there's anything on my laptop already (XP Pro SP2) or if I'd need third party software. Whilst experts here are just that, I'd find it hard to believe that they can just generate a perfect piece of complicated code out of thin air or debug it, almost as if it's running in their heads! Thanks for your time and patience. Tag: removing non network printers from a computer Tag: 181791
  - 10
    - Adding old domain user to Local Admins group Hey folks, I wonder if anyone knows of a script to do the following: After migrating a workstation from an NT to an AD domain, I want to read which old-domain-users are members of the Local Admins group and add their new-domain accounts into that group. Been looking for ages and haven't found anything yet. Thanks and best regards, Ferg. Tag: removing non network printers from a computer Tag: 181789
  - 11
    - Adding old domain user to Local Admins group Hey folks, I wonder if anyone knows of a script to do the following: After migrating a workstation from an NT to an AD domain, I want to read which old-domain-users are members of the Local Admins group and add their new-domain accounts into that group. Been looking for ages and haven't found anything yet. Thanks and best regards, Ferg. Tag: removing non network printers from a computer Tag: 181788
  - 12
    - Run method in ASP - app hidden.... Hi all! I'm trying to move a VBScript to ASP. One of the problems I'm having is when using the run method. I don'tr seem to be having any syntax or permission errors, but the app I'm trying to run from the asp page isn't visible. I thought the code failed all together, but when opening task manager, I can se that the app is indeed running (under the 'IWAM_computername' account), only it's not visible. Any ideas what I'm doing wrong? I'm running the app like this in the asp page: <%Set objShell = Server.CreateObject("WScript.Shell")%> <%objShell.Run "notepad.exe", 3%> I've tried different values for 'window style', but it doesn't seem to matter. I done quite a bit of scripting using VBScript, but am totally new to using it in asp. Any input appreciated! TIA, Örjan Tag: removing non network printers from a computer Tag: 181780
  - 13
    - Error when using CreateObject in client side VBScript. Hi there Apologies if this is not quite the correct group but I am having trouble trying to create various objects using the VBScript CreateObject function inside a client side HTML page. The following is the complete code of a test page that I put together. '=============================================== <html><head><title>Test CreateObject</title> <script language=VBScript> Dim objNetwork On Error Resume Next Err.Clear Set objNetwork = CreateObject("WScript.Network") If Err.Number <> 0 Then MsgBox Err.Description Else MsgBox objNetwork.UserDomain End If Set objNetwork = Nothing </script></head><body> This is a test </body></html> '=============================================== Whenever I open this page, the CreateObject function errors and the displayed error message is "ActiveX component can't create object". I have tried creating various other ActiveX objects (eg Excel.Application) but still get the same error. I know that this code is the correct syntax etc because I have run it successfully in a VBS file (without the HTML obviously). I have tested the code on three machines with the following specs. All display the same error message. 1. WinXP, SP2, IE6.0.2900 2. WinXP, SP1, IE6.0.2800 3. Win2k, SP4, IE6.0.2800 I've had a look at IE's security settings and found no problems there. Had a look at the Local Security Policy but also found nothing. I've also had a bit of a poke around on the internet and couldn't find anything significant that would indicate what the problem could be. If anyone could help me out on this, it will be greatly appreciated. Regards David Tag: removing non network printers from a computer Tag: 181777
  - 14
    - vbs script for Excel to color rows I was wonder if someone would mind writting me a small script to help me out. I have a HUGE spreadsheet that has one colum which is numbered sequentially, but any number may be repeated 2 or mor times. There are many other colums which contain data, so this will help with readability. Example: 1 1 1 2 2 3 3 3 3 4 4 5 5 5 5 I want to color each *row* (not the cell, but the whole row) of the same number the same color. Here is my "program logic" in psudeo-code Rowcolor = 1 Currentcontents = value of current cell Nextcontents = value of current cell Do while value of current cell is not blank If nextcontents = currentcontents then Set row color = rowcolor Move down one cell Nextcontents = value of current cell Else Rowcolor = rowcolor + 1 Currentcontents = nextcontents End if End Do I'm sure this is very simple for those who know vbs - I just don't and can't find anyother way to accomplish this. Doing it manually would take FOREVER as the spreadsheet has over 30,000 rows. Thanks very much to anyone will to help out!!! Mike Tag: removing non network printers from a computer Tag: 181772
  - 15
    - Item Cannot be Found in Collection For over 3 years I have used the same Question and Answer Web Page without any changes to the page or Access Database. Three weeks ago I started getting the Item Cannot be Found in Collection halt after I did a Microsoft update. The Record has 47 fields that are updated for test surveys by the activities educators in our school district. 33 Fields are Long Integer, 13 are Byte Fields and one a Text Field. Does anyone know what was changed that would all of a sudden give me this halt. Thanks for the help in advance! Granny Tag: removing non network printers from a computer Tag: 181768
  - 16
    - VB script, batch, or C++ for text file creation program Hello all. I'm trying to compile a text file from two different existing text files and input from the user. For example: text1.txt says "It was the best of times it was the worst of times." text2.txt says "To be or not to be that is the question." When the program is run, a prompt would ask the user to write a sentence. The program would then create a new file named text3.txt that would create a text file that would read: It was the best of times it was the worst of times. Now is the winter of our discontent <or whatever the user enters at a prompt> To be or not to be that is the question. I'm trying to decide the best vehicle to use to write this program. It doesn't matter to me if its run in a GUI environment or from the console. I'm rusty with my file manipulations in C++, which is the language I'm most familar with. Neither batch nor vbscript look overly difficult to pick up and I would like to use either of them if they lend themselves better to the task at hand. What do all of you think? Thanks a lot for the advice Tag: removing non network printers from a computer Tag: 181767
  - 17
    - WMI - Filter auditing categories Hi, I'm not able to find the IDs that map to the various Auditing categories. As you know WMI uses these IDs to filter on the category but where do I find these IDs. I know that for example Account Management uses ID 7, what about other categories ? To be more specific I need the ID for Directory Service Access. Thanks and Regards Tag: removing non network printers from a computer Tag: 181762
  - 18
    - Write back to AD script. Is there a script that will display Full Users name and Telephone number and ask user to change the number if not correct and write back to AD. Tag: removing non network printers from a computer Tag: 181760
  - 19
    - Page not able to display Dear Experts, I am trying to link one of my menu to a login screen of my program. After I create the hyperlink to open the page which is a login page, instead of the login page display in the window, the entire code is being displayed. I have checked with the previous code which I don't find difference. Below is my code: <table border=0 cellpadding='1' cellspacing=1 width="150"><tr><td width='16'> <font size="3" face="Times New Roman"><img src='text.gif' width='16' height='16' hspace='0' vspace='0' border='0'></font></td><td> <font face="Times New Roman" size="3"> <a target="master" href="Leave_system/applyforleave.asp">Leave Application</a></font></td></tr></table> However, when I use CTRL+ click the link in Design mode, the page does display on the Preview pane. How could or may be the problem to this issue? Thank you very much. Regards, Seok Bee Tag: removing non network printers from a computer Tag: 181758
  - 20
    - navigating a child window in IE Hi, I have some info that needs to be uploaded to a vendor's web app every day, which I'd like to automate this. I am a vbscript newbie. I'm running into problems when I click on a link which pops up another window. It seems like the commands I issue afterwards are still going to the original window. How do I get the script to operate on the child window? Set oMSIE = CreateObject("InternetExplorer.Application") oMSIE.navigate "http://www.myvendor.com" oMSIE.visible=1 Do Until oMSIE.ReadyState = 4 wscript.sleep 10 : Loop Set oIEDoc = oMSIE.Document oIEDoc.links(4).click ' (Child window comes up here and I want commands after this point ' to be directed to it.) Do Until oMSIE.ReadyState = 4 wscript.sleep 10 : Loop oIEDoc.getElementById("textUpload").value = "123456789" Thanks! Tag: removing non network printers from a computer Tag: 181754
  - 21
    - Determine exchange server name Hi Group, I am using a small script which uses the CDO.message object to send emails. The server name is configured by "server.domain.com". However, for security considerations, it appears that the exchange administrator regularly changes the name and/or IP of the exchange server. Our outlook 2003 client doesn't seem to have a problem with this as the server name is automatically updated in the Outlook Profile. However, my scripts fail and I was wondering how Outlook was determining what was the new location of exchange server on the network. Is there a script for doing that? TIA Tag: removing non network printers from a computer Tag: 181752
  - 22
    - Implement a read-only class memeber as a Function or a Property? Hi, Where does one draw the line between Property Get and Function? They both do exactly the same thing, do they not? When should I use Property Get, and when should I use Function? Jamie Tag: removing non network printers from a computer Tag: 181744
  - 23
    - Running a logon script under another account Does anyone know how to run a .vbs logon script under a different account than the account that's logging in? The reason I need to do this is that the script installs a software package if it's not already installed on the machine that the user is logging onto. The Active Directory Group Policy restricts software installation to domain administrators, so I wanted to run this script with elevated priviledges to get around this restriction imposed by the Group Policy. Has anyone effectively dealt with a similar issue? Some background info: --All client machines are Windows XP Pro --Main AD Server (Global Catalog) is 2003. Other domain controllers are 2003 and 2000 Tag: removing non network printers from a computer Tag: 181741
  - 24
    - enumerate network printer Is anyone aware of how to enumerate a network printers nic card. Tag: removing non network printers from a computer Tag: 181739
  - 25
    - Convert SAM to DN with input/output files All- I am trying to add on to a small script I saw posted by Richard Mueller (www.rlmueller.net). His script takes the current logged on user's logon name and determines and displays the DN. I am attempting instead to have the script read a list of logon names (sam account names) and go out and determine the DN for each. Output to be written to a results text file. I am getting a type mismatch error and I can see the problem is related to strNTName but I'm not sure how to correct it. Here is Richard's script (this one works): Set objNetwork = CreateObject("Wscript.Network") strNTName = objNetwork.UserName ' Determine DNS domain name from RootDSE object. Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("defaultNamingContext") ' Use the NameTranslate object to find the NetBIOS domain name from the ' DNS domain name. Set objTrans = CreateObject("NameTranslate") objTrans.Init 3, strDNSDomain objTrans.Set 1, strDNSDomain strNetBIOSDomain = objTrans.Get(3) ' Remove trailing backslash. strNetBIOSDomain = Left(strNetBIOSDomain, Len(strNetBIOSDomain) - 1) ' Use the NameTranslate object to convert the NT user name to the ' Distinguished Name required for the LDAP provider. objTrans.Init 1, strNetBIOSDomain objTrans.Set 3, strNetBIOSDomain & "\" & strNTName strUserDN = objTrans.Get(1) Wscript.Echo "User DN: " & strUserDN ++++++++++++++++++ Here is the script I am attempting to get working (but not quite there yet): Const ForAppending = 2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ ("c:\results.txt", ForAppending, True) 'Opens existing file for reading list of target names Const INPUT_FILE_NAME = "C:\users.txt" Const FOR_READING = 1 'Opens file and reads all data in file Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(INPUT_FILE_NAME, FOR_READING) strNames = objFile.ReadAll objFile.Close 'Separates file by carriage return/line feed strNTName = Split(strNames, vbCrLf) ' Determine DNS domain name from RootDSE object. Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("defaultNamingContext") ' Use the NameTranslate object to find the NetBIOS domain name from the ' DNS domain name. Set objTrans = CreateObject("NameTranslate") objTrans.Init 3, strDNSDomain objTrans.Set 1, strDNSDomain strNetBIOSDomain = objTrans.Get(3) ' Remove trailing backslash. strNetBIOSDomain = Left(strNetBIOSDomain, Len(strNetBIOSDomain) - 1) ' Use the NameTranslate object to convert the NT user name to the ' Distinguished Name required for the LDAP provider. For Each strName In strNTName objTrans.Init 1, strNetBIOSDomain objTrans.Set 3, strNetBIOSDomain & "\" & strNTName strUserDN = objTrans.Get(1) objTextFile.WriteLine "User DN: " & strUserDN Next objTextFile.Close +++++++++++++++++++++++++ Any ideas? Thanks. Tag: removing non network printers from a computer Tag: 181738
- Next
  - 1
    - error sending mail Hello. I have a following code: ============================================= Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "subject" objMessage.Sender = "email@adres.com" objMessage.To = "email@adres.com" objMessage.TextBody = "BODY" '==This section provides the configuration information for the remote SMTP server. '==Normally you will only change the server name or IP. objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.server.com" 'Server port (typically 25) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Update '==End remote SMTP server configuration section== objMessage.Send ====================================================== The code used to work. But now I get error message "The transport failed to connect to server" code: 80040213 source: cdo.message.1 Can somebody point me in direction to solve this? Thanks Martin Tag: removing non network printers from a computer Tag: 181734
  - 2
    - InstanceModificationEvent not working Hi, I am tryin to figure out why my script isn't working. The script should notify me when a file changes. However, it only notifies me about Creation or Deletion events. I am running XP. Has anyone an idea? strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("SELECT * FROM __InstanceOperationEvent WITHIN 10 WHERE " _ & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _ & "TargetInstance.GroupComponent= " _ & "'Win32_Directory.Name=""C:\\\\Scripts""'") Do While True Set objEventObject = colMonitoredEvents.NextEvent() Select Case objEventObject.Path_.Class Case "__InstanceCreationEvent" WScript.Echo "A new file was just created: " & _ objEventObject.TargetInstance.PartComponent Case "__InstanceDeletionEvent" Wscript.Echo "A file was just deleted: " & _ objEventObject.TargetInstance.PartComponent Case "__InstanceModificationEvent" Wscript.Echo "A file was just modified: " & _ objEventObject.TargetInstance.PartComponent End Select Loop Tag: removing non network printers from a computer Tag: 181730
  - 3
    - bolding text in email output I am using vbscript to generate SMTP emails. I define the To, From, Subject and body of the email with variables. I then set the message variables: With iMsg Set .Configuration = iConf .To = SMTPAddressTo .From = SMTPAddressFrom .Subject = Subject .TextBody = Body End With In the body of the email I need some of the text to be bolded or underlined. I can't figure out how to make this happen. I've tried to use <b> and </b> but it's not working. So, if I have something along the lines of the following, and want to bold the word "must", how would I do it? Body = "All children must do their homework" Thanks, Tag: removing non network printers from a computer Tag: 181727
  - 4
    - Enumerating network shares Hey all, I need to write a simple script that will enumerate all of the shares on our file servers, and the number of user accounts with permissions to each share. The purpose is to evaluate which shares can be deleted to free up disk space by deleting shares with fewer than 10 users. I have found some simple VBScript and JScript code that will enumerate all of the shares on a given server like so: ' Begin code snippit set objFs = GetObject("WinNT://" & strServer & "/LanmanServer,FileService") For Each objShare In objFs strList = strList & vbCr & LCase(objShare.name) & vbTab & UCase(objShare.Description) Next ' End code snippit My problem is that I need to know what other class members/methods are available for the "FileService" (instanced as objFs) In the example above, we use objShare.name and objShare.Description during the loop. In which documentation would I find a list of the other class methods/variables for objShare? I am at wits end, just trying to find the documentation Thanks in advance Tim Tag: removing non network printers from a computer Tag: 181725
  - 5
    - Issues with Scripting.FileSystemObject Hi, I'm using the above function to capture an image on a regular basis and I am having some problems. The piece of code in question is designed to capture an image and save it to a specified location. It as run as a scheduled task so that it is captured at defined intervals. The code in question runs perfectly on all Windows XP machines that I have tried, but does not function as it should on my server running Windows Server 2003 Web Edt. Where the code comes unstuck on WinServ2003 is when it goes to converting the binary data it obtained from accessing the image to text and writing it to the file. The code in question looks like this: <code> Dim Inet, strHTML strHTML = "http://URL" & "/filename.ext" BinarySaveURL strHTML, "C:\filename.ext" Function GetHTTPFile(File) Dim DLText Set DLText = CreateObject("WinHttp.WinHttpRequest.5.1") DLText.Open "GET", File, True DLText.Send If DLText.WaitForResponse(5) = True Then GetHTTPFile = BinToStr(DLText.ResponseBody) End If end function Function BinToStr(Binary) Dim I Dim StrOut For I = 1 To LenB(Binary) StrOut = StrOut & Chr(AscB(MidB(Binary, I, 1))) Next BinToStr = StrOut End Function Sub BinarySaveURL(URL, fn) 'Create an Http object, use any of the four objects Dim Http Set Http = CreateObject("WinHttp.WinHttpRequest.5.1") 'Send request To URL Http.Open "GET", strHTML, False Http.SetCredentials "username", "password", _ HTTPREQUEST_SETCREDENTIALS_FOR_SERVER Http.Send 'Get response data As a string ss = Http.ResponseBody Dim FS Set FS = CreateObject("Scripting.FileSystemObject") 'Create text stream object Dim TextStream Set TextStream = FS.CreateTextFile(fn) 'Convert binary data To text And write them To the file TextStream.Write BinToStr(ss) End Sub </code> It should be noted that WinServ2003 is creating the file in question, but writes no data to it. Can anyone explain why this piece of code will run perfectly on WinXP and not WinServ 2003, and what might need to be done either within the code or on the server in question to allow this to work. All and any help/insight appreciated. Kind Regards, Michael Harris Tag: removing non network printers from a computer Tag: 181723
  - 6
    - Check WMI Connectivity This is a multi-part message in MIME format. ------=_NextPart_000_01FA_01C5CB4A.58582FC0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi all, I want to check WMI Connection to all PCs in my domain. Script code is = as following: For Each strComputer in arrComputers Set objWMIService =3D GetObject("winmgmts:\\" & strComputer = &"\root\cimv2") '(*) If Err.Number > 0 Then WScript.Echo strComputer & " - Unable to connect to WMI. Error " = & Err.Number & "-" & Err.Description Err.Clear Else WScript.Echo strComputer & "Connect to WMI: OK!" End If Next WMI, DCOM, COM+ services are running well in all PCs. Domain Group = Policy forces Windows Firewall in all PCs to open port 135 & 445. There're times that WMI Connection to some PCs cannot be successful = because Domain Group Policy are not applied at the PCs. So when the = script runs, it stops at line (*) about 1 hour (If you choose Properties = at WMI Control in Computer Management, you will have to wait a long = time). This issue occurs in all Wins XP SP2 & Wins 2K SP4. This issue can be solved by running command "gpupdate /force" OR = "secedit /refreshpolicy ..." I want to decrease time to wait PCs' WMI unconnectable. I want to know = whether a PC is connectable or not immediately. There is any way? Thanks ------=_NextPart_000_01FA_01C5CB4A.58582FC0 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.2900.2722" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3DArial size=3D2>Hi all,</FONT></DIV> <DIV><FONT face=3DArial size=3D2>I want to check WMI Connection to all = PCs in my=20 domain. Script code is as following:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial color=3D#ff0000 size=3D2>For Each strComputer in = arrComputers</FONT></DIV> <DIV><FONT face=3DArial color=3D#ff0000 size=3D2>    Set = objWMIService=20 =3D GetObject("winmgmts:\\" & strComputer &"\root\cimv2")=20 '<STRONG>(*)</STRONG></FONT></DIV> <DIV><FONT face=3DArial color=3D#ff0000 size=3D2>    If = Err.Number >=20 0 Then<BR>        WScript.Echo strComputer = & "=20 - Unable to connect to WMI. Error " & Err.Number & "-" = &=20 Err.Description<BR>       =20 Err.Clear<BR>    Else<BR>    =    =20 WScript.Echo strComputer & "Connect to WMI: = OK!"<BR>    End=20 If</FONT></DIV> <DIV><FONT face=3DArial color=3D#ff0000 size=3D2>Next</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>WMI, DCOM, COM+ services = are running well=20 in all PCs. Domain Group Policy forces Windows Firewall in all PCs to = open port=20 135 & 445.</FONT></DIV> <DIV><FONT face=3DArial size=3D2>There're times that WMI Connection = to some PCs=20 cannot be successful because Domain Group Policy are not applied at the = PCs. So=20 when the script runs, it stops at line (*) about 1 hour (If you choose=20 Properties at WMI Control in Computer Management, you will have to wait=20 a long time).</FONT></DIV> <DIV><FONT face=3DArial size=3D2>This issue occurs in all Wins XP SP2 = & Wins 2K=20 SP4.</FONT></DIV> <DIV><FONT face=3DArial size=3D2>This issue can be solved by running = command=20 "gpupdate /force" OR "secedit /refreshpolicy ..."</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>I want to decrease time to = wait PCs' WMI=20 unconnectable. I want to know whether a PC is connectable or = not=20 immediately. There is any way?</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Thanks</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV></BODY></HTML> ------=_NextPart_000_01FA_01C5CB4A.58582FC0-- Tag: removing non network printers from a computer Tag: 181722
  - 7
    - setting registry permissions I can use subinacl.exe /keyreg \HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\EventLog\Security /grant=Administrators=F to change the permissions on my registry but it does not propagate to the children of the registry key, any ideas how I can get it to propagate to children? Tag: removing non network printers from a computer Tag: 181719
  - 8
    - Re: Communications Between 2 Sites "Rafael Chemtob" <rchemtobb@nospam.yahoo.com> wrote in message news:uh79V6qyFHA.3256@TK2MSFTNGP09.phx.gbl... > Hi, > i need to be able to have 2 sites communicate together. Here are the details > of how it works: > 2 Domain names: > www.abc.com > www.def.com > 1. The user is in www.abc.com and receives a cookie. the value in the > cookie is unique. > 2. On www.abc.com, there is a file called "return.asp" > (http://www.abc.com/return.asp) which receives 2 parameters. > a. MID > b. CID > 3. The user clicks on a link to go to www.def.com. > 4. Once the user is on www.def.com and navigates to a certain page that > contains an MID parameter and a CID parameter. The user would remain at the > www.def.com but it needs to communicate to the www.abc.com the MID and CID. > > I've tried different things like placing a 1 pixel image on the www.def.com > site (<img src="http://www.abc.com/return.asp?MID=123&CID=456" width=1 > height=1> and that doesn't work. > Any ideas? > please advise. > rafael > > Can't you just pass the values in the QueryString? That is, http://www.def.com/your_link.asp?MID=123&CID=456 Then have "your_link.asp" access them via Request.QueryString("MID") and Request.QueryString("CID") ********************************* i am passing it in the query string. The user will continue to stay in the www.def.com site so how will the browser know to load the page from the www.abc.com page? Tag: removing non network printers from a computer Tag: 181717
  - 9
    - Communications between 2 sites Hi, i need to be able to have 2 sites communicate together. Here are the details of how it works: 2 Domain names: www.abc.com www.def.com 1. The user is in www.abc.com and receives a cookie. the value in the cookie is unique. 2. On www.abc.com, there is a file called "return.asp" (http://www.abc.com/return.asp) which receives 2 parameters. a. MID b. CID 3. The user clicks on a link to go to www.def.com. 4. Once the user is on www.def.com and navigates to a certain page that contains an MID parameter and a CID parameter. The user would remain at the www.def.com but it needs to communicate to the www.abc.com the MID and CID. I've tried different things like placing a 1 pixel image on the www.def.com site (<img src="http://www.abc.com/return.asp?MID=123&CID=456" width=1 height=1> and that doesn't work. Any ideas? please advise. rafael Tag: removing non network printers from a computer Tag: 181715
  - 10
    - Replace klappt nicht... Hallo, bestimmt eine Kleinigkeit: Ich möchte in einerm String (Telnummer) den Anfang mit "Replace" modifizieren: <schnipp> strTelephone = "" strMobil = "" strName = usr.get("sn") & ", " & usr.get("givenName") strMail = usr.get("mail") strTelephone = usr.get("telephoneNumber") Replace strTelephone,"+","00" strMobil = usr.get("mobile") Replace strMobil,"+","00" schreibLog strName & vbTab & strMail & vbTab & strTelephone & vbTab & strMobil Klappt aber nicht... Für Hilfe Danke im voraus, Gruß Markus Tag: removing non network printers from a computer Tag: 181708
  - 11
    - clickable span lacks visual queue that i did something! please help Hi all. Hope this question generates more help than the last one did! I have a clickable span that runs a script and it workds fine except for one thing. When a user clicks it, there is no visual queue that the script is running. So the user ends up clicking it multiple times! I added a message to the beginning of the script routine, but lag between the click and then that message pop is just enough to tempt people to click again. Is there some way to lick this problem? Heres the span and script: # span # <span id="ClickableSpan5" onClick="RunScriptA" ><img border="0" src="application_profiles/HelperFiles/mag_glass2.jpg" width="34" height="34"></font><font face="Arial" color="#808080" size="1"> <b> [search]</b></font></span> # script # <script> Sub RunScriptA document.body.style.cursor = "wait" on error resume next set oShellc = CreateObject("Wscript.Shell") oShellc.run "search_applet.vbs" document.body.style.cursor = "default" set oShellc = Nothing end sub </script> Tag: removing non network printers from a computer Tag: 181702
  - 12
    - Automate IE Checkbox Here is the situation: I am logging on to an intranet website that has 5 or 6 checkboxes. I want to be able to go to the same site, but automatically check these 5 boxes. I don't need to do an automatic submit or anything. Just need to log on to this intranet website and already have the 5 boxes checked. I do not have access to the source code of this intranet site. So, I need to write a script or something on my computer that will log on to the site but then automatically check the 5 boxes. Any help on this matter would be appreciated. Thank-you. Tag: removing non network printers from a computer Tag: 181700
  - 13
    - Adds printer but no with drivers... I use a simple script to map our printers as shown below. Dim net Set net = CreateObject("WScript.Network") net.AddWindowsPrinterConnection "\\server1\printer1" net.SetDefaultPrinter "\\server1\printer1" The problem is that the printer is added but with no drivers. When you try to view the properties or print something you recieve an error saying that no drivers were installed. Could someone please help me with a script that adds the correct drivers at the same time... Thanks Tag: removing non network printers from a computer Tag: 181696
  - 14
    - Adding a second smtp address Hi, I need add a secondary smt addres to all users. Must be they login + my mail domain. How could I do that in vbs for all users ? Tnks Tag: removing non network printers from a computer Tag: 181695
  - 15
    - adding multiple users from text file to a group Hi there, I am trying to add multiple users accounts from text file and add them to a group. I am able to read user list from text file and create new users but not able to add them into particular group. What is do is, I open and read the text file and put values in a variable. Like this strList = objDirctionary.Item(objItem) I am able to print strList But when I use this command to add, I have an error msg saying "server refuse to process". objGroup.PutEx ADS_PROPERTY_APPEND, "member", _ Array("cn=" & strList & strDN) strDN is another variable for AD path, I tried to put actual path but still does not work. I guess some problem with "Array" and variable. please help. Thanks Tag: removing non network printers from a computer Tag: 181693
  - 16
    - script for Com+ components Hi, Any script for list status of components com+? thanks Tag: removing non network printers from a computer Tag: 181692
  - 17
    - How To Tell If Running CScript or WScript? I have a VB Script in which I only want to display certain messages if I'm running under CScript. I use WScript.Echo to display these messages. If the script is running under WScript, it opens the message box and I have to hit "OK" to continue, so if the script is running under WScript, I do not want to display these messages. I'm looking for a way, in the script, to tell if it is running under CScript or WScript. Is there some property that tells me which program the script is running under? If not, is there any other way to accomplish this? Thanks Tag: removing non network printers from a computer Tag: 181689
  - 18
    - How to read data from SQL db and write to a OWC component I want to create a Excel OWC component and read data from the Orders table of the Northwind database and write into the OWC (Office Web Component) component from VBScript on a ASP page. Can you kindly share the code. Thanks Karen Tag: removing non network printers from a computer Tag: 181688
  - 19
    - Best Expired domain finder Find expired domains with the best software: http://www.antssoft.com The best domain names are already taken. But with expired domain software you can find the best domain names like: -------------------------------- http://www.beyx.com http://www.c6d.de http://www.fyq.us http://www.gv0.net http://www.j1o.de http://www.aj0.net http://www.3tt.de http://www.3ss.de http://www.aryh.com http://www.qym.us http://www.f6x.de http://www.60n.de http://www.7ix.de http://www.k9m.de http://www.4bx.de http://www.9kk.de http://www.bx0.net http://www.0ol.de http://www.w6x.de http://www.xub.us ----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeeds.com The #1 Newsgroup Service in the World! >100,000 Newsgroups ---= East/West-Coast Server Farms - Total Privacy via Encryption =--- Tag: removing non network printers from a computer Tag: 181685
  - 20
    - How to close file from vbs? I know there must be a simple way to do this but so far I haven't found it. I have a vbs file that writes output to an Excel file. All I want to do is have the script close the file if it is open when the script is run. Something like: If test.xls is open Close test.xls Is this possible? Tag: removing non network printers from a computer Tag: 181678
  - 21
    - Create network neighborhood shortcuts depending on Group membership I want to map drives without a drive letter in Network places. I have the two parts (removing and adding shortcuts in nethood, but cannot get the rights checker to work with them. Take a look at what I have... ' Clear all entries in the nethood folder Const NETHOOD = &H13& Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(NETHOOD) Set objFolderItem = objFolder.Self strPath = objFolderItem.Path & "\*.*" Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile(strPath) ******* ' create nethood shortcuts Const NETHOOD = &H13& Set objWSHShell = CreateObject("Wscript.Shell") Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(NETHOOD) Set objFolderItem = objFolder.Self strNetHood = objFolderItem.Path strShortcutName = "Test Folder" strShortcutPath = "\\testserver\p15141" Set objShortcut = objWSHShell.CreateShortcut _ (strNetHood & "\" & strShortcutName & ".lnk") objShortcut.TargetPath = strShortcutPath objShortcut.Save What I WANT to do is associate these with group permissions. I need to create about 300 shortcuts for projects, departments, proposals and so on. Groups are nested and in a w2k3 domain.The clients are w2k and XP. The share names are \\server1\share1 standard shares on w2k and w2k3 servers. Thanks in advance, Tag: removing non network printers from a computer Tag: 181673
  - 22
    - PasteSpecial: values and formats possible in vbs? I use the following code in vbs to copy and paste data from one Excel cell to another: XLBook.Worksheets("Sheet1").Select XLBook.Worksheets("Sheet1").Range("A1").Copy XLBook.Worksheets("Sheet1").Range("B1").PasteSpecial My code above does a regular paste, but I need to do a paste special that only pastes values and number formats. I've created a macro in Excel that does this and the vba code for it is: Range("A1").Select Selection.Copy Range("B1").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False However, the vba code above does not work in vbs. It throws an Expceted Statement error at the first colon (:) in the PasteSpecial line. Does anyone know how I can do this in vbs? Tag: removing non network printers from a computer Tag: 181666
  - 23
    - server.HTMLEncode Corrupts French Characters Hello there, I'm using server.HTMLEncode and I find that it corrupts the characters. I added this to my page and it didn't work: <meta http-equiv"Content-Type" content"text/html; charset=utf-8"/> I tried it under Windows Server 2000 and Windows Server 2003, both failed. How can I get HTMLEncode to work with the French Characters? I will be much appreciated for the help. Thank. Kat Tag: removing non network printers from a computer Tag: 181661
  - 24
    - Save outlook messages as textfiles I receive a forward email with several other emails as attachments. I have a .vbs script that saves the e-mail to disk including the attachments (several e-mails) in the mail. I would like to save the mail like readable .txt files instead of the default .msg files. I'm using the SaveAsFile propertie, but i'm not able to save the attached .msg mails as plain text files. if you have some vbs lines that could help me, that would be very nice thanx Leon Tag: removing non network printers from a computer Tag: 181652
  - 25
    - Excel Graph I'm creating a jpg from a comma seperated input file. The file is in the style A,10,20 B,30,50 C1,21,40 C2,35,70 E,36,50 So has three values and is alphabetically listed with the first. I'm creating the Excel graph with the following script ================================================= DIM x(100) DIM y(100) DIM z(100) vDate=Date() LastMonth=DateAdd("m",-1,vDate) vYear=Year(LastMonth) vMonth1=Month(LastMonth) vMonth=MonthName(vMonth1) If vMonth1<10 then vMonth1="0"&vMonth1 Set oFS=CreateObject("Scripting.FileSystemObject") inFILE="data.txt" Set inputFILE=oFS.OpenTextFile(inFILE) linecount=0 While Not inputFILE.AtEndOfStream linecount=linecount+1 vline = inputFILE.Readline If Len(vline)>0 then splitline=split(vline,",") x(linecount)=splitline(0) y(linecount)=splitline(1) z(linecount)=splitline(2) End If WEnd inputFILE.Close Set inputFILE=Nothing Set oFS=Nothing set loChartSpace = WScript.CreateObject("OWC10.ChartSpace") set oConst = loChartSpace.Constants set loGraph = loChartSpace.Charts.Add() loGraph.Type = 3 loGraph.HasLegend = True loGraph.PlotArea.Interior.Color = "azure" loChartSpace.HasChartSpaceTitle = True loChartSpace.ChartSpaceTitle.Caption = "Values - "& vMonth & ", "&vYear loChartSpace.ChartSpaceTitle.Font.Bold = True Set objAxis = loGraph.Axes(oConst.chAxisPositionBottom) 'Axis Properties With objAxis .HasTitle = True .Scaling.Maximum=100 .Title.Caption = "Percent" .Font.Size = 6 End With Set objAxis = loGraph.Axes(oConst.chAxisPositionLeft) 'Axis Properties With objAxis .HasTitle = True '.Scaling.Maximum=100 .Title.Caption = "Values" .Font.Size = 8 End With loGraph.SeriesCollection.Add() loGraph.SeriesCollection(0).Caption = "In" loGraph.SeriesCollection(0).Interior.Color = "#66ccff" loGraph.SeriesCollection(0).SetData oConst.chDimCategories, oConst.chDataLiteral, x loGraph.SeriesCollection(0).SetData oConst.chDimValues, oConst.chDataLiteral, y loGraph.SeriesCollection.Add() loGraph.SeriesCollection(1).Caption = "Out" loGraph.SeriesCollection(1).Interior.Color = "#000099" loGraph.SeriesCollection(1).SetData oConst.chDimValues, oConst.chDataLiteral, z lcFile = "D:\rank\graphs\"&vYear&vMonth1&".jpg" loChartSpace.ExportPicture lcFile,"jpg",800,600 ========================================================= Most of which has been found on the internet (so if you see some of your own code in there - thanks!!!!!!!) The thing is I'm setting loGraph.Type = 3 which is sideways columns. The problem I'v got is that the values in the first column of the csv (alphabetical) are displayed in reverse (top to bottom) on the graph. So the graph show in the left column : E C2 C1 B A It seems to be OK if I choose loGraph.Type = 0 (columns going up) with the bottom axis showing A,B,C1,C2,E Is there any way I can flip the data simply so when I've got loGraph.Type = 3 the left axis is alphabetically downwards? Many Thanks Tag: removing non network printers from a computer Tag: 181650

Hi.
We have a small script that we run on cumputers that log in to the
domain, the script deletes all printers and then addes a few.

We have a slight problem with the deletion of printers.
When the printer is not a network printer, the script will stop with the
error (here for the printer "Microsoft Office Document Image Writer":

Script: c:\thescript.vbs
Row: X
Col: Y
Error: This network connection

Code: 800708CA
Source: WSHNetwork.RemoveNetworkDrive

The script looks like this and the row that generates the error is the
one marked with "*".

' Begin removing all installed network printers
Set clPrinters = objWshNetwork.EnumPrinterConnections
For i = 0 to clPrinters.Count - 1 Step 2
'wscript.echo clPrinters.Item(i+1) + " deleted."
* objWshNetwork.RemovePrinterConnection clPrinters.Item(i+1), true, true
Next

Any suggestions on how to avoid removing non network drives?

/kb

Top