How to create a NTDS shortcut on myDesktop

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
    - Troubles with Menu Hello All, I'm having trouble with a popup menu that I use a RightClick event. The menu pops fine, but I still get the default RightClick menu from IE. Is there a way to "disable" the menu? I'm not concerned with the person looking at the code, it is so the user can manipulate images. Any help is appreciated! Todd <HTML OnMouseDown="vbscript:DoRightClick"> <HEAD> <TITLE></TITLE> <style>  </style> <script language="VBScript">  </script> </HEAD> <BODY BGCOLOR="silver" TEXT="#000000" LINK="#0000FF" VLINK="#800080"> <form name="ImgPallette"> <div id="ie5menu" class="skin1" onBlur="Call CloseMenu"> <div class="menuitems" id="divOption1" url="" OnMouseOver="ChangeBack(1)" OnMouseOut="ChangeBack(1)">Rotate Right</div> <div class="menuitems" id="divOption2" url="" OnMouseOver="ChangeBack(2)" OnMouseOut="ChangeBack(2)">Rotate Left</div> <hr> <div class="menuitems" id="divOption3" url="" OnMouseOver="ChangeBack(3)" OnMouseOut="ChangeBack(3)">Remove Image</div> <hr> <div class="menuitems" id="divOption7" url="" OnMouseOver="ChangeBack(7)" OnMouseOut="ChangeBack(7)" onClick="Call CloseMenu">Cancel Menu</div> </div> Tag: How to create a NTDS shortcut on myDesktop Tag: 138056
  - 2
    - Login Script Help! vbs Writing a logon script to map some drives in VbScript using the WshNetwork command. What i need to also do is a script to disconnect the maped drives after. I've got this code from microsoft:- Dim WshNetwork Set WshNetwork = WScript.CreateObject("WScript.Network") WshNetwork.RemoveNetworkDrive "E:" But this will only disconnect E drive. I need it too do all drives that are maped. Any ideas on how? Tag: How to create a NTDS shortcut on myDesktop Tag: 138044
  - 3
    - How can i download with vbs? Hello, everybody! thank you. Tag: How to create a NTDS shortcut on myDesktop Tag: 138043
  - 4
    - Skript per Tastendruck beenden Hallo, ich hab ein Problem mit meinem Skript. Aus diversen "Lack of Knowledge" Gründen hab ich mir ein Endlosskript programmiert. Jetzt such ich ne Möglichkeit, dass Skript mit ner Tastenkombination wieder beende...(z.B.: Alt+F6) Hat jemand ne idee?? Dank schon mal Tag: How to create a NTDS shortcut on myDesktop Tag: 138039
  - 5
    - WSH 5.0 equivalents to AppActivate and SendKeys Hi, I'm automating MSINFO32.EXE and while on machines with WSH 5.6 installed things are working as expected, we have some machines with older versions which don't appear to support AppActivate and SendKeys. I can create and instance ("Run") of MSINFO32 but need to know how to "speak" to it. Does anyone know where to find documentation for earlier versions of WSH - the Microsoft site doesn't appear to have anything this old. Upgrading all machines to WSH 5.6 is something I'm trying to avoid - they are spread all round the country. Cheers Stephen Anning Tag: How to create a NTDS shortcut on myDesktop Tag: 138038
  - 6
    - newbie with syntax/script question - vba (long - script incl) thank you in advance. This code is a hodge podge of code I borrowed/rearranged/wrote. If you have suggestions on ways to make it shorter, cleaner, better, please add your comments. I'm attempting to query a webpage, export the page to an Excel spreadsheet, and save. The code uses three input files for now (to account for multiple backup servers and various dns naming conventions and the list of servers to check). Ultimately, the information will be pulled directly out of the SQL database, but being impatient and wanting to learn more about VB, VBA, and VBScript, I've been tinkering. The code works to the point where it attempts the web query (in other words, reads the text files into arrays, opens Excel, names the active sheet). However, I get a "Type mismatch" error for line 146 character 26 at that point. That line is where Excel establishes the connection to the web page. It appears to be telling me that my "expression.Add" line has the wrong modifiers. Am I reading the error incorrectly? Is the format of the query incorrect? What is the correct "type?" <script begin> Option Explicit '--------------------------------------------------- 'original shell used to: 'use 2 input files containing computer names 'compare the lists and output to file the results 'XXXX XXXX 2003 'Originally used to check and create computer groups 'modified to take file input and determine if backups 'are good. input1=list of servers, input2=list of 'backup servers, input3=various dns string endings 'for different corporate intranets within company 'modified by XXX XXX 07/07/03 '--------------------------------------------------- 'Set up Initial key Variables----------------------- redim olist1(1) redim olist2(1) redim olist3(1) dim thefile1,thefile2,thefile3,othefile1,othefile2,othefile3 dim opos,opath1,opath2,opath3 dim oFS,oinputfile1,oinputfile2,oinputfile3,oStr1,oStr2,oStr3 dim linecount1,linecount2,linecount3,oinline1,oinline2,oinline3 dim x,y,z,ExcelSheet,urlStr,objHTTP,ExcelBook dim Connection,Destination,Range '--------------------------------------------------- 'Argument Capture '--------------------------------------------------- if wscript.arguments.count=0 then thefile1=inputbox("Enter the file name including path of the"&_ " file with your servers listed in it : "&vbcrlf&"Example : My"&_ " input file.txt","Input file Name","input1.txt") othefile1=thefile1 if thefile1="" then wscript.quit end if else 'Use the FileName supplied as an argument thefile1=wscript.arguments(0) opos=instrrev(thefile1,"\") opath1=mid(thefile1,1,opos) othefile1=mid(thefile1,opos+1,len(thefile1)) end if if wscript.arguments.count=0 then thefile2=inputbox("Enter the file name including path of the"&_ " file with the backup servers listed in it : "&vbcrlf&"Example :"&_ " Backup servers.txt","Input file Name","input2.txt") othefile2=thefile2 if thefile2="" then wscript.quit end if else 'Use the FileName supplied as an argument thefile2=wscript.arguments(1) opos=instrrev(thefile2,"\") opath2=mid(thefile2,1,opos) othefile2=mid(thefile2,opos+1,len(thefile2)) end if if wscript.arguments.count=0 then thefile3=inputbox("Enter the name of the DNS strings file (include path) :"&vbcrlf&"Example : DNSStrings.txt","Input File Name","input3.txt") othefile3=thefile3 if thefile3="" then wscript.Quit end if else 'Use the default FileName as the argument thefile3=wscript.Arguments(2) opos=instrrev(thefile3,"\") opath3=mid(thefile3,1,opos) othefile3=mid(thefile3,opos+1,len(thefile3)) end if '--------------------------------------------------- 'Open Files for reading and writing '--------------------------------------------------- set oFS = CreateObject("scripting.filesystemobject") if not ofs.fileexists(thefile1) and ofs.fileexists(thefile2) then 'File Not Found Exit Application wscript.echo "Input Files Not Found"&vbcrlf&"END Program!" wscript.quit end if '--------------------------------------------------- 'Read input file into Array (olist1) '--------------------------------------------------- set oInputFile1 = oFS.opentextfile(thefile1,1,False) linecount1=0 Do while not oinputfile1.AtEndOfStream oinline1=oinputfile1.Readline if not oinline1="" then if linecount1>ubound(olist1) then redim preserve olist1(linecount1) end if olist1(linecount1)=oinline1 linecount1=linecount1+1 end if loop oinputfile1.close set oInputFile2 = oFS.opentextfile(thefile2,1,False) linecount2=0 Do while not oinputfile2.AtEndOfStream oinline2=oinputfile2.Readline if not oinline2="" then if linecount2>ubound(olist2) then redim preserve olist2(linecount2) end if olist2(linecount2)=oinline2 linecount2=linecount2+1 end if loop oinputfile2.close set oInputFile3 = oFS.opentextfile(thefile3,1,False) linecount3=0 Do while not oinputfile3.AtEndOfStream oinline3=oinputfile3.Readline if not oinline3="" then if linecount3>ubound(olist3) then redim preserve olist3(linecount3) end if olist3(linecount3)=oinline3 linecount3=linecount3+1 end if loop oinputfile3.close '--------------------------------------------------- 'Main Body '--------------------------------------------------- Set ExcelSheet=CreateObject("Excel.Application") Set ExcelBook=ExcelSheet.Workbooks.Add '"c:\scriptemp\bocada.xls",False,True,False ExcelSheet.Visible = True 'ExcelSheet.Application.Workbooks.Add ExcelBook.Worksheets(1).Activate ExcelSheet.ActiveWorkbook.ActiveSheet.Name="Bocada Report" for x=0 to ubound(olist1) oStr1=olist1(x) if not oStr1="" then for y=0 to ubound(olist2) oStr2=olist2(y) if not oStr2="" then for z=0 to ubound(olist3) oStr3=olist3(z) if not oStr3="" then urlStr="http://servernamexyz/reports/"&oStr2&"-bdt_"&oStr1&"-bdt."&oStr 3&".html" Set objHTTP = CreateObject("MSXML2.XMLHTTP") Call objHTTP.Open("GET",urlStr,FALSE) objHTTP.Send if not len(objHTTP.ResponseText)<5000 then ExcelSheet.ActiveWorkbook.Worksheets.Add ExcelSheet.ActiveWorkbook.ActiveSheet.Name=oStr1&"."&oStr3 With ExcelSheet.ActiveWorkbook.ActiveSheet.QueryTables.Add(Connection="URL;"& urlStr,Destination=Range("A1")) .Name = oStr2&"-bdt_"&oStr1&"-bdt."&oStr3 .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingAll .WebTables = "4,5" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery=False End With end if end if next end if next end if next ExcelSheet.Application.Save "c:\scriptemp\bocada.xls" ExcelSheet.Quit outputfile.Close '--------------------------------------------------- 'Error Handling '--------------------------------------------------- if not err.number=0 then wscript.echo err.number&vbcrlf&err.description end if 'End of Program------------------------------------- wscript.echo "Process Complete"&vbcrlf&"End Program" <script end> -- Direct access to this group with http://web2news.com http://web2news.com/?microsoft.public.vb.syntax Tag: How to create a NTDS shortcut on myDesktop Tag: 138037
  - 7
    - Uncheck folder option "Allow inheritable permissions from parent to propogate..." I creating folders using FileSystemObject and setting rights on the network using as asp page that uses softartisans product "FileManager" with latest version which allow me to create a folder in network and set the network group's right, like ReadOnly, Full Access....., and so on. I found out that there is no functionality of "FileManager" to set "Allow inheritable permissions from parent to propagate to this object" to FALSE under the tab "Security" of the Folder I created with FileManager. Is there any other way that I can uncheck the "allow inheritable permissions from parent.." through my asp page. I cannot use registry to uncheck because I do not want to uncheck to all the folders but I need to uncheck only those folders that I created using my asp page.Any idea ? Thanks a lot in advance for any help. -Nanu Tag: How to create a NTDS shortcut on myDesktop Tag: 138026
  - 8
    - Bind to Active Directory user Hi, I'd like to bind to a user in Active Directory but not by using the display name but by the sAMAccountName attribute. The operation should be done like this.... Set objUser = GetObject _ ("LDAP://cn=Joe Bloggs,ou=Management,dc=NA,dc=fabrikam,dc=com") objUser.IsAccountLocked = False objUser.SetInfo ...but I want to bind using the logon id "JBloggs" (obviously this doesn't work) Set objUser = GetObject _ ("LDAP://cn=JBloggs,ou=Management,dc=NA,dc=fabrikam,dc=com") objUser.IsAccountLocked = False objUser.SetInfo What is the best way to go about this? thanks for any reply Tag: How to create a NTDS shortcut on myDesktop Tag: 138022
  - 9
    - Provider Error when running a script on a W2K server I have a script that runs a w/s. It FTP's IIS logs from hence W/S runs script that looks for files on ServerA then FTPs them to ServerB. If I try to run the script on ServerC I get a provider error when I do a function that does a search for logs with a modifieddate of -1 . I tried impersonation and that didn't work either. Both W/S and Server are using WSH 5.6. Thanks Tag: How to create a NTDS shortcut on myDesktop Tag: 138021
  - 10
    - Loop a function from an array out of Active Directory I want the code below to loop through the array I created so that I can create an html file for each department. I've tried a few methods, but all result in error 800a03ea (trying to call a function within a function?) As it is below, it works... but only on the first array item. Any help on how I can loop through the remaining array items? If you are feeling really generous, I would also like to automatically populate the array from active directory with DISTINCT departments for all users. This is secondary to what I need above though, but is of interest. Thanks for any assistance, ' Create an HTML table from Active Directory Info. Dim sDepartments sDepartments = Array("department1","department2","department3","department4") Dim i i = 0 Dim oRoot, sDomain Set oRoot = GetObject("LDAP://rootDSE") sDomain = oRoot.Get("defaultNamingContext") SQLStmt = "SELECT displayName, department, telephoneNumber, mail " & _ "FROM 'LDAP://" & sDomain & " ' " & _ "WHERE objectClass='User' AND objectCategory='Person' " & _ "ORDER BY displayName" Set Conn = CreateObject("ADODB.Connection") Conn.Provider = "ADSDSOObject" Conn.Open "ADs Provider" Set rs = Conn.Execute(SQLStmt) Do While Not rs.EOF Or rs.BOF If IsNull(rs.Fields("telephoneNumber").value) Then rs.MoveNext Else If rs.Fields("department").Value = sDepartments(i) then rows = rows & "<tr>" rows = rows & "<td>" & count & "</td>" 'rows = rows & "<td>" & rs.Fields("department").Value & " </td>" rows = rows & "<td>" & rs.Fields("displayName").Value & " </td>" rows = rows & "<td>" & "<a href=mailto:" & rs.Fields("mail").Value & ">" & rs.Fields("mail").Value & "</a> " & " </td>" rows = rows & "<td>" & rs.Fields("telephoneNumber").Value & " </td>" rows = rows & "</tr>" & VBCrLf rs.MoveNext Else rs.MoveNext End if End if Loop CreateFile rows rs.close set rs = nothing conn.close set conn = nothing Sub CreateFile(rows) dim html html = "<html><head><title>Active Directory (" & sDomain & ")</title>" html = html & "<body link='#0000CC' vlink='#0000CC' alink='#0000CC'>" html = html & "<style type='text/css'></style>" html = html & "<body>" html = html & "<table border=1>" html = html & "<tr><th></th><th>Name</th><th>E-Mail Address</th><th>Phone</th></tr>" html = html & rows html = html & "</table>" html = html & "</body></html>" Dim fso, tf Set fso = CreateObject("Scripting.FileSystemObject") Set tf = fso.CreateTextFile("C:\Documents and Settings\admin\Desktop\" & sDepartments(i) & ".htm", True) tf.Write(html) tf.Close set tf = nothing set fso = nothing End Sub Tag: How to create a NTDS shortcut on myDesktop Tag: 138020
  - 11
    - How test ActiveX i DHTML Hi, I have problem. In MSIE in VBScript subroutime I have to test if on my computer (client) is installed ActiveX control. please help me .. Thanks Janusz janusz.szczesniak@wm.com.pl Tag: How to create a NTDS shortcut on myDesktop Tag: 138017
  - 12
    - Too many rad*.tmp files! I have a couple of VBscripts that operate on files inside a certain directory. Over time, I see a bunch of files that look like the below piling up. What are they and how can I prevent it from happening? rad04C16.tmp rad05735.tmp rad06495.tmp rad0EC67.tmp rad16561.tmp rad17EFC.tmp rad18280.tmp rad184D4.tmp rad1D3F1.tmp Tag: How to create a NTDS shortcut on myDesktop Tag: 138011
  - 13
    - How to set session variable? What is the correct syntax to set a session variable such as: Session("Level") = 2 (On an aspx page) Thanks, Mike Tag: How to create a NTDS shortcut on myDesktop Tag: 137989
  - 14
    - Automatic mail Hello, is there anybody can let me know how to create an automatic mailing system to the mass user using ASP/VBSCRIPT ? Thx ness Tag: How to create a NTDS shortcut on myDesktop Tag: 137984
  - 15
    - Importing users from CSV to Active Directory Domain Help please. I have a csv file....something like... Blah, Blah, Blah, User, Blah, User group, Blah, Email, OU's ......etc. I wish to import as much data as possable to a new Win2k Domain. And at the same time add users to the relevent OU's. Where do I start .... Many Thanks Kev Tag: How to create a NTDS shortcut on myDesktop Tag: 137980
  - 16
    - error Hello I am getting the following error message: Microsoft VBScript runtime (0x800A01A8) Object required: '''' /delete_entry.asp, line 17 When I try to delete a record. The following is the code to the delete_entry.asp page. <% Dim adoCon Dim rsDeleteEntry Dim strSQL Dim IngRecordNo IngRecordNo = CLng(Request.QueryString("ID_no")) Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("ccalls.mdb") Set reDeleteEntry = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT calltable.* FROM calltable WHERE ID_no=" & IngRecordNo rsDeleteEntry.LockType = 3 rsDeleteEntry.Open strSQL, adoCon rsDeleteEntry.Delete rsDeleteEntry.Close Set ccalls = Nothing Set adoCon = Nothing Response.Redirect "deleteselect.asp" %> Any ideals what I am doing wrong? Thanks Tim ----------------------------- This message is posted by http://Asp.ForumsZone.com Tag: How to create a NTDS shortcut on myDesktop Tag: 137976
  - 17
    - Absolute path of web file Anyone know how to determine the absolute path of an .html file? I'm getting a "file not found" error on the following line of code: document.open("Help/Adjustment.htm") Thanks. Tag: How to create a NTDS shortcut on myDesktop Tag: 137969
  - 18
    - CAN YOU PLEASE HELP ME OUT W/ My FORM REFRESH PROBLEM??? Hi guys i'm back again!! i'm having a small problem with refreshing my form after saving data in my database! here's what i'm trying to do: * In my UpdateDB.asp form i display my database records and the user can make changes on whatever record he wants; * after he'll have to save changes by hitting the save button on the form; * when i receive the "save" action, i update the database; set a session variable that i'll use later to true ( Session("UpdateDB")= TRUE) and DISABLE the Save Button. *once i'm done with it i reset my session variable to false ( Session("UpdateDB")= FALSE); and WOULD LIKE to "ENABLE" the save button; but i can't. Everything works just fine but i can't "ENABLE" my save button???? how can i refresh the page and get back the save button ?? i thought that after resetting my session variable to false would help me but i don't know how to use it?? Can you please help me with it??? Thanks! Tag: How to create a NTDS shortcut on myDesktop Tag: 137966
  - 19
    - A Variable vs. Request.Form Question Hello. I have a form where some of the field names are generated based on the name of files. This form is being sent via email, and therefore, an ASP page is handling the mailing, etc. This is going to be hard to explain. This system is for ordering photos where the user can select an image, select the size, and type the quantity. When done, the user will submit the information which is emailed. There are wallet size, 4x5, 5x7, etc. I'm having trouble with a piece of code regarding the variables. I'm using the filesystem object to generate a listing of files in a directory, and then, based on the type of photo, will check to see if a quantity has been entered, and then output the size, with the image name, along with the quantity ordered. So, for example, the form will create a field with a name of "Wallets002.jpg" which is for wallet size of image name 002.jpg. In order for me to test to see if the field has a value in it, I'm first creating a variable that will contain a value that is the same as what was generated by form: 'Create a variable that has the name of the field from the form. strImageName is in a loop using the filesystem object to grab the name of the first file. Prepend it with the size of the photo. strFieldValueWallets = "Wallets" & strImageName 'Check to see of the field is empty If NOT IsEmpty(Request.Form("" & strFieldValueWallets & "")) Then Mailer.BodyText = "Wallet Size of image: " & strImageName Mailer.BodyText = "Quantity: " & Request.Form("" & strFieldValueWallets & "")) End If I then go on to do the same thing, but check for the 4x5 size, then 5x7, etc. Is this kosher? Is the variable strFieldValueWallets created totally separate from the Request.Form("" & strFieldValueWallets & ""))? I can get it to display the value placed in the field, but I can't get it to ignore the field if it has no value in it. (because I'm assuming that the variable is making it think it has a value in it). Hope this makes sense. Thank you for any input! Thanks for listening. Doug Tag: How to create a NTDS shortcut on myDesktop Tag: 137952
  - 20
    - Closing a Security Warning pop up when running HFNETCHK using VBscript Hi all, I am trying to develop an auditing script that will verify the configurations of wintel servers across a data centre estate. I am running into difficulties when executing the HFNETCHK tool from the command line shell script in that the execution of the tool causes a Security Warning dialog box to pop. All i want to do is to incorporate into mmy script some lines that will effectively click yes in the box and allow the rest of the script to continue. Any help is greatly appreciated. C. Tag: How to create a NTDS shortcut on myDesktop Tag: 137947
  - 21
    - Launch .Net app from vbscript asp page Hello and thanks for any help you can give, I have a web page that creates and external file and then runs an encryption process on the file to secure it. Belowe is the code: BodyText={...} set FSO=Server.CreateObject("Scripting.FileSystemObject") set tFile=FSO.OpenTextFile(server.MapPath(".") & "\Orders\" & tFileName,ForWriting,True) tFile.Write BodyText tFile.Close set tFile=nothing set wshobj = createobject("WScript.shell") wshobj.run server.mappath(".") & "\Encrypt.exe " & tFileName,0,true Everything is working upto the launch of the .exe. With furthur digging I have found that it seems to be due to the fact that the encrypting program was written in VB.NET, any other type of program runs fine. Has anyone come accross this, If so, Please Help, Adam Tag: How to create a NTDS shortcut on myDesktop Tag: 137943
  - 22
    - dump one dimension from .GetRows GetRows always returns a two dimensional array. In my case the I sometimes redimension the second dimension and add additional values manually. I may then need to sort it and remove duplicates. Is there a way to redimension the array returned by GetRows and remove the first dimension keeping only the second? Is copying the array values into a new array the only way? I would rather not write a custom sort routine when the first dimension isn't ever used. thanks LJB Tag: How to create a NTDS shortcut on myDesktop Tag: 137935
  - 23
    - Start/Stop service on remote PC via script Can anyone help me out. I'm looking for a script that will start/stop a service on a remote Windows NT/2000/XP machine. TIA -Dan Tag: How to create a NTDS shortcut on myDesktop Tag: 137931
  - 24
    - Accessing a DB with VBS? Anyone here who can please show me with some vbs code how to write, read, change and delete data to/from a database? Thank you. Noel. Tag: How to create a NTDS shortcut on myDesktop Tag: 137924
  - 25
    - LDAP GetObject Error Hello, I'm writting a script that chage attribute on an AD user. On my local workstation it work fine. But i need to run it from a IIS service, and i have an error "-2147463168" every time i do GetObject. Here is a piece of the code : (MyDomain, MyAdminAccount and MyPassword are here for exemple) Set oCon = CreateObject("ADODB.Connection") oCon.Provider = "ADsDSOObject;User ID=MyDomain\MyAdminAccount;Password=MyPassword;" oCon.Open "Active Directory Provider" Set oCmd = CreateObject("ADODB.Command") Set oCmd.ActiveConnection = oCon oCmd.CommandText = "select AdsPath from 'LDAP://" & Domaine & "' where objectClass = 'group' AND cn='Utilisateurs VPN'" Set oRs = oCmd.Execute If Not oRs.EOF Then oRs.MoveFirst End If GroupeVPN = oRs.Fields("AdsPath").Value ' --> Here i get the AdsPath without problem Set objGroup = GetObject (GroupeVPN) ' --> Here i've got that -2147463168 error. Could some one help me with this ? Tag: How to create a NTDS shortcut on myDesktop Tag: 137920
- Next
  - 1
    - Reading Email Hi there, I'm working on developing an intranet for my orgnization. I have the exchange server and IIS installed on two diffrent machines. My question is how can make a web page that can read the emails from the exchange server? Thank u all Tag: How to create a NTDS shortcut on myDesktop Tag: 137917
  - 2
    - get distinguished name of current domain Hi folks, I need to determine the distinguised name of the current domain. I am familiar with the code to produce the default naming context, but how do I get the distinguished name ? Using the same code and replacing "DefaultNamingContext" with "DistinguishedName" generates an error that says the property cache could not be loaded (sorry I don't have the code at hand). Someone could shed some light ?? Thanks to all Bar Tag: How to create a NTDS shortcut on myDesktop Tag: 137913
  - 3
    - Repost: Verify Password Complexity Does anyone know how to verify if Password Complexity is enabled on a Windows 2000 Server that is in a workgroup (i.e. Local Security Policy of the server) using vbscript? Tag: How to create a NTDS shortcut on myDesktop Tag: 137907
  - 4
    - Novice needs HELP with VBScript Code Please help I am looking for any help I can get in converting this into VBScript. Thanks for your assistance! I greatly appreciate it. <html> <title>Convert Ampesands</title> <head> <script language="JavaScript">  </script> </head> -- Direct access to this group with http://web2news.com http://web2news.com/?microsoft.public.scripting.vbscript Tag: How to create a NTDS shortcut on myDesktop Tag: 137905
  - 5
    - Please Advice - Desperate for Solution I am currently working on converting this to VBScript and don't have any idea on where to start. I have spent countless hours with no resoution It is suppose to be a program that totals the checkboxes selected. Thanks! <?xml version="1.0" encoding="iso-8859-1"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"> <html xmlns="http://www.w3.org/1999/xhtml">   <html> <title>Convert Ampesands</title> <head> <script language="JavaScript">  </script> </head> -- Direct access to this group with http://web2news.com http://web2news.com/?microsoft.public.scripting.vbscript Tag: How to create a NTDS shortcut on myDesktop Tag: 137904
  - 6
    - Show serial for date in messagebox Hello newsgroup, I need a little gadget that will show me the serial number for a date I enter. I have come up with the code below, but I can not get it to show the serial number that the computer uses for the input date. The date keeps getting converted to the systems (short) date format. In Excel, I can do it by entering a date in a cell that is not date-formatted, but I need a quicker way, to fire from my desktop. Here's the basic code I'm experimenting with: =============================================== Dim time1, time2 result = InputBox("Type a date in the dd-mm-jjjj format and click OK", "Serial number for date", Date, 100, 100) time1 = FormatDateTime(result, 1) time2 = result Response = MsgBox (time2, vbokonly, time1) ================================================ A related problem: I wanted to concatenate a string for the messagebox that shows the result, but I keep coming up with errors that I think say that I cannot use text together wit a set variable or a function. I can do this in Excel VBA without any problem, so I suppose there must be a way. Here's the gist of what I tried (with the above code): Response = MsgBox ("The serial number for " + time1 + " is " + time2 + ".", vbokonly, "Serial number for date") I know I should have taken the course, but please help me out. Have a nice day, -- Eric van Uden at the foot of the 'bridge too far' Tag: How to create a NTDS shortcut on myDesktop Tag: 137901
  - 7
    - VBScript amatuer needs expert advice I having a problem converting a program from javascript need expert advice to point me to a book that can help. This is a very tuff one, and I know would take hours to write please help. This program is suppose to add only selected checkboxes. <?xml version="1.0" encoding="iso-8859-1"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"> <html xmlns="http://www.w3.org/1999/xhtml">   <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title></title> <meta name="description" content="" /> <meta name="keywords" content="" /> <meta name="generator" content="AceHTML 5 Freeware" /> <SCRIPT LANGUAGE="JavaScript"> var form_total=0; function CheckChoice(whichbox) { if (whichbox.checked == false) { form_total -= eval(whichbox.value); } else { form_total += eval(whichbox.value); } document.myform.total.value = '$'+eval(form_total); } function InitForm() { document.myform.total.value='$0'; for (xx=0; xx < document.myform.elements.length; xx++) { if (document.myform.elements[xx].type == 'checkbox') { document.myform.elements[xx].checked = false; } } } </SCRIPT> </head> <body onload="InitForm();" onreset="InitForm();"> <CENTER><font size="7" color="#008000"><b><u>Cubicle Buildout</u></b></CENTER></font><br><br><br> <CENTER><form method="POST" name="myform"> <font size="5" color="#800000">Computer              <font color="#0000ff">$700.25</font> <input type="checkbox" name="Build1" value=700.25 onclick="CheckChoice(this);"><br><br> Monitor          &nbs p;     <font color="#0000ff">$912.00</font> <input type="checkbox" name="Build2" value=912.00 onclick="CheckChoice(this);"><br><br> Phone(Rolm240)   <font color="#0000ff">$118.75</font> <input type="checkbox" name="Build3" value=118.75 onclick="CheckChoice(this);"><br><br> Pod1           & nbsp;        <font color="#0000ff">$1515.25</font> <input type="checkbox" name="Build4" value=1515.25 onclick="CheckChoice(this);"><br><br></font> <br><br><br><br><br><br> <br> <font size=+3> <font color="#008000"><b>Your total is: </b><input type="text" name="total" readonly onFocus="this.blur();"> </font> <br><br> </font> </form> </body> </html> -- Direct access to this group with http://web2news.com http://web2news.com/?microsoft.public.scripting.vbscript Tag: How to create a NTDS shortcut on myDesktop Tag: 137900
  - 8
    - popup.show() no workie! Hi, I ported the following code from MS's documentation, which was written in JScript. It executes without error, but the popup doesn't display. Anyone have any idears? Alex B. <Head> <script language="vbscript"> sub ButtonClick() dim oPopup dim oPopBody set oPopup = window.createPopup set oPopbody = oPopup.document.body oPopBody.innerHTML = "Help for <B>Test</B> page..." 'This line produces nothing, but original JScript works fine! oPopup.show 100,100, 100, 100, document.body 'This works fine msgbox "Hi" end sub </script> </HEAD> <body> <INPUT onclick="ButtonClick()" style="Z-INDEX: 108; LEFT: 41px; WIDTH: 169px; POSITION: absolute; TOP: 280px; HEIGHT: 24px" type="button" value="Help" id="btnHelp"> </body> Tag: How to create a NTDS shortcut on myDesktop Tag: 137893
  - 9
    - Sample, Tips? Hi, Everybody, I am looking for some samples that can put the real-time clock on my web page, I was told that there is a simple VB script will do the trick. Also I am wondering are there web sites will offer some general web developing tips and learning materials? Thanks for any help, Wayne Tag: How to create a NTDS shortcut on myDesktop Tag: 137885
  - 10
    - * Newsgroup doc. and 6949 Tips, Tricks, and Registry Hacks - 07-Jul-2003 14:15.22 * 07-Jul-2003 14:15.22. Please see the Microsoft Newsgroups page at http://communities.microsoft.com/newsgroups/default.asp Visit Windows & .NET Magazine's 6949 tips at http://www.jsiinc.com - press the "Tips & Tricks" button. Jerold Schulman Windows: General MVP JSI, Inc. http://www.jsiinc.com Tag: How to create a NTDS shortcut on myDesktop Tag: 137881
  - 11
    - how to close locked file - network Problem: User opens the file sample.xls on the share \\nts_server_001\share\ and does not close it. He only wants to look the content, not to change it. So this file is locked. Now I want to run a VbScript on NTS_SERVER_001 that changes the content of this xls-file. The problem is, that the user has locked the file so i cannot save it with the same name. Is there a possibility with WMI or an other way to close this file on the server so i can make the changes? Tag: How to create a NTDS shortcut on myDesktop Tag: 137872
  - 12
    - Checking Audit Information Is there a way to set / check the audit policy settings (e.g. Audit Logon events, Audit Privilege use, etc) of a Windows 2000 Server using vbscript? Tag: How to create a NTDS shortcut on myDesktop Tag: 137868
  - 13
    - Running Wscript in HTML I don't have any trouble creating and using a Wscript shell in a web page (with appropriate permissions), but I can't run Wscript functions. For example, this works fine: Set WshShell = CreateObject("WScript.Shell") ret=WshShell.run("e:\wallpaper\scripts\webread.vbs",0,true) But if I try to run "Wscript.sleep 10," I get an error telling me there is no Wscript object. How can I instantiate a Wscript object in a HTML file? Dave Tag: How to create a NTDS shortcut on myDesktop Tag: 137864
  - 14
    - A question about FileSystemObject I'm using the FileSystemObject in a client-side script that is intended to be used in Internet Explorer 5.5 or later only on an intranet. I developed the script on a Win2K machine that has WSH installed on it. I actually did not expect it to work on other computers but was surprised to find out that it did (on 3 machines so far - Win2K and NT4). So, my question is: WHERE is FSO (that is, which DLL)? Is it part of Windows? Or is this working only because Visual Basic is installed on all of the computers I've tried it on so far? Tag: How to create a NTDS shortcut on myDesktop Tag: 137863
  - 15
    - Date Range Hi I have a booking form where people enter a FromDate and a ToDate and select a recurring day like Tuesday. So that data is for instance 7-jul-2003 to 28-jul-2003 and recurring on Tuesday. What I want to be able to do is calculate the dates for the Tuesday's within the FromDate ToDate range and submit them to a database. And even better still be able to calculate 2 days like Tuesday and Friday with in the range. Is this possible ???? Regards Dave Tag: How to create a NTDS shortcut on myDesktop Tag: 137855
  - 16
    - CDONTS attach file is not working right Hi I am using the CDONTS object to create a new email, and I used the attachfile method.. It seems the attach file wont work if the file size more than 100 KB , does anybody know if there is a size limit or certain encoding method need to be applied her? the attached file I am using is in a form of acrobat PDF PS when file is sent it will show on the attachment only with 0 bytes. Or if attachment were in html format I would get gibberish. Thank you Maher Tag: How to create a NTDS shortcut on myDesktop Tag: 137845
  - 17
    - Object required: Session Hi, I'm trying to check on each asp page whether the session("UserId") has expired before it redirects to login page. Here how the process goes. 1. I am able to initialise the session("UserId") after login to the web Set session("UserId") = "ID" 2. However problems occurs for subsequent pages because now the session("UserId") always remains blank. Since I include a checking on each page for session timeout, therefore it always redirect to login page. If Session("UserID") = "" Then Response.Redirect("Login.asp") End if 3. Hence, I try to harcode the session for testing. Set Session("UserID") = "Test" If Session("UserID") = "" Then Response.Redirect("Login.asp") End if However, it prompts an error for the new line I have added. Microsoft VBScript runtime (0x800A01A8) Object required: 'Session' For your information, it works fine on the production server, but problem occurs in the development server (both running Win2K Server SP3, IIS 4.0.2.4022) Please help!! Appreciate any feedbacks. Thanks. Regards Wilson Tag: How to create a NTDS shortcut on myDesktop Tag: 137835
  - 18
    - SMTP event sinks Hello, I don't know if this is the right group but I need help with writing a SMTP event sink to send a copy of a message from/to a particular domain to another address. Any ideas? TIA Tag: How to create a NTDS shortcut on myDesktop Tag: 137833
  - 19
    - validate date Hi, This may be simple question for your all, how can I validate a date variable, like 02/30/2003 is an invalid date? thanks. Atse Tag: How to create a NTDS shortcut on myDesktop Tag: 137830
  - 20
    - automate powerpoint i would like to automate the running of a powerpoint presentation, and when it finishs, i want to quit powerpoint thank you very much Tag: How to create a NTDS shortcut on myDesktop Tag: 137827
  - 21
    - SessionVariables - INSERT INTO Command How can I use Session Variables to populate a field using the Insert Into command? troyo@troyo.net Tag: How to create a NTDS shortcut on myDesktop Tag: 137819
  - 22
    - how do I determine language version of IE programatically? I want to distribute IE 6 SP1 to the few thousand employees in my organization (Windows 98 machines). While most have the Hebrew version of IE 5, some have the English version. My script that distributes the IEAK package automatically was built on the Hebrew version. When I run the script on the English version, it doesn't work. I have since added a package built on the English version of IE6, but obviously I can't install that version automatically on the computers with the Hebrew browsers. I would like to add a section to the script that will programmatically determine the language version (I assume by VB script)and install the proper version. I have found no setting in the registry that points out the language version. The only place I've found note of it is in the advanced version properties of the iexplore.exe file, but I have found no way of pulling out that value with a script. Any ideas on how to make such a script? Alternatively, is there any way to have the IEAK determine on it's own what the current language settings for the browser are on the machine and install the right version by itself? Thanks, Dave Curwin tobyndave@hotmail.com Tag: How to create a NTDS shortcut on myDesktop Tag: 137815
  - 23
    - Sending data to database via radio button choice. Hi all! I was wondering does anyone have any ideas on how I can send info to a SQL database by choosing a radio button. What I want to do is set one radio button to "Max" and one to type "Avg". When a user clicks on a radio button I want the value of whatever button was chosen to be placed inside the "type" field in my database after they hit submit. Also, if anyone knows of the best sites or books I can use about VBScript or ASP please let me know. I'm learning them both right now. Thank you very much! Renie83 Tag: How to create a NTDS shortcut on myDesktop Tag: 137813
  - 24
    - .HTA + InternetExplorer.Application = out of memory I am trying to create an InternetExplorer.Application ActiveX from .hta and getting "out of memory" error. Here is the test code: ---------------------------- <html> <head> <HTA:APPLICATION ID="oMyApp"> <script language="VBScript"> sub initVB() Dim oIE Set oIE = CreateObject("InternetExplorer.Application") End sub window.onload = GetRef("initVB") </script> </head> <body> </body> </html> ---------------------------- It works fine being saved as .htm, but fails as .hta I am using IE 6.0 on XP Pro Thank you for any help! Regards, Anton -- Posted via http://dbforums.com Tag: How to create a NTDS shortcut on myDesktop Tag: 137811
  - 25
    - vb 4 uninstall I installed vb4 in windows xp. SInce I did I have been getting many error messages and explorer errors. I have looked but can't find out how to uninstall vb4. I can't find it in the add remove programs. What do I need to do to uninstall it? Tag: How to create a NTDS shortcut on myDesktop Tag: 137808

Hi All,

I want to create a shortcut on my desktop of an OragnizationUnit with a
logonScript.
I try to use the follow code:

'**********
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop &
"\SharedFolder.lnk")
oShellLink.TargetPath = "ntds://myDomain.it/myOU"
oShellLink.relativePath = "ntds://myDomain.it/myOU"
oShellLink.Description = "Shortcut to SharedoFolder"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
'**********

But it does not create a valid shortcut.
Do u have an idea why it does not work??
The only way i find to create the shortcut to the OU is to drag and drop the
OU on my desktop, but I must to automate it!!!

Please Help me!

Sergio Marchi

Top

Re: How to create a NTDS shortcut on myDesktop by name

name
Mon Jul 21 03:35:18 CDT 2003

You can create any protocol you want in windows.

No one will accept it across a network without consensus.

Guess that is why "military computers"

in general are no the considered a bread winner.

"sergio marchi" <sergio.marchi@email.it> wrote in message
news:ecvPkEiRDHA.1324@TK2MSFTNGP11.phx.gbl...
> Hi All,
>
> I want to create a shortcut on my desktop of an OragnizationUnit with a
> logonScript.
> I try to use the follow code:
>
>
> '**********
> set WshShell = WScript.CreateObject("WScript.Shell")
> strDesktop = WshShell.SpecialFolders("Desktop")
> set oShellLink = WshShell.CreateShortcut(strDesktop &
> "\SharedFolder.lnk")
> oShellLink.TargetPath = "ntds://myDomain.it/myOU"
> oShellLink.relativePath = "ntds://myDomain.it/myOU"
> oShellLink.Description = "Shortcut to SharedoFolder"
> oShellLink.WorkingDirectory = strDesktop
> oShellLink.Save
> '**********
>
> But it does not create a valid shortcut.
> Do u have an idea why it does not work??
> The only way i find to create the shortcut to the OU is to drag and drop
the
> OU on my desktop, but I must to automate it!!!
>
> Please Help me!
>
> Sergio Marchi
>
>
>
>

Top