Script to find network shortcuts on desktops

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
 - Find the number of elements Hello, Please can you tell me how I can determine the number of elements returned from an HTML form submitted via the GET method? thanx in advance Robbie Tag: Script to find network shortcuts on desktops Tag: 192373
 - 2
 - Show only one folder contents To All: I wish to find the contents of only one folder under the ALL_USERS program files folder. I have the following: Const ALL_USERS_PROGRAMS = &H17& Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(ALL_USERS_PROGRAMS) Set objFolderItem = objFolder.Self Wscript.Echo objFolderItem.Path Set colItems = objFolder.Items For Each objItem in colItems Wscript.Echo objItem.Name Next I would like to only enumerate ONE folder's contents under the "%allusersprofile%\Start Menu\Programs" folder. I would also like to output the data to a file instead of echoing it. Any help would be appreciated... Thanks! Mark Tag: Script to find network shortcuts on desktops Tag: 192371
 - 3
 - Domain Joining. Hi, I have created a script for joining a PC to domain. It works fine when I run it on a single machine. But when I run it remotely on networked PC it is not working. Any Idea....? Thanks Jaydeep Tag: Script to find network shortcuts on desktops Tag: 192368
 - 4
 - System Tray Icons Is it possible to create a system tray icon via vbscript (as opposed to visual basis itself)? I would like to place an icon in the system tray while one of my scripts are running. Tag: Script to find network shortcuts on desktops Tag: 192367
 - 5
 - Re: Problems in Waiting for Web page to Open "PaulFXH" >As you can imagine, I have some questions about exaclty what you did: >1) Why do you navigate to a HTML page rather than the .COM page I was >using? if you click on >> KasperskyOnlineScanner vou will be redirdct to thr Html page >2) Can I assume that "item(58)" in "objIE.Document.all.item(58).click" >refers to the Button to be clicked? If so, how did you get that number (58)? [1] >Note that I tried to save the page concerned (in order to look for >relevant HTML information) but found that Right-Click did not bring up >any context menu on any of the pages I would have liked to have >searched for HTML information (such as item number, or ID, for Buttons >to be clicked). I have a Italian OS .. but i desume HTML view is disabled but vou can APPSKEY >>> html or select View >>html on the ToolbarWindow [1] As I said ... Autoit can simplifying your live : I upload also the source but you can use the exe without installing autoit .. it's fron DaleHohm : http://www.filegone.com/7va1 click on Wowww.exe and wait 30 sec/ 1 min : in the first page >> Characteristics of all HTML Elements on page you have Element Characteristics Index Tag Name Id Extra Information 58 INPUT Form Input Type: button Value: Accept -- Fosco Tag: Script to find network shortcuts on desktops Tag: 192363
 - 6
 - SetGateways Not Working Correctly I am using the following function in a HTA to change IP information on Windows Server 2003 and Windows 2000 Servers. All the IP information appears to change to the correct values. I can even open Windows Explorer and see the Windows Domains and other servers on the network. But I can not see this server that I have performed the change on from other systems on the network. I can not ping this server either. The only way to correct this is to simply make a manual modification to the default gateway setting and save the modification. This immediately corrects the issue. I do not have to change the default gateway, just retype the last octet and click ok. From all the examples that I have seen, this function should work just fine. I do not see what I am doing wrong/different. (Note: Watch for wrap) Sub setTCPIP(strAdapter) Dim oNetwork, Adapter, a_Pro_DNS, a_Pro_IP, a_Pro_Subnet, a_Pro_GateWay, msg Dim Pro_IP, Pro_Subnet, Pro_Gateway, Pro_DNS, retValue, strDNS, a_DNS_Suffix Dim oWMI, sQuery, oClass Dim iRC, aRegKeys, sKeyName, sValue a_Pro_IP = Array (document.body.all("pIP").innerText) a_Pro_Subnet = Array (document.body.all("pSubNet").innerText) a_Pro_Gateway = Array (document.body.all("pGW").innerText) a_Gateway_Metric = Array(1) a_DNS_Suffix = Split (document.body.all("Suffix").innerText, ",") a_Pro_DNS = Split (document.body.all("pDNS").innerText + "," +document.body.all("sDNS").innerText, ",") a_WINS = document.body.all("WINS").innerText Set oWMI = GetObject("winmgmts:\\.\root\cimv2") sQuery = "Select * From Win32_NetworkAdapterConfiguration WHERE Index = " & strAdapter Set oNetwork = oWMI.Get("Win32_NetworkAdapterConfiguration") retValue = oNetwork.EnableWINS(DNS_ENABLED_FOR_WINS_RESOLUTION, USE_LMHOST_FILE,"","") Set oNetwork = oWMI.ExecQuery(sQuery) For Each Adapter in oNetwork if not testing then retValue = Adapter.EnableStatic(a_Pro_IP, a_Pro_Subnet) if retValue = 0 then document.body.all("Prompt").innerHTML="The IP address has been changed." elseif retValue = 1 then document.body.all("Prompt").innerHTML="The IP address has been changed, reboot needed" else document.body.all("Prompt").innerHTML="The IP address could not be changed, error # " & retValue end if HTASleep 3 retValue = Adapter.SetGateways(a_Pro_Gateway, a_Gateway_Metric) if retValue = 0 then document.body.all("Prompt").innerHTML="The Gateway has been changed." elseif retValue = 1 then document.body.all("Prompt").innerHTML="The Gateway has been changed, reboot needed" else document.body.all("Prompt").innerHTML="The Gateway could not be changed, error # " & retValue end if HTASleep 3 retValue = Adapter.SetDNSServerSearchOrder(a_Pro_DNS) if retValue = 0 then document.body.all("Prompt").innerHTML="The DNS Search Order has been changed." elseif retValue = 1 then document.body.all("Prompt").innerHTML="The DNS Search Order has been changed, reboot needed" else document.body.all("Prompt").innerHTML="The DNS Search Order could not be changed, error # " & retValue end if HTASleep 3 retValue = Adapter.SetWINSServer(a_WINS,"") if retValue = 0 then document.body.all("Prompt").innerHTML="The WINS Server has been changed." elseif retValue = 1 then document.body.all("Prompt").innerHTML="The WINS Server has been changed, reboot needed" else document.body.all("Prompt").innerHTML="The WINS Server could not be changed, error # " & retValue end if HTASleep 3 Set oClass = oWMI.Get(Adapter.Path_.class) retValue = oClass.SetDNSSuffixSearchOrder(a_DNS_Suffix) if retValue = 0 then document.body.all("Prompt").innerHTML="The DNS Suffix Search Order has been changed." elseif retValue = 1 then document.body.all("Prompt").innerHTML="The DNS Suffix Search Order has been changed, reboot needed" else document.body.all("Prompt").innerHTML="The DNS Suffix Search Order could not be changed, error # " & retValue end if HTASleep 3 end if gmsg= Adapter.Description + vbcrlf + " has been configured for use with the following values:" + vbcrlf + vbcrlf + _ "IP Address:" + chr(9) + chr(9) + document.body.all("pIP").innerText + vbcrlf + _ "Subnet Mask:" + chr(9) + chr(9) + document.body.all("pSubNet").innerText + vbcrlf + _ "Gateway:" + chr(9) + chr(9) + chr(9) + document.body.all("pGW").innerText + vbcrlf + _ "DNS Search Order:" + chr(9) + chr(9) + document.body.all("pDNS").innerText + "," +document.body.all("sDNS").innerText + vbcrlf + _ "WINS Server(s):" + chr(9) + chr(9) + document.body.all("WINS").innerText + vbcrlf + _ "DNS Suffix Search Order:" + chr(9) + document.body.all("Suffix").innerText + vbcrlf + vbcrlf Exit For Next End Sub I have verified that the text that I am retrieving for the values are correct and free from any invalid characters. Any idea what I am missing here? Thanks for any assistance, B-Mann Tag: Script to find network shortcuts on desktops Tag: 192361
 - 7
 - SetGateways Not Working Correctly I am using the following function in a HTA to change IP information on Windows Server 2003 and Windows 2000 Servers. All the IP information appears to change to the correct values. I can even open Windows Explorer and see the Windows Domains and other servers on the network. But I can not see this server that I have performed the change on from other systems on the network. I can not ping this server either. The only way to correct this is to simply make a manual modification to the default gateway setting and save the modification. This immediately corrects the issue. I do not have to change the default gateway, just retype the last octet and click ok. From all the examples that I have seen, this function should work just fine. I do not see what I am doing wrong/different. (Note: Watch for wrap) Sub setTCPIP(strAdapter) Dim oNetwork, Adapter, a_Pro_DNS, a_Pro_IP, a_Pro_Subnet, a_Pro_GateWay, msg Dim Pro_IP, Pro_Subnet, Pro_Gateway, Pro_DNS, retValue, strDNS, a_DNS_Suffix Dim oWMI, sQuery, oClass Dim iRC, aRegKeys, sKeyName, sValue a_Pro_IP = Array (document.body.all("pIP").innerText) a_Pro_Subnet = Array (document.body.all("pSubNet").innerText) a_Pro_Gateway = Array (document.body.all("pGW").innerText) a_Gateway_Metric = Array(1) a_DNS_Suffix = Split (document.body.all("Suffix").innerText, ",") a_Pro_DNS = Split (document.body.all("pDNS").innerText + "," +document.body.all("sDNS").innerText, ",") a_WINS = document.body.all("WINS").innerText Set oWMI = GetObject("winmgmts:\\.\root\cimv2") sQuery = "Select * From Win32_NetworkAdapterConfiguration WHERE Index = " & strAdapter Set oNetwork = oWMI.Get("Win32_NetworkAdapterConfiguration") retValue = oNetwork.EnableWINS(DNS_ENABLED_FOR_WINS_RESOLUTION, USE_LMHOST_FILE,"","") Set oNetwork = oWMI.ExecQuery(sQuery) For Each Adapter in oNetwork if not testing then retValue = Adapter.EnableStatic(a_Pro_IP, a_Pro_Subnet) if retValue = 0 then document.body.all("Prompt").innerHTML="The IP address has been changed." elseif retValue = 1 then document.body.all("Prompt").innerHTML="The IP address has been changed, reboot needed" else document.body.all("Prompt").innerHTML="The IP address could not be changed, error # " & retValue end if HTASleep 3 retValue = Adapter.SetGateways(a_Pro_Gateway, a_Gateway_Metric) if retValue = 0 then document.body.all("Prompt").innerHTML="The Gateway has been changed." elseif retValue = 1 then document.body.all("Prompt").innerHTML="The Gateway has been changed, reboot needed" else document.body.all("Prompt").innerHTML="The Gateway could not be changed, error # " & retValue end if HTASleep 3 retValue = Adapter.SetDNSServerSearchOrder(a_Pro_DNS) if retValue = 0 then document.body.all("Prompt").innerHTML="The DNS Search Order has been changed." elseif retValue = 1 then document.body.all("Prompt").innerHTML="The DNS Search Order has been changed, reboot needed" else document.body.all("Prompt").innerHTML="The DNS Search Order could not be changed, error # " & retValue end if HTASleep 3 retValue = Adapter.SetWINSServer(a_WINS,"") if retValue = 0 then document.body.all("Prompt").innerHTML="The WINS Server has been changed." elseif retValue = 1 then document.body.all("Prompt").innerHTML="The WINS Server has been changed, reboot needed" else document.body.all("Prompt").innerHTML="The WINS Server could not be changed, error # " & retValue end if HTASleep 3 Set oClass = oWMI.Get(Adapter.Path_.class) retValue = oClass.SetDNSSuffixSearchOrder(a_DNS_Suffix) if retValue = 0 then document.body.all("Prompt").innerHTML="The DNS Suffix Search Order has been changed." elseif retValue = 1 then document.body.all("Prompt").innerHTML="The DNS Suffix Search Order has been changed, reboot needed" else document.body.all("Prompt").innerHTML="The DNS Suffix Search Order could not be changed, error # " & retValue end if HTASleep 3 end if gmsg= Adapter.Description + vbcrlf + " has been configured for use with the following values:" + vbcrlf + vbcrlf + _ "IP Address:" + chr(9) + chr(9) + document.body.all("pIP").innerText + vbcrlf + _ "Subnet Mask:" + chr(9) + chr(9) + document.body.all("pSubNet").innerText + vbcrlf + _ "Gateway:" + chr(9) + chr(9) + chr(9) + document.body.all("pGW").innerText + vbcrlf + _ "DNS Search Order:" + chr(9) + chr(9) + document.body.all("pDNS").innerText + "," +document.body.all("sDNS").innerText + vbcrlf + _ "WINS Server(s):" + chr(9) + chr(9) + document.body.all("WINS").innerText + vbcrlf + _ "DNS Suffix Search Order:" + chr(9) + document.body.all("Suffix").innerText + vbcrlf + vbcrlf Exit For Next End Sub I have verified that the text that I am retrieving for the values are correct and free from any invalid characters. Any idea what I am missing here? Thanks for any assistance, B-Mann Tag: Script to find network shortcuts on desktops Tag: 192359
 - 8
 - Extract from .ini file to a text file I have a script that will display the contents of an ini file, my question is does anyone know how to extract that info to a seperate text file? What I want to do is have one text file with all the info from about 100 ini files? So each line from the ini file is added to a master text file.. hope this makes sence. Thanks Gavin... Tag: Script to find network shortcuts on desktops Tag: 192355
 - 9
 - Inventory of Start Menu and Desktop Icons To All: I was wondering how you would approach it if you had to script something which looked for all icons (*.lnk files) on each user profile desktop, start menu and also the 'All Users' desktop and Start Menu?? I have found coding out there that will enumerate the icons of the 'logged in' user, but so far nothing that looks at them all. Here is what I have found (so far): http://www.activexperts.com/activemonitor/windowsmanagement/scripts/desktop/specialfolders/ Thanks for listening! Mark Withers Tag: Script to find network shortcuts on desktops Tag: 192352
 - 10
 - schedule tasks - help please Hi I need help to make a script that allows to run an executable file (audit32.exe : http://itsolutions.intuit.com/Track-It.asp) throught domain policies or schedule tasks I can't get done none of both... :( Teh first ideia has to take in the script bellow that were taken from the net and adapt to Organization Units. If it was possible in each day of the week the executable file "audit32.exe" (instead of calling notepad.exe) were called. -------------------------------------------------------------------------------------------------------------------------- Schedules Notepad to run at 12:30 PM every Monday, Wednesday, and Friday strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objNewJob = objWMIService.Get("Win32_ScheduledJob") errJobCreated = objNewJob.Create _ ("Notepad.exe", "********123000.000000-420", _ True , 1 OR 4 OR 16, , , JobID) Wscript.Echo errJobCreated -------------------------------------------------------------------------------------------------------------------------- The other ideia was to make a "schedule task" and call the file "audit32.exe" that is in the remote server. All to this step were right not complicated but then i don't understant when the file "audit32.exe" is called throught the remote server it does an audit of the server where the shedule task is and not the remote. I even thought to call "audit32.exe" by the bellow script but result is the same -------------------------------------------------------- set wshshell = CreateObject("WScript.Shell") wshshell.Run "audit32.exe" -------------------------------------------------------- If someone could help me appreciate [] Ricky Tag: Script to find network shortcuts on desktops Tag: 192351
 - 11
 - Add a network place I would like to "Add a network place" from a VB Script... Any ideas? Tag: Script to find network shortcuts on desktops Tag: 192339
 - 12
 - Re: Problems in Waiting for Web page to Open "PaulFXH" >Although you say that "you can click buttons via >internetexplorer.application" go to ww.google.it and right click and select html and search for btnG this is how to do the click : Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://google.it/" Do While objIE.Busy = True WScript.Sleep 50 Loop objIE.document.forms.item(0).q.Value="InternetExplorer.application" WScript.Sleep 200 objIE.document.all.btnG.Click -- Fosco Tag: Script to find network shortcuts on desktops Tag: 192333
 - 13
 - VBScript and email question I have an email script that sends me links to my daily diagnostic scripts. It only sends me links via the .HTMLBody tag. I would like to add some intelligence behind this and actually give me a green OK or a red FAULT beside the links. I've tried everything I can think of and cannot find anything on the web to help. Currently the mail states... SERVER UPTIME DETAILS WHATEVER DETAILS and so on. I would like to add vbscript code in the following manner. SERVER UPTIME OK DETAILS WHATEVER FAULT DETAILS AND SO ON. How can I add vbscript to my body. Here is my code. If anyone knows an easier way, by all means, that would be great. Thanks in advance. '*********************************** Set objEmail = CreateObject("CDO.Message") objEmail.From = "server@company.org" objEmail.To = "Me@company.org" objEmail.Subject = "Previous Days Events" objEmail.HTMLBody = "<html>" & _ "<head>" & _ "CHVA PREVIOUS DAYS EVENTS<o:p> </o:p>" & _ "<table border=0 cellspacing=0 cellpadding=0 width=100%" & _ "style='width:100.0%'>" & _ "</head>" & _ "<tr>" & _ "<td style='padding:0in 0in 0in 0in'>" & _ "<span" & _ "style='font-size:12.0pt;font-family:Verdana'><o:p> </o:p>" & _ "<span" & _ "style='font-size:10.0pt;font-family:Verdana;color:#183D7E;font-weight:bold'>DOMAIN_CONTROLLER" & _ "<o:p></o:p>" & _ "<table border=1 cellspacing=0 cellpadding=0 width=100%" & _ "style='width:100.0%;border-collapse:collapse;border:none>" & _ "</td>" & _ "</tr>" & _ "<tr>" & _ "<td width=2% bgcolor=#EDF2FC style='width:2.0%;border-top:solid #193E7F 1.0pt;" & _ "border-left:solid #193E7F 1.0pt;border-bottom:none;border-right:none;" & _ "background:#EDF2FC;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "" & _ "<img" & _ "width=16 height=16 id=_x0000_i1027" & _ "src=cid:image001.gif@01C637ED.3224B0C0 border=0><o:p></o:p>" & _ "</td>" & _ "<tr>" & _ "<td width=2% bgcolor=#CCFFFF style='width:2.0%;border:none;border-left:" & _ "solid #193E7F 1.0pt;background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<img" & _ "border=0 width=16 height=16 id=_x0000_i1029" & _ "src=cid:image001.gif@01C637ED.3224B0C0><o:p></o:p>" & _ "</td>" & _ "<td width=75% bgcolor=#CCFFFF style='width:75.0%;border:none;" & _ "background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "Server Specifications: <o:p></o:p>" & _ "</td>" & _ "<td>" & _ "strTime" & _ "</td>" & _ "<td bgcolor=#CCFFFF style='border:none;border-right:solid #193E7F 1.0pt;" & _ "background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<a href=" & "" & "\\SERVER\ServerConfigs\DOMAINCONTROLLER\DOMAINCONTROLLER_PCAudit.htm" & "" & ">Details </a><o:p></o:p>" & _ "</td>" & _ "</tr>" & _ "<tr>" & _ "<td width=2% style='width:2.0%;border:none;border-left:solid #193E7F 1.0pt;" & _ "padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<img" & _ "width=16 height=16 id=_x0000_i1028" & _ "src=cid:image001.gif@01C637ED.3224B0C0 border=0><o:p></o:p>" & _ "</td>" & _ "<td width=75% style='width:75.0%;border:none;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "Service:<o:p></o:p>" & _ "</td>" & _ "<td style='border:none;border-right:solid #193E7F 1.0pt;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<a href=" & "" & "\\SERVER\ServerConfigs\DOMAINCONTROLLER\DOMAINCONTROLLER_ServicesRunning.htm" & "" & ">Details </a><o:p></o:p>" & _ "</td>" & _ "</tr>" & _ "<tr>" & _ "<td width=2% bgcolor=#CCFFFF style='width:2.0%;border:none;border-left:" & _ "solid #193E7F 1.0pt;background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<img" & _ "border=0 width=16 height=16 id=_x0000_i1029" & _ "src=cid:image001.gif@01C637ED.3224B0C0><o:p></o:p>" & _ "</td>" & _ "<td width=75% bgcolor=#CCFFFF style='width:75.0%;border:none;" & _ "background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "Previous Days Events: <o:p></o:p>" & _ "</td>" & _ "<td bgcolor=#CCFFFF style='border:none;border-right:solid #193E7F 1.0pt;" & _ "background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<a href=" & "" & "\\SERVER\ServerConfigs\DOMAINCONTROLLER\DOMAINCONTROLLER_PreviousEvents.htm" & "" & ">Details </a><o:p></o:p>" & _ "</td>" & _ "</tr>" & _ "<tr>" & _ "<td width=2% style='width:2.0%;border:none;border-left:solid #193E7F 1.0pt;" & _ "padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<img" & _ "width=16 height=16 id=_x0000_i1028" & _ "src=cid:image001.gif@01C637ED.3224B0C0 border=0><o:p></o:p>" & _ "</td>" & _ "<td width=75% style='width:75.0%;border:none;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "Previous Days Security Events:<o:p></o:p>" & _ "</td>" & _ "<td style='border:none;border-right:solid #193E7F 1.0pt;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<a href=" & "" & "\\SERVER\ServerConfigs\DOMAINCONTROLLER\DOMAINCONTROLLER_PreviousSecEvents.htm" & "" & ">Details </a><o:p></o:p>" & _ "</td>" & _ "</tr>" & _ "<tr>" & _ "<td width=2% bgcolor=#CCFFFF style='width:2.0%;border:none;border-left:" & _ "solid #193E7F 1.0pt;background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<img" & _ "border=0 width=16 height=16 id=_x0000_i1029" & _ "src=cid:image001.gif@01C637ED.3224B0C0><o:p></o:p>" & _ "</td>" & _ "<td width=75% bgcolor=#CCFFFF style='width:75.0%;border:none;" & _ "background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "Server Uptime Data: <o:p></o:p>" & _ "</td>" & _ "<td bgcolor=#CCFFFF style='border:none;border-right:solid #193E7F 1.0pt;" & _ "background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<a href=" & "" & "\\SERVER\ServerConfigs\Reports\Uptime\DOMAINCONTROLLER_uptime.txt" & "" & ">Details </a><o:p></o:p>" & _ "</td>" & _ "</tr>" & _ "" & _ "" & _ "<table border=0 cellspacing=0 cellpadding=0 width=100%" & _ "style='width:100.0%' id=pnlAllData>" & _ "<tr>" & _ "<td style='padding:0in 0in 0in 0in'>" & _ "<span" & _ "style='font-size:12.0pt;font-family:Verdana'><o:p> </o:p>" & _ "<div>" & _ "<span" & _ "style='font-size:10.0pt;font-family:Verdana;color:#183D7E;font-weight:bold'>SERVER" & _ "<o:p></o:p>" & _ "</div>" & _ "<div>" & _ "<table border=1 cellspacing=0 cellpadding=0 width=100%" & _ "style='width:100.0%;border-collapse:collapse;border:none>" & _ "</td>" & _ "</tr>" & _ "<tr>" & _ "<td width=2% bgcolor=#EDF2FC style='width:2.0%;border-top:solid #193E7F 1.0pt;" & _ "border-left:solid #193E7F 1.0pt;border-bottom:none;border-right:none;" & _ "background:#EDF2FC;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "" & _ "<img" & _ "width=16 height=16 id=_x0000_i1027" & _ "src=cid:image001.gif@01C637ED.3224B0C0 border=0><o:p></o:p>" & _ "</td>" & _ "<tr>" & _ "<td width=2% bgcolor=#CCFFFF style='width:2.0%;border:none;border-left:" & _ "solid #193E7F 1.0pt;background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<img" & _ "border=0 width=16 height=16 id=_x0000_i1029" & _ "src=cid:image001.gif@01C637ED.3224B0C0><o:p></o:p>" & _ "</td>" & _ "<td width=75% bgcolor=#CCFFFF style='width:75.0%;border:none;" & _ "background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "Server Specifications: <o:p></o:p>" & _ "</td>" & _ "<td bgcolor=#CCFFFF style='border:none;border-right:solid #193E7F 1.0pt;" & _ "background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<a href=" & "" & "\\SERVER\ServerConfigs\SERVER\SERVER_PCAudit.htm" & "" & ">Details </a><o:p></o:p>" & _ "</td>" & _ "</tr>" & _ "<tr>" & _ "<td width=2% style='width:2.0%;border:none;border-left:solid #193E7F 1.0pt;" & _ "padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<img" & _ "width=16 height=16 id=_x0000_i1028" & _ "src=cid:image001.gif@01C637ED.3224B0C0 border=0><o:p></o:p>" & _ "</td>" & _ "<td width=75% style='width:75.0%;border:none;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "Service:<o:p></o:p>" & _ "</td>" & _ "<td style='border:none;border-right:solid #193E7F 1.0pt;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<a href=" & "" & "\\SERVER\ServerConfigs\SERVER\SERVER_ServicesRunning.htm" & "" & ">Details </a><o:p></o:p>" & _ "</td>" & _ "</tr>" & _ "<tr>" & _ "<td width=2% bgcolor=#CCFFFF style='width:2.0%;border:none;border-left:" & _ "solid #193E7F 1.0pt;background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<img" & _ "border=0 width=16 height=16 id=_x0000_i1029" & _ "src=cid:image001.gif@01C637ED.3224B0C0><o:p></o:p>" & _ "</td>" & _ "<td width=75% bgcolor=#CCFFFF style='width:75.0%;border:none;" & _ "background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "Previous Days Events: <o:p></o:p>" & _ "</td>" & _ "<td bgcolor=#CCFFFF style='border:none;border-right:solid #193E7F 1.0pt;" & _ "background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<a href=" & "" & "\\SERVER\ServerConfigs\SERVER\SERVER_PreviousEvents.htm" & "" & ">Details </a><o:p></o:p>" & _ "</td>" & _ "</tr>" & _ "<tr>" & _ "<td width=2% style='width:2.0%;border:none;border-left:solid #193E7F 1.0pt;" & _ "padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<img" & _ "width=16 height=16 id=_x0000_i1028" & _ "src=cid:image001.gif@01C637ED.3224B0C0 border=0><o:p></o:p>" & _ "</td>" & _ "<td width=75% style='width:75.0%;border:none;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "Previous Days Security Events:<o:p></o:p>" & _ "</td>" & _ "<td style='border:none;border-right:solid #193E7F 1.0pt;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<a href=" & "" & "\\SERVER\ServerConfigs\SERVER\SERVER_PreviousSecEvents.htm" & "" & ">Details </a><o:p></o:p>" & _ "</td>" & _ "</tr>" & _ "<tr>" & _ "<td width=2% bgcolor=#CCFFFF style='width:2.0%;border:none;border-left:" & _ "solid #193E7F 1.0pt;background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<img" & _ "border=0 width=16 height=16 id=_x0000_i1029" & _ "src=cid:image001.gif@01C637ED.3224B0C0><o:p></o:p>" & _ "</td>" & _ "<td width=75% bgcolor=#CCFFFF style='width:75.0%;border:none;" & _ "background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "Server Uptime Data: <o:p></o:p>" & _ "</td>" & _ "<td bgcolor=#CCFFFF style='border:none;border-right:solid #193E7F 1.0pt;" & _ "background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<a href=" & "" & "\\SERVER\ServerConfigs\Reports\Uptime\SERVER_uptime.txt" & "" & ">Details </a><o:p></o:p>" & _ "</td>" & _ "</tr>" & _ "" & _ "" & _ "<table border=0 cellspacing=0 cellpadding=0 width=100%" & _ "style='width:100.0%' id=pnlAllData>" & _ "<tr>" & _ "<td style='padding:0in 0in 0in 0in'>" & _ "<span" & _ "style='font-size:12.0pt;font-family:Verdana'><o:p> </o:p>" & _ "<div>" & _ "<span" & _ "style='font-size:10.0pt;font-family:Verdana;color:#183D7E;font-weight:bold'>SERVER02" & _ "<o:p></o:p>" & _ "</div>" & _ "<div>" & _ "<table border=1 cellspacing=0 cellpadding=0 width=100%" & _ "style='width:100.0%;border-collapse:collapse;border:none>" & _ "</td>" & _ "</tr>" & _ "<tr>" & _ "<td width=2% bgcolor=#EDF2FC style='width:2.0%;border-top:solid #193E7F 1.0pt;" & _ "border-left:solid #193E7F 1.0pt;border-bottom:none;border-right:none;" & _ "background:#EDF2FC;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "" & _ "<img" & _ "width=16 height=16 id=_x0000_i1027" & _ "src=cid:image001.gif@01C637ED.3224B0C0 border=0><o:p></o:p>" & _ "</td>" & _ "<tr>" & _ "<td width=2% bgcolor=#CCFFFF style='width:2.0%;border:none;border-left:" & _ "solid #193E7F 1.0pt;background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<img" & _ "border=0 width=16 height=16 id=_x0000_i1029" & _ "src=cid:image001.gif@01C637ED.3224B0C0><o:p></o:p>" & _ "</td>" & _ "<td width=75% bgcolor=#CCFFFF style='width:75.0%;border:none;" & _ "background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "Server Specifications: <o:p></o:p>" & _ "</td>" & _ "<td bgcolor=#CCFFFF style='border:none;border-right:solid #193E7F 1.0pt;" & _ "background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<a href=" & "" & "\\SERVER\ServerConfigs\SERVER02\SERVER02_PCAudit.htm" & "" & ">Details </a><o:p></o:p>" & _ "</td>" & _ "</tr>" & _ "<tr>" & _ "<td width=2% style='width:2.0%;border:none;border-left:solid #193E7F 1.0pt;" & _ "padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<img" & _ "width=16 height=16 id=_x0000_i1028" & _ "src=cid:image001.gif@01C637ED.3224B0C0 border=0><o:p></o:p>" & _ "</td>" & _ "<td width=75% style='width:75.0%;border:none;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "Service:<o:p></o:p>" & _ "</td>" & _ "<td style='border:none;border-right:solid #193E7F 1.0pt;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<a href=" & "" & "\\SERVER\ServerConfigs\SERVER02\SERVER02_ServicesRunning.htm" & "" & ">Details </a><o:p></o:p>" & _ "</td>" & _ "</tr>" & _ "<tr>" & _ "<td width=2% bgcolor=#CCFFFF style='width:2.0%;border:none;border-left:" & _ "solid #193E7F 1.0pt;background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<img" & _ "border=0 width=16 height=16 id=_x0000_i1029" & _ "src=cid:image001.gif@01C637ED.3224B0C0><o:p></o:p>" & _ "</td>" & _ "<td width=75% bgcolor=#CCFFFF style='width:75.0%;border:none;" & _ "background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "Previous Days Events: <o:p></o:p>" & _ "</td>" & _ "<td bgcolor=#CCFFFF style='border:none;border-right:solid #193E7F 1.0pt;" & _ "background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<a href=" & "" & "\\SERVER\ServerConfigs\SERVER02\SERVER02_PreviousEvents.htm" & "" & ">Details </a><o:p></o:p>" & _ "</td>" & _ "</tr>" & _ "<tr>" & _ "<td width=2% style='width:2.0%;border:none;border-left:solid #193E7F 1.0pt;" & _ "padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<img" & _ "width=16 height=16 id=_x0000_i1028" & _ "src=cid:image001.gif@01C637ED.3224B0C0 border=0><o:p></o:p>" & _ "</td>" & _ "<td width=75% style='width:75.0%;border:none;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "Previous Days Security Events:<o:p></o:p>" & _ "</td>" & _ "<td style='border:none;border-right:solid #193E7F 1.0pt;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<a href=" & "" & "\\SERVER\ServerConfigs\SERVER02\SERVER02_PreviousSecEvents.htm" & "" & ">Details </a><o:p></o:p>" & _ "</td>" & _ "</tr>" & _ "<tr>" & _ "<td width=2% bgcolor=#CCFFFF style='width:2.0%;border:none;border-left:" & _ "solid #193E7F 1.0pt;background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<img" & _ "border=0 width=16 height=16 id=_x0000_i1029" & _ "src=cid:image001.gif@01C637ED.3224B0C0><o:p></o:p>" & _ "</td>" & _ "<td width=75% bgcolor=#CCFFFF style='width:75.0%;border:none;" & _ "background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "Server Uptime Data: <o:p></o:p>" & _ "</td>" & _ "<td bgcolor=#CCFFFF style='border:none;border-right:solid #193E7F 1.0pt;" & _ "background:#CCFFFF;padding:5.25pt 5.25pt 5.25pt 5.25pt'>" & _ "<a href=" & "" & "\\SERVER\ServerConfigs\Reports\Uptime\SERVER02_uptime.txt" & "" & ">Details </a><o:p></o:p>" & _ "</td>" & _ "</tr>" & _ "</html>" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "EXCHANGESERVER" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send Tag: Script to find network shortcuts on desktops Tag: 192331
 - 14
 - Error Scripting XP PCs (but works on 2000 PCs) From my own PC, I am trying to run the following script against all PCs in my network to get lists of what software is running on each PC. The script works when run against Windows 2000 PCs, but does not when I try to run it against Windows XP machines. I get the following error message: (taken directly from the CMD output) D:\Trashcan>cscript test.vbs Microsoft (R) Windows Script Host Version 5.6 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. D:\Trashcan\test.vbs(11, 1) Microsoft VBScript runtime error: The remote server machine does not exist or is unavailable: 'GetObject' I am not familiar with scripting against XP PCs. Is there a certain permission I should enable on XP PC's to allow them to be "controlled" by a VBS script? Any thoughts will be most appreciated. Thanks. Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE strComputer = "rpiecyk-xp" strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" strEntry1a = "DisplayName" strEntry1b = "QuietDisplayName" strEntry2 = "InstallDate" strEntry3 = "VersionMajor" strEntry4 = "VersionMinor" strEntry5 = "EstimatedSize" Set objReg = GetObject("winmgmts://" & strComputer & _ "/root/default:StdRegProv") objReg.EnumKey HKLM, strKey, arrSubkeys WScript.Echo "Installed Applications" & VbCrLf For Each strSubkey In arrSubkeys intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _ strEntry1a, strValue1) If intRet1 <> 0 Then objReg.GetStringValue HKLM, strKey & strSubkey, _ strEntry1b, strValue1 End If If strValue1 <> "" Then WScript.Echo VbCrLf & "Display Name: " & strValue1 End If objReg.GetStringValue HKLM, strKey & strSubkey, _ strEntry2, strValue2 If strValue2 <> "" Then WScript.Echo "Install Date: " & strValue2 End If objReg.GetDWORDValue HKLM, strKey & strSubkey, _ strEntry3, intValue3 objReg.GetDWORDValue HKLM, strKey & strSubkey, _ strEntry4, intValue4 If intValue3 <> "" Then WScript.Echo "Version: " & intValue3 & "." & intValue4 End If objReg.GetDWORDValue HKLM, strKey & strSubkey, _ strEntry5, intValue5 If intValue5 <> "" Then WScript.Echo "Estimated Size: " & Round(intValue5/1024, 3) & " megabytes" End If Next Tag: Script to find network shortcuts on desktops Tag: 192330
 - 15
 - how to schedule on remote servers I don't know what is the best way to audit servers and clients computers with audit32.exe from Intuit. This program audit's hardware and software of each machine. I've already try to schedule a task from the main server to other server and run the audit32,exe file. But didn't work once it make the audit of the main server and not of the remote server (the audit32.exe was in the remote server in a shared folder). Perphaps with the script below should make easier the audit?... If so can i put this script in the group policy domain?... The final purphose it to shedule the audit of servers and clients computers (local and remote) by Organization Unit in differant days ************************************************************************************************* Create a Scheduled Task Schedules Notepad to run at 12:30 PM every Monday, Wednesday, and Friday strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objNewJob = objWMIService.Get("Win32_ScheduledJob") 'Here instead of call notepad.exe i'll call audit32.exe. Do you thing it might work?... errJobCreated = objNewJob.Create _ ("Notepad.exe", "********123000.000000-420", _ True , 1 OR 4 OR 16, , , JobID) Wscript.Echo errJobCreated ************************************************************************************************* Thanks Ricky Tag: Script to find network shortcuts on desktops Tag: 192328
 - 16
 - bookmarks from history Is it possible to create an HTML page of bookmarks from the ie history? Tag: Script to find network shortcuts on desktops Tag: 192303
 - 17
 - Write to a remote event log Hello, Can anyone share a code snippet with me for writing to the Application event log of a remote server?? (Windows 2000/2003). Thanks, Troy Tag: Script to find network shortcuts on desktops Tag: 192293
 - 18
 - easy way to (almost)copy a recordset. I want to open up 2 record sets. Then, copy everything from one record set to another (excluding a few fields). Is this possible? I need to exclude my primary key, and fields starting with "TMP_". I'm trying this, but it's saying ADODB.Recordset error '800a0c93' Operation is not allowed in this context. Public Function saveChanges() Dim strSQL : strSQL = "SELECT * FROM imf WHERE imf_id = " & Form_id Dim strSQLTMP : strSQLTMP = "SELECT * FROM imf WHERE TMP_imf_id = " & Form_id Dim rs : Set rs = Server.CreateObject("adodb.recordset") Dim rsTMP : Set rsTMP = Server.CreateObject("adodb.recordset") rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic rs.CursorLocation = adUseServer rs.open strSQL,DBHandle.DBConn rsTMP.open strSQL,DBHandle.DBConn Dim i, strF rs.movefirst For i = 0 To rs.Fields.Count -1 echo i & "- " & rs.Fields(i).Name & " " strF = rs.Fields(i).Name If strF = "imf_id" Then ' do nothing echo "skipping " & strF & " " ElseIf Left(strF,3) = "TMP" Then ' do nothing echo "tmpskipping " & strF & " " Else rs.Fields.Item(i) = rsTMP.Fields.Item(i) End If Next rs.close : rsTMP.close Response.End End Function Tag: Script to find network shortcuts on desktops Tag: 192292
 - 19
 - ADODB.Recordset error '800a0c93' Operation is not allowed in this am i doing something wrong here. I am only updating one table. There are 102 fields in this table right now, and i don't want to have to create an sql statement for this. Dim strSQL : strSQL = "SELECT * FROM imf WHERE imf_id = " & Form_id Dim rs : Set rs = Server.CreateObject("adodb.recordset") rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic rs.CursorLocation = adUseServer rs.open strSQL,DBHandle.DBConn Dim i, strF rs.movefirst For i = 0 To rs.Fields.Count -1 echo i & "- " & rs.Fields(i).Name & " " strF = rs.Fields(i).Name If strF = "imf_id" Then ' do nothing -- dont update the primary key echo "skipping " & strF & " " ElseIf Left(strF,3) = "TMP" Then ' do nothing -- don't update temp fields echo "tmpskipping " & strF & " " Else rs.Fields.Item(i) = ... End If Next rs.close Response.End my output prints out the expected output for all of the fields, and after that i get this ADODB.Recordset error '800a0c93' Operation is not allowed in this context. Tag: Script to find network shortcuts on desktops Tag: 192291
 - 20
 - Help!!! Date operations Hello all, I must realize a script that it eliminates file rar older than 5 days regarding the date retrieve by function Date(). How I can make? Thanks all!!! Tag: Script to find network shortcuts on desktops Tag: 192287
 - 21
 - Download a website's source with VBS Hello everyone, Okay probably a simple question, but I'm very green to VBS and I can't find this anywhere! In the Unix world I use wget to download just the source file for a given website, but I need to do this same thing in Windows and preferably with VBS. Basically what we're doing is downloading an xml file from a vendor's website then importing it into our MS SQL database via a VBS script (using QLXMLBulkLoad). I have this part working, but I now need to download the xml file from the web server. Ideally I'd like to put this download routine before the code that imports the XML content, but that's my delimma -- I dunno how to write it :) Thanks for any suggestions or pointers into the right direction. Take care -- Alex Tag: Script to find network shortcuts on desktops Tag: 192283
 - 22
 - Cycle through variables Is there a way to specify a list of say 20 variables in a script and run the same command for all variables without copying pasting the command 20 times in a script? Below is an example of my current script - I'd really like to simplify it to make future modifications much easier. It looks like there are two options that may produce my desired end result - using an array and/or using multiple instances of the same variable, for example: Group(1) = group in domain1, Group(2) = group in domain2, etc. Can anyone shed some light on how to cycle through many variables to the same command? Group01="cn=somegroup,ou=somou,dc=domain1,dc=com" Group02="cn=somegroup,ou=somou,dc=domain2,dc=com" (etc.) Set objGroup = GetObject ("LDAP://"&Group01) For each objMember in objGroup.Members i = i + 1 AlertReportXX = i&". "&objMember.sAMAccountName&" (domain.com)" objTextFile2.WriteLine(AlertReportXX) EchoXX = "domain.com,,"&objMember.sAMAccountName objTextFile.WriteLine(EchoXX) Next Set objGroup = GetObject ("LDAP://"&Group02) For each objMember in objGroup.Members i = i + 1 AlertReportXX = i&". "&objMember.sAMAccountName&" (domain.com)" objTextFile2.WriteLine(AlertReportXX) EchoXX = "domain.com,,"&objMember.sAMAccountName objTextFile.WriteLine(EchoXX) Next (etc.) wscript.echo i wscript.quit Tag: Script to find network shortcuts on desktops Tag: 192282
 - 23
 - Creating excel file on server I understand that vbscript is a client side scripting language, but is there a way to create the file on the server side instead? I'm using php on my website, and am generating excel files for users to download. The problem with creating excel files with vbscript is that all users needs to be using internet explorer and must adjust their security settings before they can take advantage of this feature. I would rather have the excel file be created on the server and just upload it to clients rather than having them go through so much. (Even though it is a one time setup) Any other solutions is appreciated. I prefer vbscript because I have full control over the access file such as formats, merged fields, formulas, font color, size, print size, etc. I know i can create an excel file using php with headers, but I don't have as much control over the appearance of the excel file as I do when using vbscript. Tag: Script to find network shortcuts on desktops Tag: 192279
 - 24
 - Test for setup.exe success. Is there a way to test for the successful completion of "setup.exe" using either the exec or run methods? Particularly what I'm trying to do is do a silent install of Firefox & Thunderbird 1.5.0.4. I've extracted their installation files and made the necessary modifications to them, and the "setup.exe" with both of them can be run in silent mode. If I launch that, how can I determine if it completes successfully? The following code seems to always return a zero ReturnCode, regardless of whether setup.exe fails or completes successfully. If Not IsObject(oWshShell) Then Set oWshShell = CreateObject("WScript.Shell") ReturnCode = oWshShell.Run("setup.exe", 1, True) Thanks... Tag: Script to find network shortcuts on desktops Tag: 192278
 - 25
 - File Management office has some Mac Computer when use file share will Mac will make the ._XXXXX Files How to make a script when i run this script will find all ._xxxxx file and delete then log to a file what file been delete thanks alot Tag: Script to find network shortcuts on desktops Tag: 192268
- Next
 - 1
 - Getting Users TEMP folder Hi, Is there any way to get the users temporary folder (C:\Documents and Settings\<username>\Local Settings\Temp) in vb script Thanks, Anishya Tag: Script to find network shortcuts on desktops Tag: 192260
 - 2
 - Problem with quotes I am creating a script to enumerate all the shares on my local test server and put the output in a net share command format so that I can easily transport my shares to another server. The script works fine but I need to but the share name and share path in "double quotes", and I cannot find a way to do this. Below is the my script and the desired output. Set wmiRoot = GetObject("WinMgmts:root/cimv2") Set wmiColl = wmiRoot.ExecQuery("Select * FROM Win32_Share") For Each wmiObj In wmiColl WScript.Echo "net share " & wmiObj.Name &_ "=" & wmiobj.Path &_ " /GRANT:Everyone,Full" Next Here is what I am trying to get the output to look like. net share "script"="C:\script" /GRANT:Everyone,Full Any help you can provide would be great, Thank You Tag: Script to find network shortcuts on desktops Tag: 192258
 - 3
 - WScript Application Error I am running Windows XP SP2 systems at multiple locations that log into a Active Directory domain and have logon scripts launched via GP. I have VBS scripts, that run with the logon scripts, that add/remove connections to network printers. These scripts have been running fine up until about a month ago when I started getting reports of an error message that comes up after the script has finished running. WScript.exe - Application Error. The instruction at "0x7c91103c" referenced memory at "<address>". The memory could not be "written". The "0x7c9110c" seems to remain constant whereas the second <address> changes. The following is an example of a script that is receiving this error: On Error Resume Next Set WshNetwork = WScript.CreateObject("WScript.Network") WshNetwork.RemovePrinterConnection "\\BLV501\ANNEX_BLACK" WshNetwork.RemovePrinterConnection "\\BLV501\ANNEX_COLOR" WshNetwork.RemovePrinterConnection "\\BLV501\CENTRAL_BLACK" WshNetwork.RemovePrinterConnection "\\BLV501\CENTRAL_COLOR" WshNetwork.RemovePrinterConnection "\\BLV501\FRONT_DESK_FAX" WshNetwork.RemovePrinterConnection "\\BLV501\NORTH_BLACK" WshNetwork.RemovePrinterConnection "\\BLV501\NORTH_COLOR" WshNetwork.RemovePrinterConnection "\\BLV501\SOUTH_COLOR" WshNetwork.RemovePrinterConnection "\\BLV501\SOUTH_BLACK" WshNetwork.RemovePrinterConnection "\\BLV501\STAFF_BLACK" Set WshNetwork = CreateObject("WScript.Network") WshNetwork.AddWindowsPrinterConnection "\\BLV501\ANNEX_BLACK" WshNetwork.AddWindowsPrinterConnection "\\BLV501\ANNEX_COLOR" WshNetwork.AddWindowsPrinterConnection "\\BLV501\CENTRAL_BLACK" WshNetwork.AddWindowsPrinterConnection "\\BLV501\CENTRAL_COLOR" WshNetwork.AddWindowsPrinterConnection "\\BLV501\FRONT_DESK_FAX" WshNetwork.AddWindowsPrinterConnection "\\BLV501\NORTH_BLACK" WshNetwork.AddWindowsPrinterConnection "\\BLV501\NORTH_COLOR" WshNetwork.AddWindowsPrinterConnection "\\BLV501\SOUTH_COLOR" WshNetwork.AddWindowsPrinterConnection "\\BLV501\SOUTH_BLACK" WshNetwork.AddWindowsPrinterConnection "\\BLV501\STAFF_BLACK" I have seemed to narrow the problem down to the "On Error Resume Next" command. If I remove this from the script it will run without the error at the end, however if the script tries to delete a printer that is not installed on the local computer or add a printer that the user does not have permissions for it throws an error and does not complete. I am relatively new to scripting and most of my experience has been editing existing scripts. Any help would be appreciated. Thanks in advance for all your help David Tag: Script to find network shortcuts on desktops Tag: 192252
 - 4
 - Newbie question - writing username and password For starters, I've been able to execute/run an FTP app. From here, I need to pass the username and password. Can someone assist please? strftp = "ftp za15XXX" set myshell=wscript.createobject("wscript.shell") myshell.run (strftp) WScript.Write "username" --need help WScript.Write "password" -- need help Tag: Script to find network shortcuts on desktops Tag: 192248
 - 5
 - Add a domain group How would you script out adding a existing domain group to your own PC. I've been looking at net.exe but I haven't had any luck. Is there a way to script it out. Thanks Tag: Script to find network shortcuts on desktops Tag: 192245
 - 6
 - Dropdown Box in VBScript? I would like to replace an InputBox with a dropdown box in a very simple script asking for user input prior to processing it. This is not for a web page, but to be used on XP machines. Anyone have any suggestions? Thanks. ---John Tag: Script to find network shortcuts on desktops Tag: 192238
 - 7
 - !Regular Expression for Process Name(s) To All: I was wondering if I could use a regular expression for process names in the process list? For instance, consider the following: Dim strComputer : strComputer = "." Dim objWMIService = GetObject("winmgmts:" & _ "{impersonationLevel=impersonate!\\" & strComputer & _ "\root\cimv2") Set colProcessList = objWMIService.ExecQuery ("Select " &_ "* from Win32_Process Where Name = 'cpm???32.exe'") For Each objProcess in colProcessList objProcess.Terminate() Next The regular expression would come into play on the actual process name so that each process which begins with cpm???.exe would then be killed? Or am I mis-understanding the concept here? Any info would be appreciated! Thanks! Mark Tag: Script to find network shortcuts on desktops Tag: 192237
 - 8
 - P3P web site integration How do i implement P3P on my web site. i found documentation on what P3P is but no integration documents. Tag: Script to find network shortcuts on desktops Tag: 192236
 - 9
 - VB logon script I have a logon script for all my users. Some times I have users that complain that not all the shared drives are connected, I also have 2 or 3 users that the user drive will not map at logon time. Everything will map fine if i run the script manually from their desktop. I made sure they have the latest updates, I also checked for any CRC errors, or latencies problems, but everything was fine. Can some one give me a clue to where i should start looking for problems? Thanks Tag: Script to find network shortcuts on desktops Tag: 192233
 - 10
 - VB startup printer script. Hello, I'm trying to create a startup script for WinXP workstations via Win 2003 server. I have the VB script for adding printers and can run them successfuly when running directly on the workstation. However, when I assing the script via GPO in Active Directory as a startup script, the script does not run. Upon starting up, the machine shows "startup scripts," but once I'm logged on no printers appear. I have de-activated Windows Firewall in hopes that that was the culprit, to no avail. Any help here will be greatly appreciated. Thanks in advance, Vince Tag: Script to find network shortcuts on desktops Tag: 192231
 - 11
 - Problems in Waiting for Web page to Open Hi Inexperienced scripter building a small vbs script to allow hotkey combo launching of a virus scanner that, without the script, would require "mouse-clicking" through four different pages before the scanner will start. The script starts by launching IE and then calling the virus scanner Start Page, waiting until the page is fully open, tabbing (via SendKeys)to the appropriate button and Entering (via SendKeys). The "waiting" in this step is done via: While IE.ReadyState <> READYSTATE_COMPLETE : Wscript.Sleep tDoEvents Wend This brings up a EULA page where I would have liked to have used the same While....Wend loop to wait until the page was fully open before using the SendKeys function to "click" the Accept button and move to the next page. However, use of the While....Wend loop causes the script to stop and go no further. To overcome this, I have used instead a Sleep command (WScript.Sleep 5000) whereupon it proceeds without difficulty. In the subsequent page, the scanner downloads updates for a time that is quite variable depending chiefly on the days since the last update. Once again, the While....Wend loop causes the script to stop while a 25 second Sleep, in its place, overcomes this problem in a somewhat inelegant manner as perhaps as little as 2 seconds are necessary to download the updates. The final page allows choice of what is to be scanned. Here the While....Wend loop works fine. Although the script does what it is supposed to do, I`m puzzled as to why the While....Wend loop works in only two of the four attempts to incorporate it in this "macro". Can anybody suggest what might be the problem here? TIA Paul Tag: Script to find network shortcuts on desktops Tag: 192229
 - 12
 - Script needed to search for long filenames Hi, Does anyone have a script that will search a drive (and all subfolders) and output (to a text file) a list of all files that exceed a specified number of characters, including their full path? Thanks, Curtis. -- Please reply to news group only. Thank you. Tag: Script to find network shortcuts on desktops Tag: 192225
 - 13
 - copying files to a drive mapped to a machine on the network Hi, I am trying to use Copyfile method of the file sytem object (FSO) to copy files on my IIS box to another machine on the network. On my IIS box I have a drive(l:) mapped to the other machine on the network I use the following code Object.CopyFile "d:\myfiles\*.*","l:\myfiles" Will this work. The drive l: is mapped on the IIS box to another machine on the network. The drive d: is the local drive on the IIS box. Also after copying if I want to show a file (for example a word document,photo) on the "l:\myfiles folder" in my asp pages can it be done. THanks. Kumar. Thanks. *** Sent via Developersdex http://www.developersdex.com *** Tag: Script to find network shortcuts on desktops Tag: 192224
 - 14
 - RegExp advice please Greetings: I have a load of data that I need to alter. I am using the RegExp object inside a SQL Server DTS Task. The data had links that were designated in a very proprietary way, and I need to convert these to HTML hyperlinks. Here are some examples the proprietary links: [[link text| IMAGE v:\bitmaps\image18.bmp CLIP]] [[more link text | IMAGE v:\bitmaps\link8.bmp CLIP]] [[link| IMAGE v:\bitmaps\foonugget\d01.bmp]] Here is the search I use: \[\[(.+?)\|\s+IMAGE+\s+.{3}([^\s\]]+)[^\]]*\]\] And here is the replace: <A HREF=http://server.mydomain.com/\2>\1</A> It works and gives me: <A HREF=http://server.mydomain.com/bitmaps\foonugget\d01.bmp>link</A> My issue is that I am unsure how to change the backslashes to forward slashes. As the path may contain one or more subdirectories, I cannot count on a specific number of tokens. I had hoped that I could perform a Replace on individual matches in the SubMatches collection, but it appears to be read-only. If anyone has any advice, I would REALLY appreciate it. Thanks, Corky Tag: Script to find network shortcuts on desktops Tag: 192222
 - 15
 - Enumerate local group members with domain information Sometimes I've seen topics where people needs domain information and object name when enumerating local groups. Here is short script for that... Use the Replace function if the string WinNT:// bothers you. But it's usefull if you add/remove objects to/from the group. ******************************************************************************************************** ******************************************************************************************************** Set oNet = WScript.CreateObject("WScript.Network") set objGroup = GetObject("WinNT://"& oNet.ComputerName & "/Administrators") For Each objUser in objGroup.Members MsgBox(objUser.AdsPath) Next MsgBox("Done.") ******************************************************************************************************** ******************************************************************************************************** If you like to remove something... If objUser.Class = "User" Then oGrp.Remove objUser.AdsPath,user End If If objUser.Class = "Group" Then oGrp.Remove objUser.AdsPath,group End If ******************************************************************************************************** Br, Miika Tag: Script to find network shortcuts on desktops Tag: 192214
 - 16
 - Converting object to string Hi, I have the following code to get the folder path: Set oFileSystem =Server.CreateObject("Scripting.FileSystemObject") Set tfolder = oFileSystem.GetSpecialFolder(2) Response.Write(tfolder) will display as C:\windows\Temp Now I need to get a substring of this result. I cannot use any string functions as it is giving an error. Any ideas? Thanks, Anishya Tag: Script to find network shortcuts on desktops Tag: 192212
 - 17
 - Reading each word of a file, line by line Hi all, * Here is the content of the file I want to modify via vbs : project version release a b c * What I wish to obtain at the end is : set project = a set version = b set release = c Many thanks in advance for your help. Regards Tag: Script to find network shortcuts on desktops Tag: 192202
 - 18
 - Listview/HTA help please. I'm trying to use a listview object in an hta. I can create the object and populate/display data in the object. What I don't know how to do is attach a function or sub to the object events "click", "columnclick" etc.. The pages on MSDN are really lite on the control, I've done everything so far just using an objbrowser for doc Any help and all help welcomed and apprieciated. Thanks in advance, Regards T.Olsen. ps. I'm looking to do columnclick so I can sort, if there is a sample someplace I'm interested in seeing it. Tag: Script to find network shortcuts on desktops Tag: 192200
 - 19
 - CSng adds erroneous digits to the value I'm stumped with what's happening here. I have a value in a CSV that I want to round. I wanted to use CSng to force the single data type so that an error would not occur from trying to round a text string. My code is simple: Cells(i, 8).Value = Round(CSng(Cells(i, 10).Value, 4)) where i is an integer used in a loop to run down the cells in columns 8 and 10. For some reason when I set the value in Cell(i,8), Excel is adding some apparently random erroneous digits to the end of the value. So for example, a value appearing as 12.1294 in Cell(i,10) comes out as 12.12946789 in Cell(i,8). It appears to be something that happens when I insert the value into a cell too. If I just display Round(CSng(Cells(i, 10).Value, 4)) in a Msgbox everything looks fine. Anybody know what might be causing this? I'm running MS VB 6.0 with MS Excel 2000. Tag: Script to find network shortcuts on desktops Tag: 192196
 - 20
 - directories permition enumeration ? hello there any body with a script to view folders and files permissions in windows ? I need to write a script to give me a report on who has what on what file/directory in a drive. Thanks Tag: Script to find network shortcuts on desktops Tag: 192195
 - 21
 - Script writing Training I am looking to do a lot of scritpt writing training on my one. I have found Don Jones training at http://www.scriptingoutpost.com/category.aspx?categoryID=3 as was looking for comments. I am wanting to start with some type of classroom training without having to sit in the class all day. More of an hour a day type of thing... Any thought? Tag: Script to find network shortcuts on desktops Tag: 192192
 - 22
 - Help Needed Please -- input function and using the input Ok so here's teh deal i am totally new to scripting but managed to create a script in which a prograame called pslist(a tool to log process data) runs from a locotion on the drive and also checks a file. This script works fine but only on local system and for local processes. I included in the script an input box for user to input the ip address of the remote machine. But i dunno how to use this Input data within my script to run pslist with the remote machine switch. The code is below, Please any help would be really great. Option Explicit Dim objFSO,Input Dim objShell,strSysDrive Set objShell = CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") strSysDrive = objShell.ExpandEnvironmentStrings("%SYSTEMDRIVE%") If objFSO.FileExists (strSysDrive & "\testfolder\ps.txt") Then Wscript.Echo "Change the name of PSLIST log files before running another test" Wscript.Quit Else Input = InputBox("Enter the IP Address or the name of the remote server") objShell.Run "%comspec% /T:2E /k %systemdrive%\testfolder\pslist.exe pslist -s \\ " objShell.Run "%comspec% /T:2E /k %systemdrive%\testfolder\pslist.exe pslist -s >>%systemdrive%\RMQCA\ps.txt" End If Input = InputBox("Enter the IP Address or the name of the remote server")--->> this is what will give the user to fill in the ip address. objShell.Run "%comspec% /T:2E /k %systemdrive%\testfolder\pslist.exe pslist -s \\ --->> this is where i need that ipaddress to be so that i can run pslist like : pslist -s \\ipaddress I hope i explained what i am after. Thank you all once again Tag: Script to find network shortcuts on desktops Tag: 192186
 - 23
 - format time as 24 hour time Does anyone know an easy way to format a time string in a 24 hour clock setting (no AM/PM) in classic ASP ? i.e. HH:MM:SS vbscript/asp doesn't support the Format statement, and FormatDateTime(Now(), vbShortTime) will only give HH:MM I really don't want to have to create vb dll just for this.... Thanks, Mike Tag: Script to find network shortcuts on desktops Tag: 192177
 - 24
 - Help with script I have a script that I am using that will change the users password based on a list from a text file, I am also adding notes in the "Info" field in AD, the questions I have is how can I append to the current info that is in there. When I run the script it will replace what ever information is in there. This is what is running against the users account. I want to append to this not replace what is there already... Thanks Gavin... objUser.Put "Info", "Password changed on 06/06/2006 by Tech Services" On Error Resume Next objUser.SetInfo Tag: Script to find network shortcuts on desktops Tag: 192167
 - 25
 - script auditing for a specific folder Hi all, I need to modify 500 users winnt ( and a couple of others) folder to enable auditing for Everyone and set it to fail for full control. I also need to enable this to propagate down to all files and folders. Finally, this needs to be done on winxp and 2000. I've been search the group but have come up empty. Surely there's got to be some way to script this out. Thanks in advance for ANY help. Tag: Script to find network shortcuts on desktops Tag: 192166

Possible to script a way to discover network UNC shortcuts on peoples
desktops. This is because when we move their data from 1 server to another,
there is no way to update their desktop shortcuts. It is okay if shortcuts
are based on network drive but not all are. Had this issue when changing
servers at a customer and released many had UNC paths on desktop. If we could
script to delete (being careful on selections) then they would have to
re-create after new server change.

Shortcut files are .LNK

Top

Re: Script to find network shortcuts on desktops by maximillianx

maximillianx
Tue Jun 13 08:28:51 CDT 2006

Here is a script I put together a couple years back that can update the
shortcuts with the new path...I had a location where we changed the server
name, but left the shares\files intact...

It's sloppy, but it works. This is one of my first scripts that I wrote
when I learned VBScript...

http://www.vbshf.com/vbshf/forum/forums/thread-view.asp?tid=41&posts=4&start=1

Regards,
Rob

"Monkey" <Monkey@discussions.microsoft.com> wrote in message
news:01AEDE88-2858-4267-9965-F3AE9778E1A8@microsoft.com...
> Possible to script a way to discover network UNC shortcuts on peoples
> desktops. This is because when we move their data from 1 server to
> another,
> there is no way to update their desktop shortcuts. It is okay if shortcuts
> are based on network drive but not all are. Had this issue when changing
> servers at a customer and released many had UNC paths on desktop. If we
> could
> script to delete (being careful on selections) then they would have to
> re-create after new server change.
>
> Shortcut files are .LNK

Top

Re: Script to find network shortcuts on desktops by Monkey

Monkey
Tue Jun 13 08:44:03 CDT 2006

Excellant thanks

"maximillianx" wrote:

> Here is a script I put together a couple years back that can update the
> shortcuts with the new path...I had a location where we changed the server
> name, but left the shares\files intact...
>
> It's sloppy, but it works. This is one of my first scripts that I wrote
> when I learned VBScript...
>
> http://www.vbshf.com/vbshf/forum/forums/thread-view.asp?tid=41&posts=4&start=1
>
> Regards,
> Rob
>
> "Monkey" <Monkey@discussions.microsoft.com> wrote in message
> news:01AEDE88-2858-4267-9965-F3AE9778E1A8@microsoft.com...
> > Possible to script a way to discover network UNC shortcuts on peoples
> > desktops. This is because when we move their data from 1 server to
> > another,
> > there is no way to update their desktop shortcuts. It is okay if shortcuts
> > are based on network drive but not all are. Had this issue when changing
> > servers at a customer and released many had UNC paths on desktop. If we
> > could
> > script to delete (being careful on selections) then they would have to
> > re-create after new server change.
> >
> > Shortcut files are .LNK
>
>
>

Top