Shortcut to a shared folder

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
    - Membership... Please help. I would like to remove DOMAIN account from a LOCAL administrators group REMOTELY using vb script. Can anybody either point me the way for more reading material for the subject or present me with the vb script? The following script can remove the member of the Administrators group if the account is a LOCAL account to that computer. If the account is a DOMAIN account, I got the error with message: 'A member could not be added or removed from the local group because the member does not exist'. Dim oDomain,oGroup,sDomain,sGroup,sUser sDomain = "TheRemotePC" 'local host; member of the Active Directory domain sGroup = "Administrators" sUser = "JDow" 'a domain account; not an account to the local pc Set oDomain = GetObject("WinNT://" & sDomain) Set oGroup = oDomain.GetObject("Group", sGroup) oGroup.Remove("WinNT://" & sDomain & "/" & sUser) Tag: Shortcut to a shared folder Tag: 177992
  - 2
    - number formating into a string I'm looking for some equivalent code that will convert a number using a mask and store the result into a string. In VBA: stringvar = Format$(I,"000") returns a 3 digit string. I.E. when I = 1; "001" is the result. Its just like the Text(I,"000") function that excel uses. How is this done in VBScripting? I have tried the FormatNumber() function but the 2nd parm that deals with leading zeroes, is a boolean var parameter that doesn't do what I need. -- Regards, John Tag: Shortcut to a shared folder Tag: 177987
  - 3
    - Script to add additional static ip addresses to machine Does anyone know how to script the addition of static ip address (as in the advanced tcp/ip settings tab of the tcp/ip properties)? I can only find examples for adding a single static ip, netmask, gateway... Thanks, Rich Tag: Shortcut to a shared folder Tag: 177986
  - 4
    - Accessing local group by group SID Hello all, perhaps someone could give me a hint for a small problem I have here. I would like to access local groups based on their well-known SID. Then check the members for the existence of certain groups. Currently I only know how to check the group based on the name. However, there is the problem, that "Administrators" group is not the same name in all languages. Is there any possibility to identify a local group based on the SID. Here's the part of the script that is currently doing the membership check: Set colGroups = GetObject("WinNT://" & strComputer & "") colGroups.Filter = Array("group") For Each objGroup In colGroups ' If objGroup.Name = "Administrators" Then For Each objUser in objGroup.Members If objUser.Name = strCheckMemberName Then bIsMember =True Else ... End If Next End If Next Thanks in advance for the help. Markus Tag: Shortcut to a shared folder Tag: 177982
  - 5
    - Programmatically creating a USB printer port Is it possible to script the creation of a printer that's connected via a USB port? Using "prnadmin.dll" I've been able to add the drivers, and create the print object. However, I'm not able to create the port. After letting Windows XP detect the printer, the port description is "Virtual Printer port for USB." Any insight is appreciated. Thx, Curtis Tag: Shortcut to a shared folder Tag: 177980
  - 6
    - Help with vbs / wmi script Being a bit of a newbie, I'm having trouble getting the script below to work. I'm trying to create a piece of code that will allow me to supply 3 parameters (a computer name, a WMI class and a WMI class property) and get a value returned. For ease of reading I've hard-coded the variable in the example below to make things more obvious. strComputerName = "Myserver" strClass = "Win32_Processor" strProperty = "MaxClockSpeed" Set objWMIService = GetObject("winmgmts:\\" & strComputerName & "\root\cimv2") Set objClass = objWMIService.Get(strClass) For Each objProperty in objClass.properties_ If objProperty.Name = strProperty Then strValue = objProperty.Value WScript.Echo objProperty.Name & " = " & strValue End If Next Any ideas why strValue never gets any value? Tag: Shortcut to a shared folder Tag: 177973
  - 7
    - Extract information from text file I am automating FTP tranfers, and need to read a log file and extract the name of the files transferred. An example line of text is: 150 Opening ASCII mode data connection for testfile.txt(0 bytes). All that I want to extract from the line is "testfile.txt". The following code works - (the wscript.echo is the relevant line): If Left (strline, 3) = "150" then TestString = strline TestArray = Split(TestString , " ",-1, 1) wscript.echo Left(TestArray(7),InStr(TestArray(7),"(")-1) Else 'script not included in example End If However, if the file name is more than one word long 150 Opening ASCII mode data connection for new testfile.txt(0 bytes). The script fails. Can anyone suggest a better way to extract the file name? Thanks Jo Tag: Shortcut to a shared folder Tag: 177972
  - 8
    - Validating dates with regular expressions in a German Windows PC Hi, I have an international vbs application and I am using regular expressions to validate the format of the dates entered by the user. It works fine when running on a English windows PC but it does not recognised valid dates if the PC has the German version of windows. This is the code I am using: Function FormatValRegExp(strValue, strRegExp) Dim re ' Regular Expression object Dim response ' response On error resume next response = "" Set re = new regexp ' Create the RegExp object re.Pattern = strRegExp ' set pattern re.IgnoreCase = true response = re.test(strValue) Set re = nothing FormatValRegExp = response End Function This function wiht the following parameters: strValue: 31.12.1996 strRegExp: \d{1,2}[.]\d{1,2}[.]\d{2,4}$ returns true in an English version of Windows and false in a German windows. Any ideas? Cheers Juan Tag: Shortcut to a shared folder Tag: 177971
  - 9
    - Win32_PerfRawData_RemoteAccess_RASPort I use ZyXEL OMNI ADSL USB modem on my home PC (Windows XP SP2). When I launch the following VBScript, I get nothing! colItems has not objItem. Why? I want to get Bytes Received during current connection with Internet. strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_RemoteAccess_RASPort",,48) For Each objItem in colItems Wscript.Echo "BytesReceived: " & objItem.BytesReceived Next Tag: Shortcut to a shared folder Tag: 177968
  - 10
    - VBScript to create new users & their Exchange MailBox Hi, I'v been asked to create more than 200 new users account & their exchange mailboxes. I have all the information in Excell file First Name Last Name Initials I wonder if there is any way to write a VBScript whow read the user infromation from the Excell file and create the USER Account & MailBox in our AD. thanks for your help Windows platform is: windows server 2003 & Exchange Server2003 Tag: Shortcut to a shared folder Tag: 177965
  - 11
    - Re: IE automation - how to tell when document is complete? Sorry, I accidently hit send. Hi, I playing with IE automation. Many scripts in this newsgroup show code like the following to open a web page and wait for its completion: Set oIEApp = CreateObject("InternetExplorer.Application") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to msdn.microsoft.com" End With Other scripts listen for the DocumentComplete event. If I count the occurences of the DocumentComplete event, I find that my 'done' message box appears after the DocumentComplete event has fired twice, and that the DocumentComplete event fires once more, perhaps right when msdn.microsoft.com is truely done loading. When just starting IE and navigating to one URL, waiting for a ReadyState of 4 is sufficient. Many of us are not satisfied with navigating to only one URL; we want to go more places. But the ReadyState remains 4 for a hundred or more millisecons after specifying a new URL, then changes to 3, and finally changes back to 4 when the page has loaded. So we need logic like this for the second URL: Option Explicit Dim oIEApp Set oIEApp = CreateObject("InternetExplorer.Application") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to msdn.microsoft.com" .Navigate("aol.com") Do While.ReadyState = 4 : WScript.Sleep 2 : Loop Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to aol.com" End With With this script, most of the time the AOL done message occurs when the page really is loaded. Occasionally, the AOL done message occurs long before the page really is loaded, especially when CPU usage is high. From this I have concluded that neither ReadyState nor the DocumentComplete event are reliable indicators of a web page's being complete. I've monitored how often various events occur by the time the MsgBoxes appear, and I'm currently using the following logic to determine completion. Option Explicit Dim oIEApp Dim iCount_BeforeNavigate2, iCount_NavigateComplete2 Set oIEApp = WScript.CreateObject("InternetExplorer.Application", "event_") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop Do Until iCount_BeforeNavigate2 = iCount_NavigateComplete2 WScript.Sleep 100 Loop MsgBox "Done navigating to msdn.microsoft.com" .Navigate("aol.com") Do While.ReadyState = 4 : WScript.Sleep 2 : Loop Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop Do Until iCount_BeforeNavigate2 = iCount_NavigateComplete2 WScript.Sleep 100 Loop MsgBox "Done navigating to aol.com" End With Sub event_BeforeNavigate2(objBrowser, strURL, Flags, _ TargetFrameName, PostData, Headers, bCancel) iCount_BeforeNavigate2 = iCount_BeforeNavigate2 + 1 End Sub sub event_NavigateComplete2(objBrowser, strURL) iCount_NavigateComplete2 = iCount_NavigateComplete2 + 1 End Sub This seems like overkill. Does anyone have a simpler way to reliably detect document complete? Thanks, -Paul Randall Tag: Shortcut to a shared folder Tag: 177952
  - 12
    - How to access files from CIM_DirectoryContainsFile I'm trying to process files that are placed in a mapped network folder. Once a file is copied into the folder, I would like to check the filename against a list of known files, move it, rename it and process it. I was trying to get this example to work for me: strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\cimv2") Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _ & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _ & "TargetInstance.GroupComponent= " _ & "'Win32_Directory.Name=""c:\\\\scripts""'") Do Set objLatestEvent = colMonitoredEvents.NextEvent Wscript.Echo objLatestEvent.TargetInstance.PartComponent Loop But the objLatestEvent.TargetInstancePartComponent seems to be a string rather than an object. In other words, I can't do objLatestEvent.TargetInstance.PartComponent.Name , etc... Any ideas? TIA, Chester Tag: Shortcut to a shared folder Tag: 177947
  - 13
    - need to get AD attributes using vbscript. please help i need a simple(?) script that will take an AD user as an argument and create a list of ALL AD attributes that apply to users, and if the attribute is used also list the value of the attribute. if the attribute is empty i still have to list it, but there will just be no value. can anyone point me in the right direction? thank you Tag: Shortcut to a shared folder Tag: 177946
  - 14
    - ReadAll and RegExp Hello Everyone, I'm new to posting in this group and was hoping that I might be able to get some assistance with an issue that I'm having. Basically, what I'm doing is capturing AS/400 data with a software called PlanetPress Watch and when I get this data I need to run it through a VBScript to look for Index Values that will be grabbed and passed to a variable, then eventually using the variables to create delimited data file with path to a PDF, i.e. "field1"~"field2"~"field3"~@@path\pdf.pdf. My problem is that I've changed the script from using SkipLine and Skip, just in case an extra CRLF or something appears in the data, which would throw off the entire script in the fact that my Index values would be blank. I've recently discovered the power of RegExp and have been researching it over the past week to try and get a handle on it. I think I'm to the point of understanding it, but am having some issues with getting it to work in a VBScript. Part of my problem, other than being a self-taught programmer, is reading in the data file and passing it to a variable with the .ReadAll command. I think I may have the .ReadAll command now, but it's the RegExp pattern that isn't matching or something, even though it should match this: "CR\LF ACLU5801S2341380", that is CR LF Space String. Here's my code: '************************************************************** Option Explicit Const ForReading = 1, ForWriting = 2 Dim x Dim objFSO Dim objInputFile, objOutputFile, objIn Dim strTempName, strTempPath Dim strLine, strLineBack1, strLineBack2 Dim ContainerNo, insertValue Dim PhxRef, locationNumber, statementDate, counter, TypeBrokerage, TypeBreakbulk Dim DocNoP1, DocNoP2, DocNoP3, DocNoP4, DocNoP5, DocNoP6 Dim ShipperNo, ConsigneeNo, HAWBNo, AgentNo, AWBDate, MBillNo, HBillNo Dim DocNoP11, DocNoP22, DocNoP33, DocNoP44, DocNoP55, DocNoP66 Dim fcount, lncount, skipln, strData, objIntro, strLineIn, DataLine Set objFSO = CreateObject("Scripting.FileSystemObject") '***NOTE: PW_GetJobFilename is a special function for PPW, that gets the tempFileName of the datafile Set objInputFile = objFSO.OpenTextFile(PW_GetJobFilename, 1) strTempPath = objFSO.GetFile(PW_GetJobFilename).ParentFolder.Path strTempName = objFSO.GetTempName Set objOutputFile = objFSO.GetFolder(strTempPath).CreateTextFile(strTempName) Dim ss, re, rv, objMatch, ColMatches, StrReturnStr Set re = New RegExp re.Pattern = "(\r\n\x20)([A-Z\d]{12,18})" 're.Pattern = "c." re.Global = True re.IgnoreCase = True 'Set objInputFile = objFSO.OpenTextFile(PW_GetJobFilename, 1) Do While objInputFile.AtEndOfStream <> True strData = objInputFile.ReadLine '***NOTE: Watch.ShowMessage is a special function for PPW, like MsgBox 'Watch.ShowMessage(strData) Set ColMatches = re.Execute(strData) Loop For Each objMatch in ColMatches StrReturnStr = objMatch.value Watch.ShowMessage(StrReturnStr) Next 'Loop Watch.SetJobInfo 1, Chr(34) & "INV" & Chr(34) & Chr(126) & Chr(34) & DocNoP1 & DocNoP2 & DocNoP3 & DocNoP4 & DocNoP5 & DocNoP6 & Chr(34) & Chr(126) & Chr(34) & ShipperNo & Chr(34) & Chr(126) & Chr(34) & "ConsigneeNo" & Chr(34) & Chr(126) & Chr(34) & "BOLNo" & Chr(34) & Chr(126) & Chr(34) & "AgentNo" & Chr(34) & Chr(126) & Chr(34) & "Date" & Chr(34) & Chr(126) & Chr(34) & "DocNo2" & Chr(34) & Chr(126) & Chr(34) & "ContainerNo" & Chr(34) & Chr(126) & Chr(34) & HAWBNo & Chr(34) & Chr(126) & Chr(34) & HBillNo & Chr(34) & Chr(126) & Chr(34) & MBillNo & Chr(34) & Chr(126) & Chr(34) & "EntryNo" & Chr(34) & Chr(126) & Chr(34) & "CustAcctNo" & Chr(34) & Chr(126) & Chr(34) & "ImporterNo" & Chr(34) & Chr(126) & Chr(64) & Chr(64) & "D:\DocImport\INV\" & Watch.GetJobInfo (9) & ".pdf" objInputFile.Close objOutputFile.Close objFSO.DeleteFile PW_GetJobFilename, true objFSO.MoveFile strTempPath & "\" & strTempName, PW_GetJobFileName '************************************************************** Any suggestions that you could give would be greatly appreciated. Thanks in advance. --Ken Stulce Tag: Shortcut to a shared folder Tag: 177944
  - 15
    - scripting uninstalling device drivers Anyone know of a method for uninstalling a device driver via vbscript? Such as a NIC. Tag: Shortcut to a shared folder Tag: 177943
  - 16
    - RUNAS+.exe Does anyone know where I can get this. This is a scriptable runas that microsoft provides for free. Thanks Tag: Shortcut to a shared folder Tag: 177940
  - 17
    - IE automation - how to tell when document is complete? Hi, I playing with IE automation. Many scripts in this newsgroup show code like the following to open a web page and wait for its completion: Set oIEApp = CreateObject("InternetExplorer.Application") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to msdn.microsoft.com" End With Other scripts listen for the DocumentComplete event. If I count the occurences of the DocumentComplete event, I find that my 'done' message box appears after the DocumentComplete event has fired twice, and that the DocumentComplete event fires once more, perhaps right when msdn.microsoft.com is truely done loading. When just starting IE and navigating to one URL, waiting for a ReadyState of 4 is sufficient. Many of us are not satisfied with navigating to only one URL; we want to go more places. But the ReadyState remains 4 for a hundred or more millisecons after specifying a new URL, then changes to 3, and finally changes back to 4 when the page has loaded. So we need logic like this for the second URL: Option Explicit Dim oIEApp Set oIEApp = CreateObject("InternetExplorer.Application") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to msdn.microsoft.com" .Navigate("aol.com") Do While.ReadyState = 4 : WScript.Sleep 2 : Loop Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to aol.com" End With With this script, most of the time the AOL done message occurs when the page really is loaded. Occasionally, the AOL done message occurs long before the page really is loaded, especially when CPU usage is high. From this I have concluded that neither ReadyState nor the DocumentComplete event are reliable indicators of a web page's being complete. I've monitored how often various events occur by the time the MsgBoxes appear, and I'm currently using the following logic to determine completion. Thanks, -Paul Randall Tag: Shortcut to a shared folder Tag: 177939
  - 18
    - How do I include/reference functions in another file? Simple question, as I build up my little library of some useful functions I want to keep all of these in a "myfuncs.vbs" script. Then when I write a quick new script I just want to be able to call funtions located in "myfuncs.vbs". How do I do this? Thanks for your help in advance! Regards, Craig. Tag: Shortcut to a shared folder Tag: 177933
  - 19
    - Listing user name and other values http://www.rlmueller.net/Programs/CreateUserList2.txt I'm new to AD and have done some work with VB Script. I've been trying to modify the above to give me back a list of all the users as well as some of the values, say phone #, that is listed in AD. So far I've had very little success on this. Someone willing to point me in the right direction? -- Thanks Wayne Sepega Jacksonville, Fl Enterprise Library Configuration Console Module Generator http://workspaces.gotdotnet.com/elccmg "When a man sits with a pretty girl for an hour, it seems like a minute. But let him sit on a hot stove for a minute and it's longer than any hour. That's relativity." - Albert Einstein Tag: Shortcut to a shared folder Tag: 177931
  - 20
    - Script Remote Access I am trying to find information on clients cpu and the script will only run on a few clients and not all. why is this? Tag: Shortcut to a shared folder Tag: 177930
  - 21
    - RUNAS+.exe Does anyone know where I can get this? It supposed to be free from Microsoft yet I can't find it anywhere. It a scriptable runas utility. Thanks Tag: Shortcut to a shared folder Tag: 177928
  - 22
    - Determining Win95 machines via login script I am needing to deploy some software to workstations that are Windows 95 (this is not a typo). What I have done so far is define a BAT file in AD for the User Login Script that uses the START \\myvbScript.vbs. The vbScript then tries to make a WINMGTS: connection and when it fails (Err.Number = 432, Class does not exist) it calls my 9xInstall.BAT file. For the most part this works since we do not have the WMI Core Environment out there but I'd rather be checking for the OS specifically, since that is what I really need to know. Unfortunately, I cannot find a way to do this without using WMI. Is there an object I can use to get the OS in vbScript or even a command in the BAT file that I can rely on? As always, thanks. Bart Perrier Tag: Shortcut to a shared folder Tag: 177927
  - 23
    - Adding a Security group to Workstations I need to add a new security group to several workstations at two different facilities. The group to be added is different for both locations. I thought I would be easy to just query AD for the machines in eat locations OU and then just use a script that would then loop through that list and add the group. Sadly my scripting skills are still in their infancy and I'm having troubles finding the info I need to query AD in a manner I can understand. What I need to know is how to pull something out of a subfolder in an OU that may be 3 levels deep. I have found several scripts but Iâ??m not sure exactly what Iâ??m looking at. Does anyone know of an idiotâ??s guide so to speak for pulling things from AD? Tag: Shortcut to a shared folder Tag: 177923
  - 24
    - Enable "Show Quick Launch" Is there any one that have a vbscript to enable ""Show Quick Launch" on Windows Xp clients. /Andreas Tag: Shortcut to a shared folder Tag: 177919
  - 25
    - VBS, WSH scripting authoring tools Hello: We are currently looking for some of the top tools to do VBS and/or WSH scripting. Basically we are looking for authoring tools that have pre-defined functions, that are gui-based, for easy ability to create logon scripts, etc. So far we only know of Microsoft's own free tools (Scriptomatic, Tweakomatic), and we are looking for something a little better (commercial products are fine). Can anybody suggest some of the top tools that are out there now? Thanks a lot for all feedback... -- Chris Tag: Shortcut to a shared folder Tag: 177915
