 |
|
|
Elektronika.lt portalo forumas
Jūs esate neprisijungęs lankytojas. Norint dalyvauti diskusijose, būtina užsiregistruoti ir prisijungti prie forumo.
Prisijungę galėsite kurti naujas temas, atsakyti į kitų užduotus klausimus, balsuoti forumo apklausose.
Administracija pasilieka teisę pašalinti pasisakymus bei dalyvius,
kurie nesilaiko forumo taisyklių.
Pastebėjus nusižengimus, prašome pranešti.
Dabar yra 2026 02 05, 11:49. Visos datos yra GMT + 2 valandos.
|
|
|
 |
Forumas » Programavimas » Skubiai reikia pagalbos
|
Jūs negalite rašyti naujų pranešimų į šį forumą
Jūs negalite atsakinėti į pranešimus šiame forume
Jūs negalite redaguoti savo pranešimų šiame forume
Jūs negalite ištrinti savo pranešimų šiame forume
Jūs negalite dalyvauti apklausose šiame forume
|
|
|
|
|
 |
Skubiai reikia pagalbos |
 Parašytas: 2012 05 10, 15:02 |
  |
|
|
|
Sveiki,labai skubiai reikia jūsų pagalbos,Galite pasakyti ką atlieką šitas užprogramuotas scenarijus ir kokią užduotį atlieka ? Labai Ačiū už pagalbą  ))
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
TevinisKelias=&H80000002
strComputer ="."
Set StdOut = WScript.StdOu
Set oRer=GetObject ("winmgmts:{impersonationLevel=impersonate}!\\"& strComputer & "\root\defaut:StdRegProv")
strKeyPath = "SOFTWARE\Wow6432Node\SIBIS\ABIS\Vartotojai"
strValueName ="Fondas"
Select Case objUser.physicalDeliveryOfficeName
Case "Kaunas" strValue = "1,2,6"
Case "Trecias" strValue = "14"
Case "Antras" strValue = "15"
Case "Pirmas" strValue = "16"
Case else wscript.echo "Kreipkites i administratoriu !"
End Select
oReg.SetStringValue TevinisKelias,strKeyPath,strValueName,strValue
strKeyPath="SOFTWARE\Wow6432Node\SIBIS\ABIS\SK"
strValueName = "ZBkelias"
strValue = ""
TevinisKelias=&H80000001
oReg.SetStringValue TevinisKelias,strKeyPath,strValueName,strValue |
|
|
|
|
|
|
  |
|
|
|
 |
Google paieška forume |
|
|
|
Naujos temos forume |
|
|
FS25 Tractors
Farming Simulator 25 Mods,
FS25 Maps,
FS25 Trucks |
|
ETS2 Mods
ETS2 Trucks,
ETS2 Bus,
Euro Truck Simulator 2 Mods
|
|
FS22 Tractors
Farming Simulator 22 Mods,
FS22 Maps,
FS25 Mods |
|
Dantų protezavimas
All on 4 implantai,
Endodontija mikroskopu,
Dantų implantacija |
|
FS25 Mods
FS25 Maps,
FS25 Cheats,
FS25 Install Mods |
|
FS25 Mods
Farming Simulator 25 Mods,
FS25 Maps |
|
ATS Trailers
American Truck Simulator Mods,
ATS Trucks,
ATS Maps |
 |
RDR2 Mods
Euro Truck Simulator 2 Mods,
WOT Mods,
RDR2 Maps |
|
|
 |
