script to view connected wireless network?

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
    - last login for only members of a group... i was asked by our audit compliance team to make sure that all of our contractors' domain accounts get disabled after 15 days of inactivity. they were initially in a sub-ou in active directory until i created a security group for them (which i've found makes for easier scripting). i'm fairly new to scripting, but i've managed to get a list of the users in the contractors group, and get the last logon date for all users in the domain. i can't seem to narrow the search to just members of the contractors group, though. script that follows lists all users in the domain that have a last logon date of over 15 days. any ideas? thanks in advance. Option Explicit Dim objRootDSE, strConfig, objConnection, objCommand, strQuery Dim objRecordSet, objDC, strgivenName, strSN, objExcel Dim strDNSDomain, objShell, lngBiasKey, lngBias, k, arrstrDCs() Dim strDN, dtmDate, objDate, lngDate, objList, strUser, strExcelPath Dim strBase, strFilter, strAttributes, lngHigh, lngLow, Row Dim objRange, objRange2, objRange3, arrInt Dim arrUserSN() Dim arrUsergivenName() Dim arrDN() Dim arrdtmDate() ' Use a dictionary object to track latest lastLogon for each user. Set objList = CreateObject("Scripting.Dictionary") objList.CompareMode = vbTextCompare ' Obtain local Time Zone bias from machine registry. Set objShell = CreateObject("Wscript.Shell") lngBiasKey = objShell.RegRead("HKLM\System\CurrentControlSet\Control\" _ & "TimeZoneInformation\ActiveTimeBias") If UCase(TypeName(lngBiasKey)) = "LONG" Then lngBias = lngBiasKey ElseIf UCase(TypeName(lngBiasKey)) = "VARIANT()" Then lngBias = 0 For k = 0 To UBound(lngBiasKey) lngBias = lngBias + (lngBiasKey(k) * 256^k) Next End If ' Determine configuration context and DNS domain from RootDSE object. Set objRootDSE = GetObject("LDAP://RootDSE") strConfig = objRootDSE.Get("configurationNamingContext") strDNSDomain = objRootDSE.Get("defaultNamingContext") ' Use ADO to search Active Directory for ObjectClass nTDSDSA. ' This will identify all Domain Controllers. Set objCommand = CreateObject("ADODB.Command") Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" objCommand.ActiveConnection = objConnection strBase = "<LDAP://" & strConfig & ">" strFilter = "(objectClass=nTDSDSA)" strAttributes = "AdsPath" strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" objCommand.CommandText = strQuery objCommand.Properties("Page Size") = 100 objCommand.Properties("Timeout") = 60 objCommand.Properties("Cache Results") = False Set objRecordSet = objCommand.Execute ' Enumerate parent objects of class nTDSDSA. Save Domain Controller ' AdsPaths in dynamic array arrstrDCs. k = 0 Do Until objRecordSet.EOF Set objDC = _ GetObject(GetObject(objRecordSet.Fields("AdsPath")).Parent) ReDim Preserve arrstrDCs(k) If Left(objDC.DNSHostName,2) > "L0" And Left(objDC.DNSHostName, 2)< "L7" Then arrstrDCs(k) = objDC.DNSHostName k = k + 1 objRecordSet.MoveNext Else objRecordSet.MoveNext End If Loop ' Retrieve lastLogon attribute for each user on each Domain Controller. For k = 0 To Ubound(arrstrDCs) strBase = "<LDAP://" & arrstrDCs(k) & "/" & strDNSDomain & ">" strFilter = "(&(objectCategory=person)(objectClass=user))" strAttributes = "distinguishedName,lastLogon,givenName,SN" strQuery = strBase & ";" & strFilter & ";" & strAttributes _ & ";subtree" objCommand.CommandText = strQuery On Error Resume Next Set objRecordSet = objCommand.Execute If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Domain Controller not available: " & arrstrDCs(k) Else On Error GoTo 0 arrInt = 0 Do Until objRecordSet.EOF If Left(objRecordSet.Fields("distinguishedName"),5) >= "CN=L0" And Left(objRecordSet.Fields("distinguishedName"),5) <= "CN=L6"Then ReDim Preserve arrUserSN(arrInt) ReDim Preserve arrUsergivenName(arrInt) ReDim Preserve arrDN(arrInt) ReDim Preserve arrdtmDate(arrInt) strDN = objRecordSet.Fields("distinguishedName") arrDN(arrInt) = strDN strgivenName = objRecordSet.Fields("givenName") arrUsergivenName(arrInt) = strgivenName strSN = objRecordSet.Fields("SN") arrUserSN(arrInt) = strSN lngDate = objRecordSet.Fields("lastLogon") On Error Resume Next Set objDate = lngDate If Err.Number <> 0 Then On Error GoTo 0 dtmDate = #1/1/1601# Else On Error GoTo 0 lngHigh = objDate.HighPart lngLow = objDate.LowPart If lngLow < 0 Then lngHigh = lngHigh + 1 End If If (lngHigh = 0) And (lngLow = 0 ) Then arrdtmDate(arrInt) = #1/1/1601# Else arrdtmDate(arrInt) = #1/1/1601# + (((lngHigh * (2 ^ 32)) + lngLow)/600000000 - lngBias)/1440 End If End If If objList.Exists(arrDN(arrInt)) Then If arrdtmDate(arrInt) > objList(arrDN(arrInt)) Then objList(arrDN(arrInt)) = arrdtmDate(arrInt) End If Else objList.Add arrDN(arrInt), arrdtmDate(arrInt) End If arrInt = arrInt + 1 objRecordSet.MoveNext Else objRecordSet.MoveNext End If On Error Resume Next Loop End If 'End If Next Set objExcel = CreateObject("Excel.Application") objExcel.Workbooks.Add' strExcelPath objExcel.Visible = "True" Set objExcel = objExcel.ActiveWorkbook.Worksheets(1) row = 2 'objExcel.ActiveWindow.FreezePanes = False objExcel.Columns(1).ColumnWidth = 75 objExcel.Columns(2).ColumnWidth = 25 objExcel.Columns(3).ColumnWidth = 25 objExcel.Columns(4).Columnwidth = 20 objExcel.Cells(1,1).Font.Bold = True objExcel.Cells(1,2).Font.Bold = True objExcel.Cells(1,3).Font.Bold = True objExcel.Cells(1,4).Font.Bold = True objExcel.Cells(1,1).value = "User Login ID" objExcel.Cells(1,2).value = "First Name" objExcel.Cells(1,3).value = "Last Name" objExcel.Cells(1,4).value = "Last Logon Time" ' Output latest lastLogon date for each user. arrInt = 0 For Each strUser In objList If Date - objList(strUser) >= 15 Then ' objExcel.Cells(Row,1).value = arrDN(arrInt)'strUser objExcel.Cells(Row,3).value = arrUserSN(arrInt) objExcel.Cells(Row,2).value = arrUsergivenName(arrInt) If objList(strUser) > "1/1/1601" Then objExcel.Cells(Row,4).value = objList(strUser) Else objExcel.Cells(Row,4).value = "Never" End If arrInt = arrInt + 1 Row = Row + 1 End If Next Set objRange = objExcel.Range("A1").SpecialCells(11) Set objRange2 = objExcel.Range("D1") Set objRange3 = objExcel.Range("A1") objRange.Sort objRange2,,,,,,,1 Wscript.Echo "Done" ' Clean up. objConnection.Close Set objRootDSE = Nothing Set objConnection = Nothing Set objCommand = Nothing Set objRecordSet = Nothing Set objDC = Nothing Set objDate = Nothing Set objList = Nothing Set objShell = Nothing Tag: script to view connected wireless network? Tag: 211192
  - 2
    - Detect shutdown type I have a shutdown script through Group policy that does some tidying up and defrags the hard drives before allowing the shutdown to complete. However if a user is just doing a restart this is a real pain. Is there anyway to detect that the user has selected shutdown and not restart? Thanks Huw Tag: script to view connected wireless network? Tag: 211190
  - 3
    - Script To Determine If A Workstation Is Up I have a script that verifies who is logged on to a remote workstation (by checking for the explorer process and checking the owner). I check for an error on the query which will tell me if the machine is not up (or at least not on the network). It is working pretty well, but in the case of a workstation not being up it can take a minute or two to fail and then report that the machine is not up. I'm wondering if anyone knows of a faster way to determine if a machine is up or not. Currently I am checking the error status of a line that reads like this: Set objWorkStation = GetObject("winmgmts:\\" & strWorkStation & "\root \cimv2") Any thoughts or suggestions are appreciated. Thanks. David E. Thomas Tag: script to view connected wireless network? Tag: 211189
  - 4
    - Problem with createElement("select") and onclick or onChange Hi, I have writen an hta application and i want to create some drop down. Creation of the drop down --> OK creation of options --> OK creation of the onClick/onchange event --> NOK I tried this : set objSelect.onChange = test("toto") --> error : type mismatch : 'test' set objSelect.onClick = test("toto") --> error : type mismatch : 'test' objSelect.onChange = test("toto") --> error : type mismatch : 'test' objSelect.onChange = function () { test("toto") } --> error : syntax error How can i set an onClick/onChange attribute ?? Here is my code : set objSelect = document.createElement("select") objSelect.name = "toto" objSelect.multiple = true objSelect.size = 10 objSelect.onChange = test("toto") set objOption = document.createElement("option") objOption.text = "text" objOption.value = "value" objSelect.options.add(objOption) spanSelect.appendChild(objSelect) sub test(v) msgbox (v) end sub Tag: script to view connected wireless network? Tag: 211183
  - 5
    - copy a file to a location for all PCs in dommain Hi, Can I have a script that scans all PCs in a domain and checks the existance of a file in %winroor%\system32, if not copies the file to that location? Thanks in advance, Tag: script to view connected wireless network? Tag: 211180
  - 6
    - Vbscript code to add and remove items from a listbox Hi, I have written one function in vbscript to add items to a listbox(on checking of a checkbox).Now i want to remove items from the listbox(on unchecking the checkbox).i want to do this in the below function after adding the items.Can anybody please help me out as its very urgent. <script language=vbscript event=uncheck for=FileListTreeView> Dim SelectedNode Dim strGetItems Dim alist Dim newOption Set SelectedNode = FileListTreeView.getTreeNode(window.event.TreeNodeIndex) strGetItems = SelectedNode.getAttribute("id") Set alist = document.getElementById("lstMultipleFileUpload") If (SelectedNode.getAttribute("Unchecked"))Then Set newOption = document.createElement("option") newOption.text = strGetItems alist.remove(newOption) End If </script> This is my listbox <SELECT id=lstMultipleFileUpload style="WIDTH: 450px; HEIGHT: 415px" size=26 name=lstMultipleFileUpload runat="server"> <option value=""></OPTION></SELECT> Tag: script to view connected wireless network? Tag: 211179
  - 7
    - TR Align Stopped Working In Windows 2000 this code would center my graphics, in XP and Vista it aligns to the right. <Table> <TR Align = "Center"> <TD Width="16%"><Img Src="/Tivities/CTFLAG.gif" Height="66" Width="100"> <TD Width="1%"> <TD Width="16%"><Img Src="/Tivities/MEFLAG.gif" Height="66" Width="100"> <TD Width="1%"> <TD Width="15%"><Img Src="/Tivities/MAFLAG.gif" Height="66" Width="100"> <TD Width="2%"> <TD Width="15%"><Img Src="/Tivities/NHFLAG.gif" Height="66" Width="100"> <TD Width="1%"> <TD Width="16%"><Img Src="/Tivities/RIFLAG.gif" Height="66" Width="100"> <TD Width="1%"> <TD Width="16%"><Img Src="/Tivities/VTFLAG.gif" Height="66" Width="100"> </TR> </Table> What do I need to change to make it work in XP and Vista? Thanks in Advance Granny Tag: script to view connected wireless network? Tag: 211159
  - 8
    - VBScript, OpenTextFile(), Strings and Unicode - Possible? Hi, I've written a VBScript to manually update the version number in an AssemblyInfo.cs file. But all I get from the ReadAll() function is rubish. The string I'm assigning the function result to only contains loads of empty squares when watched from within Visual Studio Debugger. I can't even write the string back without modifications into the AssemblyInfo.cs file. Visual Studio shows only a bunch of Chinese characters when opening the saved file. (Perhaps the result of a new espionage attempt by the Axis of Evil? :) ) Moreover, I cannot modify the string. To VBScript the string doesn't seem contain anything near to a valid character. Can anybody help me on how to access and save the Unicode file's content from within VBScript? TIA, Axel Dahmen -------- Here's my test source code: ' VBScript source code Const ForReading = 1, ForWriting = 2, TristateTrue = -1 Dim fso,stream,strg,re Set fso = CreateObject("Scripting.FileSystemObject") Set stream = fso.OpenTextFile("C:\Temp\AssemblyInfo.cs",ForReading,False,TristateTrue) strg = stream.ReadAll() stream.Close Set stream = Nothing Set re = New RegExp re.Global = True re.IgnoreCase = False re.Multiline = True re.Pattern = "\d+\.\d+\.\d+\.\d+" strg = re.Replace(strg,"9.9.9.9") Set stream = fso.OpenTextFile("C:\Temp\AssemblyInfo2.cs",ForWriting,True,TristateTrue) stream.Write(strg) stream.Close Set stream = Nothing Tag: script to view connected wireless network? Tag: 211158
  - 9
    - Size of Graphics and Text I am getting some complaints about how my pages are looking around the school district. On some XP machines (not all) and Vista machines my graphics are appearing very small, about 15% of the size on the 2000 machines. Also my text is smaller. Example: Enter Student ID - |text Box Here| appears as Enter Student ID - |Text Box Here| What do I need to change so that my pages appear the same on all of the machines? Thanks for any help in advance Granny Tag: script to view connected wireless network? Tag: 211155
  - 10
    - Export Active Directory Hi all, I would like to develop a VBScript in order to export the content from different organisational units within Active Directory. I would like this script to be able to run on Windows XP SP2 and Windows Server 2003 Operating Systems. Within Active Directory I have an organisational unit which is called ComputersGPO with other organisational units within representing room numbers. I would like to export the names of the organisational units into a CSV file and then get all the data from within everyone of those organisational units in one go without me having to put the actual name of each organisation unit I want to export. I have not got a clue but how I would do this so any help in this matter would be highly appreciated. Thank you Tag: script to view connected wireless network? Tag: 211154
  - 11
    - Determining Permission Inheritaance I have a very large shared folder, 68GB - 10,000 sub-folders - 115,000 files. For the past few years permissions on this share have been controlled by the share owner. Needless to say the permissions are a mess, there were no groups created so users have been added directly to folders at various levels. I have been tasked with cleaning up the mess with very minimal impact to the users. I tried writing a script to determine permissions using <see below> but, due to the size of the share, the script isn't practical. I need to write a script that can look at inheritance and output a list of permissions that are not being inherited from the parent. Basically something that shows me where permissions are explicitly granted. Is this possible or am I stuck with an impossible task? SE_DACL_PRESENT = &h4 ACCESS_ALLOWED_ACE_TYPE = &h0 ACCESS_DENIED_ACE_TYPE = &h1 FILE_DELETE = &h010000 FILE_READ_CONTROL = &h020000 FILE_WRITE_DAC = &h040000 FOLDER_ADD_FILE = &h000002 Thanks in Advance. Kevin Tag: script to view connected wireless network? Tag: 211152
  - 12
    - Create Object of an Application type and invoke on Remote Computer Hi Friends, Badly need help in this case, I have a software installed on a remote computer and I want to create object of that application type and invoke it on that machine from local machine. I was successfully able to modify DCOM object on the remote machine to allow connection.. here is what I achieved.. I am able to create object and invoke the application on the remote machine only if I have the same application installed on the local machine. If I dont have that application installed on local system then it gives me Active X cannot Create Object. Dim qtApp Set qtApp = CreateObject("Application","Remote_Machine_Name") qtApp.Launch qtApp.Visible = TRUE The above code works only if I have that application installed on my local machine. I also tried using remote Scripting object and placed the code above in the remote mahine into a file called remote.vbs. I am using the code below to run the remote.vbs on the remote machine..... Set objController = CreateObject("WshController") Set objRemoteScript = objController.CreateScript("C:\remote.vbs","Remote_Machine_Name") objRemoteScript.Execute It gives me the same error ActiveX cannot create Object and sometimes doesn't even throw any object. Is there any COM/DCOM changes that I need to do .. would really appreciate ur comments Thanks Tag: script to view connected wireless network? Tag: 211150
  - 13
    - MS Vista and the Class MSSOAP.SoapClient Hi, in Windows XP i access to my webservice with the following VB-Script-Code: dim osoapClient Set osoapClient = CreateObject("MSSOAP.SoapClient") osoapClient.mssoapinit "http://exch2003/exchwebservice/service1.asmx?WSDL" in Vista doesn't exist the Class "MSSOAP.SoapClient". How can i access to the Webservice in Vista? thx & bye Oskar Tag: script to view connected wireless network? Tag: 211147
  - 14
    - XML to ADO Recordset Hello All, I am trying to import an xml file that I created into a Recordset. Found some code only but seem to be have a little trouble. Sub On_Load() Dim adoRS 'ADODB.Recordset Set adoRS = CreateObject("ADODB.Recordset") adoRS.Open "C:\Users\tmaiden\Documents\jmc\settings \Spells.xml","Provider=MSDAOSP; Data Source=MSXML2.DSOControl.2.6;" End Sub Provider Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done. Line:18 Error:0 Scode:80040e21 Any ideas? Tag: script to view connected wireless network? Tag: 211145
  - 15
    - Unable to pass parameter with spaces to VBSCript Sub I have no idea as to why or what's going on, however the code below doesn't work when the parameter contains spaces. I'm at a lost as to why. The first example Test_No_Spaces works fine, the other doesn't. Any ideas? <html> <head> </head> <body> <span onClick = openFile("Test_No_Spaces")>Test No Spaces</span><br><br> <span onClick = openFile("Test With Spaces")>Test With Spaces</span><br> <script type="text/vbscript"> function openFile (fileName) msgbox fileName end function </script> </body> </html> Tag: script to view connected wireless network? Tag: 211140
  - 16
    - Exporting Active Directory Hi all. I would like to develop a VBScript that is able to run on a Windows XP SP2 computer and on a Windows Server 2003 Operating System. Within Active Directory there is an organisation unit which is called ComputersGPO and within that OU there are other other Organisation Units representing the room numbers. I would like to export the names of the organisational units within the ComputersGPO organisational unit and then export the data out of each of these organisational units at once. Is this possible? Any help in this matter would be highly appreciated. Thank you Tag: script to view connected wireless network? Tag: 211126
  - 17
    - shortcut to mapped drive by machine group I have the following which works but the shortcut won't mapped to the desktop. Th e mapped drive is fine even know it says "Disconnected Network Drive: 'The Distinguished Name of the group containing the computers. strGroup = "cn=ScriptMap,cn=Users,dc=bst,dc=local" 'Determines the local computername Set objNet = CreateObject("Wscript.Network") strComputerName = objNet.ComputerName Set objGroup = GetObject ("LDAP://" & strGroup) For Each objComputer in objGroup.Members If objComputer.Class = "computer" And objComputer.CN = strComputerName Then 'map network drive objNet.MapNetworkDrive "S:", "\\Bst-main\Student\_Reception\Yr R 2007 - 2008", "True" Wscript.Sleep (5000) 'create a icon on the desktop Set WshShell = CreateObject("WScript.Shell") DesktopPath = WshShell.SpecialFolders("Desktop") Set link = WshShell.CreateShortcut(DesktopPath & "\Yr R 2007 - 2008.lnk") link.Description = "User Share Drive" link.HotKey = "CTRL+ALT+SHIFT+T" link.IconLocation = "explorer.exe,0" link.TargetPath = "S:" link.WindowStyle = 3 link.Save End If Next Tag: script to view connected wireless network? Tag: 211117
  - 18
    - Access Error 047-ASDFG I have a working script that uses WMI querries to write inventory to a file. Running the script, I get a few 0x80041003 messages signifying I don't have admi rigts to the box. It's good to know this info obviously. But everytime I get the message, the script stops, I have to cut and past the offending machine's name to another file, and then start over. Should I be able to add an If Then statement that reads something like If I don't have admin rights to the box Then write the computer name to a file and try the next box on the list End If Tag: script to view connected wireless network? Tag: 211115
  - 19
    - Local port printer I installed my printers on each computer with GPO. Unfortunatly, when I install printers with the following vbs script, I have duplex printing issues and other problems. Set WshNetwork = CreateObject("WScript.Network") WshNetwork.AddWindowsPrinterConnection "\\server\printername" I need a script that can install printers on "Local port", where I can also specify drivers and location for those drivers because they are not printer drivers included with Windows XP. Thanks for your help. Tag: script to view connected wireless network? Tag: 211111
  - 20
    - Use LIKE to get a file name? I am getting the path in which the currently running VBS file is running using: sPath = WScript.CreateObject("WScript.Shell").CurrentDirectory & "\" This works great (unless someone else has a better method?); Now I need to get a file name in the current folder that looks like: *Form10g.xls I need the wild card "*" to locate particular files. Is it possible to use LIKE to return the file (there will always only be only one file that meets the criteria) name? If so, could someone please post example code? [e.g. something like sFile = sPath & " LIKE '*Form10g.vbs'"] If not, how can I return the full file name using a wildcard? Again, could you please post example VBS code? Thanks much in advance. Tag: script to view connected wireless network? Tag: 211106
  - 21
    - Copying folders to and from different domains. I have been trying to create a script to automate my task of copying a folder to multiple systems under a different security context to different domains. The following is what I have been working with. I can connect to the source folder. However that is where the fun begins. I have to copy this folder around systems to get it to it's final home with all security in place. Domains do not have trusts in place either. There is no direct copy allowed. With this script I get a return code of 8 which is not very helpful. I figured using WMI was the way to go since it allows more functionality with security. Const OverwriteExisting = True strComputer = "wtec005" rmtComputer = "172.24.1.200" strDomain = "gsc-dev" Wscript.StdOut.Write "Please enter your user name:" strUser = Wscript.StdIn.ReadLine Set objPassword = CreateObject("ScriptPW.Password") Wscript.StdOut.Write "Please enter your password:" strPassword = objPassword.GetPassword() Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") Set objSWbemService = objSWbemLocator.ConnectServer(rmtComputer, _ "root\cimv2", _ strUser, _ strPassword, _ "MS_409", _ "ntlmdomain:" + strDomain) WScript.Echo "" WScript.Echo "User is Authenticated !!!!!!!!!!!!!" Set colfolder = objSWbemService.ExecQuery("Select Name From Win32_Directory Where Name = 'F:\\Project\\project\\WebInstall\\Web\\QA-TEST UPDATES\\forms'") For Each objfolder In colfolder WScript.Echo "inside loop" errResults = objfolder.copy("F:\\Project\\project\\WebInstall\\Web\\QA-TEST UPDATES\\forms","\\\wtec005\\junk") WScript.Echo errResults Next Tag: script to view connected wireless network? Tag: 211102
  - 22
    - Input Box I'm in need of a script that will allow me to input an Active Directory User's account name, search for that user in a specific OU, and move that user to another OU. Anyone have any suggestions? Thanks, JT Tag: script to view connected wireless network? Tag: 211098
  - 23
    - Scritp to List All the Members of a Group Hi I have a problem wich follow scrip: Set objGroup = GetObject _ ("LDAP://cn=Administrators, cn=Builtin, dc=CP,dc=com") For each objMember in objGroup.Members Wscript.Echo objMember.Name Next Because I put this code on OnScript Software and work very well, but I change this parameters: Set objGroup = GetObject _ ("LDAP://cn=No Internet Mail, cn=Grupos, dc=CP,dc=com") For each objMember in objGroup.Members Wscript.Echo objMember.Name Next and doesn't work, I don't know why? the software OnScript show me this error: C:\Documents and Settings\lpacheco\Escritorio\2.vbs(10,1) (null). NOTE: No Internet Mail (is located in Capaco Maracay>Grupos) Tag: script to view connected wireless network? Tag: 211097
  - 24
    - Script of DNS and DHCP I need to save my DNS and DHCP Server configurations f. ex. to text file. I have WAN environment with many (40 sites). Because management is delegated local IT admin can modify DNS zones, DHCP leases, etc... settings.. I was wondering that I will save DNS and DHCP configurations 2-3 times in week f. ex. to text file. I was planning WMIquery of those servers. It's easy to get disk volumen information using WMI, but how can I get DNS or DHCP settings? Br, Pasi Tag: script to view connected wireless network? Tag: 211095
  - 25
    - Write to the Event logs Is it possible to create your own events and have them logged to the event logs? I am currently using LogEvent and my messages are being written to to event logs, but they show up for the source WSH. I found a reference to CreateEvent, but that seems to be only of MOM. Thanks. Don Jones Tag: script to view connected wireless network? Tag: 211094
