Revoke DHCP lease

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
    - This in VB6? Hello, This is a snippit from a VBScript routine. Dim PINPad Dim ResultString Set PINPad = WScript.CreateObject("OPOS.PINPad") WScript.ConnectObject PINPad, "EventHandler_" The ConnectObject is my trouble. How would I do that in VB6? Thanks Tag: Revoke DHCP lease Tag: 208214
  - 2
    - Execute VBS from Notepad++ Hi, Is there a way to execute a VBS from within Notepad++? I know with ConTEXT it could be done and had a button right on the toolbar to run the VBS. -- Regards, Martin X. MCSA: M Tag: Revoke DHCP lease Tag: 208210
  - 3
    - questions on map printers based on groups I am new to scripting and see the boundless opportunities. I admin about 100 pcs for a small private school and looking for a way to create printers based on AD security groups. The script will run within their logon script. Situation: The users DO NOT have admin priviledges on the pcs. We have 5 network printers that are different make and models. They are connected directly to the network and we access with an ip address. Different users share the same pc. Also I want to keep from having to touch each pc if possible. Here are my questions: 1) Will I be required to go to each pc and install the drivers for the printers that pc will use? 2) Will only the printers that are created and mapped with the script show up in the printers folders? 3) Can a user w/o local admin rights run the script to install the printer. 4) Should I share the printers off the server rather than printing directly to them over the network? 5) If printers are accessed as a share can varibles be used so that if the share moves to another server only the varible needs to be changed (thinking about varibles in a batch file)? Here is my logon batch file @echo off net use * /delete /y net use u: \\server\users\%username% cscript %logonserver%\netlogon\logon.vbs This is my logon.vbs script. I map drives based on groups On Error Resume Next Set objSysInfo = CreateObject("ADSystemInfo") Set objNetwork = CreateObject("Wscript.Network") strUserPath = "LDAP://" & objSysInfo.UserName Set objUser = GetObject(strUserPath) For Each strGroup in objUser.MemberOf strGroupPath = "LDAP://" & strGroup Set objGroup = GetObject(strGroupPath) strGroupName = objGroup.CN Select Case strGroupName Case "group 1" objNetwork.MapNetworkDrive "F:", "\\server\share1$" Case "group 2" objNetwork.MapNetworkDrive "G:", "\\server\share2" End Select Next Tag: Revoke DHCP lease Tag: 208206
  - 4
    - DOWNLOAD CRACKED 2007's SOFTWARE: ARCHICAD 11,UNIGRAPHICS NX5,SOLIDWORKS 2008,XSTEEL 13,AUTOCAD 2008 Our team provide different types of services such as: - proffessional cracking of any kind of software (CAD,CAM,CAE,EDA,GIS,PCB,FEA,FEM,CNC,CFD,PDS,3D,Optics etc.) designed for any kind of operating systems(Windows 95/98/ME/2000/XP, Linux, FreeBSD, OS/2, MAC OS etc.) - producing keygens, licenses for different proctection systems (FlexLM, SentinelLM, ElanLM, CrypKey, etc.) - producing emulators for any kind of dongles (SentinelPro, SentinelSuperPro, Hasp4, Hardlock, WIBU, Guardant, etc.) - quality reverse engineering (decompilation of programs, algorithms reconstruction, etc.) - any other reverse engineering services... Also we have an excellent relationship with all our customers and we always happy to help them solve their problems. Our skills and experince will help you make a valuable conribution to your business. All soft we offer have been completely cracked and tested carefully by expert in corresponding field. All programs are full copies of originals (not demo, evaluation, trial or educational version) including English or multilanguage tutorial and crack or license file that makes program work as registered software from the house. Here is just a part of our software list.For getting the additional information, view our software list and ordering programs just visit our WEBSITE: http://www.cd-soft.net >> Contact e-mail: CDsoft2007@yahoo.com or CDsoft2008@yahoo.com Here is an example of the most popular offered latest software: 06.07.2007 TEKLA XSTEEL STRUCTURES V13 DASSAULT SYSTEMES CATIA V5R17 SP6 Simulia Abaqus v6.7 Mercedes Benz Navigations CD Audio 50 APS Europa MSC Adams 2007 R1 PROCAD 3DSMART V2007.1 CODEGEAR RAD STUDIO DELPHI V2007 PTC PRO ENGINEER WILDFIRE v3.0 M090 MSC EASY5 v2005 R1.4 Simulia Abaqus v6.7 ------------------------------------------------------------------------ -------- 29.06.2007 Falk Navigator 5 Kartenmaterial Europa 2007 MSC Dytran 2007 R1 Transmagic Plus v7.0 Route66 Navigate v7.0 Europa NI SoftMotion Controller v2.1 Medion GoPalPE.3.0A INVENSYS SIMSCI PROII V8.1 Rasterweq Software SmartCUT Pro v2.3.2.0 Cigraph ArchiTabula v1.97 For Archicad 11 Cigraph ArchiSketchy v1.97 For Archicad.11 Cigraph ArchiTime v1.97 For Archicad.11 ------------------------------------------------------------------------ -------- 22.06.2007 Route66 Navigate v7.0 Europa NI SoftMotion Controller v2.1 Graphisoft ArchiCAD v11 International Retail Readnfo GibbsCAM 2007 v8.5.13 Megatech MegaCAD 3D v2007 IMSIDesign TurboCAD Designer v14 CURIOUS WORLD MAPS V7.2F Bentley Microstation XM v8.09.04.44 Bentley Microstation Prerequisite Pack v8.09.04.01 Transmagic Plus v7.0 UNIGRAPHICS NX5 SURFWARE SURFCAM VELOCITY III SP1 ------------------------------------------------------------------------ -------- 14.06.2007 UGS FEMAP V9.3 ETA CAD Translator v1.200704 ETA VPG v3.2 WiNNT2K CSI SAFE PLUS DETAILER V8.1.0 AutoForm Master 4.1 Abaqus v6.7 VectorWorks V12.5.1 GibbsCAM 2007 v8.5.10 Malz Kassner CAD6 Industry v2007 Malz Kassner CAD6 Studio v2007 Dolphin SMASH v5.8.4 ------------------------------------------------------------------------ -------- 05.06.2007 SynaptiCAD AllProducts v12.01b Super FinSim v9.1.11 Depth Of Field Generator PRO v3.0.74 for Adobe Photoshop NI Circuit Design Suite Educational v10.0.1 NI Circuit Design Suite Pro v10.0.1 Dolphin SMASH v5.8.3 Aldec Active HDL v7.2 CST Studio Suite v2006B SP3 CD-Adapco Star-CD v4.02 Intel Thread Profiler v3.1.021 Intel Thread Checker v3.1.021 ------------------------------------------------------------------------ -------- 29.05.2007 SURFWARE SURFCAM VELOCITY III SP1 Bentley speedikon Architectural v08.00.00.25 for MicroStation XMS Bentley speedikon Industrial v08.00.00.25 for MicroStation XM PROTEUS ENGINEERING MAESTRO V8.7.6 PROTEUS ENGINEERING FASTSHIP V6.1.29 PTC PRO ENGINEER WILDFIRE v3.0 M080 Intel VTune Performance Analyzer v9.0.010 Intel VTune Performance Analyzer v9.0.969 Intel C Plus Plus Compiler v9.1.037 Intel Visual Fortran Compiler Pro v9.1.037 Carbon Coder v2.51 Rhozet Corporatio OPTIMAL SOLUTIONS SCULPTOR V2.1 ------------------------------------------------------------------------ -------- 20.05.2007 CSI ETABS NL V9.1.4 Solidworks 2007 SP0.0-SP3.1 Service Pack ALTAIR HYPERWORKS V8.0 SR1 AUTODESK PRODUCTSTREAM PRO V2008 Autodsys IntelliCAD v6.3 Pro Plus Edition NI DIAdem v10.2 NI LabWindows CVI FDS v8.1.1 NI Teststand v4.0 Eurosystems SmartCut Pro 6.1.13 CimatronE v8.0 FunctionBay RecurDyn v6.3 SP4 UGS TEAMCENTER VISUALIZATION V2005 ------------------------------------------------------------------------ -------- 13.05.2007 CADopia Professional 6.0 SP1 CADopia Intellicad 5 Standard SP1 v5.0.20.0 Ansoft Maxwell 2D & 3D 11.1 GEOMAGIC STUDIO V9 DHI MIKE NET V2007 DHI MIKE STORM V2007 PROKON STRUCTURES V2.2-LND LEAP SOFTWARE LEAP BRIDGE V6.0 MOLDFLOW DESIGN LINK V5.2 ADAPT BUILDER-EX V3.0 CEI ENSIGHT GOLD V8.2.4B 32BIT ------------------------------------------------------------------------ -------- 04.05.2007 GibbsCAM 2007 v8.5.6-Lz0 SURFWARE SURFCAM VELOCITY III MSC PATRAN V2006 R1for IA64&IRIX&HPUX DASSAULT SYSTEMES CATIA V5R17 SP5 FOR 32 &64 BIT MOLDFLOW PLASTICS ADVISERS V7.3 ARRIBA Planen Kompakt v12.3.233 GGU-Footing v5.0 GGU-Retain v4.42 GGU-Slab v6.0 GGU-SS-Flow2D v8.03 GGU-Stability v8.08 ------------------------------------------------------------------------ -------- 26.04.2007 UGS Solid Edge v19 Update.5 AUTODESK ALIASSTUDIO V2008 ALLDATA v9.20.1002 GibbsCAM 2007 v8.5.2 Maple V11 Professional MAC OSX UB Autodesk Inventor Professional 2008 FLUENT Polyflow v3.11.0 E-ON VUE INFINITE V6.0.5 ALTAIR HYPERWORKS V8.0 X64 VectorWorks v12.5.0 R1 ------------------------------------------------------------------------ -------- 18.04.2007 UGS Jt Catia v5 Translator v4.0 EDS UNIGRAPHICS NX V5.0.25 OpenMind HyperCAD v2006.2.105.41 Dolphin SMASH v5.8.2 Dolphin SoC GDS v5.9.1p2 SynaptiCAD AllProducts v11.18a Agilent Genesys 2007 uper FinSim v9.1.0 Puppetshop v3.35 for 3ds Max Multimeios Fulldome v1.2.0.0 for Adobe After Effects NEWTEK LIGHTWAVE3D V9.2 ------------------------------------------------------------------------ -------- 10.04.2007 CSI SAP2000 11.0 NI DASYLab 9.0.2 THINK3 THINKDESIGN THINKID v2006.2 Think3 ThinkiD DesignXpressions v2006.2 105 41 Aveva Vantage PDMS v.11.6 SP3.5 DELCAM ARTCAM PRO 9.021 DELCAM ARTCAM INSIGNIA 4.019 Bentley Microstation XM v08.09.03.65 Autodesk 3ds Max 9 Extension 1: Productivity Booster Altair HyperWorks 8.0 Ansys Fluent 6.3 Win32 Ansys Fluent 6.3 x64 ------------------------------------------------------------------------ -------- 03.04.2007 Autodesk VIZ 2008 Autodesk AutoCAD Architecture 2008 Autodesk AutoCAD Electrical 2008 Autodesk AutoCAD Mechanical 2008 Autodesk AutoCAD 2008 Autodesk AutoCAD LT 2008 Adobe RoboHelp 6.0 Cedrat Flux 9.3.1 Sofistik Soficad 17.1 3D Home Architect Design Suite Deluxe 8.0 AutoDsys AcceliCAD 2007 v6.2.36.5 CADlink EngraveLab Expert 7.1 rev.1 Build 8 Comsol Multiphysics 3.3 x64 ------------------------------------------------------------------------ -------- 26.03.2007 Adobe LiveMotion 2.0 for Mac Altera Quartus II 7.0 Citrix Password Manager 4.5 Finale SongWriter 2007 Missler Topsolid 2006 Moldflow Products 2007 PTC InterComm Expert 5.2 VX CAD CAM 12.70 Xilinx ISE 9.1 Adobe Photoshop CS3 v10.0 ------------------------------------------------------------------------ -------- 19.03.2007 CSC Structural 7.02 Digital Element WorldBuilder Pro 3.55 MSC MD Nastran R2 Mathworks Matlab R2007a Nemetschek Allplan v2006.2 GibbsCAM 2006 v8.0.38 CD-adapco Star CD v4.02 CD-adapco Star-CCM Plus v2.04 InfoGraph InfoCAD v6.51 VX CAD CAM V12.70 Moldflow Plastics Insight v2007 PTC InterComm Expert v5.2 F000 Cenit FasTRIM LaserCUT v3R7GA Dicad Strakon v2007 incl SP2 Pointwise Gridgen v15 10 R1 ------------------------------------------------------------------------ -------- 13.03.2007 NI Vision v8.2.1 Development Module NI DIAdem v10.1 SP1 NI Vision Builder AI v3.0.1 NI LabVIEW SignalExpress v2.0 Intel C Plus Plus Compiler v9.1.047 GERBER ACCUMARK FAMILY V8.2.0.156 Solidworks Video Tutorials Series 1& Series 2 Siemens Sinutrain v6.3 Edition 3 UGS I-DEAS NX12M4 MSC SIMXPERT R1.1 MSC SIMOFFICE R1 MSC PATRAN 2006 R2 PATHTRACE EDGECAM V11.5 DASSAULT SYSTEMES CATIA V5R17 SP4 for SOLARIS ANSYS PRODUCTS LINUX V11 GibbsCAM 2006 v8.0.36 PTC Mathcad v14.0 SYSTAT v12.0 Genstat v9.2.153 This is not our complete software list. If you want to get access to our Software archive you should visit our website: http://www.cd-soft.net >> Contact e-mail: CDsoft2007@yahoo.com or CDsoft2008@yahoo.com *** Sent via Developersdex http://www.developersdex.com *** Tag: Revoke DHCP lease Tag: 208205
  - 5
    - Hot to ru multiple programs in one script Hello everybody i've the need to create a script that will run as a scheluded job every day on a windows 2003 server machine. The script's purpose is pretty simple: it has just to start 4 programs (all progs have a gui but i dont need it to be visible) with a 10 second delay between each one.. Now due to my very basic scripting knowledge i can't figure out how to realize this :( Im trying the run method but only the first program starts, thern the script wait for it to be terminated and start the second one etc... while i need that all the program start. This is the crappy code i wrote: Dim oWS Set oWS = CreateObject("WScript.Shell") oWS.Run "C:\Applicativi\PssServer\PssServer.exe" oWS.Run "C:\Applicativi\Dispatcher\dispatcher.exe" oWS.Run "C:\Applicativi\CaricaBiglietti\CaricaBiglietti.exe" oWS.Run "C:\Applicativi\NotificaQuote\StockQuote.exe" Any help would be greatly appreciated Tag: Revoke DHCP lease Tag: 208201
  - 6
    - Modifying DNS Settings for different subnets Hey there guys, I've written a script that installs an application, and the application requires a specific DNS order for the machines in different subnets. The problem is that I can't do a global GPO, because not everyone is getting this software, and laptop users would then have a problem with accessing the internet when they took it home. What I need is a script that will check the machines gateway address, and if it's a certain gateway, then it'll change the DNS settings according to what's needed. Example: If gateway = 192.168.10.1 Then arrDNSServers = Array("192.168.10.2", "192.168.10.3") ElseIf gateway = 192.168.50.1 Then arrDNSServers = Array("192.168.50.2", "192.168.50.3") EndIf If that makes sense...I know how to change the DNS settings for the machine...it's pulling the default gateway address out of it. Any ideas? Thanks again! Best Regards, Tag: Revoke DHCP lease Tag: 208200
  - 7
    - How to run multiple commands Hello everybody, new to scripting here but i have the need to create a script that will run as a scheduled task everyday. The script has to start 4 programs, thisis what i tried but it dowsnt go past the 1st run statement... Dim oWS Set oWSH = CreateObject("WScript.Shell") oWSH.Run "C:\Dir1\SubDir1\App1.exe" oWSH.Run "C:\Dir2\SubDir2\App2.exe" oWSH.Run "C:\Dir3\SubDir3\App3.exe" oWSH.Run "C:\Dir4\SubDir4\App4.exe" I am probably doing a very noobish error here i know, any help would be greatly appreciated TIA Massimo Tag: Revoke DHCP lease Tag: 208199
  - 8
    - How to run multiple commands Hello everybody, new to scripting here but i have the need to create a script that will run as a scheduled task everyday. The script has to start 4 programs, thisis what i tried but it dowsnt go past the 1st run statement... Dim oWS Set oWSH = CreateObject("WScript.Shell") oWSH.Run "C:\Dir1\SubDir1\App1.exe" oWSH.Run "C:\Dir2\SubDir2\App2.exe" oWSH.Run "C:\Dir3\SubDir3\App3.exe" oWSH.Run "C:\Dir4\SubDir4\App4.exe" I am probably doing a very noobish error here i know, any help would be greatly appreciated TIA Massimo Tag: Revoke DHCP lease Tag: 208198
  - 9
    - How to run multiple commands HI, im new to scripting but i have the need to create a script that allows me to run 4 executables. This script will the be scheduled by the standard windows 2003 scheduler. this is what i tried but it doesnt go past the first run statement Dim oWS Set oWSH = CreateObject("WScript.Shell") oWSH.Run "C:\Dir1\SubDir1\App1.exe" oWSH.Run "C:\Dir2\SubDir2\App2.exe" oWSH.Run "C:\Dir3\SubDir3\App3.exe" oWSH.Run "C:\Dir4\SubDir4\App4.exe" Any help woukld be greatly appreciated Massimo Tag: Revoke DHCP lease Tag: 208197
  - 10
    - Accessing WMI on a server - rights required? Hi! I'm writing a VBscript that will allow our account operators to create new shares on our files server remotely, since we have an application requiring the user home folder to be shared. The problem is, when running this script with the account operators credentials, we always got access denied when we are trying reading information from the WMI: Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & ServName & "\root\cimv2") As soon as we add them to the Administrators local group (something we want to avoid), this is working perfectly. I played with security into the WMI interface (giving Everyone full access to WMI), but that fixed nothing. Can somebody help me? Thanks. Claude Lachapelle Systems Administrator, MCSE Tag: Revoke DHCP lease Tag: 208196
  - 11
    - Script to error writing to file I have a script that will connect to Symantec's virus download site and get the latest definitions. It seems to fail on line 42 'write to file failed'. Can someone take a look and let me know what is wrong? Thanks. CONST DOWNLOAD_LOCATION = "http://definitions.symantec.com/defs/xdb/" CONST HOST = "." ' make this value the hostname of the box this script will run CONST ADTYPEBINARY = 1 CONST ADSAVECREATENOTEXIST = 1 CONST ADSAVECREATEOVERWRITE = 2 CONST EVENT_SUCCESS = 0 Dim objHTTP : set objHTTP = CreateObject("Microsoft.XMLHTTP") Dim objStream : set objStream = CreateObject("adodb.stream") Dim objFSO : set objFSO = CreateObject("Scripting.FileSystemObject") Dim objShell : set objShell = Wscript.CreateObject("Wscript.Shell") ' Get the page source from the website. objHTTP.Open "GET", "http://securityresponse.symantec.com/avcenter/download/pages/US-SAVCE.html", False objHTTP.Send ' Cram the HTML source into memory. It's not a lot of data so there aren't ' really any performance concerns here. Dim strHTMLSource : strHTMLSource = objHTTP.responsetext ' Parse memory for the location of of the download area. Once the download ' area is found, search for the file name. If InStr(strHTMLSource, DOWNLOAD_LOCATION) > 0 Then Dim intPosition : intPosition = InStr(strHTMLSource,DOWNLOAD_LOCATION) Dim strFileName : strFileName = Mid(strHTMLSource, intPosition + Len(DOWNLOAD_LOCATION), 12) End If ' Cat the download area and the file name together to form the whole path. Dim strPath : strPath = DOWNLOAD_LOCATION & strFileName ' Local dir to save file. Edit the const HOST as necessary for what computer ' will run this script. Dim strSaveTo : strSaveTo = "\\" & HOST & "\c$\Program Files\SAV\" & strFileName ' Make another connection to the website. objHTTP.open "GET", strPath, False objHTTP.send ' Open a pipe to download the file. objStream.Type = ADTYPEBINARY objStream.Open objStream.Write objHTTP.responseBody objStream.saveToFile strSaveTo, ADSAVECREATEOVERWRITE WScript.Sleep 10000 ' Check to see if file exists and write something to the local event log. 'If objFSO.FileExists(strSaveTo) Then objShell.LogEvent EVENT_SUCCESS, strFileName & " was written to " & Mid(strSaveTo, 1, 27) 'End If ' Clean up. set objHTTP = Nothing set objStream = Nothing set objShell = Nothing Set objFSO = Nothing MsgBox "Finished!" Tag: Revoke DHCP lease Tag: 208195
  - 12
    - Command line editor or script in order to add a new key to the Registry.pol file Hello, I need to add a "MyNewFile.exe" to the list of 'Run only allowed Windows Applications' (RestrictRun). This have to be done by my installation package. Is there a command line editor or script in order to add a new key to the Registry.pol file? Regards. Tag: Revoke DHCP lease Tag: 208193
  - 13
    - Accessing Outlook Groups Hi I am not sure if this really falls under vbscript or VBA or is even feasible, but is it possible to get access to a list of Outlook Groups that a particular user has joined? And what would the best approach to this be? Thanks Lawrence Tag: Revoke DHCP lease Tag: 208192
  - 14
    - Automating client IP configuration I know very little about scripting, but I'm trying to automate IP configuration on multiple clients and the script mostly works but the DNS settings do not change. I am using the script found in this paper: http://www.microsoft.com/technet/scriptcenter/topics/networking/09_atnc_scenario.mspx. Here is the sample .csv file I'm testing with: client1,add,staticip,10.10.1.30 192.168.1.30,255.255.0.0 255.255.0.0,10.10.0.1,1,TRUE,10.10.0.50 10.10.0.51,,training.com,,,,,,,,,,, The settings after "TRUE" do not take effect (DNSServerSearchOrder, DNSDomain). Here is the file that is output after the script has run: Date: 7/17/2007 2:07:17 PM Adding updating or removing 1 new client computers. ------------------------------------------------------------------------------------------------------------------------ Host: client1 ,Settings before changes: ,Computer Name:,,client1 ,Workgroup:,, ,Domain Role:,,Standalone Workstation ,Ethernet 802.3 Adapter Local Area Connection ,,Index 1 ,,Intel 21140-Based PCI Fast Ethernet Adapter (Generic) - Packet Scheduler Miniport ,,DHCP Enabled: True ,,DHCP Server: 172.21.0.201 ,,IP Addresses: ,,,,172.21.100.7 ,,Subnet Masks: ,,,,255.255.0.0 ,,Default Gateways: ,,,,172.21.0.1 ,,Gateway Cost Metrics: ,,,,20 ,,DNS Server Search Order:,, ,,,,172.21.0.201 ,,DNS Domain:,, ,,DNS Domain Suffix Search Order:,, ,,Domain DNS Registration Enabled: False ,,Full DNS Registration Enabled: True ,,NetBIOS Over TCP/IP: Enable NetBIOS over TCP/IP ,,Primary WINS Server: ,,Secondary WINS Server: ,,DNS Enabled For WINS Resolution: False ,,WINS Enable LMHosts Lookup: True ,,WINS Host Lookup File: ,,WINS Scope ID: ,------------------------------------------------------------ ,TCP/IP client change mode ,Client to be added to network. ,Administrator must make corresponding changes on servers. ,Static IP changes ,Network Adapter 1 ,,Intel 21140-Based PCI Fast Ethernet Adapter (Generic) - Packet Scheduler Miniport ,,Attempting to disable DHCP and enable static IP ... ,,DHCP disabled - static IP address enabled. ,,Assigned new default gateways. ,DNS Changes ,Network Adapter 1 ,,Intel 21140-Based PCI Fast Ethernet Adapter (Generic) - Packet Scheduler Miniport ,,Attempting to make changes in DNS configuration ... ,NetBIOS & WINS changes ,,NetBIOS Changes ,,Attempting to set NetBIOS Over TCI/IP value. ,,Unable to set NetBIOS Over TCI/IP value. ,NetBIOS Over TCP/IP setting does not require setting WINS parameters. ,------------------------------------------------------------ ,Settings after changes: ,Computer Name:,,client1 ,Workgroup:,, ,Domain Role:,,Standalone Workstation ,Ethernet 802.3 Adapter Local Area Connection ,,Index 1 ,,Intel 21140-Based PCI Fast Ethernet Adapter (Generic) - Packet Scheduler Miniport ,,DHCP Enabled: False ,,DHCP Server: ,,IP Addresses: ,,,,10.10.1.30 ,,,,192.168.1.30 ,,Subnet Masks: ,,,,255.255.0.0 ,,,,255.255.0.0 ,,Default Gateways: ,,,,10.10.0.1 ,,Gateway Cost Metrics: ,,,,1 ,,DNS Server Search Order:,, ,,DNS Domain:,, ,,DNS Domain Suffix Search Order:,, ,,Domain DNS Registration Enabled: False ,,Full DNS Registration Enabled: True ,,NetBIOS Over TCP/IP: Enable NetBIOS over TCP/IP ,,Primary WINS Server: ,,Secondary WINS Server: ,,DNS Enabled For WINS Resolution: False ,,WINS Enable LMHosts Lookup: True ,,WINS Host Lookup File: ,,WINS Scope ID: ------------------------------------------------------------------------------------------------------------------------ Summary: Added 1 new client computers. Updated 0 client computers. Removed 0 client computers. Unable to connect to or bind to WMI service on 0 client computers. ================================================================ Any help would be greatly appreciated! Thank you, Greg Tag: Revoke DHCP lease Tag: 208185
  - 15
    - WMI to check mountpoint, possible? i have a volume mounted in a folder inside of a G drive. the free/used space of the G drive is separate from the mountpoint however. how can i specifically check drive spave for the mountpoint? an example would be wonderful. thank you Tag: Revoke DHCP lease Tag: 208183
  - 16
    - setting write access on ftp vdirectories I have been working on setting the accesswrite properity to true for 2 virtual directories without much luck. I can set it on the default ftp site, but I seem to be having some trouble with the sub directories. I have tried several methods without any luck. it would be really great ff someone could take a look at the script below and give me a pointer. When I run it the following error is returned (2, 2) (null): 0x80005000 Dim IIsObj, vWrite set IIsObj = GetObject("IIS://localhost/msftpsvc/2/Root/") ' Set the values. ' vWrite = true 'Put the values back in the object. ' IIsObj.AccessWrite = vWrite 'Save the changes back to the metabase. IIsObj.put "AccessWrite", true 'iisobj.setinfo TIA Stek Tag: Revoke DHCP lease Tag: 208182
  - 17
    - Get Oracle client version? Is it possible to get the currently installed Oracle client version number using VBScript? We currently use a mix of 8i and 10g. If so, could you please post example code? Thanks much in advance. Tag: Revoke DHCP lease Tag: 208179
  - 18
    - vbScript to Copy Files and Add either an Incrementing Value or DateStamp Is there a VBScript that can copy: C:\MyDirectory\MyFile.txt and copy it to: C:\MyArchive\MyFile (1).txt (The next time MyFile.txt is copied it will be MyFile (2).txt, etc. or C:\MyArchive\MyFile0707170710.txt (i.e., July 17, 2007 07:10 AM) with date stamp. Thanks for any suggestions! RBolling Tag: Revoke DHCP lease Tag: 208176
  - 19
    - Accessing ADS Information I have written a login script foir my ADS domain but it doesn't work on all computers. I included the script at the end of this post. The problem seems to be the access to the ADS. It takes a awfull lkot of time just to run the "CreateObject("ADSystemInfo")" command and when I try to access the objADSystemInfo it takes a lot of time as well. On my computer everything runs fine and on the computer of my colleague it does not. We both use XP SP2 with all updates installed, so I really can't find any difference. We are both Admins in the domain but this shouldn't matter anyway. If I remove the "On error..." I get an error at the "GetObject("LDAP://..." command, so the first command does run but doesn't find anything? Can anybody help me or provide me with some ideas how I can debug the problem? On Error resume next Set objADSystemInfo = CreateObject("ADSystemInfo") Set objUser = GetObject("LDAP://" & objADSystemInfo.UserName) strDn = objUser.Get("distinguishedName") strSam = objUser.Get("sAMAccountName") strCn = objUser.Get("cn") strLastLogon = objUser.Get("carLicense") Set objLastLogon = objUser.Get("lastLogon") intLastLogonTime = objLastLogon.HighPart * (2^32) + objLastLogon.LowPart intLastLogonTime = intLastLogonTime / (60 * 10000000) intLastLogonTime = intLastLogonTime / 1440 Pos = Instr(strDn,"OU=") if Pos = 0 then strOu = "" else strOu = Mid(strDn,Pos+3,2) end if Set objNetwork = CreateObject("WScript.Network") objNetwork.MapNetworkDrive "h:", "\\frodo\user\" & strSam objNetwork.MapNetworkDrive "j:", "\\frodo\misc" objNetwork.MapNetworkDrive "l:", "\\frodo\department" objNetwork.MapNetworkDrive "p:", "\\frodo\projects" objNetwork.MapNetworkDrive "k:", "\\frodo\department\" & strOu strOut = "Welcome " & strCN & chr(13) strOut = strOut & "Your last logon was:" & chr(13) strOut = strOut & strLastLogon objUser.Put "carLicense", "" & intLastLogonTime + #1/2/1601 22:00:00# objUser.SetInfo WScript.Echo strOut Tag: Revoke DHCP lease Tag: 208174
  - 20
    - Copy a file to a directory using vbscripting I am looking for a VBScripting solution that copies MyFile.txt and writes it to a destination directory like MyFile (2).txt if Myfile.txt alread exists. OR (even better) adds a date stamp like MyFile070717.txt Source directory is: C:\SourceDirectory\MyFile.txt And the destination directory is: C:\Archve\ Appreciate any suggestions! RBolling Tag: Revoke DHCP lease Tag: 208173
  - 21
    - encrypt active scripting Hello All- I have code written in MS Active scripting technologies. Is there a way to encrypt the active scripting code so I can share this code with others without them seeing my work? Thanks M Tag: Revoke DHCP lease Tag: 208172
  - 22
    - Tasks y VBScript Hola buenas tardes, Necesito Ayuda por favor...... Debo crear una tarea enviada desde Windows Server 2003 a los usuarios, para ejecutar una script que debe leer una Unidad de red, por ejemplo: ******************************************************* C:\red.vbs ******************************************************* Set WshNetwork = WScript.CreateObject("WScript.Network") Set colDrives = WSHNetwork.EnumNetworkDrives If colDrives.Count = 0 Then MsgBox "No hay unidades que enumerar." Else strMsg = "Conexiones actuales a unidades de red: " & vbCrLf For i = 0 To colDrives.Count - 1 Step 2 strMsg = strMsg & CRLF & colDrives(i) & Chr(9) & colDrives(i + 1) Next MsgBox strMsg End If ******************************************************** El problema radica en que si envio la tarea con el comando: AT \\nombreequipo 17:30 /INTERACTIVE "C:\red.vbs" es creada con el usuario NT AUTHORITY\SYSTEM, pero este usuario NO PUEDE LEER LA UNIDAD DE RED Ahora si ejecuto la tarea con el comando: SCHTASK /create /S nombreequipo /RU Dominio\Administrador /RP abc123 /SC ONCE /TN "Lee red" /TR "C:\red.vbs" /ST 17:30 /IT /Z /F Si se ejecuta con otro usuario (Dominio\pepe), ESTE NO LA PUEDE VER ! De igual forma si se ejecuta con el usuario SYSTEM, tampoco PUEDE LEER LA UNIDAD DE RED Que debo hacer ??? Muchas gracias de antemano por la colaboración. OMZ Tag: Revoke DHCP lease Tag: 208170
  - 23
    - Script delete and copy file Hello All, Can someone help me with this. Basically, We got a font from a vendor and they want us to overwrite the existing fonts thats on the C:\windows\fonts folder with their fonts. I'm thinking of doing this using login script. what do you guys thinK? I need a script that will delete files and at the same time copy files into the folder. Thanks in advance Tag: Revoke DHCP lease Tag: 208161
  - 24
    - Adding/Building a Scheduled Task I have an installation that we are prepping for VISTA. After initial install, we want our upgrade process to be silent, which is why I need to build a Task during our initial install. I think there is a way to do this as I've been provided this link in another post (as a sidebar to a different topic): http://msdn2.microsoft.com/en-us/library/aa384006.aspx . Currently, when a user logs into our software we have an .exe that is triggered to look in an .ini for versioning information and will trigger a Windows Installer package (.msi) if needed. This .exe can also be fired from a Start -> Programs -> Our App menu item. I'm thinking that if I can't tie in the trigger in this fashion (logon to our app or shortcut initiated), I would try to build the task as (Windows) logon for any user. So, basically, if I can't tie the trigger to my app, I simply need the Task to fire our Our App Update.exe when any user logs onto their workstation. I know this link provides some good information, but I'm no expert programmer by any means so any dumbing down that can be accomplished would be greatly appreciated. THANKS in Advance for any help, tips, pointers, etc.! Tag: Revoke DHCP lease Tag: 208157
  - 25
    - User Rights for login scripts The following code works for anyone with administrator rights but not for the general user accounts. Can you please point me in the right direction. Should I be using a diffrent methode to do this or do I need to assign special right to the general user? '========================================================================= ' Used to Map printers for users ' ' -----------------------------------------------------------------' Option Explicit Dim objNetwork, objUser, CurrentUser Dim strGroup, strUser, group Const PrintServer = "\\premiere-bk-ad\" Const PrintServer2 = "\\hq-pri-ad01\" Set objNetwork = CreateObject("WScript.Network") Set objUser = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & objUser.UserName) For Each Group in CurrentUser.Groups strGroup = strGroup & ucase(group.name) & " ***** " Select Case ucase(group.name) Case "CN=ED-ADMIN01-PRINTER" objNetwork.AddWindowsPrinterConnection PrintServer & "ED-ADMIN01" Case "CN=AWG01-PRT" objNetwork.AddWindowsPrinterConnection PrintServer2 & "AWG01" objNetwork.SetDefaultPrinter PrintServer2 & "AWG01" wscript.Echo("AWG01") end select next msgbox strgroup -- Chris Hartmann Premiere Credit of North america Tag: Revoke DHCP lease Tag: 208152
- Next
  - 1
    - shortcut icon problam I am using a script to add a shortcut to the peoples desktops. It contains the follwoing line that points to the icon that will be used. oShellLink.IconLocation = "SHELL32.dll, 148" How can I use an icon that is not part of the OS icons? Tag: Revoke DHCP lease Tag: 208151
  - 2
    - VBScript to VBA controlling SAP Script Editor An interface to SAP is using the SAP-GUI script Recorder. All the recorded scripts start like this. I would like to access the SAP-GUI without using VBScript, but directly from VBA (in this case Access). What do I have to change to get the Active-X Object ("Session")? If Not IsObject(Application) Then Set SapGuiAuto = GetObject("SAPGUI") Set Application = SapGuiAuto.GetScriptingEngine End If If Not IsObject(Connection) Then Set Connection = xlApp.Application.Children(0) End If If Not IsObject(Session) Then Set Session = Connection.Children(0) End If If IsObject(WScript) Then WScript.ConnectObject Session, "on" WScript.ConnectObject Application, "on" End If Session.findById("wnd[0]").Maximize Tag: Revoke DHCP lease Tag: 208150
  - 3
    - ASP + VBscript; reading URL source code Hello there, I need to do something very simple yet googling for hours has been fruitless. What I need is an ASP page (using vbscript) that loads the source code of a specified URL (specifically: webpage on the internet) into a string. That's it! Any help would be enormously appreciated, James Tag: Revoke DHCP lease Tag: 208141
  - 4
    - replace text How can I do a search and replace of a specific text in a file? The examples are have seen show creating a new file which is not what I want to do. I'd likle to open up the file and find he text to be replaced with some new text. The files tend to be 25-40mb. Not sure if regular expressions should be used. Any help is appreciated. Tag: Revoke DHCP lease Tag: 208134
  - 5
    - cacks and vbscript I'm creating a HTA that assists teachers to create folders on student machines and to set NTFS permissions so that only specific students may access each folder. (Students are rendering movies in these folderrs). I modified the following line I found on the web. Can someone please tell me what the 2 and true at the end are for? intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " & strDirectory & " /e /g ""Domain Admins"":F SYSTEM:F CSSDSTU\GG047-CTSMOVIE:F", 2, True) Also, I paste my cacls section below. Although it looks long, there are really only 3 sections. 1. Grant full permissions to those who need it and remove the everyone group. This section runs no matter what. 2. Grant modify permissions for up to four users chosen by the teachers 3. Revoke permissions to the folder for up to four students selected by the teachers What I've pasted below seems the most logical way to me to go abot this. But I'm open to any other suggestions... Thanks, Jeremy CODE ---------------- 'GRANT PERMISSIONS FOR ALL ~ADMINISTRATIVE~ GROUPS TO THE CREATED FOLDER 'Script always runs through this section 'Use cacls to edit existing permissions to grant full permissions to: administrators,system, and cssdstu\gg047-ctsmovie 'The first line is error checking to confirm the existance of folder If objFSO.FolderExists(strDirectory) Then intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " & strDirectory & " /e /g ""Domain Admins"":F SYSTEM:F CSSDSTU\GG047-CTSMOVIE:F", 2, True) Msgbox "The system account and local administrators have been granted full control to this folder." & VbCrLf "CTS teachers have also _ been granted full control to this folder" 'Use cacls to remove permissions for the EVERYONE group intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " & strDirectory & " /e /r " & "EVERYONE", 2, True) Else Msgbox "The folder " & strDirectoryName & " does not exist. Please try again" 'Go to the start over flag End If 'GRANT MODIFY PERMISSIONS FOR UP TO FOUR CTS STUDENTS (AT A TIME) 'This section only runs if the option to grant one or more users permissions is checked off 'Use cacls to grant modify permissons to user1, and or user2 and or user3 and or user4 If GRANT1.Checked Then intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " & strDirectory & " /e /g " & USER1.VALUE & ":c", 2, True) If intRunError <> 0 Then Msgbox "An error has occured. Make sure that user " & USER1.VALUE & " exists." Else Msgbox USER1.VALUE & " has been granted modify permissions to the folder." End If End If If GRANT2.Checked then intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " & strDirectory & " /e /g " & USER2.VALUE & ":c", 2, True) If intRunError <> 0 Then Msgbox "An error has occured. Make sure that user " & USER2.VALUE & " exists." Else Msgbox USER2.VALUE & " has been granted modify permissions to the folder." End If End If If GRANT3.Checked then intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " & strDirectory & " /e /g " & USER3.VALUE & ":c", 2, True) If intRunError <> 0 Then Msgbox "An error has occured. Make sure that user " & USER3.VALUE & " exists." Else Msgbox USER3.VALUE & " has been granted modify permissions to the folder." End If End If If GRANT4.Checked then intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " & strDirectory & " /e /g " & USER4.VALUE & ":c", 2, True) If intRunError <> 0 Then Msgbox "An error has occured. Make sure that user " & USER4.VALUE & " exists." Else Msgbox USER4.VALUE & " has been granted modify permissions to the folder." End If End If 'REVOKE PERMISSIONS FOR UP TO FOUR CTS STUDENTS (AT A TIME) 'This section only runs if the option to revoke permissions to one or more users is checked off 'Use cacls to grant modify permissons to user1, and or user2 and or user3 and or user4 If REVOKE1.Checked Then intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " & strDirectory & " /e /r " & USER1.VALUE & ":c", 2, True) If intRunError <> 0 Then Msgbox "An error has occured. Make sure that user " & USER1.VALUE & " exists." Else Msgbox USER1.VALUE & " permissions to the folder have been revoked." End If End If If REVOKE2.Checked Then intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " & strDirectory & " /e /r " & USER2.VALUE & ":c", 2, True) If intRunError <> 0 Then2 Msgbox "An error has occured. Make sure that user " & USER2.VALUE & " exists." Else Msgbox USER2.VALUE & " permissions to the folder have been revoked." End If End If If REVOKE3.Checked Then intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " & strDirectory & " /e /r " & USER3.VALUE & ":c", 2, True) If intRunError <> 0 Then Msgbox "An error has occured. Make sure that user " & USER3.VALUE & " exists." Else Msgbox USER3.VALUE & " permissions to the folder have been revoked." End If End If If REVOKE4.Checked Then intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " & strDirectory & " /e /r " & USER4.VALUE & ":c", 2, True) If intRunError <> 0 Then Msgbox "An error has occured. Make sure that user " & USER4.VALUE & " exists." Else Msgbox USER4.VALUE & " permissions to the folder have been revoked." End If End If Tag: Revoke DHCP lease Tag: 208133
  - 6
    - for(element in collection) - JScript converted from VBScript I just learned how to script objWMIService in VBScript, but I have better experience programming in JScript, so I would like to convert a few samples of code to JScript. Unfortunately the for(var element in collection) statement; in JScript does not execute the statement. The original VBScript variant works without any problems: For Each element in collection statement Next 'VBScript - This is the original example code: Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") For Each objComputer in colSettings WScript.Echo "Caption: " & objComputer.Caption Next //This is how I try to implement it in JScript var objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2"); var colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem"); for(objComputer in colSettings) WScript.Echo( "Caption: ".concat(objComputer.Caption) ); JScript's loop does not enter the body. Why? How do I convert this VBScript to JScript? Thank You for any working examples! George Valkov Tag: Revoke DHCP lease Tag: 208131
  - 7
    - how to delete folder Will someone please help. I'm having trouble reversing the following code so that it deletes a folder instead of creating it (and how can I check to see if the folder does not exist so it can not be deleted). Thanks, Jeremy 'CREATE THE FOLDER If CREATEFOLDER.Checked Then strDirectory = "d:\" & FOLDERNAME.VALUE 'Make sure null value is not entered for folder name If FOLDERNAME.VALUE = "" Then MSGBOX "The folder name may not be null. Please try again!" Else ' Create folder if it does not yet exist. ' If folder exists, display message with that info If objFSO.FolderExists(strDirectory) Then Set objFolder = objFSO.GetFolder(strDirectory) MSGBOX strDirectory & " already exists. Please try again!" Else Set objFolder = objFSO.CreateFolder(strDirectory) MSGBOX strDirectory & " has been created." End If End If END IF Tag: Revoke DHCP lease Tag: 208126
  - 8
    - Write to standard code module in MS-Excel? Using Office 2003 and Windows XP; Is there any way that VBScript can be used to modify some code in an MS-Excel standard code module? We have several programs that use ODBC calls to Oracle using a certain driver. Due to an upcoming upgrade, this driver name will change thus breaking the programs. I would like to code a script that users could run to replace the driver name in any open XL files. Now that I've written it out, this all seems like a rather fantastic idea. Is this possible in script or do I need to revert to VBA? If possible, could someone please post some script that would get me started? Thanks much in advance. Tag: Revoke DHCP lease Tag: 208113
  - 9
    - Map printer based on AD group Hi, I am wondering if anyone could help me with a login script I want to create I want the login script to map 2 printers based on the group membership in AD. For example I would have the following group: South Building Users East Building Users West Building Users I would have printers: HP4300 HP4300A HP4300B A user in the South Building User group would map HP4300 printer and HP4300A printer. East Building User would be HP4300A and HP4300B and so on... Could someone please help me on this. George S. Tag: Revoke DHCP lease Tag: 208111
  - 10
    - Browse For Folder Dialog Box : select drive instead folder doesn't work ? Hello, I can't seem to find the solution. I use the script to extract a zip. Instead of extracting to a folder, I'dd need to select a disk (f: or e:, etc) also. But when selecting them I get error : destination = objF.ParentFolder.ParseName(objF.Title).Path .... isn't valid ? How to resolve ? _____________________________________ Function IsValue(obj) ' Check whether the value has been returned. Dim tmp On Error Resume Next tmp = " " & obj If Err <> 0 Then IsValue = False Else IsValue = True End If On Error GoTo 0 End Function Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile("extract.vbs") FolderName=objFSO.GetParentFolderName(objFile) 'wscript.echo Foldername stFichierSource = CreateObject("htmlfile").ParentWindow.ClipboardData.Getdata("text") Dim wsh, objDlg, objF ' Get Application object of the Windows shell. Set objDlg = WScript.CreateObject("Shell.Application") Set objF = objDlg.BrowseForFolder (&H0, _ "Select the folder to copy the Record Session to", &H4000, 17) If IsValue(objF) Then destination = objF.ParentFolder.ParseName(objF.Title).Path wscript.echo destination Set oFSO = WScript.CreateObject("Scripting.FileSystemObject") Set oShell = WScript.CreateObject("Wscript.Shell") oShell.Run FolderName&"\7za.exe x -y "&stFichierSource&".zip - o"&destination&"\", 0, True End If Tag: Revoke DHCP lease Tag: 208110
  - 11
    - Printer Monitor I am writing a script to monitor a locally installed printer If there is sth wrong with the printer it will delete jobs from the print queue the script has been written and it runs fine However, how can I install it as a service on the particular system? I can compile the code to a executable Thanks JAck Tag: Revoke DHCP lease Tag: 208107
  - 12
    - Execute command if part of OU I hate to keep asking for help without contributing to this Discussion Group, but I'm still in the learning phase about scripting. I really appreciate everyone's help though, especially Richard Mueller. Right now I'm trying to figure out how to execute the command below based on the user's OU. I would do it based on group membership, but there are times when users are moved from different OU's without making users part of the correct groups, so I want to make sure that this covers all users. In the script I want to specify the different OU's, and as I mentioned above, execute the command below based on their OU (with each command connecting to a different folder. Thanks a bunch! Set objNetwork = CreateObject("Wscript.Network") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("\\servername\sharename\folderA" _ & objNetwork.computername & ".txt", 8, True) objFile.WriteLine objNetwork.UserName & "," & objNetwork.ComputerName _ & "," & Date() & "," & Time() objFile.Close Tag: Revoke DHCP lease Tag: 208105
  - 13
    - cscript.exe //X test.vbs does not launch debugger Hello! I've been trying to track this down for days now, and haven't had any luck. Currently, when launching a script with //X, the script will execute without Just-In-Time debugging kicking in. Like: cscript.exe //X test.vbs I've tried everything I can think of, like installing things with other debuggers like Visual Studio Express. The problem is for all users logged into the machine. This is on a freshly installed workstation, but I'm not sure what install or update would have broken the debugging function. Any ideas? Thanks!!! Nash Tag: Revoke DHCP lease Tag: 208100
  - 14
    - dispid=0 in .WSC does not work in Vista When i try to use a .WSC from a VBS with the code below it works on W2Kpro. On a Vista system i get the error: "The value for the attribute is not valid: dispid" Is dispid="0" to run a default method unsupported on Vista? Thanks for any help George <?xml version="1.0"?> <component> <?component error="true" debug="true"?> <registration progid="CPSAPLogonINI.wsc" description="CPSAPLogonINI" version="1.00"> </registration> <public> <method name="doIt" dispid="0"/> <property name="User"> <put internalname="setUser"/> <get internalname="getUser"/> </property> <property name="Util"> <put internalname="setUtil"/> <get internalname="getUtil"/> </property> <property name="Computer"> <put internalname="setComputer"/> <get internalname="getComputer"/> </property> </public> <script language="VBScript"> <![CDATA[ Code ..... ]]> </script> </component> Tag: Revoke DHCP lease Tag: 208098
  - 15
    - Slightly more complex Copy script - a challenge perhaps? Hi Everyone :o) Thanks in advance to anyone who repsonds to this with suggestions :o) I will try and be as clear as I can. Aim:- Copy files from one location to another (UNC or Mapped Drive), based on modified time, and file extension, to specific folders\subfolders, and to have a new folder (folder name based on the current date) created within the folder\subfolder for these files. Phew! Example1:- C:\FolderA\File.D1 to be copied to D:\FolderB\FolderC\130707\File.D1 Where D:\FolderB is a UNC or mapped Drive FolderC is a folder for files with the .D1 File Extension 130707 is the new folder created by script Example2:- C:\FolderA\File.E1 to be copied to D:\FolderB\FolderD\130707\File.E1 Where D:\FolderB is a UNC or mapped Drive FolderD is a folder for files with the .E1 File Extension 130707 is the new folder created by script Same process but because file extension differs to that in Example1, it is copied to the folder for .E1 extesnions. Basically a way of copying the files, and organising based on file extension and modified time I guess. Hope this is clear! Tag: Revoke DHCP lease Tag: 208095
  - 16
    - Help needed with a merge text files script Hi, I found the below code on the web to merge multiple text files into one: ====== Set fso = CreateObject("Scripting.FileSystemObject") set mainfolder=fso.GetFolder(".") Set filecollection = mainfolder.Files Set objfileOut=fso.OpenTextFile ("merged.txt",2,true) init=false For Each fileList In filecollection Set objfileRead=fso.OpenTextFile(fileList.Name,1,false) do while not objfileRead.AtEndOfStream s=objfileRead.readline() objfileOut.WriteLine s loop objfileRead.CLose() Next wscript.echo "Done" ====== What I'd like to do is amend this so it only checks for text (*.txt) files in the specified folder. I can't quite work out how to do this. Can anyone show me? Thanks, Curtis. -- Please reply to news group only. Thank you. Tag: Revoke DHCP lease Tag: 208088
  - 17
    - Outlook Calendar items Hello: I need to count the number of items in the Outlook Calendar of each one of the mailboxes in my Exchange Organization, but I don't like to open 50,000 Outlook clients to count it ;o) Is there any way to do it accessing the mail account properties in the Exchange server? Thank you very much. Best Regards, Henry Sebastian Tag: Revoke DHCP lease Tag: 208085
  - 18
    - help with drop downs Hi Group i need some help with drop down lists, I have an aspx page with two asp controls which are drop downs and i wrote some code to retrieve database names and cube names from analysis services into those two drop downs and now what i need is, i have to take that two selected values and connect to the analysis services and display the cube data in OWC pivot table. First i did this using text boxes, i took the values from the text box and connected to the analysis server and got the data into pivot table component, but now iam unable to get using drop downs.. Here is the code i used to display with the text boxes... Can anyone tell me how to do that with drop downs <script language=VBScript> function Connect_OnClick() MyPT.ConnectionString = "Provider=MSOLAP.2;Data Source=" & _ ServerName.Value & ";Initial Catalog=" & Catalog.value MyPT.DataMember = Cube.value ' Put measures on the view. MyPT.CommandText = _ "select AddCalculatedMembers(Measures.members) " & _ "on columns from [" & Cube.value & "]" end function </script> Thank You in advance Emily Tag: Revoke DHCP lease Tag: 208079
  - 19
    - Offline Folders Hi gurus,Can we find, if a local machine or user profile has been configured to access network files/folders for offline use. Is there any method I can acomplish this through vbscript ? Thanks Vinod Dadhe Tag: Revoke DHCP lease Tag: 208074
  - 20
    - Remote Authentication Hello; I wish to write a script which will give me access to logs on my server on a workstation which I reside upon. Does the script need to have some sort of login and password authentication in order to access the server and run scripts remotely? If so, how would one go about this? Thanks; Braden. Tag: Revoke DHCP lease Tag: 208067
  - 21
    - copyhere problem hey all, i am frantically working on getting this script right. i am trying to copy files to a folder that may already exist. i am using the copyhere method with the appropriate options (like below) but keep getting that ridiculous "Confirm File Replacement" window that wants me to hit "Yes to All". below is what I have tried, please tell me how I can fix this. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Dim objSHapp Dim strSource ' , strDest Const FOF_SIMPLEPROGRESS = 256 Const OVERWRITEEXISTING = True Const yestoall = 16 Set objSHapp = CreateObject ("Shell.Application") strSource = "c:\documents and settings\username\\my documents \092706\*.*" strSource2 = "c:\documents and settings\username\my documents\evault \*.*" objSHapp.NameSpace(strFolderName).CopyHere strSource, yestoall objSHapp.NameSpace(strFolderName).CopyHere strSource2, yestoall ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ note: i have also tried the &h10& and just using the , 16 option but i still get prompted each time for the confirm file replacement. thanks in advance. Tag: Revoke DHCP lease Tag: 208065
  - 22
    - Most complex problem Hi folks, It really don't interest me or i don't need a solution for this problem but it always turn on my mind. How can i with VB, C#, Java.... or any other languages create a 2 or more simultaneous actions ! For example : Copying 2 file 1/Filecopy input output 2/Filecopy input output Is there a solution to make those two command works simultaneously Thanks for thinking Omar Abid (If you are interested on VB.net visit this group) http://groups.google.com/group/VB2005?lnk=li Tag: Revoke DHCP lease Tag: 208064
  - 23
    - Search for and output users mapped network drives Hi, Has anyone got a script to run on Windows 2000/XP machines so when a user logs on it scans for any mapped drives they have and outputs this information to a text file? Ideally I'd need the output to show the mapped drive's letter and target. Thanks, Curtis. -- Please reply to news group only. Thank you. Tag: Revoke DHCP lease Tag: 208062
  - 24
    - using htmlfile A question from http://www.visualbasicscript.com/m_49393/tm.htm gave me the idea to use htmlfile to create HTML in a 'fill in a template' kind of way: Dim sHTML : sHTML = Join( Array( _ "<html>" _ , " <head>" _ , " </head>" _ , " <body>" _ , " <p id = ""pChange"">" _ , " change me" _ , " </p>" _ , " </body>" _ , "</html>" _ ), vbCrLf ) Dim oHTML : Set oHTML = CreateObject( "htmlfile" ) oHTML.Write sHTML oHTML.Close Dim oP : Set oP = oHTML.GetElementById( "pChange" ) WScript.Echo oP.innerText oP.innerText = "gesagt, getan!" WScript.Echo oP.innerText WScript.Echo oHTML.documentElement.innerHTML Is this idea misguided? How big is the risk, that there is no htmlfile object on the next Windows XP/Vista computer? Are there better ways to create HTML dynamically? Thanks Tag: Revoke DHCP lease Tag: 208060
  - 25
    - createfolder method Hey y'all, I need everyone's expertise on the quick. I have a deadline I have to meet by lunch time today. I have a script that creates a folder and names it based on the current date. Well, if this script is run twice in one day (for backups) then it errors out. For the life of me, I can't figure out how to tell it to "overwrite" the folder if it already exists. below is a copy. thanks in advance. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~` strMonth = Month(Date) If Len(strMonth) = 1 Then strMonth = "0" & strMonth End If strDay = Day(Date) If Len(strDay) = 1 Then strDay = "0" & strDay End If strYear = Year(Date) strFolderName = "f:\backup_" & strMonth & "." & strDay & "." & strYear Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.CreateFolder(strFolderName) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ shrp Tag: Revoke DHCP lease Tag: 208056

Hi,

Does anyone know of a way to revoke DHCP address lease by hostname using a
script? I'm not too techie and dont know where to start.

all help and pointers appreciated.

Top

Re: Revoke DHCP lease by Matthias

Matthias
Thu Jul 19 04:38:24 CDT 2007

Lee wrote:
> Hi,
>
> Does anyone know of a way to revoke DHCP address lease by hostname using a
> script? I'm not too techie and dont know where to start.
>
> all help and pointers appreciated.
>
There is an in depth article on technet from Peter Constantini:
"Automating TCP/IP Networking on Clients" :
<http://www.microsoft.com/technet/scriptcenter/topics/networking/default.mspx>

Part 4 has several scripts, these you might be interrested in:
Listing 19 Dhcpsettings.vbs
Listing 20 Dhcp-enable.vbs
Listing 21 Dhcp-releaselease.vbs
Listing 22 Dhcp-renewlease.vbs

HTH

--
Greetings
Matthias

Top

Re: Revoke DHCP lease by Lee

Lee
Thu Jul 19 09:48:01 CDT 2007

Thanks Matthias

I was looking to rub the script on the server though..
cheers

Top