Carview!

CARVIEW

MOTORHOMES

Select Language

HTTP/2 302 server: nginx date: Wed, 06 Aug 2025 16:52:52 GMT content-type: text/plain; charset=utf-8 content-length: 0 x-archive-redirect-reason: found capture at 20080530011023 location: https://web.archive.org/web/20080530011023/https://techtasks.com/code/viewbookcode/275 server-timing: captures_list;dur=1.258811, exclusion.robots;dur=0.052474, exclusion.robots.policy;dur=0.023570, esindex;dur=0.031209, cdx.remote;dur=29.171500, LoadShardBlock;dur=586.338270, PetaboxLoader3.datanode;dur=216.051133, PetaboxLoader3.resolve;dur=172.788156 x-app-server: wwwb-app203 x-ts: 302 x-tr: 655 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=2 set-cookie: wb-p-SERVER=wwwb-app203; path=/ x-location: All x-rl: 0 x-na: 0 x-page-cache: MISS server-timing: MISS x-nid: DigitalOcean referrer-policy: no-referrer-when-downgrade permissions-policy: interest-cohort=() HTTP/2 200 server: nginx date: Wed, 06 Aug 2025 16:52:53 GMT content-type: text/html; charset=utf-8 x-archive-orig-date: Fri, 30 May 2008 01:10:24 GMT x-archive-orig-server: Apache/2.0.61 (Unix) PHP/4.4.7 mod_ssl/2.0.61 OpenSSL/0.9.7e mod_fastcgi/2.4.2 DAV/2 SVN/1.4.2 x-archive-orig-set-cookie: _session_id=ff2c495b0cd2859983d92c532155c6ed; path=/ x-archive-orig-cache-control: no-cache x-archive-orig-content-length: 10943 x-archive-orig-connection: close x-archive-guessed-content-type: text/html x-archive-guessed-charset: utf-8 memento-datetime: Fri, 30 May 2008 01:10:23 GMT link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Fri, 12 Oct 2007 09:43:06 GMT", ; rel="prev memento"; datetime="Sat, 05 Apr 2008 04:05:04 GMT", ; rel="memento"; datetime="Fri, 30 May 2008 01:10:23 GMT", ; rel="next memento"; datetime="Sun, 05 Oct 2008 00:43:29 GMT", ; rel="last memento"; datetime="Sat, 08 Nov 2008 11:54:30 GMT" content-security-policy: default-src 'self' 'unsafe-eval' 'unsafe-inline' data: blob: archive.org web.archive.org web-static.archive.org wayback-api.archive.org athena.archive.org analytics.archive.org pragma.archivelab.org wwwb-events.archive.org x-archive-src: 51_3_20080529174053_crawl105-c/51_3_20080530010811_crawl102.arc.gz server-timing: captures_list;dur=0.775075, exclusion.robots;dur=0.034153, exclusion.robots.policy;dur=0.016911, esindex;dur=0.013070, cdx.remote;dur=40.154409, LoadShardBlock;dur=333.788360, PetaboxLoader3.datanode;dur=228.997029, PetaboxLoader3.resolve;dur=286.801180, load_resource;dur=206.427149 x-app-server: wwwb-app203 x-ts: 200 x-tr: 641 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0 x-location: All x-rl: 0 x-na: 0 x-page-cache: MISS server-timing: MISS x-nid: DigitalOcean referrer-policy: no-referrer-when-downgrade permissions-policy: interest-cohort=() content-encoding: gzip Find computer objects in AD via WMI (VBScript) - Active Directory, 3rd Edition

Find computer objects in AD via WMI (VBScript)

This code can be found in Chapter 29 of Active Directory, 3rd Edition

Purchase XP Cookbook or Networking Recipes for only $25 plus shipping! While supplies last.

Find out how to download all of the VBScript code from this site.

' From the book "Active Directory, Third Edition" 
' ISBN: 0-596-10173-2
on error resume next
   
strComputer = "."
   
Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\directory\LDAP")
Set objComps = objWMI.ExecQuery("SELECT * FROM ds_computer " & _
                            "where ds_OperatingSystem = 'Windows Server 2003' ")
   
If objComps.Count = 0 Then
   WScript.Echo "No matching objects found"
Else
   For Each objComp In objComps
      WScript.Echo objComp.ds_name
      Set objRemoteWMI = GetObject("winmgmts:\\" & objComp.ds_name & "\root\cimv2")
      If Err <> 0 Then
         WScript.Echo "  Could not connect"
         Err.Clear
      Else
         ' Perform whatever functions necessary on objRemoteWMI
         Set objOSes = objRemoteWMI.InstancesOf("Win32_OperatingSystem")
   
         For Each objOS In objOSes
            strTime = objOS.LastBootUpTime
            strYear = Left(strTime, 4) 
            strMon = Mid(strTime, 5, 2) 
            strDay = Mid(strTime, 7, 2) 
   
            WScript.Echo "  Last Reboot: " & strYear & "/" & strMon & "/" & strDay
         Next
      End If
      WScript.Echo ""
   
      Set objRemoteWMI = Nothing
   Next
End If
WScript.Echo "The script has completed successfully."

This code has been viewed 3029 times.

New from the creators of TechTasks.com: StatSheet.com

Original Source | Taken Source