- Next
  - 1
    - Modify existing csv file with data from text file. Dear All I have a problem i need to write data to a .csv file (C:\Finished-Output) I need to add information to THIS file, the values i need to write are contained in psw.txt, and are all written on individual lines. Ive been able to read from txt file then "create" the csv but i want to ammend an existing not create. please help paul Tag: script to view connected wireless network? Tag: 211088
  - 2
    - RegExp question. Hi NG, How can this regular expression be negated? (?:>|&\#62;|%3E|>) Sorry for posting here, but there's no ng related to Regular Expressions. Thanks, rusga Tag: script to view connected wireless network? Tag: 211080
  - 3
    - Permision Denied Error 800A0046 Const OverWriteFiles = TRUE Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFolder "D:\uSERS" , "\\Fred\BackupShare\WeeklyBackup" , OverWriteFiles I am logged in as administrator and can manually copy files to this share but everytime I run the script I receive the above error. Any Ideas. TIA -- Greg Tag: script to view connected wireless network? Tag: 211079
  - 4
    - add to existing csv file (not create new) Dear all Im writing a script currently to create user passwords. Im on the last parts of it now. I have the below but Stu-passwords.csv has already been created. So i need to write to it not create a new file as in my scrit. Any help much appreaciated Paul Const ForReading = 1 Set oExcel = CreateObject("Excel.Application") oExcel.Visible = True oExcel.Workbooks.Add i = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\passwords.txt", ForReading) Do Until objFile.AtEndOfStream strLine = objFile.ReadLine arrLine = Split(strLine, ",") oExcel.Cells(i, 1).Value = arrLine(0) i = i + 1 Loop oExcel.ActiveWorkbook.SaveAs ("c:\stu-passwords.csv") objFile.Close oExcel.Quit Tag: script to view connected wireless network? Tag: 211071
  - 5
    - Check link in ASP VBScript Hi, How can I check a link in ASP? I need to verify the exact link, just as http://validator.w3.org/checklink performs the validation - e.g.: if a user inserts http://www.exampleURL.com, i'd like to verify whether it's http://www.exampleURL.com OR http://exampleURL.com OR http://www.exampleURL.com/home.asp How can I do it? Thanks, Gabi Tag: script to view connected wireless network? Tag: 211070
  - 6
    - =?gb2312?B?ucW2raOoMTkxMi0xOTQ5o6nD8bn6tMmy6Lr4NTI4sNGhorTJxvc0MDC8/sfrudvJzaOh?= ucW2raOoMTkxMi0xOTQ5o6nD8bn6tMmy6Lr4NTI4sNGhorTJxvc0MDC8/sfrudvJzaOhCsirsaPV 5tbQu6rD8bn6tMmy6Lr4NTI4sNGhorTJxvc0MDC8/sfrudvJzaGjCtDsvajQ2wq5xdLV0Pm5xbat ytWy2NautrwKzfjVvqO6aHR0cDovL3d3dy54ang1ODguY29tCrXn08qjunhqeF81ODhAdG9tLmNv bQogICAgICB4anhfNTg4QDEyNi5jb20Ktee7sKO6MDU3NS04MzEwMzczMQrK1rv6o7oxMzAwMjYz Mjc4Mgo= Tag: script to view connected wireless network? Tag: 211055
  - 7
    - IsMember and IfMember In vbscript, is it correct that there is no direct IsMember or InMember command? I have to create a function to get them to work? Below I have posted a script I use with a GPO. I want to turn the GPO into a logon script so that the script will enumerate the department(s) to which the staff member is assigned and then assign departmental drives appropriately. 'on error resume next Set objArgs = WScript.Arguments 'assigns Arguments 'dim driveLetter:driveLetter = objArgs(0) dim drivePath:drivePath = objArgs(0) 'Creates network object Dim WshNetwork Set WshNetwork = WScript.CreateObject("WScript.Network") Set fso = CreateObject("Scripting.FileSystemObject") dim driveArr:driveArr = Array("S:","T:","U:") dim test:test = true dim count:count = -1 do while test count = count + 1 test = fso.DriveExists(driveArr(count)) loop WScript.Echo driveArr(count) & "is mapped as: " & drivePath 'driveLetter = driveArr(count) WshNetwork.MapNetworkDrive driveArr(count), drivePath WshNetwork.MapNetworkDrive "W:", "\\s047-a0371-01\scripts$" wscript.quit Tag: script to view connected wireless network? Tag: 211051
  - 8
    - write in exist file hello this script run with policy, when the user logged in. I want a list of every computers. the problem is, that every user write a new textfile. the last user who log in is written in the textfile. how can I do that? Set NWT = CreateObject("WScript.Network") errorfile="\\server\temp$\vbs_error.txt" Set errorlogfile=FileSystem.CreateTextFile(errorfile, True) errorlogfile.WriteLine NWT.ComputerName thanks Tag: script to view connected wireless network? Tag: 211040
  - 9
    - Opening a shortcut to a folder. On my PC, I have a folder which contains a number of shortcuts to other folders on the same PC. Using VBScript, I would like to open these shortcuts, and enumerate the subfolders of the shortcut destination. Following is some sample code. It echoes the shortcut filename fine, but then gives the error "Path Not Found" on line 6. Set fso = CreateObject("Scripting.FileSystemObject") Set oFolder = fso.GetFolder("C:\Shortcuts") Set oFiles = oFolder.Files For Each oFile in oFiles wscript.echo oFile set oDestFolder = fso.GetFolder(oFile) wscript.echo oDestFolder Next Tag: script to view connected wireless network? Tag: 211038
  - 10
    - File in Use I'm using this script to capture files I want to Zip but when the Zip process start I get a File in use by another process message. Need some help on where I need to close my file. Option explicit Dim strPath, strCmd, strFile, strFileStem, strZipFile, strLogFile,strCapFile Dim objFSO, objShell, objLogFile,objCapFile Dim dNow, yy, mt, dd, hh, nn, ss, ZipFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = WScript.CreateObject ("WScript.shell") dNow = Now yy = Right(Year(dNow), 2) mt = Right("00" & Month(dNow), 2) dd = Right("00" & Day(dNow), 2) hh = Right("00" & Hour(dNow), 2) nn = Right("00" & Minute(dNow), 2) ss = Right("00" & Second(dNow), 2) ZipFile = "Send" & yy & mt & dd & hh & nn & ss ' ' Logging this run ' strLogFile = "C:\temp\"+WScript.ScriptName+".log" Set objLogFile = objFSO.OpenTextFile(strLogFile, 2, true ) objLogFile.WriteLine(WScript.ScriptName & " started.") ' ' Capture files to zip ' strCapFile = "C:\SourceFolder\ziplist"+".log" Set objCapFile = objFSO.OpenTextFile(strCapFile, 2, true ) strPath = "C:\sourcefolder" objLogFile.WriteLine(strPath) If objFSO.FolderExists(strPath) Then Dim f, objFile, fileCollection Set f = objFSO.GetFolder(strPath) Set fileCollection = f.Files For Each objFile in fileCollection 'msgbox objfile strFile = objFile.name If UCase(Right(strFile, 3)) = "PS1" then 'If DateDiff("h", objFile.DateLastModified, Now) > 0 then objLogFile.WriteLine("Zipping")+ " " +strPath+"\"+strFile objCapfile.writeline(strFile) 'End if End if Next else Wscript.echo "path not found: "+ strPath End if ' ' Zip the file ' ' strcmd = "%comspec% /c C:\winRar\rar a " + "-n@" + strCapfile + " " + ZipFile objLogFile.WriteLine(strCmd) objShell.run strCmd ,7 , true Set objShell = Nothing set objFSO = nothing objLogFile.WriteLine("ending") objLogFile.WriteLine(WScript.ScriptName & " ended.") objLogFile.close() Thanks. Tag: script to view connected wireless network? Tag: 211036
  - 11
    - VBSCRIPT Debugger/Editor I'm comfortable using VBSCRIPT because of my VBA knowledge. Is there a debugger (editor) available? Should I focus on learning something else? any recommendations? I need a scripting language for my web sites. I tried to download the script-o-matic, but it wasn't available. If there is one, where is the location? Tag: script to view connected wireless network? Tag: 211034
  - 12
    - If Not statement??? I am writing a script to perform a function if a file does not exists, but when I do an FSO and can use this statement. To see if a file exist, but I want the condition to run if file does not exits, is there a statement "If objtstFSO.FileNotExists(strfolder & strtstfile) Then" If objtstFSO.FileExists(strfolder & strtstfile) Then wscript.quit End If Tag: script to view connected wireless network? Tag: 211023
  - 13
    - Copy file with multiple names I was finally able to get some mainfraim reports spooled to download to text files every morning rather than useing Document Direct. The problem is that for every report that comes down every morning there are multiple copies with names the same followed by "name.#####.20071011024021.txt" for example. I have been unsuccessful getting a script to move and rename the file. So Far: Dim oFSO Set oFSO = CreateObject("Scripting.FileSystemObject") oFSO.CopyFile "Q:\name*.txt","U:\DocDirectReports\name.txt", True Can anyone assist? Thanks in advance -- Jeff C Live Well .. Be Happy In All You Do Tag: script to view connected wireless network? Tag: 211016
  - 14
    - Script to Remove Attachments in Exchange Mailbox Hi, I am frustrated with my users who send large files around the office instead of using the network shares. For instance, this is one of many emails I have sent around: "If you take the this kit it looks like J sent it to D, D sent it to you, then you sent it to me. The problem with that is just that now there are copies of this file: On J's drive or Comm drive J's sent items D's inbox D's sent items Your inbox Your sent items My inbox The comm. Drive once I save it there to be used. Which means that there are 8 copies of the same file 4MB taking up space, or a 4MB file turned into a 32MB file." My users just aren't getting it! And then they complain when they get quota messages! (and some people, when they are Important People, you cannot argue with). So, what I would like, is to write a script that parses the exchange mailbox, and removes all attachments over a certain size (say 500K) that are attached to messages that are more than 2 weeks old, or that are in sent items. I would like to write to a log file all the changes that are made then email that log file to the mailbox that was just trimmed. I will also like to have a verbose mode that allows the user when the script is run to ok each removal. I am trying to decide if I should do this in Python or VBScript. Any suggestions? Thanks. Tag: script to view connected wireless network? Tag: 211006
  - 15
    - VBScript Code for Unzip Hi i need to write a VBscript to send the FTP command to unZIP the file at FTP server.Can any body tell how to run the FTP unZip command in VB script. Thanks in Advance Satu Tag: script to view connected wireless network? Tag: 211004
  - 16
    - script via policy login hello we use policies. I copy some files from the local disk into quick launch. sometimes appears the following error message (see attached picture) that's the code: ' Kopiere Datei ' Eine Datei kopieren ' Autor: Walser Mark ' Datum: 31.05.2007 ' Anpassung ' =============================== Option Explicit ' Deklaration der Variablen Dim FSO, NWT, user Dim Ordner Dim File1, File2, File3, File4, File5, File6, File7, File8 Dim wFile 'Objekt erzeugen Set NWT = CreateObject("WScript.Network") Set FSO = CreateObject("Scripting.FileSystemObject") user = NWT.UserName ' Dateien bestimmen, welche gelöscht werden sollen File1 = "C:\Dokumente und Einstellungen\"&user&"\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\Microsoft Word.lnk" File2 = "C:\Dokumente und Einstellungen\"&user&"\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\Microsoft Excel.lnk" File3 = "C:\Dokumente und Einstellungen\"&user&"\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\Microsoft Outlook.lnk" File4 = "C:\Dokumente und Einstellungen\"&user&"\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\Microsoft PowerPoint.lnk" File5 = "C:\Daten\Vorlagen\Normal11.dot" File6 = "c:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Microsoft Office\Microsoft Office Word 2007.lnk" File7 = "c:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Microsoft Office\Microsoft Office Excel 2007.lnk" File8 = "c:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Microsoft Office\Microsoft Office PowerPoint 2007.lnk" ' Links aus Quick Launch löschen If fso.FileExists(File1) Then fso.DeleteFile(File1) End If If fso.FileExists(File2) Then fso.DeleteFile(File2) End If If fso.FileExists(File3) Then fso.DeleteFile(File3) End If If fso.FileExists(File4) Then fso.DeleteFile(File4) End If ' Ordner kopieren Ordner = "C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Microsoft Office" if FSO.FolderExists(Ordner) then 'FSO.CopyFile "\\server\program$\Tools\Office2007\*.lnk","C:\Dokumente und Einstellungen\"&user&"\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\", true If FSO.FileExists(File6) Then FSO.CopyFile "c:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Microsoft Office\Microsoft Office Word 2007.lnk", "C:\Dokumente und Einstellungen\"&user&"\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\", True End if If FSO.FileExists(File7) Then FSO.CopyFile "c:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Microsoft Office\Microsoft Office Excel 2007.lnk", "C:\Dokumente und Einstellungen\"&user&"\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\", True End If If FSO.FileExists(File8) Then FSO.CopyFile "c:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Microsoft Office\Microsoft Office PowerPoint 2007.lnk", "C:\Dokumente und Einstellungen\"&user&"\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\", True End if end if ' Rename normal11.dot to normal.dot If fso.FileExists(File5) Then Set wFile = FSO.GetFile("C:\Daten\Vorlagen\Normal11.dot") wFile.Name = "Normal.dot" End If Thanks for your help, mark > Tag: script to view connected wireless network? Tag: 210999
  - 17
    - Copying files after validating the source Hi, Being an absolute beginner with VBScript, I'm having a lot of trouble with this simple problem. Scenario: I'm writing a logon script that needs to copy various files to users' machines at logon. This I've acheived using the MapNetworkDrive nethod; however, one ovious sticking point in my script is taht if the share this command maps is unavailable for any reason, the script will fail. I'd like to create a sub which takes a collection of supplied UNC paths and checks the ability to map each in turn, iterating to the next without generating an error if this path is unavailable, and when it finds one that it can connect to, storing that path in my variable strUNCPath which is then used to actually map that path for file copying. Can anyone provide me with some sample code showing how this might be done? My main problems are how to initialise the collection with my manual values the best method of confirming a working path the means of referencing the "working path" element in the collection when setting the "strUNCPath" variable I'm using to do the actual mapping. Any help is appreciated; thanks for reading. Tag: script to view connected wireless network? Tag: 210998
  - 18
    - Copy text file from web server to local drive Is there a way in VBA to copy a file from a web server to a local drive? Example: Every morning at 3AM a huge mainframe report is run and a copy of this report is saved as a text file on a web server: http://GLJobs.CliffKing.com/Reports_txt/MyReport101007.txt The name of my report is: MyReport101007.txt I manually download this report to the C:\ drive and then manually import it into access. Is there a way i can programmatically do this? Thanks Cliff Tag: script to view connected wireless network? Tag: 210995
  - 19
    - login problem I enabled the following script,which i got from microsoft, for user login though active directory. On Error Resume Next Set objSysInfo = CreateObject("ADSystemInfo") Set objNetwork = CreateObject("Wscript.Network") strUserPath = "LDAP://" & objSysInfo.UserName Set objUser = GetObject(strUserPath) For Each strGroup in objUser.MemberOf strGroupPath = "LDAP://" & strGroup Set objGroup = GetObject(strGroupPath) strGroupName = objGroup.CN Select Case strGroupName Case "Finance Users" objNetwork.MapNetworkDrive "X:", "\\atl-fs-01\finance" Case "Human Resource Users" objNetwork.MapNetworkDrive "X:", "\\atl-fs-01\hr" Case "Manufacturing Users" objNetwork.MapNetworkDrive "X:", "\\atl-fs-01\manufacturing" Case "Shipping and Receiving Users" objNetwork.MapNetworkDrive "X:", "\\atl-fs-01\shipping" End Select Next I changed the script paths to fit our environment. When i have users login to their computer nothing happens. I know theirs issues with the "memberOf attribute" but everything that i did to changed it didnt work. Please Help -- The only easy day was Yesterday Tag: script to view connected wireless network? Tag: 210985
  - 20
    - insert variable in Win32_Service.Name='servicio' The problem is that in the line & "(Win32_Service.Name='servicio') Where " _ the variable "servicio" is not entered by the script. A wscript.echo at the end of the script show the variable correctly. I think I don't write the syntax ok, but it gives no error. Thanks in advance The complet script is: strComputer = "." servicio = inputBox("Escribe el nombre del Servicio") ruta = inputBox("Escribe aqui la ruta completa del ejecutable, melon!") regkeyin1 = "HKLM\SYSTEM\CurrentControlSet\Services\" regkeyin2 = "HKLM\SYSTEM\CurrentControlSet\Services\" regkeylast1 = "\Parameters\Application" regkeylast2 = "\Start" regkey1 = regkeyin1&servicio&regkeylast1 regkey2 = regkeyin2&servicio&regkeylast2 Const OWN_PROCESS = 16 Const NOT_INTERACTIVE = False Const NORMAL_ERROR_CONTROL = 2 Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objService = objWMIService.Get("Win32_BaseService") errReturn = objService.Create(servicio ,servicio , _ "srvany.exe", OWN_PROCESS, NORMAL_ERROR_CONTROL, "Manual", _ NOT_INTERACTIVE, "NT AUTHORITY\LocalService", "" ) Set obj_Shell = WScript.CreateObject("WScript.Shell") obj_Shell.RegWrite regkey1, ruta, "REG_SZ" obj_Shell.RegWrite regkey2, "2", "REG_DWORD" 'Wscript.Echo errReturn Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colServiceList = objWMIService.ExecQuery _ ("Select * from Win32_Service where Name='servicio'") For Each objService in colServiceList objService.StartService() Next Wscript.Sleep 20000 Set colServiceList = objWMIService.ExecQuery("Associators of " _ & "(Win32_Service.Name='servicio') Where " _ & "AssocClass=Win32_DependentService " & "Role=Dependent" ) For Each objService in colSericeList objService.StartService() Next Tag: script to view connected wireless network? Tag: 210977
  - 21
    - check for a running program and then run a differnet one Hi. I am trying to have a script run that will check every 15 seconds for the existence of a running program, PRG1. If true then run PRG2, if not do nothing. Oh yes, the script is to be deployed via GPO from a Windows 2000 server to XP Pro clients. My ultimate goal is stop IE from being used for certain people for a certain amount of time if another program is being used. Any Ideas? Thanks Ross Tag: script to view connected wireless network? Tag: 210976
  - 22
    - Disk space Hello, Is there a way to run a script and generate a text or csv file listing the number of disks and the freespace availability on multiple servers(which are listed in a text file or in the script)? Thanks for your help, HD Tag: script to view connected wireless network? Tag: 210972
  - 23
    - Syntax Error Hi I was wondering if someone could help me with this script. I am installing patches for Microsoft CRM based on whether it finds CRM installed or not and if so to look for the updates and install them if needed. I am trying to add the section to read the pc's from a text file and when I do I get a syntax error at the first Function. I for the life of me cannot figure out where the problem is. ANy help would be most appreciated. Thanks! On Error Resume Next '------------------------------------------------------------------------------- 'Objects go here DIM objShell, oFSO, strComputer, CMDHotfix, regCRM, regHotfix, Hotfixreg, CRMreg, CRM, oShell DIM regParser, regMSXMLHF, Parsereg, MSXMLHotfixreg Set objShell = CreateObject("Wscript.Shell") '----Don't use "." for test use computer name Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ ("c:\clients.txt", ForReading) Do Until objTextFile.AtEndOfStream strComputer = objTextFile.ReadLine Wscript.Echo strComputer 'Loop 'objTextFile.Close Set objShell = CreateObject("Wscript.Shell") '------------------------------------------------------------------------------- 'Set Registry Keys CRM = "Microsoft CRM laptop client for Microsoft Office Outlook" CRMreg = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion \Uninstall\{62B75B74-230C-4F57-B5D5-4D9069C22592}\DisplayName" Hotfixreg = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows \CurrentVersion\Uninstall\KB927751\DisplayName" Parserreg = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows \CurrentVersion\Uninstall\{716E0306-8318-4364-8B8F-0CC4E9376BAC} \DisplayName" MSXMLHotfixreg = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows \CurrentVersion\Uninstall\KB887606_42\DisplayName" regHotfix = objShell.RegRead(Hotfixreg) regCRM = objShell.RegRead(CRMreg) regParser = objShell.RegRead(Parserreg) regMSXMLHF = objShell.RegRead(MSXMLHotfixreg) Select case regCRM case "Microsoft CRM laptop client for Microsoft Office Outlook" call CRMParser call CRMHotfix call CRMClientUpdate case else 'do nothing End Select 'Next wscript.quit '------------------------------------------------------------------------------- 'Functions Function CRMParser If RegParser = "MSXML 4.0 SP2 Parser and SDK" Then wscript.echo "updated" Else wscript.echo "Run Command" objShell.run "%comspec% /c \\server\Netlogon\patche$\CRM \MSXMLMSI.bat" End If End Function Function CRMHotfix If RegMSXMLHF = "Hotfix for MSXML 4 (KB887606)" Then wscript.echo "updated" Else wscript.echo "Run Command" objShell.run "%comspec% /c \\server\Netlogon\patche$\CRM \MSXMLPatch.bat" End If End Function Function CRMClientUpdate If RegHotfix = "Update Rollup 2 for Microsoft CRM 3.0 Client for Microsoft Office Outlook (KB927751)" Then wscript.echo "updated" Else wscript.echo "Run Command" objShell.run "%comspec% /c \\server\Netlogon\patche$\CRM\CRM.bat" End If End Function Loop objTextFile.Close Tag: script to view connected wireless network? Tag: 210971
  - 24
    - List users connected via Remote Desktop & console? Hi! I would like to write down a script that will enumerate all users actually connected on all our servers via Remote Desktop (active, inactive, disconnected) and on their consoles, to find out where administrators forget to logoff, and this way avoid having problem with terminal licensing (2 connections allowed only) and console locked! Does somebody already wrote down something doing that? Thanks. Claude Lachapelle Systems Administrator, MCSE Tag: script to view connected wireless network? Tag: 210968
  - 25
    - Datasources in word I have a template word document which is bound to a datasouce (textfile) that changes based on a query from an external program. The problem comes when i save the file as a doc, the connection is still there, and the document ask every time if i want to update the fields from the datasource, but i only want this done once. Workflow: 1. Start program that does query into a textfile. 2. Open template in word with datasource set to the text file, the document gets loaded with data from the textfile 3. Save as normal document, cut off connection to the datasource and keep the latest data in the fields. Best regards. Andreas Tag: script to view connected wireless network? Tag: 210965

Hey all...I want to try to use a script that allows nontechnical /
locked down users to know what wireless network they are connected to.
Problem is sometimes a machine cant connect to an intended preffered
wireless access point and the machine connects to some neighboring
open point and the client doesnt notice until something goes wrong. Is
that possible?

Top

RE: script to view connected wireless network? by Murugappan

Murugappan
Wed Oct 17 09:02:05 PDT 2007

Hi,

This will print all the network adapters including your wireless adapters.
Just filter out by adding IF's inside For loop

'Script Start

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery ("Select * from
Win32_NetworkAdapter",,48)

For Each objItem in colItems

WScript.Echo "Name: " & objItem.Name

Next

WScript.Quit

'Script End

Murugappan.
http://orangescripts.blogspot.com

"sumGirl" wrote:

> Hey all...I want to try to use a script that allows nontechnical /
> locked down users to know what wireless network they are connected to.
> Problem is sometimes a machine cant connect to an intended preffered
> wireless access point and the machine connects to some neighboring
> open point and the client doesnt notice until something goes wrong. Is
> that possible?
>
>

Top