What MS operating systems have VBS installed?

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
    - verify users in XL spreadsheet exist in AD Hi, I have a spreadsheet where I want to search against the AD to verify if users exist in the AD. I have used the "set objRecordSet = obcommand.Execute" but that only return all of the users it could find from my search string but it does not return the failed search users. Can I use objcommand.properties("Cache Results") = True and list the results that way? Thanks, NT Tag: What MS operating systems have VBS installed? Tag: 208299
  - 2
    - Why is this file copy/delete code failing? Below is VBS code to copy a file from one folder to another, and then delete it. I've stripped it out of a larger function just to isolate the problem pieces. The folders are referenced in UNC format because the longer-term goal is to use it across the network. If I run it from scratch, the file copy works fine, but the file delete fails. If I then run the script again, the file copy fails. It seems the file copy will only succeed if the file doesn't already exist in the target folder, so it would sound like a permissions issue. However, I have full Change permissions on both source and destination folders, and if I attempt the same thing from the same command line using DOS, it succeeds. Anyone have a pointer as to what I might be doing wrong? Thanks. If you try to run this yourself, change the sSourcePath and sResultsFN values in the main script, and the oFolder path value in the Function to something that will work on your computer. Option Explicit Dim sTargetPC, oNet, oFSO, oShell Public sSourcePath, sResultsFN sSourcePath = "\\127.0.0.1\d$\work\Temp\" sResultsFN = "Results!.txt" Set oNet = CreateObject("WScript.Network") Set oFSO = CreateObject("Scripting.FileSystemObject") Set oShell = CreateObject("WScript.Shell") sTargetPC = "127.0.0.1" Call subDeleteTempFiles(sTargetPC) Sub subDeleteTempFiles(sComputer) Dim oFSO1, oFolder Set oFSO1 = WScript.CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO1.GetFolder("\\" & sComputer & "\d$\Work") On Error Resume Next oFSO1.CopyFile sSourcePath & sResultsFN, oFolder.Path & "\" If Err.Number <> 0 Then MsgBox Now & vbTab & "Halt: Can't copy " & sSourcePath & sResultsFN & " to " & oFolder.Path WScript.Quit Else Err.Clear msgbox "File should be copied now." End If On Error Resume Next oFSO1.DeleteFile(oFolder.Path & "\" & sResultsFN) If Err.Number <> 0 Then MsgBox Now & vbTab & "Halt: Cannot delete " & oFolder.Path & "\" & sResultsFN WScript.Quit Else Err.Clear msgbox "File should be gone now." End If End Sub Tag: What MS operating systems have VBS installed? Tag: 208293
  - 3
    - Need reference for Excel object functions Hello, I'm trying to incorporate an Excel object into my script and need a reference for the available functions. Thus far I have not been able to find a comprehensive reference. I have found a few samples here and there, but I need more. In a nutshell I need to do the 4 steps below and need help with #1 and #4. Thanks. 1. Create a new Excel workbook. << How do I do this? 2. Add data to it. 3. Sort the data in descending order by A1. 4. Save the workbook. << How do I do this? -- Regards, Martin X. MCSA: M Tag: What MS operating systems have VBS installed? Tag: 208290
  - 4
    - Hide UNC in path under mapped drive? I want to map my users directly to a folder within in a shared folder and hide the unc path on the drive mapping under my computer. Can anyone tell me how to do that? Tag: What MS operating systems have VBS installed? Tag: 208283
  - 5
    - wmi or vbscript help Hi, I'm not a coder by any means, but I'm slightly wet behind the ears. What I'm looking to do is the following: I am responsible for imaging several desktop and laptop computers in our school district, and one of the mundane tasks I must do after each machine has been imaged is to remove the 2 checkmarks under startup and recovery options in windows xp (time to display list of operating systems and time to display list of recovery options...) It get's to be a hassle to do this every time I image a machine, and was hoping that this could be done via a script. Unfortunately, I've not been able to find any info on how to do this with either wmi or vbscript. I was able to find info on setting the timeout, but I really need to be able to disable both of these options alltogether. So, any ideas, sample scripts, things to look for, etc??? Thanks, Doug Tag: What MS operating systems have VBS installed? Tag: 208272
  - 6
    - problems delete files and folders from desktop for domain user We have a script that will delete files and folders from the desktop on login. However, the users logging in have their profiles as user.domain and not user so when the script runs it is deleting things from c:\documents and settings\user\desktop instead of c:\documents and settings\user.domain\desktop. I forget what to add. Part of the script is below. Thanks. strDesktop = objWSH.ExpandEnvironmentStrings("%UserProfile%\desktop\") '*******Delete Files and Folders from desktop******* Set Shell = CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") DesktopPath = Shell.SpecialFolders("Desktop") objFSO.DeleteFile (DesktopPath & "*.*") objFSO.DeleteFile(strDesktop & "*.*") objFSO.DeleteFolder(strDesktop & "*.*") Tag: What MS operating systems have VBS installed? Tag: 208270
  - 7
    - Global module limit of size of text? I have a process that combines many vb functions into a single String object. This is then added to the VBScript control via the AddCode method. Implicitily this becomes part of the global module. When the script runs i start to get errors - because some of the functions are missing. This happens when the text reaches a certain limit. So is there a limit on the text that you can add to the global module? How can i resolve this problem? Thanks. Tag: What MS operating systems have VBS installed? Tag: 208269
  - 8
    - Disable Start Button Hi all. I am trying to lock down computers for certain users for security reasons. Is there a way that i can disable to start button at logon without having to then reboot the computer. Everything I have found says that it only works after I have logged in, then off and then logged back in again. I would like to disable the start button using VBS. Any help in this matter would be highly appreciated. Thank you Tag: What MS operating systems have VBS installed? Tag: 208268
  - 9
    - Two CSV file data to new excel file I am having two CSV files. I need to generate new excel file while running VBSCRIPT. That newly generated excel file sheet1 data should be first csv file data and the same file sheet2 data should be second csv file data.Newly generated excel file sheet1 name should be name of the first csv file and the same file sheet2 name should be name of the second csv file.I need only in VBSCRIPT not in VBA Thanks in advance for your help Tag: What MS operating systems have VBS installed? Tag: 208264
  - 10
    - Re: placing computers OUs depending on where the user is Hi, I am looking for a script that will move computers to a OU depending on where the user is place in AD. For example, if a user is in OU=IT,DC=TEST,DC=COM I would like to computer to be placed in that container or even better a container underneath ie OU=ITCOMPUTERS,DC=TEST,DC=COM I was hoping this could be done via a vbscript TIA Oli Tag: What MS operating systems have VBS installed? Tag: 208255
  - 11
    - Monitoring script for run away processes I have a need to create a script that will create an event log entry on the local machine for any process that starts with nv* and has been running over 20 hours? Does anyone have and idea on how to complete this? -- Nick Tag: What MS operating systems have VBS installed? Tag: 208254
  - 12
    - Document conversion Hello all. I have an exchange 2003 environment with over 300 user accounts. When we get a new user, I create an HTM signature file, open it in word, save it as RTF and then save as TXT. These files are put in a folder on a network share named the same thing as the user's username. For example, the user's name is john smith. On the network share, would be a folder called jsmith, and within that folder would be 3 files, signature.htm, signature.rtf and signature.txt. During the login, the login script takes these files and Xcopies them into the signatures folder in the user's profile. I then have a VBS script (courtesy of Sue Mosher, microsoft MVP) that sets this signature file as the current signature. My problem is this... I do not want to have to OPEN the HTM file to create the RTF and the TXT. I COULD create the rtf simply by doing an xcopy "path\sig.htm path\sig.rtf" and that works fine. Trouble is when creating the TXT, ALL the html code becomes visible. Is it possible at all to do this via VB script? Thanks in advance. Tag: What MS operating systems have VBS installed? Tag: 208253
  - 13
    - update today's date in a folder name, daily, via a script? JustSomeGuy <JustSomeGuy@discussions.microsoft.com> wrote: Looking for a way to have a folder whose name goes like this: "Today is July 19, 2007" and the date dynamically updates daily so it's always the correct day. could this be simply done in a script that runs daily at some given time and renames the folder? > Is there a way to embed today's date in a folder name so that every > day, the folder name always shows the correct date for that day? >>I imagine you could write a script to regularly rename that folder, but that >>isn't my area of expertise. Try posting in >>microsoft.public.windows.scripting for more expert help. Tag: What MS operating systems have VBS installed? Tag: 208252
  - 14
    - Setting screensavetimeout via registry and getting it to take effect immediately So I've seen a few posts on this topic, however nothing offering a solid conclusion. I'm writing a script that is set to run on login that resets the screensaver settings to a default setting, most importantly overwriting the timeout to 10 minutes regardless of what it is set to. I have a script that does that fine, the only problem is that once the script runs, the machine needs to be rebooted again for the change to be updated in the display properties. Some people have said that i need to run user32.dll, updateperusersystemparameters in order to fix the problem, however that doesnt' seem to work for me. Surely there has to be some way of getting this done. Does anyone have any suggestions? Here is my current script: Set oShell = CreateObject("WScript.Shell") oShell.RegWrite "HKCU\Control Panel\Desktop\ScreenSaveTimeOut", "600" oShell.run "c:\windows\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True Others have said to do some type of API call, however i can't seem to find any type of example for that. Tag: What MS operating systems have VBS installed? Tag: 208250
  - 15
    - Writing my 1st VBS "Script Component" I am writing my furst VBS "Script Component" -- I have a bunch of VBScript code for implementing websites and web-based applications on IIS/ASP. I was thinking "Script Components" looked like a way to compact some of these resources -- at least maybe cut down on the includes I am doing with my asp files. For example, I have a VBScript class in an asp file. Using the Script Component Wizard, I created a typelib file and a wsc file that describe the properties and methods of my VBS Class. Now, I'm supposed to put the VBS code into the wsc "envelope" created by the Wizard. My [blatantly-newbie] questions are these: (1) Do I include the "Class" and "End Class" statements in the wsc file somewhere? I would think not because if it is in a wsc file it -IS- a class; is it not? (2) Will this code now run any faster? Why or why not? The code is not used inside any loops or anything. (Actually, it uses CAPICOM.dll to encrypt payment transactions to PayPal.) (3) Should the typelib be declared in the Application Object (i.e., in the global.asa file)? Or should I just splice the reference into each ASP file that uses it? (4) Should the object be instantiated in the Application object? When { is this | is this not } a good idea? (5) Should I implement the ASP interface within this Script Component (for the purpose of accessing the IIS Objects)? As a convenience, I define certain constants there which adapt the set of files (i.e., the website) to the configurations of different servers (e.g., data sources, smtp and pop3 addresses, things like that). But it's not that important. I suppose the answer has something to do with server farms, loadsharing, and the scope of ASP Objects. Any remarks? Thanks for your kind assistance. Jim Rodgers ------------ COMMENT: You know, it's kind of cool that such an often-disregarded language (which I love anyway) can have classes, including enumerated constants and all that jazz. The resonance among my VBA, VB6, and VBScript code libraries is just amazing! Thank God for ten solid years of ASP Classic, the MS Office Macro recorder, and IntelliSense! Tag: What MS operating systems have VBS installed? Tag: 208248
  - 16
    - Reg write to ScreenSaveTimeout not taking effect So I've seen a few posts on this topic, however nothing offering a solid conclusion. I'm writing a script that is set to run on login that resets the screensaver settings to a default setting, most importantly overwriting the timeout to 10 minutes regardless of what it is set to. I have a script that does that fine, the only problem is that once the script runs, the machine needs to be rebooted again for the change to be updated in the display properties. Some people have said that i need to run user32.dll, updateperusersystemparameters in order to fix the problem, however that doesnt' seem to work for me. Surely there has to be some way of getting this done. Does anyone have any suggestions? Here is my current script: Set oShell = CreateObject("WScript.Shell") oShell.RegWrite "HKCU\Control Panel\Desktop\ScreenSaveTimeOut", "600" oShell.exec "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True Tag: What MS operating systems have VBS installed? Tag: 208243
  - 17
    - computer name IF statment ? Hello Everyone, Below is code we use to map over network shared printers however was wondering if there was some VB script code I could use to put a condition on it. The condition being, if this person logs onto computer A then the printers are mapped over but if the same user logs into computer B then the printers are not mapped over. Any help on this would be great. If InGroup( "Active Directory Printer Group" ) Then Call AddPrinter ("domain", "computername", "printer name") objWshNetwork.SetDefaultPrinter "UNC path to printer" End If Thank you Alex Anderson Tag: What MS operating systems have VBS installed? Tag: 208238
  - 18
    - computer name IF statment ? Hello Everyone, Below is code we use to map over network shared printers however was wondering if there was some VB script code I could use to put a condition on it. The condition being, if this person logs onto computer A then the printers are mapped over but if the same user logs into computer B then the printers are not mapped over. Any help on this would be great. If InGroup( "Active Directory Printer Group" ) Then Call AddPrinter ("domain", "computername", "printer name") objWshNetwork.SetDefaultPrinter "UNC path to printer" End If Thank you Alex Anderson Tag: What MS operating systems have VBS installed? Tag: 208237
  - 19
    - Variable within 'Email Body' I got this script that gets sent if something errors out. My problem is that I would like to have the variable (source) be a part of the message body. This is what the message body looks like right now. strEmailBody="Your machine PC has failed to backup one or more of the requested files." I want it to be like this: strEmailBody="Your machine PC has failed to backup one or more of the requested files from" &source". It was trying to backup to this location: " &dest However, when I try to do that it gives me an error: 'Expected end of statement' Thanks! Tag: What MS operating systems have VBS installed? Tag: 208236
  - 20
    - Creating nested folders (from file path provided by user) Hello all, I know how to create a single folder but suppose I pass thru command line argument: C:\cars\toyota\solara and imagine none of those folders exist in the hard drive. How would you use VBScript to create them? Thanks a lot in advance. Tag: What MS operating systems have VBS installed? Tag: 208231
  - 21
    - variable within text Here is my problem: I have this line: strEmailBody="Your machine PC has failed to backup one or more of the requested files. To verify which files have been backed up visit <\ \fileserver\Fileserver\Cell Folders\Backups>. We recommend that you figure out the cause of this issue and fix it or contact Information Technology if you need assistance. Failure to do so might put you at risk of losing critical data. If you have any questions or if you feel that the information provided is not correct, please contact it.help. Thank you for your time, IT Team." I want to include the source in there which is a variable based on what is being backed up. I can put &source at the end of that and it shows up, however when I try to add it somewhere in the middle it only shows up as &source and not the actual source. I closing the quotes before &source and then creating new one afterwards like so: strEmailBody="Your machine PC has failed to backup one or more of the requested files. To verify which files have been backed up visit <\ \fileserver\Fileserver\Cell Folders\Backups>. We recommend that you figure out the cause of this issue and fix it or contact Information Technology if you need assistance. " &source " Failure to do so might put you at risk of losing critical data. If you have any questions or if you feel that the information provided is not correct, please contact it.help. Thank you for your time, IT Team." but that gives me an error: expected end of statement How do I add in there? Thanks! Tag: What MS operating systems have VBS installed? Tag: 208230
  - 22
    - Problem looping through OUs using LDAP The following script pulls the User Name from one OU but I have ten OUs that I want to pull this same information from and I am unable to figure out a way to have the script loop through the other 9 OUs. The OU=City part is what changes. Can anyone suggest a way to do this? On Error Resume Next Const ADS_SCOPE_SUBTREE = 2 Const ForAppending = 8 Const ForReading = 1 Dim fso, f Text1 = "OU=Users,OU=City,OU=Division,dc=Mycompany,dc=local' WHERE objectCategory='user'" Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("C:\testfile.txt", ForAppending, True) Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE strQuery = "SELECT Name FROM 'LDAP://" & Text1 objCommand.CommandText = strQuery Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF f.writeline objRecordSet.Fields("Name").Value objRecordSet.MoveNext Loop f.Close objFile.Close Tag: What MS operating systems have VBS installed? Tag: 208227
  - 23
    - Read date from file and append new file Hi, This is probably basic stuff for the majority, however I am attempting to write a little script to do the following: I have a Process ID file (for Websphere), which has ONE entry init, a number, say 1192. Whenever Websphere is restarted this Process ID changes and hence the number in the PID file changes from 1192 to say 3456 (not appended). What I want to do is write a little script, which picks up this entry and write it into a new file, appending to it if and when it changes. Does that make sense? Cheers Tag: What MS operating systems have VBS installed? Tag: 208226
  - 24
    - Indexing a Word document I have a document created with MailMerge function, now i need to create and index (on a text or on a xml file ... anything goes) to an external file. In other therms, I need to know where is the starting page of any letter, a cvs file that look like this <merge cvs field 1>;<merged document page 1> <merge cvs field 2>;<merged document page 2> <merge cvs field 3>;<merged document page 3> . . . <merge cvs field n>;<merged document page n> will be perfect. Anybody have already tried this? Tag: What MS operating systems have VBS installed? Tag: 208225
  - 25
    - Problem witth New User Creation Script All, Can anyone please help. I have a VBScript which creates a new AD/ Exchange User, creates a new home directory, sets all the permissions and then adds all the relevant groups. The problem I have is that when the user first logs in his Home drive is not mapped. I have checked and double checked the script and nothing appears to be wrong. If I change the Home directory Drive in AD and then apply the changes, then change the Drive back again it works fine, so I don't think it is the Script. Has anyone seen this before? Can anyone shed any light as to what could be causing this? All help is appreciated. Kind Regards Chris Tag: What MS operating systems have VBS installed? Tag: 208223