- Next
  - 1
    - Converting CR to CR/LF Hi there I'm a very small newbee, and looking for an easy way to convert a text-file. Sinece the textfile came through ftp it has only lf at the end of the line, but I need an cr/lf. Thanks in advance for any help. Best regards Ralf Tag: Shortcut to a shared folder Tag: 177904
  - 2
    - USER NAME ACCESS Hi All I am using connection manager administration kit to create a Windows VPN connection for all home users. I've written a batch file to map the users home drive once connected to the VPN net use H: \\Server\%username% The problem with the above, the Variable %USERNAME% takes the name from the user who is logged onto the local computer not the user who is connecting to the VPN. Does anyone know how I can get the name of the user how is logged onto the VPN connection into the %username% rather than the user who is logged onto the local computer. wayne PS I am not a scripter I am just learning starting with basic batch files Tag: Shortcut to a shared folder Tag: 177903
  - 3
    - Microsoft.XMLHTTP I want to download file using "Microsoft.XMLHTTP" object. My URL is http://qqqqq.com/oo.php?52152 How to determine a real name of downloaded file? With CreateObject("Microsoft.XMLHTTP") .Open "Get", "http://qqqqq.com/oo.php?52152", False .Send Response = .ResponseBody With CreateObject("ADODB.Stream") .Type = 1 .Open .Write Response .SaveToFile RealFileName, 2 < - ???? End With Uka. Tag: Shortcut to a shared folder Tag: 177899
  - 4
    - Date confusion Hi, I am developing a webpage in conjunction with MS access. I use dates as a primary attribute to search for data. However, on somedays the program will work with the date format mm/dd/yyyy and other times it is dd/mm/yyyy and sometimes it will work with both. When it works with both this causes the most confusion. In some parts of the program the application will work with the mm/dd/yyyy format and some other parts with dd/mm/yyyy. However other parts of the program will crash because it is of the wrong format. My question is... Is there some way of making it conssitent throughout the application? My regional settings is set to Australia. Thanks in Advance Tag: Shortcut to a shared folder Tag: 177897
  - 5
    - Scriptomatic 2 fails @ line 452 I'm running Windows XP/SP2 and when I run Scriptomatic 2.0 and select an WMI_Class, I get a script error on line 452 where it's trying to create an "WScript.Network" object. This works fine if I issue the same commands from an VBS file. Do I need to do something special to make HTA's work on my PC? I disabled my antivirus software just in case (wasn't getting an error there), tried changing my security level for local intranets to LOW, nothing seems to work. The program works just fine under Win2k. Tag: Shortcut to a shared folder Tag: 177888
  - 6
    - Adding method to response object Is it possible to add or override any of the methods in the Response object? I'd like to change how Response.Write works a little bit... -- J.B.Moreno Tag: Shortcut to a shared folder Tag: 177887
  - 7
    - Domain information through vbs Good afternoon, Here is what I would like to achieve but do not know how! I would like to create a script that 1- run dos command "net group GROUPNAME /domain" and write it to a textfile 2- Using the textfile of users, run the dos command "net user USERNAME /domain" (using 1 by 1 the user from the textfile in 1) and write it to another textfile 3- Go through the textfile created in 2 and validate certain parameter such as "logon script". Can someone run me through this or point me to a web site that can provide me with the basics on how I can do this type of script. One of my main problem is how I can use the text file created in 1 in 2 since it is output in a tabular format (3 columns) and vbs will read it 1 line at a time. How can I transform the dos output into a valid format to use in 2? Thank you for any help! Daniel Tag: Shortcut to a shared folder Tag: 177886
  - 8
    - Accessing Outlook Subfolders I'm trying to add/remove a user form a folders' ACL. This code works fine on a single folder: Set oInbox = oSession.GetDefaultFolder(CdoDefaultFolderInbox) Set oACLObject = CreateObject("MSExchange.ACLObject") oACLObject.CDOItem = oInbox Set oACEs = oACLObject.ACEs How do I change this to do the same for folders under the Outlook Inbox? Thanks! Tag: Shortcut to a shared folder Tag: 177883
  - 9
    - Capture screen output of Telnet using vbscript Is there any way to capture the screen output of a telnet session to a text file? Code to do it would be very much appreciated as I'm on a short time limit. However, an explaination of how to do it will also suffice. I currently use a 3rd party program to do this however I am trying to accomplish this task with only what Windows 2000 Professional comes with (including WSH 5.6). I have tried to do this with batch files but was unable to do so. I wrote vbscript to send commands to telnet but can't find a way to capture the screen output to a text file. Thanks in advance, Chris Tag: Shortcut to a shared folder Tag: 177880
  - 10
    - change mouse to hourglass? How can I change the mouse to an hourglass? Tag: Shortcut to a shared folder Tag: 177875
  - 11
    - Copy folder with permisions intact I need to migrate users home folders to a new server. About 60 GB in all. So they need to be copied or moved with permisions and hopefully any share permisions intact. Can this be done with objFolder.CopyHere? or objFolder.Copy? Or would it be easier/better to use xcopy or something? Thanks Tag: Shortcut to a shared folder Tag: 177870
  - 12
    - List OU's in an OU using VBS Hi I am new to VBscript and would like to be able to query an OU for it's contents (which is more OU's) and then display the results in the text field on an inputbox. This is so that the user can enter the name of one of the OU's listed into the inputbox input field. Hope this makes sense. Thanks in advance Keith Tag: Shortcut to a shared folder Tag: 177867
  - 13
    - Writing xml.ResponseText to file Hello, I'm having some problems writing out xml.ResponseText to a text file. I can send it to a web browser using Response.Write, but I can not write it out to a text file. It's not a permissions issue, the file gets created without a problem and if you write a line of plain text to the file, it works perfectly. I tried casting xml.ResponseText to a string, but that did not work either. Is there anyway I can do this? <% Const ForWriting = 2 Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", "http://xxxx", False xml.Send set tfile=FSO.CreateTextFile("c:/pathtofile.asp", true) 'response.write xml.ResponseText <--- Works 'tfile.WriteLine "Hello World" <---- Works tfile.WriteLine(test) tfile.close set fso = nothing %> Tag: Shortcut to a shared folder Tag: 177862
  - 14
    - Using Replace with wildcard How can I use replace to replace a dynamic string that is sent over to my broswer using a wildcard? Here is a snip of my code, extract = Replace(extract, "href", "") for example here is what the browser sees, href="javascript:show('1','http://server/page.asp=FDR2dmwjDE%3Byt2q%26FDT7w% 7Cq612d4 but I want it to look like " " instead after the 'href' is a long string that is dynamically changed each time the page is viewed, how can I use Replace to remove anything following the 'href' but nothing below that line of code? Thanks in advance.. Tag: Shortcut to a shared folder Tag: 177859
  - 15
    - Newbie: Small Script to Delete files Hi Group, Hope your all well? I wonder if somebody could give me some help on this one, or maybe some Examples? I have a Directory call C:\HFSWIN\ In here I have around 90 files, with vereous file formats. I would like to be able to delete all files files that end with *.lbl, *.lbv, & *.lbb. Except these 9 files: Jordans1.lbl Jordans2.lbl Jordans3.lbl Jordans1.lbv Jordans2.lbv Jordans3.lbv Jordans1.lbb Jordans2.lbb Jordans3.lbb Is this possible? Many Kind Thanks Regards Simon Tag: Shortcut to a shared folder Tag: 177853
  - 16
    - Right click on text vs. right click on hyperlink Is there a way that Windows script can tell whether the mouse has right clicked on the text area of a web page, or whether it has right clicked on a hyperlink on the webpage? I have a Windows script in an htm file that I want to behavior differently depending on whether the first condition or the second condition exists . Thanks, Larry Tag: Shortcut to a shared folder Tag: 177843
  - 17
    - Trying to process a large AD group I'm trying to cycle through all the members of a large AD group, but it seems to hit some type of maximum at 1500. Below is the snippet of code: arrMemberOf = objGroup.GetEx("member") ' Loop = For Each .... Next WScript.Echo "Members of Group " & strContainer For Each strMember in arrMemberOf ' WScript.echo strmember Set objItem = GetObject("LDAP://" & strmember) strsAMAccountName = objItem.Get("sAMAccountName") ' WScript.Echo "sAMAccountName: " & strsAMAccountName <snip> Any ideas? Is 1500 the maximu number of elements in the array arrMemberOf? Thanks. (rookie VBS coder, go easy) -GT Tag: Shortcut to a shared folder Tag: 177839
  - 18
    - Inserting images in RTF? How can I programatically insert images into my rtf-file? I generate the files with asp in combination with the rtf-spec but I can't figure out how I can insert images from file. Any suggestions? Tag: Shortcut to a shared folder Tag: 177838
  - 19
    - Using WSH to Copmpare Files Hello all, Is there a way I can use WSH to compare two files for equality? Do I have to call the DOS 'fc' or 'comp' commands? I was thinking about writing my own comparison function by then I'd have to be able to read a binary file. Is this possible as well? Thank you. -- Tony LaPaso Tag: Shortcut to a shared folder Tag: 177837
  - 20
    - Need freeware IDE I just started working with scripting (VBScript, WMI, WSH). I know how beneficial these tools will be, but I have not been able to convince anyone to cough up the cash for an IDE tool. What are some good free tools (Not Notepad) that I can use as an IDE? Thanks ccoates Tag: Shortcut to a shared folder Tag: 177829
  - 21
    - Smart Tags to call vbscript? Anyone know if its possible to use smart tags to call a vbscript...without having to write a custom dll or use the sdk? Just wondering if its possible via a simple xml file. Tag: Shortcut to a shared folder Tag: 177828
  - 22
    - VBScript Samples What is the URL to get to all of the samples for vbscript tasks? I saw it mentioned the other day but didn't save it. Tag: Shortcut to a shared folder Tag: 177824
  - 23
    - Need Help Adding First Name and Last Name to "Display Name:" field I'm new to scripting and am trying to automate new users set ups. I'm using this great script and testing with a user name of John A Smith. The "First Name:" and "Last Name:" fields populate as expected. The "Display Name:" field populates as JASmith. I need the name to popluate this field like this John A Smith. Is this possible? This is the script I'm using from Mr. Muellers site. Thanks ' CreateUsers.vbs ' VBScript program to create users according to the information in a ' Microsoft Excel spreadsheet. ' ' ---------------------------------------------------------------------- ' Copyright (c) 2003 Richard L. Mueller ' Hilltop Lab web site - http://www.rlmueller.net ' Version 1.0 - September 8, 2003 ' Version 1.1 - January 25, 2004 - Modify error trapping. ' Version 1.2 - March 18, 2004 - Modify NameTranslate constants. ' ' You have a royalty-free right to use, modify, reproduce, and ' distribute this script file in any way you find useful, provided that ' you agree that the copyright owner above has no warranty, obligations, ' or liability for such use. Option Explicit Dim objExcel, strExcelPath, objSheet Dim strLast, strFirst, strMiddle, strPW, intRow, intCol Dim strGroupDN, objUser, objGroup, objContainer Dim strCN, strNTName, strContainerDN Dim strHomeFolder, strHomeDrive, objFSO, objShell Dim intRunError, strNetBIOSDomain, strDNSDomain Dim objRootDSE, objTrans, strLogonScript, strUPN ' Constants for the NameTranslate object. Const ADS_NAME_INITTYPE_GC = 3 Const ADS_NAME_TYPE_NT4 = 3 Const ADS_NAME_TYPE_1779 = 1 ' Specify spreadsheet. strExcelPath = "c:\NewUserFolder\NewUsers.xls" ' Specify DN of container where users created. 'strContainerDN = "ou=user,ou=ho,ou=ccmc service centers,Sales,dc=ccmc,dc=com" strContainerDN = "ou=test gpos,ou=xyc service centers,dc=ccmc,dc=com" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("Wscript.Shell") ' 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 ADS_NAME_INITTYPE_GC, "" objTrans.Set ADS_NAME_TYPE_1779, strDNSDomain strNetBIOSDomain = objTrans.Get(ADS_NAME_TYPE_NT4) ' Remove trailing backslash. strNetBIOSdomain = Left(strNetBIOSDomain, Len(strNetBIOSDomain) - 1) ' Open spreadsheet. Set objExcel = CreateObject("Excel.Application") On Error Resume Next objExcel.Workbooks.Open strExcelPath If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Unable to open spreadsheet " & strExcelPath Wscript.Quit End If On Error GoTo 0 Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) ' Bind to container where users to be created. On Error Resume Next Set objContainer = GetObject("LDAP://" & strContainerDN) If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Unable to bind to container: " & strContainerDN Wscript.Quit End If On Error GoTo 0 ' Start with row 2 of spreadsheet. ' Assume first row has column headings. intRow = 2 ' Read each row of spreadsheet until a blank value ' encountered in column 5 (the column for cn). ' For each row, create user and set attribute values. Do While objSheet.Cells(intRow, 5).Value <> "" ' Read values from spreadsheet for this user. strFirst = Trim(objSheet.Cells(intRow, 1).Value) strMiddle = Trim(objSheet.Cells(intRow, 2).Value) strLast = Trim(objSheet.Cells(intRow, 3).Value) strPW = Trim(objSheet.Cells(intRow, 4).Value) strCN = Trim(objSheet.Cells(intRow, 5).Value) strNTName = Trim(objSheet.Cells(intRow, 6).Value) strUPN = Trim(objSheet.Cells(intRow, 7).Value) strHomeFolder = Trim(objSheet.Cells(intRow, 8).Value) & strCN strHomeDrive = Trim(objSheet.Cells(intRow, 9).Value) strLogonScript = Trim(objSheet.Cells(intRow, 10).Value) ' Create user object. On Error Resume Next Set objUser = objContainer.Create("user", "cn=" & strCN) If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Unable to create user with cn: " & strCN Else On Error GoTo 0 ' Assign mandatory attributes and save user object. If strNTName = "" Then strNTName = strCN End If objUser.sAMAccountName = strNTName On Error Resume Next objUser.SetInfo 'WScript.Echo Err.Number 'WScript.Echo Err.Description If Err.Number <> 0 Then If Err.Number = -2147019886 Then Wscript.Echo strNTName & " User already exists." Else Wscript.Echo "Unable to create user with NT name: " & strNTName End If On Error GoTo 0 Else ' Set password for user. objUser.SetPassword strPW If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Unable to set password for user " & strNTName End If On Error GoTo 0 ' Enable the user account. objUser.AccountDisabled = False If strFirst <> "" Then objUser.givenName = strFirst End If ' Assign values to remaining attributes. If strMiddle <> "" Then objUser.initials = strMiddle End If If strLast <> "" Then objUser.sn = strLast End If If strUPN <> "" Then objUser.userPrincipalName = strUPN End If If strHomeDrive <> "" Then objUser.homeDrive = strHomeDrive End If If strHomeFolder <> "" Then objUser.homeDirectory = strHomeFolder End If If strLogonScript <> "" Then objUser.scriptPath = strLogonScript End If ' Set password expired. Must be changed on next logon. objUser.pwdLastSet = 0 ' Save changes. On Error Resume Next objUser.SetInfo If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Unable to set attributes for user with NT name: " _ & strNTName End If On Error GoTo 0 ' Create home folder. If strHomeFolder <> "" Then If Not objFSO.FolderExists(strHomeFolder) Then On Error Resume Next objFSO.CreateFolder strHomeFolder If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Unable to create home folder: " & strHomeFolder End If On Error GoTo 0 End If If objFSO.FolderExists(strHomeFolder) Then ' Assign user permission to home folder. intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " _ & strHomeFolder & " /T /E /C /G " & strNetBIOSDomain _ & "\" & strNTName & ":F", 2, True) If intRunError <> 0 Then Wscript.Echo "Error assigning permissions for user " _ & strNTName & " to home folder " & strHomeFolder End If End If End If ' Dim ObjNet ' Set ObjNet = CreateObject("Wscript.Network") ' ObjNet.MapNetworkDrive "u:", strHomeFolder ' Set ObjNet = nothing Dim oMailBox Set oMailBox = objUser oMailbox.CreateMailbox Trim(objSheet.Cells(intRow, 11).Value) 'WScript.Echo FindAnyMDB() objUser.setInfo Set oMailBox = Nothing ' Group DN's start in column 11. intCol = 12 Do While objSheet.Cells(intRow, intCol).Value <> "" strGroupDN = Trim(objSheet.Cells(intRow, intCol).Value) On Error Resume Next Set objGroup = GetObject("LDAP://" & strGroupDN) If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Unable to bind to group " & strGroupDN Else objGroup.Add objUser.AdsPath If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Unable to add user " & strNTName _ & " to group " & strGroupDN End If End If On Error GoTo 0 ' Increment to next group DN. intCol = intCol + 1 Loop End If End If Set objUser = nothing ' Increment to next user. intRow = intRow + 1 Loop Wscript.Echo "Done" ' Clean up. objExcel.ActiveWorkbook.Close objExcel.Application.Quit Set objUser = Nothing Set objGroup = Nothing Set objContainer = Nothing Set objSheet = Nothing Set objExcel = Nothing Set objFSO = Nothing Set objShell = Nothing Set objTrans = Nothing Set objRootDSE = Nothing Tag: Shortcut to a shared folder Tag: 177823
  - 24
    - script to enable Wakeup on NIC Hello all, I'm trying to write a script to enable the power management features for a NIC, specifically to enable: allow the computer to turn off this device to save power allow this device to bring the computer out of standby Only allow management stations to bring the computer out of standby I have had a look thru WMI and cannot locate a value I can manipulate. This needs to be changed on 1000's of computers... Can it be scripted? Thanks in advance, John Tag: Shortcut to a shared folder Tag: 177820
  - 25
    - Compare text files for duplicates Hi. I have two text files that are actually exports of user and computers accounts from two domains. I would like to be able to compare the two files for duplicate names and spit out a "report" of the unique names and duplicate names. Of course, I can't do a line-by-line comparison because the files don't match up that way. It is more of a comparison of the entire contents of the files. Maybe logparser would do this? Thanks! Tag: Shortcut to a shared folder Tag: 177818

Hi,

Is there a way that a vbscript can create a desktop shortcut to a shared
folder that exists on a server?

Thanks in Advance,
JeffH

Top

Re: Shortcut to a shared folder by Torgeir

Torgeir
Fri Jul 22 13:52:42 CDT 2005

JeffH wrote:

> Is there a way that a vbscript can create a desktop shortcut
> to a shared folder that exists on a server?
Hi,

Something like this maybe:

'--------------------8<----------------------

sPath = "\\server\share\folder"

sShortcutName = "Shared folder"

Set oShell = CreateObject("WScript.Shell")

' Create shortcut in the All Users Desktop folder
sAllUsersDesktopPath = oShell.SpecialFolders("AllUsersDesktop")

Set oShortCut = oShell.CreateShortcut( _
sAllUsersDesktopPath & "\" & sShortcutName & ".lnk")

oShortCut.TargetPath = sPath
oShortCut.Save

'--------------------8<----------------------

--
torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway
Administration scripting examples and an ONLINE version of
the 1328 page Scripting Guide:
http://www.microsoft.com/technet/scriptcenter/default.mspx

Top