VBS --> PowerShell ???

don't work on win7

---

' script write in computer description in AD name of logined user
 Set objSysInfo = CreateObject("ADSystemInfo") 
 Set objComputer = GetObject("LDAP://" & objSysInfo.ComputerName) 
 k = 34 
 kk = Chr(k) 
 Set WshShell = WScript.CreateObject ("WScript.Shell") 
 IF  WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion") > "5.1" Then 
     objDefaultUserName =WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\LastLoggedOnUser") 
     LenDUN = InStr(objDefaultUserName,"\")
     objDefaultUserName = Right(objDefaultUserName,LenDUN) 
 Else 
     objDefaultUserName =WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName") 
 End If
 Set net = WshShell.Exec ("net config server /srvcomment:" & kk & objDefaultUserName & " " &  objComputer.location & kk) 
 objComputer.Description = WSHShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters\srvcomment")
 objComputer.SetInfo 

So do you want to convert it to powershell, or do you want to get the VBS to work in W7? VBScripts run just fine in W7.

i want all))) but primary convert

Check out the Microsoft VBScript to PowerShell conversion guide
http://technet.microsoft.com/en-us/library/ee221101.aspx

If you just want to write last logged on user name to registry then I would re write it completely.
Also looks like you might have to find the W7 equivalent for:
net config server /srvcomment:"XXX"
http://support.microsoft.com/kb/556004/en-us

 $dom = 'LDAP://DC=***;DC=***'
 $filter = "(SamAccountName=$env:computername$)"
 $root = new-object directoryservices.directoryentry $dom
 $searcher = new-object directoryservices.directorysearcher
 $searcher.searchroot = $root
 $searcher.filter = $filter
 $searcher.searchScope = "subtree"
 $searcher.propertiesToLoad.add("Location")
 $comp = $searcher.findOne()
 $compLoc = $comp.Properties.location
 $pathComp = $comp.path
 "'" + $pathComp + "'"
 
 $Registry_Key = "HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI"
 [Microsoft.Win32.RegistryKey]$username = get-item $Registry_Key
 foreach ($p in $username)
 {
     foreach ($key in $p.getvalueNames())
     {
         if ($key = "LastLoggedOnUser")
         {
             $keyname2 = $p.GetValue($key)
         }
     }
 }
 $keyname = $keyname2 -split "\\",2
 $keyname = $keyname[1]
 
 $comp = gwmi win32_operatingsystem
 $comp.description = "$keyname $compLoc" 
 $comp.put()
 
 
 $adAccount = [ADSI]$pathComp
 Write-Host $adAccount.Get(“Description”)
 $adAccount.Put(“Description”,"$keyName $compLoc")
 $adAccount.SetInfo()
 

that's all))

When the 10 morning arrived San Jose Asian Escort the Druids would give San Jose Asian Escorts a piece of wood San Jose Escort from their fires to each family，then they would take them home to start new cooking fires.These San Jose Escorts fires would keep the homes warm and free from evil