- Next
  - 1
    - Restart machine script help Hi, I have the following script, the question is, i would like to add 2 things to this script but am not sure how to. 1) Create a log file for this that will show "username" and say "time" and "date" it was ran. 2) Rarther than the machine name hard coded in the script allow a pop up box so the user enters the machine name manually? strComputer = "atl-dc-01" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Shutdown)}!\\" & _ strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems objOperatingSystem.Reboot() Next Tag: What MS operating systems have VBS installed? Tag: 208222
  - 2
    - Revoke DHCP Lease Hi, Does anyone know of a way to revoke DHCP address lease by hostname using a script? I'm not too techie and dont know where to start. all help and pointers appreciated. Tag: What MS operating systems have VBS installed? Tag: 208219
  - 3
    - Hot to run multiple programs with one script? Hello everybody i've the need to create a script that will run as a scheluded job every day on a windows 2003 server machine. The script's purpose is pretty simple: it has just to start 4 programs (all progs have a gui but i dont need it to be visible) with a 10 second delay between each one.. Now due to my very basic scripting knowledge i can't figure out how to realize this :( Im trying the run method but only the first program starts, thern the script wait for it to be terminated and start the second one etc... while i need that all the program start. This is the crappy code i wrote: Dim oWS Set oWS = CreateObject("WScript.Shell") oWS.Run "C:\Applicativi\PssServer\PssServer.exe" oWS.Run "C:\Applicativi\Dispatcher\dispatcher.exe" oWS.Run "C:\Applicativi\CaricaBiglietti\CaricaBiglietti.exe" oWS.Run "C:\Applicativi\NotificaQuote\StockQuote.exe" Any help would be greatly appreciated Tag: What MS operating systems have VBS installed? Tag: 208218
  - 4
    - Revoke DHCP lease Hi, Does anyone know of a way to revoke DHCP address lease by hostname using a script? I'm not too techie and dont know where to start. all help and pointers appreciated. Tag: What MS operating systems have VBS installed? Tag: 208217
  - 5
    - This in VB6? Hello, This is a snippit from a VBScript routine. Dim PINPad Dim ResultString Set PINPad = WScript.CreateObject("OPOS.PINPad") WScript.ConnectObject PINPad, "EventHandler_" The ConnectObject is my trouble. How would I do that in VB6? Thanks Tag: What MS operating systems have VBS installed? Tag: 208214
  - 6
    - Execute VBS from Notepad++ Hi, Is there a way to execute a VBS from within Notepad++? I know with ConTEXT it could be done and had a button right on the toolbar to run the VBS. -- Regards, Martin X. MCSA: M Tag: What MS operating systems have VBS installed? Tag: 208210
  - 7
    - questions on map printers based on groups I am new to scripting and see the boundless opportunities. I admin about 100 pcs for a small private school and looking for a way to create printers based on AD security groups. The script will run within their logon script. Situation: The users DO NOT have admin priviledges on the pcs. We have 5 network printers that are different make and models. They are connected directly to the network and we access with an ip address. Different users share the same pc. Also I want to keep from having to touch each pc if possible. Here are my questions: 1) Will I be required to go to each pc and install the drivers for the printers that pc will use? 2) Will only the printers that are created and mapped with the script show up in the printers folders? 3) Can a user w/o local admin rights run the script to install the printer. 4) Should I share the printers off the server rather than printing directly to them over the network? 5) If printers are accessed as a share can varibles be used so that if the share moves to another server only the varible needs to be changed (thinking about varibles in a batch file)? Here is my logon batch file @echo off net use * /delete /y net use u: \\server\users\%username% cscript %logonserver%\netlogon\logon.vbs This is my logon.vbs script. I map drives based on groups On Error Resume Next Set objSysInfo = CreateObject("ADSystemInfo") Set objNetwork = CreateObject("Wscript.Network") strUserPath = "LDAP://" & objSysInfo.UserName Set objUser = GetObject(strUserPath) For Each strGroup in objUser.MemberOf strGroupPath = "LDAP://" & strGroup Set objGroup = GetObject(strGroupPath) strGroupName = objGroup.CN Select Case strGroupName Case "group 1" objNetwork.MapNetworkDrive "F:", "\\server\share1$" Case "group 2" objNetwork.MapNetworkDrive "G:", "\\server\share2" End Select Next Tag: What MS operating systems have VBS installed? Tag: 208206
  - 8
    - DOWNLOAD CRACKED 2007's SOFTWARE: ARCHICAD 11,UNIGRAPHICS NX5,SOLIDWORKS 2008,XSTEEL 13,AUTOCAD 2008 Our team provide different types of services such as: - proffessional cracking of any kind of software (CAD,CAM,CAE,EDA,GIS,PCB,FEA,FEM,CNC,CFD,PDS,3D,Optics etc.) designed for any kind of operating systems(Windows 95/98/ME/2000/XP, Linux, FreeBSD, OS/2, MAC OS etc.) - producing keygens, licenses for different proctection systems (FlexLM, SentinelLM, ElanLM, CrypKey, etc.) - producing emulators for any kind of dongles (SentinelPro, SentinelSuperPro, Hasp4, Hardlock, WIBU, Guardant, etc.) - quality reverse engineering (decompilation of programs, algorithms reconstruction, etc.) - any other reverse engineering services... Also we have an excellent relationship with all our customers and we always happy to help them solve their problems. Our skills and experince will help you make a valuable conribution to your business. All soft we offer have been completely cracked and tested carefully by expert in corresponding field. All programs are full copies of originals (not demo, evaluation, trial or educational version) including English or multilanguage tutorial and crack or license file that makes program work as registered software from the house. Here is just a part of our software list.For getting the additional information, view our software list and ordering programs just visit our WEBSITE: http://www.cd-soft.net >> Contact e-mail: CDsoft2007@yahoo.com or CDsoft2008@yahoo.com Here is an example of the most popular offered latest software: 06.07.2007 TEKLA XSTEEL STRUCTURES V13 DASSAULT SYSTEMES CATIA V5R17 SP6 Simulia Abaqus v6.7 Mercedes Benz Navigations CD Audio 50 APS Europa MSC Adams 2007 R1 PROCAD 3DSMART V2007.1 CODEGEAR RAD STUDIO DELPHI V2007 PTC PRO ENGINEER WILDFIRE v3.0 M090 MSC EASY5 v2005 R1.4 Simulia Abaqus v6.7 ------------------------------------------------------------------------ -------- 29.06.2007 Falk Navigator 5 Kartenmaterial Europa 2007 MSC Dytran 2007 R1 Transmagic Plus v7.0 Route66 Navigate v7.0 Europa NI SoftMotion Controller v2.1 Medion GoPalPE.3.0A INVENSYS SIMSCI PROII V8.1 Rasterweq Software SmartCUT Pro v2.3.2.0 Cigraph ArchiTabula v1.97 For Archicad 11 Cigraph ArchiSketchy v1.97 For Archicad.11 Cigraph ArchiTime v1.97 For Archicad.11 ------------------------------------------------------------------------ -------- 22.06.2007 Route66 Navigate v7.0 Europa NI SoftMotion Controller v2.1 Graphisoft ArchiCAD v11 International Retail Readnfo GibbsCAM 2007 v8.5.13 Megatech MegaCAD 3D v2007 IMSIDesign TurboCAD Designer v14 CURIOUS WORLD MAPS V7.2F Bentley Microstation XM v8.09.04.44 Bentley Microstation Prerequisite Pack v8.09.04.01 Transmagic Plus v7.0 UNIGRAPHICS NX5 SURFWARE SURFCAM VELOCITY III SP1 ------------------------------------------------------------------------ -------- 14.06.2007 UGS FEMAP V9.3 ETA CAD Translator v1.200704 ETA VPG v3.2 WiNNT2K CSI SAFE PLUS DETAILER V8.1.0 AutoForm Master 4.1 Abaqus v6.7 VectorWorks V12.5.1 GibbsCAM 2007 v8.5.10 Malz Kassner CAD6 Industry v2007 Malz Kassner CAD6 Studio v2007 Dolphin SMASH v5.8.4 ------------------------------------------------------------------------ -------- 05.06.2007 SynaptiCAD AllProducts v12.01b Super FinSim v9.1.11 Depth Of Field Generator PRO v3.0.74 for Adobe Photoshop NI Circuit Design Suite Educational v10.0.1 NI Circuit Design Suite Pro v10.0.1 Dolphin SMASH v5.8.3 Aldec Active HDL v7.2 CST Studio Suite v2006B SP3 CD-Adapco Star-CD v4.02 Intel Thread Profiler v3.1.021 Intel Thread Checker v3.1.021 ------------------------------------------------------------------------ -------- 29.05.2007 SURFWARE SURFCAM VELOCITY III SP1 Bentley speedikon Architectural v08.00.00.25 for MicroStation XMS Bentley speedikon Industrial v08.00.00.25 for MicroStation XM PROTEUS ENGINEERING MAESTRO V8.7.6 PROTEUS ENGINEERING FASTSHIP V6.1.29 PTC PRO ENGINEER WILDFIRE v3.0 M080 Intel VTune Performance Analyzer v9.0.010 Intel VTune Performance Analyzer v9.0.969 Intel C Plus Plus Compiler v9.1.037 Intel Visual Fortran Compiler Pro v9.1.037 Carbon Coder v2.51 Rhozet Corporatio OPTIMAL SOLUTIONS SCULPTOR V2.1 ------------------------------------------------------------------------ -------- 20.05.2007 CSI ETABS NL V9.1.4 Solidworks 2007 SP0.0-SP3.1 Service Pack ALTAIR HYPERWORKS V8.0 SR1 AUTODESK PRODUCTSTREAM PRO V2008 Autodsys IntelliCAD v6.3 Pro Plus Edition NI DIAdem v10.2 NI LabWindows CVI FDS v8.1.1 NI Teststand v4.0 Eurosystems SmartCut Pro 6.1.13 CimatronE v8.0 FunctionBay RecurDyn v6.3 SP4 UGS TEAMCENTER VISUALIZATION V2005 ------------------------------------------------------------------------ -------- 13.05.2007 CADopia Professional 6.0 SP1 CADopia Intellicad 5 Standard SP1 v5.0.20.0 Ansoft Maxwell 2D & 3D 11.1 GEOMAGIC STUDIO V9 DHI MIKE NET V2007 DHI MIKE STORM V2007 PROKON STRUCTURES V2.2-LND LEAP SOFTWARE LEAP BRIDGE V6.0 MOLDFLOW DESIGN LINK V5.2 ADAPT BUILDER-EX V3.0 CEI ENSIGHT GOLD V8.2.4B 32BIT ------------------------------------------------------------------------ -------- 04.05.2007 GibbsCAM 2007 v8.5.6-Lz0 SURFWARE SURFCAM VELOCITY III MSC PATRAN V2006 R1for IA64&IRIX&HPUX DASSAULT SYSTEMES CATIA V5R17 SP5 FOR 32 &64 BIT MOLDFLOW PLASTICS ADVISERS V7.3 ARRIBA Planen Kompakt v12.3.233 GGU-Footing v5.0 GGU-Retain v4.42 GGU-Slab v6.0 GGU-SS-Flow2D v8.03 GGU-Stability v8.08 ------------------------------------------------------------------------ -------- 26.04.2007 UGS Solid Edge v19 Update.5 AUTODESK ALIASSTUDIO V2008 ALLDATA v9.20.1002 GibbsCAM 2007 v8.5.2 Maple V11 Professional MAC OSX UB Autodesk Inventor Professional 2008 FLUENT Polyflow v3.11.0 E-ON VUE INFINITE V6.0.5 ALTAIR HYPERWORKS V8.0 X64 VectorWorks v12.5.0 R1 ------------------------------------------------------------------------ -------- 18.04.2007 UGS Jt Catia v5 Translator v4.0 EDS UNIGRAPHICS NX V5.0.25 OpenMind HyperCAD v2006.2.105.41 Dolphin SMASH v5.8.2 Dolphin SoC GDS v5.9.1p2 SynaptiCAD AllProducts v11.18a Agilent Genesys 2007 uper FinSim v9.1.0 Puppetshop v3.35 for 3ds Max Multimeios Fulldome v1.2.0.0 for Adobe After Effects NEWTEK LIGHTWAVE3D V9.2 ------------------------------------------------------------------------ -------- 10.04.2007 CSI SAP2000 11.0 NI DASYLab 9.0.2 THINK3 THINKDESIGN THINKID v2006.2 Think3 ThinkiD DesignXpressions v2006.2 105 41 Aveva Vantage PDMS v.11.6 SP3.5 DELCAM ARTCAM PRO 9.021 DELCAM ARTCAM INSIGNIA 4.019 Bentley Microstation XM v08.09.03.65 Autodesk 3ds Max 9 Extension 1: Productivity Booster Altair HyperWorks 8.0 Ansys Fluent 6.3 Win32 Ansys Fluent 6.3 x64 ------------------------------------------------------------------------ -------- 03.04.2007 Autodesk VIZ 2008 Autodesk AutoCAD Architecture 2008 Autodesk AutoCAD Electrical 2008 Autodesk AutoCAD Mechanical 2008 Autodesk AutoCAD 2008 Autodesk AutoCAD LT 2008 Adobe RoboHelp 6.0 Cedrat Flux 9.3.1 Sofistik Soficad 17.1 3D Home Architect Design Suite Deluxe 8.0 AutoDsys AcceliCAD 2007 v6.2.36.5 CADlink EngraveLab Expert 7.1 rev.1 Build 8 Comsol Multiphysics 3.3 x64 ------------------------------------------------------------------------ -------- 26.03.2007 Adobe LiveMotion 2.0 for Mac Altera Quartus II 7.0 Citrix Password Manager 4.5 Finale SongWriter 2007 Missler Topsolid 2006 Moldflow Products 2007 PTC InterComm Expert 5.2 VX CAD CAM 12.70 Xilinx ISE 9.1 Adobe Photoshop CS3 v10.0 ------------------------------------------------------------------------ -------- 19.03.2007 CSC Structural 7.02 Digital Element WorldBuilder Pro 3.55 MSC MD Nastran R2 Mathworks Matlab R2007a Nemetschek Allplan v2006.2 GibbsCAM 2006 v8.0.38 CD-adapco Star CD v4.02 CD-adapco Star-CCM Plus v2.04 InfoGraph InfoCAD v6.51 VX CAD CAM V12.70 Moldflow Plastics Insight v2007 PTC InterComm Expert v5.2 F000 Cenit FasTRIM LaserCUT v3R7GA Dicad Strakon v2007 incl SP2 Pointwise Gridgen v15 10 R1 ------------------------------------------------------------------------ -------- 13.03.2007 NI Vision v8.2.1 Development Module NI DIAdem v10.1 SP1 NI Vision Builder AI v3.0.1 NI LabVIEW SignalExpress v2.0 Intel C Plus Plus Compiler v9.1.047 GERBER ACCUMARK FAMILY V8.2.0.156 Solidworks Video Tutorials Series 1& Series 2 Siemens Sinutrain v6.3 Edition 3 UGS I-DEAS NX12M4 MSC SIMXPERT R1.1 MSC SIMOFFICE R1 MSC PATRAN 2006 R2 PATHTRACE EDGECAM V11.5 DASSAULT SYSTEMES CATIA V5R17 SP4 for SOLARIS ANSYS PRODUCTS LINUX V11 GibbsCAM 2006 v8.0.36 PTC Mathcad v14.0 SYSTAT v12.0 Genstat v9.2.153 This is not our complete software list. If you want to get access to our Software archive you should visit our website: http://www.cd-soft.net >> Contact e-mail: CDsoft2007@yahoo.com or CDsoft2008@yahoo.com *** Sent via Developersdex http://www.developersdex.com *** Tag: What MS operating systems have VBS installed? Tag: 208205
  - 9
    - Hot to ru multiple programs in one script Hello everybody i've the need to create a script that will run as a scheluded job every day on a windows 2003 server machine. The script's purpose is pretty simple: it has just to start 4 programs (all progs have a gui but i dont need it to be visible) with a 10 second delay between each one.. Now due to my very basic scripting knowledge i can't figure out how to realize this :( Im trying the run method but only the first program starts, thern the script wait for it to be terminated and start the second one etc... while i need that all the program start. This is the crappy code i wrote: Dim oWS Set oWS = CreateObject("WScript.Shell") oWS.Run "C:\Applicativi\PssServer\PssServer.exe" oWS.Run "C:\Applicativi\Dispatcher\dispatcher.exe" oWS.Run "C:\Applicativi\CaricaBiglietti\CaricaBiglietti.exe" oWS.Run "C:\Applicativi\NotificaQuote\StockQuote.exe" Any help would be greatly appreciated Tag: What MS operating systems have VBS installed? Tag: 208201
  - 10
    - Modifying DNS Settings for different subnets Hey there guys, I've written a script that installs an application, and the application requires a specific DNS order for the machines in different subnets. The problem is that I can't do a global GPO, because not everyone is getting this software, and laptop users would then have a problem with accessing the internet when they took it home. What I need is a script that will check the machines gateway address, and if it's a certain gateway, then it'll change the DNS settings according to what's needed. Example: If gateway = 192.168.10.1 Then arrDNSServers = Array("192.168.10.2", "192.168.10.3") ElseIf gateway = 192.168.50.1 Then arrDNSServers = Array("192.168.50.2", "192.168.50.3") EndIf If that makes sense...I know how to change the DNS settings for the machine...it's pulling the default gateway address out of it. Any ideas? Thanks again! Best Regards, Tag: What MS operating systems have VBS installed? Tag: 208200
  - 11
    - How to run multiple commands Hello everybody, new to scripting here but i have the need to create a script that will run as a scheduled task everyday. The script has to start 4 programs, thisis what i tried but it dowsnt go past the 1st run statement... Dim oWS Set oWSH = CreateObject("WScript.Shell") oWSH.Run "C:\Dir1\SubDir1\App1.exe" oWSH.Run "C:\Dir2\SubDir2\App2.exe" oWSH.Run "C:\Dir3\SubDir3\App3.exe" oWSH.Run "C:\Dir4\SubDir4\App4.exe" I am probably doing a very noobish error here i know, any help would be greatly appreciated TIA Massimo Tag: What MS operating systems have VBS installed? Tag: 208199
  - 12
    - How to run multiple commands Hello everybody, new to scripting here but i have the need to create a script that will run as a scheduled task everyday. The script has to start 4 programs, thisis what i tried but it dowsnt go past the 1st run statement... Dim oWS Set oWSH = CreateObject("WScript.Shell") oWSH.Run "C:\Dir1\SubDir1\App1.exe" oWSH.Run "C:\Dir2\SubDir2\App2.exe" oWSH.Run "C:\Dir3\SubDir3\App3.exe" oWSH.Run "C:\Dir4\SubDir4\App4.exe" I am probably doing a very noobish error here i know, any help would be greatly appreciated TIA Massimo Tag: What MS operating systems have VBS installed? Tag: 208198
  - 13
    - How to run multiple commands HI, im new to scripting but i have the need to create a script that allows me to run 4 executables. This script will the be scheduled by the standard windows 2003 scheduler. this is what i tried but it doesnt go past the first run statement Dim oWS Set oWSH = CreateObject("WScript.Shell") oWSH.Run "C:\Dir1\SubDir1\App1.exe" oWSH.Run "C:\Dir2\SubDir2\App2.exe" oWSH.Run "C:\Dir3\SubDir3\App3.exe" oWSH.Run "C:\Dir4\SubDir4\App4.exe" Any help woukld be greatly appreciated Massimo Tag: What MS operating systems have VBS installed? Tag: 208197
  - 14
    - Accessing WMI on a server - rights required? Hi! I'm writing a VBscript that will allow our account operators to create new shares on our files server remotely, since we have an application requiring the user home folder to be shared. The problem is, when running this script with the account operators credentials, we always got access denied when we are trying reading information from the WMI: Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & ServName & "\root\cimv2") As soon as we add them to the Administrators local group (something we want to avoid), this is working perfectly. I played with security into the WMI interface (giving Everyone full access to WMI), but that fixed nothing. Can somebody help me? Thanks. Claude Lachapelle Systems Administrator, MCSE Tag: What MS operating systems have VBS installed? Tag: 208196
  - 15
    - Script to error writing to file I have a script that will connect to Symantec's virus download site and get the latest definitions. It seems to fail on line 42 'write to file failed'. Can someone take a look and let me know what is wrong? Thanks. CONST DOWNLOAD_LOCATION = "http://definitions.symantec.com/defs/xdb/" CONST HOST = "." ' make this value the hostname of the box this script will run CONST ADTYPEBINARY = 1 CONST ADSAVECREATENOTEXIST = 1 CONST ADSAVECREATEOVERWRITE = 2 CONST EVENT_SUCCESS = 0 Dim objHTTP : set objHTTP = CreateObject("Microsoft.XMLHTTP") Dim objStream : set objStream = CreateObject("adodb.stream") Dim objFSO : set objFSO = CreateObject("Scripting.FileSystemObject") Dim objShell : set objShell = Wscript.CreateObject("Wscript.Shell") ' Get the page source from the website. objHTTP.Open "GET", "http://securityresponse.symantec.com/avcenter/download/pages/US-SAVCE.html", False objHTTP.Send ' Cram the HTML source into memory. It's not a lot of data so there aren't ' really any performance concerns here. Dim strHTMLSource : strHTMLSource = objHTTP.responsetext ' Parse memory for the location of of the download area. Once the download ' area is found, search for the file name. If InStr(strHTMLSource, DOWNLOAD_LOCATION) > 0 Then Dim intPosition : intPosition = InStr(strHTMLSource,DOWNLOAD_LOCATION) Dim strFileName : strFileName = Mid(strHTMLSource, intPosition + Len(DOWNLOAD_LOCATION), 12) End If ' Cat the download area and the file name together to form the whole path. Dim strPath : strPath = DOWNLOAD_LOCATION & strFileName ' Local dir to save file. Edit the const HOST as necessary for what computer ' will run this script. Dim strSaveTo : strSaveTo = "\\" & HOST & "\c$\Program Files\SAV\" & strFileName ' Make another connection to the website. objHTTP.open "GET", strPath, False objHTTP.send ' Open a pipe to download the file. objStream.Type = ADTYPEBINARY objStream.Open objStream.Write objHTTP.responseBody objStream.saveToFile strSaveTo, ADSAVECREATEOVERWRITE WScript.Sleep 10000 ' Check to see if file exists and write something to the local event log. 'If objFSO.FileExists(strSaveTo) Then objShell.LogEvent EVENT_SUCCESS, strFileName & " was written to " & Mid(strSaveTo, 1, 27) 'End If ' Clean up. set objHTTP = Nothing set objStream = Nothing set objShell = Nothing Set objFSO = Nothing MsgBox "Finished!" Tag: What MS operating systems have VBS installed? Tag: 208195
  - 16
    - Command line editor or script in order to add a new key to the Registry.pol file Hello, I need to add a "MyNewFile.exe" to the list of 'Run only allowed Windows Applications' (RestrictRun). This have to be done by my installation package. Is there a command line editor or script in order to add a new key to the Registry.pol file? Regards. Tag: What MS operating systems have VBS installed? Tag: 208193
  - 17
    - Accessing Outlook Groups Hi I am not sure if this really falls under vbscript or VBA or is even feasible, but is it possible to get access to a list of Outlook Groups that a particular user has joined? And what would the best approach to this be? Thanks Lawrence Tag: What MS operating systems have VBS installed? Tag: 208192
  - 18
    - Automating client IP configuration I know very little about scripting, but I'm trying to automate IP configuration on multiple clients and the script mostly works but the DNS settings do not change. I am using the script found in this paper: http://www.microsoft.com/technet/scriptcenter/topics/networking/09_atnc_scenario.mspx. Here is the sample .csv file I'm testing with: client1,add,staticip,10.10.1.30 192.168.1.30,255.255.0.0 255.255.0.0,10.10.0.1,1,TRUE,10.10.0.50 10.10.0.51,,training.com,,,,,,,,,,, The settings after "TRUE" do not take effect (DNSServerSearchOrder, DNSDomain). Here is the file that is output after the script has run: Date: 7/17/2007 2:07:17 PM Adding updating or removing 1 new client computers. ------------------------------------------------------------------------------------------------------------------------ Host: client1 ,Settings before changes: ,Computer Name:,,client1 ,Workgroup:,, ,Domain Role:,,Standalone Workstation ,Ethernet 802.3 Adapter Local Area Connection ,,Index 1 ,,Intel 21140-Based PCI Fast Ethernet Adapter (Generic) - Packet Scheduler Miniport ,,DHCP Enabled: True ,,DHCP Server: 172.21.0.201 ,,IP Addresses: ,,,,172.21.100.7 ,,Subnet Masks: ,,,,255.255.0.0 ,,Default Gateways: ,,,,172.21.0.1 ,,Gateway Cost Metrics: ,,,,20 ,,DNS Server Search Order:,, ,,,,172.21.0.201 ,,DNS Domain:,, ,,DNS Domain Suffix Search Order:,, ,,Domain DNS Registration Enabled: False ,,Full DNS Registration Enabled: True ,,NetBIOS Over TCP/IP: Enable NetBIOS over TCP/IP ,,Primary WINS Server: ,,Secondary WINS Server: ,,DNS Enabled For WINS Resolution: False ,,WINS Enable LMHosts Lookup: True ,,WINS Host Lookup File: ,,WINS Scope ID: ,------------------------------------------------------------ ,TCP/IP client change mode ,Client to be added to network. ,Administrator must make corresponding changes on servers. ,Static IP changes ,Network Adapter 1 ,,Intel 21140-Based PCI Fast Ethernet Adapter (Generic) - Packet Scheduler Miniport ,,Attempting to disable DHCP and enable static IP ... ,,DHCP disabled - static IP address enabled. ,,Assigned new default gateways. ,DNS Changes ,Network Adapter 1 ,,Intel 21140-Based PCI Fast Ethernet Adapter (Generic) - Packet Scheduler Miniport ,,Attempting to make changes in DNS configuration ... ,NetBIOS & WINS changes ,,NetBIOS Changes ,,Attempting to set NetBIOS Over TCI/IP value. ,,Unable to set NetBIOS Over TCI/IP value. ,NetBIOS Over TCP/IP setting does not require setting WINS parameters. ,------------------------------------------------------------ ,Settings after changes: ,Computer Name:,,client1 ,Workgroup:,, ,Domain Role:,,Standalone Workstation ,Ethernet 802.3 Adapter Local Area Connection ,,Index 1 ,,Intel 21140-Based PCI Fast Ethernet Adapter (Generic) - Packet Scheduler Miniport ,,DHCP Enabled: False ,,DHCP Server: ,,IP Addresses: ,,,,10.10.1.30 ,,,,192.168.1.30 ,,Subnet Masks: ,,,,255.255.0.0 ,,,,255.255.0.0 ,,Default Gateways: ,,,,10.10.0.1 ,,Gateway Cost Metrics: ,,,,1 ,,DNS Server Search Order:,, ,,DNS Domain:,, ,,DNS Domain Suffix Search Order:,, ,,Domain DNS Registration Enabled: False ,,Full DNS Registration Enabled: True ,,NetBIOS Over TCP/IP: Enable NetBIOS over TCP/IP ,,Primary WINS Server: ,,Secondary WINS Server: ,,DNS Enabled For WINS Resolution: False ,,WINS Enable LMHosts Lookup: True ,,WINS Host Lookup File: ,,WINS Scope ID: ------------------------------------------------------------------------------------------------------------------------ Summary: Added 1 new client computers. Updated 0 client computers. Removed 0 client computers. Unable to connect to or bind to WMI service on 0 client computers. ================================================================ Any help would be greatly appreciated! Thank you, Greg Tag: What MS operating systems have VBS installed? Tag: 208185
  - 19
    - WMI to check mountpoint, possible? i have a volume mounted in a folder inside of a G drive. the free/used space of the G drive is separate from the mountpoint however. how can i specifically check drive spave for the mountpoint? an example would be wonderful. thank you Tag: What MS operating systems have VBS installed? Tag: 208183
  - 20
    - setting write access on ftp vdirectories I have been working on setting the accesswrite properity to true for 2 virtual directories without much luck. I can set it on the default ftp site, but I seem to be having some trouble with the sub directories. I have tried several methods without any luck. it would be really great ff someone could take a look at the script below and give me a pointer. When I run it the following error is returned (2, 2) (null): 0x80005000 Dim IIsObj, vWrite set IIsObj = GetObject("IIS://localhost/msftpsvc/2/Root/") ' Set the values. ' vWrite = true 'Put the values back in the object. ' IIsObj.AccessWrite = vWrite 'Save the changes back to the metabase. IIsObj.put "AccessWrite", true 'iisobj.setinfo TIA Stek Tag: What MS operating systems have VBS installed? Tag: 208182
  - 21
    - Get Oracle client version? Is it possible to get the currently installed Oracle client version number using VBScript? We currently use a mix of 8i and 10g. If so, could you please post example code? Thanks much in advance. Tag: What MS operating systems have VBS installed? Tag: 208179
  - 22
    - vbScript to Copy Files and Add either an Incrementing Value or DateStamp Is there a VBScript that can copy: C:\MyDirectory\MyFile.txt and copy it to: C:\MyArchive\MyFile (1).txt (The next time MyFile.txt is copied it will be MyFile (2).txt, etc. or C:\MyArchive\MyFile0707170710.txt (i.e., July 17, 2007 07:10 AM) with date stamp. Thanks for any suggestions! RBolling Tag: What MS operating systems have VBS installed? Tag: 208176
  - 23
    - Accessing ADS Information I have written a login script foir my ADS domain but it doesn't work on all computers. I included the script at the end of this post. The problem seems to be the access to the ADS. It takes a awfull lkot of time just to run the "CreateObject("ADSystemInfo")" command and when I try to access the objADSystemInfo it takes a lot of time as well. On my computer everything runs fine and on the computer of my colleague it does not. We both use XP SP2 with all updates installed, so I really can't find any difference. We are both Admins in the domain but this shouldn't matter anyway. If I remove the "On error..." I get an error at the "GetObject("LDAP://..." command, so the first command does run but doesn't find anything? Can anybody help me or provide me with some ideas how I can debug the problem? On Error resume next Set objADSystemInfo = CreateObject("ADSystemInfo") Set objUser = GetObject("LDAP://" & objADSystemInfo.UserName) strDn = objUser.Get("distinguishedName") strSam = objUser.Get("sAMAccountName") strCn = objUser.Get("cn") strLastLogon = objUser.Get("carLicense") Set objLastLogon = objUser.Get("lastLogon") intLastLogonTime = objLastLogon.HighPart * (2^32) + objLastLogon.LowPart intLastLogonTime = intLastLogonTime / (60 * 10000000) intLastLogonTime = intLastLogonTime / 1440 Pos = Instr(strDn,"OU=") if Pos = 0 then strOu = "" else strOu = Mid(strDn,Pos+3,2) end if Set objNetwork = CreateObject("WScript.Network") objNetwork.MapNetworkDrive "h:", "\\frodo\user\" & strSam objNetwork.MapNetworkDrive "j:", "\\frodo\misc" objNetwork.MapNetworkDrive "l:", "\\frodo\department" objNetwork.MapNetworkDrive "p:", "\\frodo\projects" objNetwork.MapNetworkDrive "k:", "\\frodo\department\" & strOu strOut = "Welcome " & strCN & chr(13) strOut = strOut & "Your last logon was:" & chr(13) strOut = strOut & strLastLogon objUser.Put "carLicense", "" & intLastLogonTime + #1/2/1601 22:00:00# objUser.SetInfo WScript.Echo strOut Tag: What MS operating systems have VBS installed? Tag: 208174
  - 24
    - Copy a file to a directory using vbscripting I am looking for a VBScripting solution that copies MyFile.txt and writes it to a destination directory like MyFile (2).txt if Myfile.txt alread exists. OR (even better) adds a date stamp like MyFile070717.txt Source directory is: C:\SourceDirectory\MyFile.txt And the destination directory is: C:\Archve\ Appreciate any suggestions! RBolling Tag: What MS operating systems have VBS installed? Tag: 208173
  - 25
    - encrypt active scripting Hello All- I have code written in MS Active scripting technologies. Is there a way to encrypt the active scripting code so I can share this code with others without them seeing my work? Thanks M Tag: What MS operating systems have VBS installed? Tag: 208172

I have a couple of VBS scripts that I'd like to share with others on
my web site. I'm putting together some instructions for their use and
realize that I don't know which MS OSs have the necessary scripting
engine in place by default.

I've only ever developed with VBScript on Windows XP Pro, so that's
the only platform I know for certain includes it.

Can anyone help me out? Thanks.

Top

Re: What MS operating systems have VBS installed? by Richard

Richard
Sat Jul 21 17:50:52 CDT 2007

"JJ" <jim.mcatee@gmail.com> wrote in message
news:1185053862.090493.74010@i13g2000prf.googlegroups.com...
>I have a couple of VBS scripts that I'd like to share with others on
> my web site. I'm putting together some instructions for their use and
> realize that I don't know which MS OSs have the necessary scripting
> engine in place by default.
>
> I've only ever developed with VBScript on Windows XP Pro, so that's
> the only platform I know for certain includes it.
>
> Can anyone help me out? Thanks.
>

All clients with Windows 2000 or above come with WSH and VBScript. All other
32-bit clients (Windows 95/98/ME/NT) require either DSClient or WSH as a
separate install. Any client joined to a domain must have had DSClient
installed.

--
Richard Mueller
Microsoft MVP Scripting and ADSI
Hilltop Lab - http://www.rlmueller.net
--

Top